Antenne yagi - conception

Télécharger le projet
Commenter

Description

L'antenne Yagi est très utilisée pour la réception des chaines de télévision. Vous allez vous-même construire votre propre antenne Yagi grâce à ce programme. Il suffit de rentrer la chaine pour laquelle l'antenne sera optimale et vous aurez tout ce dont vous aurez besoin.

Source / Exemple : 


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

Conclusion :


Vos suggestion sont les bienvenues chez moi.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_johndave)