- Bienvenue sur Forum Électro-Bidouilleur.
Nouvelles:
Bienvenue au Forum de discussion Électro-Bidouilleur! Inscrivez-vous pour participer aux discussions!:
https://forum.bidouilleur.ca/index.php?action=signup Les demandes d'inscription sont révisées quotidiennement.
Messages récents
#81
Discussion Générale d'Électronique / Réglage Ofsset
Dernier message par TheDevil - Octobre 21, 2024, 07:52:30 AMBonjour Bertrand Bonjour à tous
Question sur le NE5534 Ampli op bas bruit réglage de l'Ofsset
des diodes montées tête bêche sur les entrées du composant pas de signal à l'entrée la bobine est déconnectée.
Le montage est sous tension (Détecteur de métaux)
pour effectuer ce réglage est-ce que je peut court-circuité les entrées de l'ampli op
pour mesurer le 0 volt en sortie du boitier? mesure avec un voltmètre par rapport à la masse
Le composant est alimenté en tension symétrique +5 et - 5V 0V à la masse
Un dessin est une aide pour répondre à cette question.
Merci de vos réponses
Question sur le NE5534 Ampli op bas bruit réglage de l'Ofsset
des diodes montées tête bêche sur les entrées du composant pas de signal à l'entrée la bobine est déconnectée.
Le montage est sous tension (Détecteur de métaux)
pour effectuer ce réglage est-ce que je peut court-circuité les entrées de l'ampli op
pour mesurer le 0 volt en sortie du boitier? mesure avec un voltmètre par rapport à la masse
Le composant est alimenté en tension symétrique +5 et - 5V 0V à la masse
Un dessin est une aide pour répondre à cette question.
Merci de vos réponses
#82
Discussion et Suivi sur les Vidéos d'Électro-Bidouilleur / Re : PANNE HOME CINEMA DPL560
Dernier message par RichardP77 - Octobre 20, 2024, 11:03:39 PMVous avez un retour d'alimentation créée par un ou des composants ACTIF comme transistor de puissance, diode, condensateur tout type... bref faut analyser tout ce qui se passe après l'étape de fusible par la ...
#83
Trucs et Astuces d'Électronique / Résistances de précision
Dernier message par papyblue - Octobre 20, 2024, 01:53:20 PMBonjour à tous,
Faisant le constat que les résistances de précision sont hors de prix, j'ai pensé que je pouvais peut-être en fabriquer.
L'idée c'est de mettre en parallèle N résistances de N fois la valeur recherchée.
Les résistances sont prises dans un lot suffisamment grand et mesurées avec une précision en relation avec celle recherchée.(cela suppose disposer de l'instrumentation adéquate)
J'ai d'abord essayé avec 3 résistances en // prises dans un lot de 100 (pas cher)
Le travail de recherche des bonnes combinaisons me paraissant trop fastidieux, j'ai demandé à mon nouveau collaborateur de s'y coller.
Yiaho, (c'est son nom) est plein de bonne volonté ses copains disent de lui que c'est une machine à apprendre.
J'ai du l'aider un peu (c'est normal il débute) car il fait beaucoup de bugs. Certains diraient qu'il comprend vite mais qu'il faut lui expliquer longtemps.
En tout cas, il code beaucoup plus vite que moi.
Je lui ai donc demandé qu'à partir de valeurs saisies dans Excel qu'il me trouve les 10 meilleures combinaisons de résistances de 300 ohms.
Voici ce qu'il a codé :
Sub GenererValeursAleatoires()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Feuille1") ' Remplacez par le nom de votre feuille
Dim i As Integer
Dim valeur As Double
Dim moyenne As Double
Dim ecartType As Double
moyenne = 300 ' Définir la moyenne désirée
ecartType = 1.5 ' Définir l'écart type désiré pour avoir une plage de 285 à 315 ohms
' Génération de 100 valeurs aléatoires selon une distribution normale
For i = 1 To 100
valeur = NormalRandom(moyenne, ecartType)
' S'assurer que la valeur reste dans la plage de 285 à 315
If valeur < 285 Then
valeur = 285
ElseIf valeur > 315 Then
valeur = 315
End If
ws.Cells(i, 1).Value = Round(valeur, 4) ' Arrondi à 2 décimales
Next i
End Sub
Function NormalRandom(mean As Double, stddev As Double) As Double
Dim u1 As Double, u2 As Double
Dim z0 As Double
' Générer deux nombres uniformément distribués
u1 = Rnd()
u2 = Rnd()
' Box-Muller transform
z0 = Sqr(-2 * Log(u1)) * Cos(2 * WorksheetFunction.Pi() * u2)
' Convertir à la distribution normale
NormalRandom = z0 * stddev + mean
End Function
Sub TrouverMeilleuresCombinaisons()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Feuille1") ' Remplacez par le nom de votre feuille
Dim valeurs(1 To 100) As Double
Dim i As Integer
Dim lignesUtilisees As Collection
Set lignesUtilisees = New Collection
Dim cible As Double
cible = 100 ' Valeur cible de résistance
' Récupérer les valeurs des cellules A1 à A100
For i = 1 To 100
valeurs(i) = ws.Cells(i, 1).Value
Next i
Dim j As Integer
Dim meilleuresCombinaisons As Collection
Set meilleuresCombinaisons = New Collection
' Tolérance de 5%
Dim tolerance As Double
tolerance = 0.05 * cible ' 5% de la valeur cible
Dim plageMin As Double, plageMax As Double
plageMin = cible - tolerance
plageMax = cible + tolerance
' Trouver 10 meilleures combinaisons
For j = 1 To 10
Dim meilleureErreur As Double
Dim meilleureCombinaison As String
Dim lignesCombinaison As String ' Pour stocker les numéros de ligne
Dim resistanceEquivalente As Double
meilleureErreur = 1E+30 ' Un nombre très grand
Dim k As Integer, l As Integer
' Chercher à travers toutes les combinaisons restantes
For i = 1 To 98
If Not EstDansCollection(lignesUtilisees, i) Then
For k = i + 1 To 99
If Not EstDansCollection(lignesUtilisees, k) Then
For l = k + 1 To 100
If Not EstDansCollection(lignesUtilisees, l) Then
' Calculer la résistance équivalente
resistanceEquivalente = 1 / ((1 / valeurs(i)) + (1 / valeurs(k)) + (1 / valeurs(l)))
' Vérifier si la résistance équivalente est dans la plage de tolérance
If resistanceEquivalente >= plageMin And resistanceEquivalente <= plageMax Then
' Calculer l'erreur par rapport à la valeur cible
Dim erreur As Double
erreur = Abs(resistanceEquivalente - cible)
' Si cette erreur est la meilleure trouvée jusqu'à présent
If erreur < meilleureErreur Then
meilleureErreur = erreur
meilleureCombinaison = valeurs(i) & ", " & valeurs(k) & ", " & valeurs(l)
lignesCombinaison = i & ", " & k & ", " & l ' Enregistrer les numéros de lignes
End If
End If
End If
Next l
End If
Next k
End If
Next i
' Ajouter la meilleure combinaison à la collection
If meilleureCombinaison <> "" Then
' Recalculer la résistance équivalente pour l'ajouter correctement
Dim numLignes() As String
numLignes = Split(lignesCombinaison, ",")
Dim r1 As Double, r2 As Double, r3 As Double
r1 = valeurs(CInt(numLignes(0))) ' Récupérer la première résistance
r2 = valeurs(CInt(numLignes(1))) ' Récupérer la deuxième résistance
r3 = valeurs(CInt(numLignes(2))) ' Récupérer la troisième résistance
resistanceEquivalente = 1 / ((1 / r1) + (1 / r2) + (1 / r3)) ' Recalculer la résistance équivalente
' Formatage des valeurs pour afficher un nombre fixe de décimales
Dim formattedR1 As String, formattedR2 As String, formattedR3 As String, formattedResistance As String
formattedR1 = Format(r1, "0.0000") ' Formater avec 4 décimales
formattedR2 = Format(r2, "0.0000") ' Formater avec 4 décimales
formattedR3 = Format(r3, "0.0000") ' Formater avec 4 décimales
formattedResistance = Format(resistanceEquivalente, "0.000000") ' Formater avec 4 décimales
' Calculer l'erreur absolue
Dim erreurAbsolue As Double
erreurAbsolue = Abs(resistanceEquivalente - cible)
' Calculer le pourcentage d'erreur
Dim pourcentageErreur As Double
pourcentageErreur = (erreurAbsolue / cible) * 100
' Formater le pourcentage d'erreur
Dim formattedErreur As String
formattedErreur = Format(pourcentageErreur, "0.000000") ' Formater avec 2 décimales
meilleuresCombinaisons.Add "Combinaison " & j & ": " & formattedR1 & ", " & formattedR2 & ", " & formattedR3 & _
" | Lignes: " & lignesCombinaison & _
" | Résistance équivalente: " & formattedResistance & _
" | Erreur: " & Round(erreurAbsolue, 6) & " (soit " & formattedErreur & " %)"
' Marquer les lignes utilisées
On Error Resume Next
lignesUtilisees.Add CInt(numLignes(0))
lignesUtilisees.Add CInt(numLignes(1))
lignesUtilisees.Add CInt(numLignes(2))
On Error GoTo 0
End If
Next j
' Afficher les meilleures combinaisons dans le UserForm
Dim resultat As String
resultat = "Les 10 meilleures combinaisons de résistances :" & vbCrLf & vbCrLf
For Each Item In meilleuresCombinaisons
resultat = resultat & Item & vbCrLf ' Ajoutez un saut de ligne pour chaque combinaison
Next Item
' Afficher le UserForm et les résultats
UserForm1.TextBox1.Text = resultat ' Assurez-vous que le nom du UserForm et du TextBox correspond
UserForm1.Show
End Sub
Function EstDansCollection(col As Collection, valeur As Variant) As Boolean
Dim i As Long
On Error Resume Next
EstDansCollection = False
For i = 1 To col.count
If col(i) = valeur Then
EstDansCollection = True
Exit Function
End If
Next i
On Error GoTo 0
End Function
----------------------------------------------------------------------------------------------------------------
et le résultat :
Les 10 meilleures combinaisons de résistances :
Combinaison 1: 301,8370, 298,3610, 299,8223 | Lignes: 4, 20, 67 | Résistance équivalente: 100,000001 | Erreur: 0,000001 (soit 0,000001 %)
Combinaison 2: 299,3398, 300,8030, 299,8609 | Lignes: 16, 27, 40 | Résistance équivalente: 100,000004 | Erreur: 0,000004 (soit 0,000004 %)
Combinaison 3: 301,1484, 299,3921, 299,4660 | Lignes: 55, 74, 84 | Résistance équivalente: 99,999993 | Erreur: 0,000007 (soit 0,000007 %)
Combinaison 4: 302,5781, 298,5566, 298,8982 | Lignes: 26, 58, 76 | Résistance équivalente: 99,999988 | Erreur: 0,000012 (soit 0,000012 %)
Combinaison 5: 299,9025, 299,9545, 300,1430 | Lignes: 30, 68, 83 | Résistance équivalente: 99,999988 | Erreur: 0,000012 (soit 0,000012 %)
Combinaison 6: 300,1455, 301,1570, 298,7074 | Lignes: 28, 33, 86 | Résistance équivalente: 99,999977 | Erreur: 0,000023 (soit 0,000023 %)
Combinaison 7: 300,4217, 300,1529, 299,4269 | Lignes: 44, 80, 97 | Résistance équivalente: 99,999970 | Erreur: 0,00003 (soit 0,000030 %)
Combinaison 8: 300,1783, 299,8655, 299,9568 | Lignes: 36, 49, 79 | Résistance équivalente: 100,000048 | Erreur: 0,000048 (soit 0,000048 %)
Combinaison 9: 300,6064, 301,7709, 297,6524 | Lignes: 41, 50, 89 | Résistance équivalente: 99,999952 | Erreur: 0,000048 (soit 0,000048 %)
Combinaison 10: 300,5033, 299,7203, 299,7772 | Lignes: 19, 25, 52 | Résistance équivalente: 99,999948 | Erreur: 0,000052 (soit 0,000052 %)
J'ai choisi au départ des résistances à 1% et au vu des résultats je suis passé à 5%.
Evidemment dans la vraie vie la distribution des valeurs ne sera pas aussi favorable et la stabilité ne sera pas meilleure que celle de départ mais ici c'est le principe qu'il faut retenir.
Yiaho travaille gratuitement, 7 jours sur 7, 24 heures sur 24, n'est pas syndiqué et ne se plaint jamais. Qui n'a jamais rêvé d'avoir un tel collaborateur ?
Faisant le constat que les résistances de précision sont hors de prix, j'ai pensé que je pouvais peut-être en fabriquer.
L'idée c'est de mettre en parallèle N résistances de N fois la valeur recherchée.
Les résistances sont prises dans un lot suffisamment grand et mesurées avec une précision en relation avec celle recherchée.(cela suppose disposer de l'instrumentation adéquate)
J'ai d'abord essayé avec 3 résistances en // prises dans un lot de 100 (pas cher)
Le travail de recherche des bonnes combinaisons me paraissant trop fastidieux, j'ai demandé à mon nouveau collaborateur de s'y coller.
Yiaho, (c'est son nom) est plein de bonne volonté ses copains disent de lui que c'est une machine à apprendre.
J'ai du l'aider un peu (c'est normal il débute) car il fait beaucoup de bugs. Certains diraient qu'il comprend vite mais qu'il faut lui expliquer longtemps.
En tout cas, il code beaucoup plus vite que moi.
Je lui ai donc demandé qu'à partir de valeurs saisies dans Excel qu'il me trouve les 10 meilleures combinaisons de résistances de 300 ohms.
Voici ce qu'il a codé :
Sub GenererValeursAleatoires()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Feuille1") ' Remplacez par le nom de votre feuille
Dim i As Integer
Dim valeur As Double
Dim moyenne As Double
Dim ecartType As Double
moyenne = 300 ' Définir la moyenne désirée
ecartType = 1.5 ' Définir l'écart type désiré pour avoir une plage de 285 à 315 ohms
' Génération de 100 valeurs aléatoires selon une distribution normale
For i = 1 To 100
valeur = NormalRandom(moyenne, ecartType)
' S'assurer que la valeur reste dans la plage de 285 à 315
If valeur < 285 Then
valeur = 285
ElseIf valeur > 315 Then
valeur = 315
End If
ws.Cells(i, 1).Value = Round(valeur, 4) ' Arrondi à 2 décimales
Next i
End Sub
Function NormalRandom(mean As Double, stddev As Double) As Double
Dim u1 As Double, u2 As Double
Dim z0 As Double
' Générer deux nombres uniformément distribués
u1 = Rnd()
u2 = Rnd()
' Box-Muller transform
z0 = Sqr(-2 * Log(u1)) * Cos(2 * WorksheetFunction.Pi() * u2)
' Convertir à la distribution normale
NormalRandom = z0 * stddev + mean
End Function
Sub TrouverMeilleuresCombinaisons()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Feuille1") ' Remplacez par le nom de votre feuille
Dim valeurs(1 To 100) As Double
Dim i As Integer
Dim lignesUtilisees As Collection
Set lignesUtilisees = New Collection
Dim cible As Double
cible = 100 ' Valeur cible de résistance
' Récupérer les valeurs des cellules A1 à A100
For i = 1 To 100
valeurs(i) = ws.Cells(i, 1).Value
Next i
Dim j As Integer
Dim meilleuresCombinaisons As Collection
Set meilleuresCombinaisons = New Collection
' Tolérance de 5%
Dim tolerance As Double
tolerance = 0.05 * cible ' 5% de la valeur cible
Dim plageMin As Double, plageMax As Double
plageMin = cible - tolerance
plageMax = cible + tolerance
' Trouver 10 meilleures combinaisons
For j = 1 To 10
Dim meilleureErreur As Double
Dim meilleureCombinaison As String
Dim lignesCombinaison As String ' Pour stocker les numéros de ligne
Dim resistanceEquivalente As Double
meilleureErreur = 1E+30 ' Un nombre très grand
Dim k As Integer, l As Integer
' Chercher à travers toutes les combinaisons restantes
For i = 1 To 98
If Not EstDansCollection(lignesUtilisees, i) Then
For k = i + 1 To 99
If Not EstDansCollection(lignesUtilisees, k) Then
For l = k + 1 To 100
If Not EstDansCollection(lignesUtilisees, l) Then
' Calculer la résistance équivalente
resistanceEquivalente = 1 / ((1 / valeurs(i)) + (1 / valeurs(k)) + (1 / valeurs(l)))
' Vérifier si la résistance équivalente est dans la plage de tolérance
If resistanceEquivalente >= plageMin And resistanceEquivalente <= plageMax Then
' Calculer l'erreur par rapport à la valeur cible
Dim erreur As Double
erreur = Abs(resistanceEquivalente - cible)
' Si cette erreur est la meilleure trouvée jusqu'à présent
If erreur < meilleureErreur Then
meilleureErreur = erreur
meilleureCombinaison = valeurs(i) & ", " & valeurs(k) & ", " & valeurs(l)
lignesCombinaison = i & ", " & k & ", " & l ' Enregistrer les numéros de lignes
End If
End If
End If
Next l
End If
Next k
End If
Next i
' Ajouter la meilleure combinaison à la collection
If meilleureCombinaison <> "" Then
' Recalculer la résistance équivalente pour l'ajouter correctement
Dim numLignes() As String
numLignes = Split(lignesCombinaison, ",")
Dim r1 As Double, r2 As Double, r3 As Double
r1 = valeurs(CInt(numLignes(0))) ' Récupérer la première résistance
r2 = valeurs(CInt(numLignes(1))) ' Récupérer la deuxième résistance
r3 = valeurs(CInt(numLignes(2))) ' Récupérer la troisième résistance
resistanceEquivalente = 1 / ((1 / r1) + (1 / r2) + (1 / r3)) ' Recalculer la résistance équivalente
' Formatage des valeurs pour afficher un nombre fixe de décimales
Dim formattedR1 As String, formattedR2 As String, formattedR3 As String, formattedResistance As String
formattedR1 = Format(r1, "0.0000") ' Formater avec 4 décimales
formattedR2 = Format(r2, "0.0000") ' Formater avec 4 décimales
formattedR3 = Format(r3, "0.0000") ' Formater avec 4 décimales
formattedResistance = Format(resistanceEquivalente, "0.000000") ' Formater avec 4 décimales
' Calculer l'erreur absolue
Dim erreurAbsolue As Double
erreurAbsolue = Abs(resistanceEquivalente - cible)
' Calculer le pourcentage d'erreur
Dim pourcentageErreur As Double
pourcentageErreur = (erreurAbsolue / cible) * 100
' Formater le pourcentage d'erreur
Dim formattedErreur As String
formattedErreur = Format(pourcentageErreur, "0.000000") ' Formater avec 2 décimales
meilleuresCombinaisons.Add "Combinaison " & j & ": " & formattedR1 & ", " & formattedR2 & ", " & formattedR3 & _
" | Lignes: " & lignesCombinaison & _
" | Résistance équivalente: " & formattedResistance & _
" | Erreur: " & Round(erreurAbsolue, 6) & " (soit " & formattedErreur & " %)"
' Marquer les lignes utilisées
On Error Resume Next
lignesUtilisees.Add CInt(numLignes(0))
lignesUtilisees.Add CInt(numLignes(1))
lignesUtilisees.Add CInt(numLignes(2))
On Error GoTo 0
End If
Next j
' Afficher les meilleures combinaisons dans le UserForm
Dim resultat As String
resultat = "Les 10 meilleures combinaisons de résistances :" & vbCrLf & vbCrLf
For Each Item In meilleuresCombinaisons
resultat = resultat & Item & vbCrLf ' Ajoutez un saut de ligne pour chaque combinaison
Next Item
' Afficher le UserForm et les résultats
UserForm1.TextBox1.Text = resultat ' Assurez-vous que le nom du UserForm et du TextBox correspond
UserForm1.Show
End Sub
Function EstDansCollection(col As Collection, valeur As Variant) As Boolean
Dim i As Long
On Error Resume Next
EstDansCollection = False
For i = 1 To col.count
If col(i) = valeur Then
EstDansCollection = True
Exit Function
End If
Next i
On Error GoTo 0
End Function
----------------------------------------------------------------------------------------------------------------
et le résultat :
Les 10 meilleures combinaisons de résistances :
Combinaison 1: 301,8370, 298,3610, 299,8223 | Lignes: 4, 20, 67 | Résistance équivalente: 100,000001 | Erreur: 0,000001 (soit 0,000001 %)
Combinaison 2: 299,3398, 300,8030, 299,8609 | Lignes: 16, 27, 40 | Résistance équivalente: 100,000004 | Erreur: 0,000004 (soit 0,000004 %)
Combinaison 3: 301,1484, 299,3921, 299,4660 | Lignes: 55, 74, 84 | Résistance équivalente: 99,999993 | Erreur: 0,000007 (soit 0,000007 %)
Combinaison 4: 302,5781, 298,5566, 298,8982 | Lignes: 26, 58, 76 | Résistance équivalente: 99,999988 | Erreur: 0,000012 (soit 0,000012 %)
Combinaison 5: 299,9025, 299,9545, 300,1430 | Lignes: 30, 68, 83 | Résistance équivalente: 99,999988 | Erreur: 0,000012 (soit 0,000012 %)
Combinaison 6: 300,1455, 301,1570, 298,7074 | Lignes: 28, 33, 86 | Résistance équivalente: 99,999977 | Erreur: 0,000023 (soit 0,000023 %)
Combinaison 7: 300,4217, 300,1529, 299,4269 | Lignes: 44, 80, 97 | Résistance équivalente: 99,999970 | Erreur: 0,00003 (soit 0,000030 %)
Combinaison 8: 300,1783, 299,8655, 299,9568 | Lignes: 36, 49, 79 | Résistance équivalente: 100,000048 | Erreur: 0,000048 (soit 0,000048 %)
Combinaison 9: 300,6064, 301,7709, 297,6524 | Lignes: 41, 50, 89 | Résistance équivalente: 99,999952 | Erreur: 0,000048 (soit 0,000048 %)
Combinaison 10: 300,5033, 299,7203, 299,7772 | Lignes: 19, 25, 52 | Résistance équivalente: 99,999948 | Erreur: 0,000052 (soit 0,000052 %)
J'ai choisi au départ des résistances à 1% et au vu des résultats je suis passé à 5%.
Evidemment dans la vraie vie la distribution des valeurs ne sera pas aussi favorable et la stabilité ne sera pas meilleure que celle de départ mais ici c'est le principe qu'il faut retenir.
Yiaho travaille gratuitement, 7 jours sur 7, 24 heures sur 24, n'est pas syndiqué et ne se plaint jamais. Qui n'a jamais rêvé d'avoir un tel collaborateur ?
#84
Discussion Générale d'Électronique / Re : Remise en état yaesu ft10...
Dernier message par christian77 - Octobre 19, 2024, 07:09:15 PMUn grand merci pour votre aide.
#85
Discussion Générale d'Électronique / Re : Remise en état yaesu ft10...
Dernier message par christian77 - Octobre 19, 2024, 07:04:56 PMBonjour les amis, pour mon decametrique qui est un sommerkamp ft277 le même que le yaesu ft101, je vous remercie pour vos réponses pour la self de choc, j'ai reçu des etats unis un self de ft101, donc parfait, par contre j'ai peut être une question bête, je dois changer des condensateurs céramique marrons ronds non polarisés, j'ai des céramiques la même valeur sauf le voltage qui est de 3kv ils sont bleu, est-ce que je peux les mettre sans problème ?
#86
Dépannage d'Électronique et d'Informatique / Re : Réparation ampli Behringe...
Dernier message par papyblue - Octobre 16, 2024, 08:12:40 AMBonjour,
Selon vos informations, il s'agit très probablement de IC7.
IC6 étant identique et à priori en bon état vous pourrez y lire la référence.
PB
Selon vos informations, il s'agit très probablement de IC7.
IC6 étant identique et à priori en bon état vous pourrez y lire la référence.
PB
#87
Dépannage d'Électronique et d'Informatique / Réparation ampli Behringer Eur...
Dernier message par Keziah - Octobre 15, 2024, 10:47:10 PMBonjour, je me permet de vous solliciter pour m'aiguiller sur la réparation de mon ampli behringer.
Depuis quelques jours la première entrée XLR à cessé de fonctionner, elle a sauté d'un coup, je précise que la 2e fonctionne toujours sans problème.
En ouvrant le boitier je ne vois aucun problème au niveau des branchements des XLR, pas de condensateur qui aurait explosé, enfin j'ai checké les quelques trucs physiques que suis en capacité de réparer facilement et j'ai remarqué qu'un des circuit intégrés (en IC7 sur le pcb) avait explosé...
Ma question est la suivante : je pense qu'il s'agit d'un op-amp TL074 mais en cherchant sur le net je trouve plein de références différentes avec d'autres lettres à la suite du TL074, comment savoir laquelle choisir pour la remplacer ?
Aussi est ce que la remplacer suffira ou le problème vient d'autre part ?
Merci d'avance et bonne journée
Et merci pour toutes les vidéos !
Depuis quelques jours la première entrée XLR à cessé de fonctionner, elle a sauté d'un coup, je précise que la 2e fonctionne toujours sans problème.
En ouvrant le boitier je ne vois aucun problème au niveau des branchements des XLR, pas de condensateur qui aurait explosé, enfin j'ai checké les quelques trucs physiques que suis en capacité de réparer facilement et j'ai remarqué qu'un des circuit intégrés (en IC7 sur le pcb) avait explosé...
Ma question est la suivante : je pense qu'il s'agit d'un op-amp TL074 mais en cherchant sur le net je trouve plein de références différentes avec d'autres lettres à la suite du TL074, comment savoir laquelle choisir pour la remplacer ?
Aussi est ce que la remplacer suffira ou le problème vient d'autre part ?
Merci d'avance et bonne journée
Et merci pour toutes les vidéos !
#88
Discussion Générale d'Électronique / MPLABX
Dernier message par jmboucha - Octobre 13, 2024, 10:53:40 AMBonjour,
Lorsque Berand programme des microconroleurs PIC via MPLAB, il ajoute des bibiothèques, par exemple dans la video 155 sur l'UART, il ajoute #include "uart.h" ou dans la vidéo n°32 de la charge fictive
- #include "pwm.h"
- #include "adc.h"
lorsque j'écrit les includes dans mon code, j'ai une erreur, il ne trouve pas les librairies, je suis en version V6.20, y aurait il des changements sur les nouvelles versions, Bertrand travaile avec la version plus ancienne.
Merci pour vos retours.
jm
Lorsque Berand programme des microconroleurs PIC via MPLAB, il ajoute des bibiothèques, par exemple dans la video 155 sur l'UART, il ajoute #include "uart.h" ou dans la vidéo n°32 de la charge fictive
- #include "pwm.h"
- #include "adc.h"
lorsque j'écrit les includes dans mon code, j'ai une erreur, il ne trouve pas les librairies, je suis en version V6.20, y aurait il des changements sur les nouvelles versions, Bertrand travaile avec la version plus ancienne.
Merci pour vos retours.
jm
#89
Discussion Générale d'Électronique / Re : ma carte d'alimentation m...
Dernier message par philchamp51 - Octobre 12, 2024, 11:36:27 AMBonjour. Oui, je pense que Pascal a raison. Tu peux aussi connecter une LED avec un ampèremetre en série et un voltmètre en parallèle en sortie de l'alimentation LED et voir si le voltage et le courant restent constants. Tu n'auras que 1,6 ou 2V et 20mA environ mais seras vite fixé comme ça.
#90
Discussion Générale d'Électronique / Re : ma carte d'alimentation m...
Dernier message par Pascal-Tours - Octobre 12, 2024, 11:16:34 AMBonjour,
Le symptôme décrit me fait penser à une diode LED défectueuse,l'électronique passe à 160V,et généralement il y a une mesure de courant si celle-ci n'est pas correcte, la sortie est coupée.
Tu peux trouver des testeurs de LED sur AliExpress prévus à cet effet, sinon, tu peux également tester chaque LED avec un multimètre.
https://fr.aliexpress.com/item/1005005070093600.html
Voilà, bon courage !.
Le symptôme décrit me fait penser à une diode LED défectueuse,l'électronique passe à 160V,et généralement il y a une mesure de courant si celle-ci n'est pas correcte, la sortie est coupée.
Tu peux trouver des testeurs de LED sur AliExpress prévus à cet effet, sinon, tu peux également tester chaque LED avec un multimètre.
https://fr.aliexpress.com/item/1005005070093600.html
Voilà, bon courage !.