ANTENNE YAGI - CONCEPTION

Dim Freq As Single

Private Sub cmdClose_Click()
End
End Sub

Private Sub cmdReset_Click()
cmdConcep.Enabled = True
cmdReset.Enabled = False
Unload Me
frmConception.Show
End Sub

Private Sub cmdConcep_Click()
chaine = Val(txtchaine.Text)
If optTV = True Then
'Tout commence pour l'option TV ici
On Error Resume Next
Select Case chaine
Case 2 To 4
lblFreq.Caption = "Fréquence Video : " & 55.25 + 6 * Val(txtchaine.Text - 2) & " MHz, VHF"
lblFreqAu.Caption = "Fréquence Audio : " & 59.75 + 6 * Val(txtchaine.Text - 2) & " MHz, VHF"
Freq = 55.25 + 6 * Val(txtchaine.Text - 2) 'On se contente de la frequence video
Case 5 To 6
lblFreq.Caption = "Fréquence Video : " & 77.25 + 6 * Val(txtchaine.Text - 5) & " MHz, VHF"
lblFreqAu.Caption = "Fréquence Audio : " & 81.75 + 6 * Val(txtchaine.Text - 5) & " MHz, VHF"
Freq = 77.25 + 6 * Val(txtchaine.Text - 5)
Case 7 To 13
lblFreq.Caption = "Fréquence Video : " & 175.25 + 6 * Val(txtchaine.Text - 7) & " MHz, VHF"
lblFreqAu.Caption = "Fréquence Audio : " & 179.75 + 6 * Val(txtchaine.Text - 7) & " MHz, VHF"
Freq = 175.25 + 6 * Val(txtchaine.Text - 7) ' On se contente toujours de la frequence video
Case 14 To 83
lblFreq.Caption = "Fréquence Video : " & 471.25 + 6 * Val(txtchaine.Text - 14) & " MHz, UHF"
lblFreqAu.Caption = "Fréquence Audio : " & 475.75 + 6 * Val(txtchaine.Text - 14) & " MHz, UHF"
Freq = 471.25 + 6 * Val(txtchaine.Text - 14)
Case Else
MsgBox "Chaine pas comprise entre 2 à 83", vbOKOnly + vbCritical, "Chaine invalide"
End Select 'Tout est fini pour l'option TV ici
Else
'L'option radio est faite
Freq = Val(txtFreq.Text) 'C tout pour la radio
End If
'-------------------------------------------------------------------------------------------
'Maintenant passons à la chose importante : dimensionnement et espacement des éléments
'Tout dépend de la fréquence
If Freq = 0 Then 'On ne peut pas diviser par zéro
MsgBox "Pas de chaine ou de fréquence correcte", vbOKOnly + vbCritical, "Faute de fréquence"
Else
'La longueur d'onde est souvent désignée par la lettre grec : lambda.
lblLamb.Caption = "Longueur d'onde : " & 300 / Freq & " m" 'm = mètre
'Dimensionnement
lblD4.Caption = 12000 / Freq
lblD3.Caption = 12500 / Freq
lblD2.Caption = 13000 / Freq
lblD1.Caption = 13800 / Freq
lblRad.Caption = 14300 / Freq
lblRef.Caption = 15000 / Freq
'Espacement
lblD3D4.Caption = 6000 / Freq
lblD3D2.Caption = 4500 / Freq
lblD2D1.Caption = 3000 / Freq
lblD1Rad.Caption = 3000 / Freq
lblRadRef.Caption = 4800 / Freq
'----------------------------------------------------------------------
cmdConcep.Enabled = False
cmdReset.Enabled = True
Frame1.Enabled = False
End If
End Sub

Private Sub Command1_Click()
Shell "Notepad.exe instructions.txt", vbNormalFocus
End Sub

Private Sub Form_Load()
cmdReset.Enabled = False
End Sub

Private Sub optRadio_Click()
txtchaine.Enabled = False
txtFreq.Enabled = True
txtFreq.SetFocus
Label3(1).Enabled = False
lblFreqRad(0).Enabled = True
Label3(3).Enabled = True
End Sub

Private Sub optTV_Click()
On Error Resume Next
txtchaine.Enabled = True
txtchaine.SetFocus
txtFreq.Enabled = False
lblFreqRad(0).Enabled = False
Label3(3).Enabled = False
Label3(1).Enabled = True
End Sub

Télécharger le zip