Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 12 10:48:38

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Divers

> CALCUL DE TRAPPES RÉALISÉES AVEC DU COAXIAL

CALCUL DE TRAPPES RÉALISÉES AVEC DU COAXIAL

Information sur la source

Note :

10,00 / 10

Catégorie :Divers Niveau :Initié Date de création :24/08/2004 Vu / téléchargé :5 408 / 150

Auteur : radioham

Ecrire un message privé

Site perso

Commentaire sur cette source (10)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Ce petit applicatif, faisant parti de "electronique.exe" disponible sur mon site, permet de calculer deux égalités par itérations : Lw = 1 / Cw condition essentielle de la résonance d'un circuit bouchon à une fréquence donnée.
Ne maitrisant pas les bases de données, les différents coaxiaux utilisables sont traités par une série de "Case". Ce qui ne change rien au calcul lui même.

Pour le calcul de la pulsation (nombre de tr/s exprimés en rd/s), Pi est calculé par
Pi = 4*Atn(1).

En dehors des spécificités électroniques, il m'a semblé intéressant de vous soumettre la chose.

Source

Public Frequence As Double, WaveLenght As Double
Public CapaParFt As Double, DiamCoax As Double, DiamNoyau As Double
Public NbreTours As Double, Zcoax As Double, VF As Double
Public Sub Form_Load()
'
On Error Resume Next
'
Frm1.TxtFrequence.SetFocus
'
OptMetrique.Value = True
'
End Sub
Private Sub OptMetrique_Click()
'
Label10 = "Diamètre coaxial en mm"
Label11 = "Capacité en pf/m"
Label12 = "Diamètre du mandrin en mm"
'
TxtDiamCoax = ""
TxtDiamMandrin = ""
TxtCapacitParMetre = ""
'
End Sub
Private Sub OptImperial_Click()
'
Label10 = "Diamètre coaxial en inches"
Label11 = "Capacité en pf/Ft"
Label12 = "Diamètre du mandrin en inches"
'
TxtDiamCoax = ""
TxtDiamMandrin = ""
TxtCapacitParMetre = ""
'
End Sub
Public Sub LstCoax_Click()
'
If LstCoax.ListIndex < LstCoax.ListCount - 1 Then
'
TxtCapacitParMetre.Locked = True
TxtDiamCoax.Locked = True
'
Else
'
TxtCapacitParMetre.Locked = False
TxtDiamCoax.Locked = False
'
End If
'
Select Case LstCoax.ListIndex
Case 0
' RG 6
Zcoax = 75
VF = 0.75
CapaParFt = 18.6
DiamCoax = 0.266
'
Case 1
' RG 8X
Zcoax = 52
VF = 0.75
CapaParFt = 26
DiamCoax = 0.242
'
Case 2
' RG 8
Zcoax = 52
VF = 0.66
CapaParFt = 29.5
DiamCoax = 0.405
'
Case 3
' RG 8 foam
Zcoax = 50
VF = 0.8
CapaParFt = 25.4
DiamCoax = 0.405
'
Case 4
' RG 8A
Zcoax = 52
VF = 0.66
CapaParFt = 29.5
DiamCoax = 0.405
'
Case 5
' RG 9
Zcoax = 51
VF = 0.66
CapaParFt = 30
DiamCoax = 0.42
'
Case 6
' RG 9A
Zcoax = 51
VF = 0.66
CapaParFt = 30
DiamCoax = 0.42
'
Case 7
' RG 9B
Zcoax = 50
VF = 0.66
CapaParFt = 30.8
DiamCoax = 0.42
'
Case 8
' RG 11
Zcoax = 75
VF = 0.66
CapaParFt = 20.6
DiamCoax = 0.405
'
Case 9
' RG 11 foam
Zcoax = 75
VF = 0.8
CapaParFt = 16.9
DiamCoax = 0.405
'
Case 10
' RG 11A
Zcoax = 75
VF = 0.66
CapaParFt = 20.6
DiamCoax = 0.405
'
Case 11
' RG 12
Zcoax = 75
VF = 0.66
CapaParFt = 20.6
DiamCoax = 0.475
'
Case 12
' RG 12A
Zcoax = 75
VF = 0.66
CapaParFt = 20.6
DiamCoax = 0.475
'
Case 13
' RG 17
Zcoax = 52
VF = 0.66
CapaParFt = 29.5
DiamCoax = 0.87
DiamNoyau = 0
'
Case 14
' RG 17A
Zcoax = 52
VF = 0.66
CapaParFt = 29.5
DiamCoax = 0.87
'
Case 15
' RG 55
Zcoax = 53.5
VF = 0.66
CapaParFt = 29.5
DiamCoax = 0.216
'
Case 16
' RG 55A
Zcoax = 50
VF = 0.66
CapaParFt = 30.8
DiamCoax = 0.216
'
Case 17
' RG 55B
Zcoax = 53.5
VF = 0.66
CapaParFt = 29.5
DiamCoax = 0.216
'
Case 18
' RG 58
Zcoax = 53.5
VF = 0.66
CapaParFt = 28.5
DiamCoax = 0.195
'
Case 19
' RG 58 foam
Zcoax = 53.5
VF = 0.79
CapaParFt = 28.5
DiamCoax = 0.195
'
Case 20
' RG 58A
Zcoax = 53.5
VF = 0.66
CapaParFt = 28.5
DiamCoax = 0.195
'
Case 21
' RG 58B
Zcoax = 53.5
VF = 0.66
CapaParFt = 28.5
DiamCoax = 0.195
'
Case 22
' RG 58C
Zcoax = 50
VF = 0.66
CapaParFt = 30.8
DiamCoax = 0.195
'
Case 23
' RG 59
Zcoax = 73
VF = 0.66
CapaParFt = 21
DiamCoax = 0.242
'
Case 24
' RG 59 foam
Zcoax = 75
VF = 0.79
CapaParFt = 16.9
DiamCoax = 0.242
'
Case 25
' RG 59A
Zcoax = 73
VF = 0.66
CapaParFt = 21
DiamCoax = 0.242
'
Case 26
' RG 62
Zcoax = 93
VF = 0.86
CapaParFt = 13.5
DiamCoax = 0.242
'
Case 27
' RG 62 foam
Zcoax = 95
VF = 0.79
CapaParFt = 13.4
DiamCoax = 0.242
'
Case 28
' RG 62A
Zcoax = 93
VF = 0.86
CapaParFt = 13.5
DiamCoax = 0.242
'
Case 29
' RG 62B
Zcoax = 93
VF = 0.86
CapaParFt = 13.5
DiamCoax = 0.242
'
Case 30
' RG 133A
Zcoax = 95
VF = 0.66
CapaParFt = 16.2
DiamCoax = 0.405
'
Case 31
' RG 141
Zcoax = 50
VF = 0.7
CapaParFt = 29.4
DiamCoax = 0.19
'
Case 32
' RG 141A
Zcoax = 50
VF = 0.7
CapaParFt = 29.4
DiamCoax = 0.19
'
Case 33
' RG 142
Zcoax = 50
VF = 0.7
CapaParFt = 29.4
DiamCoax = 0.206
'
Case 34
' RG 142A
Zcoax = 50
VF = 0.7
CapaParFt = 29.4
DiamCoax = 0.206
'
Case 35
' RG 142B
Zcoax = 50
VF = 0.7
CapaParFt = 29.4
DiamCoax = 0.195
'
Case 36
' RG 174
Zcoax = 50
VF = 0.66
CapaParFt = 30.8
DiamCoax = 0.1
'
Case 37
' RG 213
Zcoax = 50
VF = 0.66
CapaParFt = 30.8
DiamCoax = 0.405
'
Case 38
' RG 214
Zcoax = 50
VF = 0.66
CapaParFt = 30.8
DiamCoax = 0.425
'
Case 39
' RG 215
Zcoax = 50
VF = 0.66
CapaParFt = 30.8
DiamCoax = 0.475
DiamNoyau = 0
'
Case 40
' RG 216
Zcoax = 75
VF = 0.66
CapaParFt = 20.6
DiamCoax = 0.425
'
Case 41
' RG 223
Zcoax = 50
VF = 0.66
CapaParFt = 30.8
DiamCoax = 0.212
'
Case 42
' 9913
Zcoax = 50
VF = 0.84
CapaParFt = 24
DiamCoax = 0.405
'
Case 43
' 9914
Zcoax = 50
VF = 0.78
CapaParFt = 26
DiamCoax = 0.405
'
Case LstCoax.ListCount - 1
' Coaxial personnel
TxtDiamCoax = ""
TxtDiamMandrin = ""
TxtCapacitParMetre = ""
'
End Select
'
If OptMetrique.Value = True And _
LstCoax.ListIndex < LstCoax.ListCount - 1 Then
TxtDiamCoax = DiamCoax * 25.4
TxtCapacitParMetre = CapaParFt / 0.3048
TxtZ = Zcoax
TxtVF = VF
Else
TxtDiamCoax = DiamCoax
TxtCapacitParMetre = CapaParFt
End If
'
End Sub
Public Sub mnuQuitter_Click()
End
End Sub
Public Sub TxtDiamCoax_Change()
If TxtDiamCoax.Locked = False Then
If OptMetrique.Value = True Then
DiamCoax = Val(TxtDiamCoax.Text) / 25.4
Else
DiamCoax = Val(TxtDiamCoax.Text)
End If
End If
End Sub
Public Sub TxtCapacitParMetre_Change()
If TxtCapacitParMetre.Locked = False Then
If OptMetrique.Value = True Then
CapaParFt = Val(TxtCapacitParMetre.Text) * 0.3048
Else
CapaParFt = Val(TxtCapacitParMetre.Text)
End If
End If
End Sub
Public Sub TxtDiamMandrin_Change()
If TxtDiamMandrin.Locked = False Then
If OptMetrique.Value = True Then
DiamNoyau = Val(TxtDiamMandrin.Text) / 25.4
Else
DiamNoyau = Val(TxtDiamMandrin.Text)
End If
End If
End Sub
Public Sub TxtFrequence_Change()
'
Frequence = Val(TxtFrequence.Text)
'
End Sub
Public Sub BtnCalculer_Click()
Call Calculer
End Sub
Static Function Log10(X)
Log10 = Log(X) / Log(10#)
End Function
Public Sub Calculer()
'
Dim L As Double, A As Double, B As Double, N As Double
Dim C As Double, e As Double, Pi As Double
Dim TalonC As Double, D As Double, Puls As Double
Dim XL As Double, Xc As Double, k As Double, P As Double
Dim N3 As Double, w As Double, CL As Double, EffL As Double
Dim Boucles As Double, MsgStr As String
'
Pi = 4 * Atn(1)
'
If TxtFrequence.Text <> "" And _
TxtDiamCoax.Text <> "" And _
TxtCapacitParMetre.Text <> "" And _
TxtDiamMandrin.Text <> "" Then
'
e = CapaParFt / 12 ' passage de pF/Ft en pF/in
'
Puls = 2 * Pi * Frequence
'
A = DiamNoyau + DiamCoax ' Diametre moyen de la self
'
'
TalonC = 1 ' Deux extremites de 25 mm
' Approximation de N
N = Fix((570 / Frequence) * Sqr(DiamCoax / (A ^ 3 * e))) + 0.5
'
XL = 0
Xc = 0
L = 0
C = 0
'
Boucles = 0
'
Do Until Abs(Xc - XL) < 0.00000001 And L <> 0 And C <> 0
'
DoEvents
'
Boucles = Boucles + 1
' Limitation des itérations
If Boucles > 1000 Then
MsgStr = "Diamètre de mandrin minimum : " & Str(Fix(((DiamCoax * 7) * 25.4) * 100) / 100)
MsgBox MsgStr
Exit Sub
End If
'
B = DiamCoax * N ' Longueur de l'enroulement
'
L = (A ^ 2 * N ^ 2 / (18 * A + 40 * B)) ' (1)
'
' = LongueurCoax * Cap/m
C = (TalonC + A * Pi * N) * e ' (2)
'
XL = L * Puls
'
Xc = 1000000 / (C * Puls)
'
P = Xc - XL
' Actualisation de l'incrément k
If (Xc - XL) > 0 Then
k = (Xc - XL) / 1000
Else
k = (XL - Xc) / 1000
End If
'
N = N + (k * Sgn(P))
'
TxtReactanceInductive = XL
TxtReactanceCapacitive = Xc
'
Loop
'
N = N - k
'
L = (A ^ 2 * N ^ 2 / (18 * A + 40 * B))
XL = L * Puls
'
C = (TalonC + A * Pi * N) * e
Xc = 1000000 / (C * Puls)
'
'
If L < 1 Then
k = 1000
Else
k = 100
End If
TxtInductance = Fix(L * k + 0.5) / k
If C >= 10 Then
k = 10
Else
k = 100
End If
TxtCapacitance = Fix(C * k + 0.5) / k
'
TxtNombreTours = Fix(N * 100) / 100
TxtLongueurBobinage = Fix((DiamCoax * N / 100) * 100) / 100
TxtLongueurCoaxial = Fix(((A * Pi * N + TalonC) / e) * 100) / 100
'
w = N * DiamCoax
TxtLongueurBobinage = (Fix(w * 100) / 100) * 25.4
CL = A * Pi * N + TalonC
TxtLongueurCoaxial = Fix(CL * 25.4 * 100) / 100
EffL = Fix(CL * 8.8 + 0.5) / 10
TxtLongueurEffective = Fix(EffL * 25.4 * 100) / 100
End If
End Sub

Public Frequence As Double, WaveLenght As Double
Public CapaParFt As Double, DiamCoax As Double, DiamNoyau As Double
Public NbreTours As Double, Zcoax As Double, VF As Double

Public Sub Form_Load()
   '
   On Error Resume Next
   '
   Frm1.TxtFrequence.SetFocus
   '
   OptMetrique.Value = True
   '
End Sub


Private Sub OptMetrique_Click()
   '
   Label10 = "Diamètre coaxial en mm"
   Label11 = "Capacité en pf/m"
   Label12 = "Diamètre du mandrin en mm"
   '
   TxtDiamCoax = ""
   TxtDiamMandrin = ""
   TxtCapacitParMetre = ""
   '
End Sub

Private Sub OptImperial_Click()
   '
   Label10 = "Diamètre coaxial en inches"
   Label11 = "Capacité en pf/Ft"
   Label12 = "Diamètre du mandrin en inches"
   '
   TxtDiamCoax = ""
   TxtDiamMandrin = ""
   TxtCapacitParMetre = ""
   '
End Sub

Public Sub LstCoax_Click()
   '
   If LstCoax.ListIndex < LstCoax.ListCount - 1 Then
      '
      TxtCapacitParMetre.Locked = True
      TxtDiamCoax.Locked = True
      '
   Else
      '
      TxtCapacitParMetre.Locked = False
      TxtDiamCoax.Locked = False
      '
   End If
   '
   Select Case LstCoax.ListIndex
      Case 0
         ' RG 6
         Zcoax = 75
         VF = 0.75
         CapaParFt = 18.6
         DiamCoax = 0.266
         '
      Case 1
         ' RG 8X
         Zcoax = 52
         VF = 0.75
         CapaParFt = 26
         DiamCoax = 0.242
         '
      Case 2
         ' RG 8
         Zcoax = 52
         VF = 0.66
         CapaParFt = 29.5
         DiamCoax = 0.405
         '
      Case 3
         ' RG 8 foam
         Zcoax = 50
         VF = 0.8
         CapaParFt = 25.4
         DiamCoax = 0.405
         '
      Case 4
         ' RG 8A
         Zcoax = 52
         VF = 0.66
         CapaParFt = 29.5
         DiamCoax = 0.405
         '
      Case 5
         ' RG 9
         Zcoax = 51
         VF = 0.66
         CapaParFt = 30
         DiamCoax = 0.42
         '
      Case 6
         ' RG 9A
         Zcoax = 51
         VF = 0.66
         CapaParFt = 30
         DiamCoax = 0.42
         '
      Case 7
         ' RG 9B
         Zcoax = 50
         VF = 0.66
         CapaParFt = 30.8
         DiamCoax = 0.42
         '
      Case 8
         ' RG 11
         Zcoax = 75
         VF = 0.66
         CapaParFt = 20.6
         DiamCoax = 0.405
         '
      Case 9
         ' RG 11 foam
         Zcoax = 75
         VF = 0.8
         CapaParFt = 16.9
         DiamCoax = 0.405
         '
      Case 10
         ' RG 11A
         Zcoax = 75
         VF = 0.66
         CapaParFt = 20.6
         DiamCoax = 0.405
         '
      Case 11
         ' RG 12
         Zcoax = 75
         VF = 0.66
         CapaParFt = 20.6
         DiamCoax = 0.475
         '
      Case 12
         ' RG 12A
         Zcoax = 75
         VF = 0.66
         CapaParFt = 20.6
         DiamCoax = 0.475
         '
      Case 13
         ' RG 17
         Zcoax = 52
         VF = 0.66
         CapaParFt = 29.5
         DiamCoax = 0.87
         DiamNoyau = 0
         '
      Case 14
         ' RG 17A
         Zcoax = 52
         VF = 0.66
         CapaParFt = 29.5
         DiamCoax = 0.87
         '
      Case 15
         ' RG 55
         Zcoax = 53.5
         VF = 0.66
         CapaParFt = 29.5
         DiamCoax = 0.216
         '
      Case 16
         ' RG 55A
         Zcoax = 50
         VF = 0.66
         CapaParFt = 30.8
         DiamCoax = 0.216
         '
      Case 17
         ' RG 55B
         Zcoax = 53.5
         VF = 0.66
         CapaParFt = 29.5
         DiamCoax = 0.216
         '
      Case 18
         ' RG 58
         Zcoax = 53.5
         VF = 0.66
         CapaParFt = 28.5
         DiamCoax = 0.195
         '
      Case 19
         ' RG 58 foam
         Zcoax = 53.5
         VF = 0.79
         CapaParFt = 28.5
         DiamCoax = 0.195
         '
      Case 20
         ' RG 58A
         Zcoax = 53.5
         VF = 0.66
         CapaParFt = 28.5
         DiamCoax = 0.195
         '
      Case 21
         ' RG 58B
         Zcoax = 53.5
         VF = 0.66
         CapaParFt = 28.5
         DiamCoax = 0.195
         '
      Case 22
         ' RG 58C
         Zcoax = 50
         VF = 0.66
         CapaParFt = 30.8
         DiamCoax = 0.195
         '
      Case 23
         ' RG 59
         Zcoax = 73
         VF = 0.66
         CapaParFt = 21
         DiamCoax = 0.242
         '
      Case 24
         ' RG 59 foam
         Zcoax = 75
         VF = 0.79
         CapaParFt = 16.9
         DiamCoax = 0.242
         '
      Case 25
         ' RG 59A
         Zcoax = 73
         VF = 0.66
         CapaParFt = 21
         DiamCoax = 0.242
         '
      Case 26
         ' RG 62
         Zcoax = 93
         VF = 0.86
         CapaParFt = 13.5
         DiamCoax = 0.242
         '
      Case 27
         ' RG 62 foam
         Zcoax = 95
         VF = 0.79
         CapaParFt = 13.4
         DiamCoax = 0.242
         '
      Case 28
         ' RG 62A
         Zcoax = 93
         VF = 0.86
         CapaParFt = 13.5
         DiamCoax = 0.242
         '
      Case 29
         ' RG 62B
         Zcoax = 93
         VF = 0.86
         CapaParFt = 13.5
         DiamCoax = 0.242
         '
      Case 30
         ' RG 133A
         Zcoax = 95
         VF = 0.66
         CapaParFt = 16.2
         DiamCoax = 0.405
         '
      Case 31
         ' RG 141
         Zcoax = 50
         VF = 0.7
         CapaParFt = 29.4
         DiamCoax = 0.19
         '
      Case 32
         ' RG 141A
         Zcoax = 50
         VF = 0.7
         CapaParFt = 29.4
         DiamCoax = 0.19
         '
      Case 33
         ' RG 142
         Zcoax = 50
         VF = 0.7
         CapaParFt = 29.4
         DiamCoax = 0.206
         '
      Case 34
         ' RG 142A
         Zcoax = 50
         VF = 0.7
         CapaParFt = 29.4
         DiamCoax = 0.206
         '
      Case 35
         ' RG 142B
         Zcoax = 50
         VF = 0.7
         CapaParFt = 29.4
         DiamCoax = 0.195
         '
      Case 36
         ' RG 174
         Zcoax = 50
         VF = 0.66
         CapaParFt = 30.8
         DiamCoax = 0.1
         '
      Case 37
         ' RG 213
         Zcoax = 50
         VF = 0.66
         CapaParFt = 30.8
         DiamCoax = 0.405
         '
      Case 38
         ' RG 214
         Zcoax = 50
         VF = 0.66
         CapaParFt = 30.8
         DiamCoax = 0.425
         '
      Case 39
         ' RG 215
         Zcoax = 50
         VF = 0.66
         CapaParFt = 30.8
         DiamCoax = 0.475
         DiamNoyau = 0
         '
      Case 40
         ' RG 216
         Zcoax = 75
         VF = 0.66
         CapaParFt = 20.6
         DiamCoax = 0.425
         '
      Case 41
         ' RG 223
         Zcoax = 50
         VF = 0.66
         CapaParFt = 30.8
         DiamCoax = 0.212
         '
      Case 42
         ' 9913
         Zcoax = 50
         VF = 0.84
         CapaParFt = 24
         DiamCoax = 0.405
         '
      Case 43
         ' 9914
         Zcoax = 50
         VF = 0.78
         CapaParFt = 26
         DiamCoax = 0.405
         '
      Case LstCoax.ListCount - 1
         ' Coaxial personnel
         TxtDiamCoax = ""
         TxtDiamMandrin = ""
         TxtCapacitParMetre = ""
         '
   End Select
   '
   If OptMetrique.Value = True And _
      LstCoax.ListIndex < LstCoax.ListCount - 1 Then
      TxtDiamCoax = DiamCoax * 25.4
      TxtCapacitParMetre = CapaParFt / 0.3048
      TxtZ = Zcoax
      TxtVF = VF
   Else
      TxtDiamCoax = DiamCoax
      TxtCapacitParMetre = CapaParFt
   End If
   '
End Sub

Public Sub mnuQuitter_Click()
   End
End Sub

Public Sub TxtDiamCoax_Change()
   If TxtDiamCoax.Locked = False Then
      If OptMetrique.Value = True Then
         DiamCoax = Val(TxtDiamCoax.Text) / 25.4
      Else
         DiamCoax = Val(TxtDiamCoax.Text)
      End If
   End If
End Sub

Public Sub TxtCapacitParMetre_Change()
   If TxtCapacitParMetre.Locked = False Then
      If OptMetrique.Value = True Then
         CapaParFt = Val(TxtCapacitParMetre.Text) * 0.3048
      Else
         CapaParFt = Val(TxtCapacitParMetre.Text)
      End If
   End If
End Sub

Public Sub TxtDiamMandrin_Change()
   If TxtDiamMandrin.Locked = False Then
      If OptMetrique.Value = True Then
         DiamNoyau = Val(TxtDiamMandrin.Text) / 25.4
      Else
         DiamNoyau = Val(TxtDiamMandrin.Text)
      End If
   End If
End Sub

Public Sub TxtFrequence_Change()
   '
   Frequence = Val(TxtFrequence.Text)
   '
End Sub

Public Sub BtnCalculer_Click()
   Call Calculer
End Sub

Static Function Log10(X)
   Log10 = Log(X) / Log(10#)
End Function

Public Sub Calculer()
   '
   Dim L As Double, A As Double, B As Double, N As Double
   Dim C As Double, e As Double, Pi As Double
   Dim TalonC As Double, D As Double, Puls As Double
   Dim XL As Double, Xc As Double, k As Double, P As Double
   Dim N3 As Double, w As Double, CL As Double, EffL As Double
   Dim Boucles As Double, MsgStr As String
   '
   Pi = 4 * Atn(1)
   '
    If TxtFrequence.Text <> "" And _
      TxtDiamCoax.Text <> "" And _
      TxtCapacitParMetre.Text <> "" And _
      TxtDiamMandrin.Text <> "" Then
      '
      e = CapaParFt / 12 ' passage de pF/Ft en pF/in
      '
      Puls = 2 * Pi * Frequence
      '
      A = DiamNoyau + DiamCoax ' Diametre moyen de la self
      '
      '
      TalonC = 1 ' Deux extremites de 25 mm
      ' Approximation de N
      N = Fix((570 / Frequence) * Sqr(DiamCoax / (A ^ 3 * e))) + 0.5
      '
      XL = 0
      Xc = 0
      L = 0
      C = 0
      '
      Boucles = 0
      '
      Do Until Abs(Xc - XL) < 0.00000001 And L <> 0 And C <> 0
         '
         DoEvents
         '
         Boucles = Boucles + 1
         ' Limitation des itérations
         If Boucles > 1000 Then
            MsgStr = "Diamètre de mandrin minimum : " & Str(Fix(((DiamCoax * 7) * 25.4) * 100) / 100)
            MsgBox MsgStr
            Exit Sub
         End If
         '
         B = DiamCoax * N ' Longueur de l'enroulement
         '
         L = (A ^ 2 * N ^ 2 / (18 * A + 40 * B)) ' (1)
         '
         ' = LongueurCoax * Cap/m
         C = (TalonC + A * Pi * N) * e ' (2)
         '
         XL = L * Puls
         '
         Xc = 1000000 / (C * Puls)
         '
         P = Xc - XL
         ' Actualisation de l'incrément k
         If (Xc - XL) > 0 Then
            k = (Xc - XL) / 1000
         Else
            k = (XL - Xc) / 1000
         End If
         '
         N = N + (k * Sgn(P))
         '
         TxtReactanceInductive = XL
         TxtReactanceCapacitive = Xc
         '
      Loop
      '
      N = N - k
      '
      L = (A ^ 2 * N ^ 2 / (18 * A + 40 * B))
      XL = L * Puls
      '
      C = (TalonC + A * Pi * N) * e
      Xc = 1000000 / (C * Puls)
      '
      
      '
      If L < 1 Then
         k = 1000
      Else
         k = 100
      End If
      TxtInductance = Fix(L * k + 0.5) / k
      If C >= 10 Then
         k = 10
      Else
         k = 100
      End If
      TxtCapacitance = Fix(C * k + 0.5) / k
      '
      TxtNombreTours = Fix(N * 100) / 100
      TxtLongueurBobinage = Fix((DiamCoax * N / 100) * 100) / 100
      TxtLongueurCoaxial = Fix(((A * Pi * N + TalonC) / e) * 100) / 100
      '
      w = N * DiamCoax
      TxtLongueurBobinage = (Fix(w * 100) / 100) * 25.4
      CL = A * Pi * N + TalonC
      TxtLongueurCoaxial = Fix(CL * 25.4 * 100) / 100
      EffL = Fix(CL * 8.8 + 0.5) / 10
      TxtLongueurEffective = Fix(EffL * 25.4 * 100) / 100
   End If
End Sub

Conclusion

Le logiciel "Electronique.exe" est régulièrement mis à jour sur http://f5prp.free.fr
Sur les 6 "beta testeurs", aucun n'a signalé de problème sur cet applicatif.

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

frm
- Trappes Coaxiales.frm 23 703 octets
- Trappes Coaxiales.frx2 063 octets
- Trappes Coaxiales.log 334 octets
vbp
- TRAPPE~1.vbw 48 octets
- Trappes coaxiales.vbp 1 053 octets
- Trappes coaxiales.vbw 47 octets

Télécharger le zip

Sources du même auteur

CALCULS SUR LES POSITIONS GÉOGRAPHIQUES PAR LE BIAIS DES QRA...

VISUALISATION ET GESTION DE FICHIERS IMAGES

CHANGEMENTS DE COORDONNÉES

Toutes les sources de radioham

Sources de la même categorie

TEXTBOX EN NUMÉRIQUE par 320C

DÉCIMAL TO HEXDECIMAL par loulou27200

SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA

EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty

PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo

Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de dragon le 24/08/2004 19:54:32

il y aurait pas une façon d'optimiser ton select case ??? les chiffre doit pas apparait de null par, ça dois surement venir d'une formule non ???

Commentaire de radioham le 25/08/2004 00:30:48

Ben, le "Select Case LstCoax.ListIndex" est lié à la liste et au "LstCoax.ListIndex", je ne sais pas faire autrement, d'autant que je n'y connais rien en bases de données.
Pour le deuxième point, je n'ai pas saisi le sens de la question.
salutations

Commentaire de azerty25 le 25/08/2004 02:23:08

oh put**, j'ai rien compris à son utilité lol. En résumé, c'est pour quoi faire ? :(

Commentaire de dragon le 25/08/2004 02:25:25

ben c,était qu'une question.

dans ton select case tu fais toujours
' RG 223
         Zcoax = 50
         VF = 0.66
         CapaParFt = 30.8
         DiamCoax = 0.212

les chiffres 50, 0.66, 30.8, 0.212 sorte pas de null part. Il doit bien y avoir une formule mathémaque pour trouver les valeur non ???

Commentaire de GeneralDragon le 25/08/2004 04:19:10

Il serait plus judicieux d'utiliser un tableau initialisé par des read, data, plutot que ce gros select, case, non ?

Commentaire de radioham le 25/08/2004 07:11:48

A quoi ça sert :
Alors, en ce qui concerne l'utilité, il faut savoir qu'une antenne réagit de façon comparable à une corde de guitare ou de violon : la vibration naturelle (le fuseau créé par les vibration de la corde et qui donnent le son) représentent une demi onde. Pour que l'antenne se comporte correctement aux fréquences de travil, il faut respecter cette loi de physique. Comme il est hors de question d'installer autant de fils qu'il y a de fréquences possibles, le brin rayonnant de l'antenne est subdivisé en segments additionels séparés par des circuit "bouchons", les trappes. Ces trappes doivent "bloquer" tout ce qui correspond aux phénomènes physiques des fréquences supérieures et laiser passer ce qui va, en quelque sorte, faire vibrer une corde plus longue.
Ainsi donc, en insérant, aux bons endroits, ces fameuses trappes, l'émetteur voit toujours une antenne "parfaitement" (pas toujours hélas) accordée puisque sa longueur efficace varie avec la fréquence.
Voila à quoi ça sert.

Les avantages :
Le fait de les réaliser avec du coaxial apporte quelques avantages dont les principaux sont : l'utilisation de la capacité répartie tout le long du coaxial (pF/m entre l'âme et la tresse de masse) et le fil lui même pour réaliser la self d'induction. Cela permet donc de réaliser des corcuits "bouchons" de trés petite taille et de grande efficacité. Enfin, les isolants étant "costauds", cela accepte de la puissance (des Watts).

D'où sortent les caratéristiques des coaxiaux :
de chez les constructeurs ou des mesures réalisées avec un capacimètre, un pied à coulisse et un oscilloscope. Chaque coaxial a ses propres caractéristiques dont les principales sont : son coefficient de vélocité (reflettant la vitesse de déplacement des électrons dans les fils et exprimé par rapport à C : 300 000 000 m/s), son isolement (tension maximum admissible entre l'âme et la tresse), son impédance caractéristique (caractéristique de la ligne) et, enfin son diamètre.

L'utilisation de tableaux :
Oui, cela serait possible, mais le choix du coaxiale à utiliser doit être réalisé à partir d'une liste ==> ListIndex
Il m'a semblait que ce serait plus lourd de traiter le "ListIndex" pour extraire les données d'un tableau (toujours autant de "Case") que de placer directement les données spécifiques.

Ai-je bien répondu ? De tout façon, je suis toujours très heureux d'expliquer mon hobby : la radio.

Bien cordiales salutations

Commentaire de radioham le 25/08/2004 07:26:23

P.S. : Oui, il existe des formules mathématiques pour le calcul des caratéristiques des lignes mais les coaxiaux sont des produits "finis" disponibles sur étagère (contre un petit chèque parfois à grands chiffres !) dont les constructeurs donnent les caractéristiques. Ces informations sont bien plus précises que des calculs réalisés sur des dimensions théoriques pour la simple raison que chaque rouleau de coaxial est "échantilloné" par son constructeur et que cela tient compte des imperfections de fabrication.

P.P.S : dois-je, comme pour mon autre présentation, supprimer le source trop long ou le laisser ?

En espérant avoi satisfait vos légitimes curiosités, bien amicales salutations

Commentaire de azerty25 le 25/08/2004 11:00:55

Waouw, impressionnante ton explication, merci :)

Commentaire de dragon le 25/08/2004 14:17:48

ben non, on donne des commentaires. Pas qu'il est trop long, pas dutout. Juste une suggestion pour améliorer le programme. C'est pas dutotu négatif, il y aura peut-être une autre personne qui va chercher nu programme du genre ou les mathématique que tu utilises

moi peut pas dire, j'y connais rien, j'ai seulement des connaissance en programmation

Commentaire de Scalpweb le 25/08/2004 20:41:43

C'est bien programmer ça ! Tu as dut galérer pour les formules !

Ajouter un commentaire

Nos sponsors

Derniers Blogs

SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc

[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

Forum

RE : MACRO DE REPRISE DE SéLECTION MULTIPLE par ucfoutu

MISE à JOUR EN CASCADE (TABLES MèRE/FILLE) AVEC COLONNES AUTO-INCREMENTéS par BasicZx81

RE : MCISENDSTRING() JOUER PLUSIEURS FOIS LE MêME MORCEAUX par Allan007

RE : SE POSITIONNER IMMéDIATEMENT SUR LA DERNIèRE LIGNE D'UN DATAGRIDVIEW par ucfoutu

RE : MCISENDSTRING() JOUER PLUSIEURS FOIS LE MêME MORCEAUX par ucfoutu

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning