mirror of https://github.com/antenna2/cebik.git
24 lines
1.4 KiB
Plaintext
24 lines
1.4 KiB
Plaintext
MSGBOX "Program to calculate the perimeter length of a resonant quad loop." & CHR(13) & "All equations correlated to NEC antenna modeling software." & CHR(13) & CHR(13) & "L. B. Cebik, W4RNL",,"Resonant Quad Loop"
|
|
|
|
Sub Calculate
|
|
|
|
F = INPUTBOX ("Enter Desired Frequency in MHz:","Desired Frequency")
|
|
U = INPUTBOX ("Select Units for Wire Diameter in 1. Inches or 2. Millimeters","Wire Diameter")
|
|
WD = INPUTBOX ("Enter Wire Diameter in your Selected Units","Wire Diameter")
|
|
IF U=1 THEN WLI=11802.71/F:D=WD/WLI
|
|
IF U=2 THEN WLI=299792.5/F:D=WD/WLI
|
|
L=.4343*LOG(D*10^5):LL=L^2:LM=LL*.0128:LN=LM+1.0413
|
|
WL=299.7925/F
|
|
PM=LN*WL
|
|
WF=983.5592/F
|
|
PF=LN*WF
|
|
|
|
'MSGBOX "Wire Diameter in Wavelengths:" & Round(D,4) & CHR(13) & "Perimeter Length in Wavelengths =" & Round(LN,4) & CHR(13) & "Wavelength in Meters =" & Round(WL,4) & CHR(13) & "Perimeter Length in Meters =" & Round(PM,4) & CHR(13) & "Wavelength in Feet =" & Round(WF,4) & CHR(13) & "Perimeter Length in Feet =" & Round(PF,4),,"Dimensions"
|
|
|
|
MSGBOX "Wire Diameter in Wavelengths:" & Round(D,4) & CHR(13) & "Perimeter Length in Wavelengths =" & Round(LN,4) & " Meters: " & Round(PM,4) & " Feet: " & Round(PF,4) & CHR(13) & "Wavelength in Meters =" & Round(WL,4) & " Feet " & Round(WF,4),,"Dimensions"
|
|
End Sub
|
|
|
|
Do Until P = 7
|
|
P = MSGBOX ("Calculate Quad Demensions",4,"Yes or No")
|
|
if P = 6 then Calculate
|
|
Loop |