Initial commit

2026-10-16 17:54:10 +02:00 · 2024-12-20 13:27:36 -09:00
commit b54ed3ab5b
8026 changed files with 146431 additions and 0 deletions
@@ -0,0 +1,24 @@
+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
@@ -0,0 +1,42 @@
+MSGBOX "Program to calculate the dimensions of a resonant square 2-element quad beam." & CHR(13) &"All equations calibrated to NEC antenna modeling software for wire diameters"&CHR(13) & "from 3.16E-5 to 1E-2 wavelengths within about 0.5% from 3.5 - 250 MHz." & CHR(13) & CHR(13) & "L. B. Cebik, W4RNL",,"2 Element Quad"
+
+Sub Calculate
+
+F = INPUTBOX ("Enter Desired Frequency in MHz:","Operating Frequency")
+U = INPUTBOX ("Select Units for Wire Diameter in 1. Inches, 2. Millimeters, 3. Wavelengths","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
+IF U=3 THEN D=WD
+MSGBOX "Wire Diameter in Wavelengths: " & Round(D,6),,"Wire Diameter"
+L=.4342945*LOG(D*10^5):LL=L^2:LM=LL*.0128:LN=LM+1.0413:D1=.4342945*LOG(D)
+IF D1<-4.5 then MSGBOX "Wire diameter less than 3E-5 wavelengths:  results uncertain."
+IF d1>-2 THEN MSGBOX "Wire diameter greater than 1E-2 wavelengths:  results uncertain."
+AD=.00336:BD=.04966518519:CD=.2731955556:DD=.6716364021:ED=1.644147937
+DE=(AD*(D1^4))+(BD*(D1^3))+(CD*(D1^2))+(DD*D1)+ED
+AR=.003173333333:BR=.0508237037:CR=.3081977778:DR=.8663851852:ER=2.040064444
+RE=(AR*(D1^4))+(BR*(D1^3))+(CR*(D1^2))+(DR*D1)+ER
+AS1=-.003:BS=-.03551851852:CS=-.1553055556:DS=-.2902116402:ES=-.02540079365
+SP=(AS1*(D1^4))+(BS*(D1^3))+(CS*(D1^2))+(DS*D1)+ES
+AZ=1.976333333:BZ=30.84751852:CZ=172.4909722:DZ=419.5162831:EZ=519.8747579
+ZR=(AZ*(D1^4))+(BZ*(D1^3))+(CZ*(D1^2))+(DZ*D1)+EZ
+AG=-.06333333333:BG=-.7203703704:CG=-3.010277778:DG=-5.381375661:EG=3.738769841
+GN=(AG*(D1^4))+(BG*(D1^3))+(CG*(D1^2))+(DG*D1)+EG
+AW=1.688666667:BW=23.76837037:CW=124.9339444:DW=295.8872328:EW=281.2755159
+SW=(AW*(D1^4))+(BW*(D1^3))+(CW*(D1^2))+(DW*D1)+EW
+AF=-.00266666667:BF=.388:CF=4.790666667:DF=19.55485714:EF=28.76628571
+FB=(AF*(D1^4))+(BF*(D1^3))+(CF*(D1^2))+(DF*D1)+EF
+AN=-.08333333333:BN=-.9462962963:CN=-3.943055556:DN=-7.582671958:EN=-5.23234127
+DG=(AN*(D1^4))+(BN*(D1^3))+(CN*(D1^2))+(DN*D1)+EN
+WL=299.7925/F
+WF=983.5592/F
+MSGBOX "Wavelength in Meters = "& Round(WL,4) & CHR(13) & "Wavelength in Feet = "&Round(WF,4),,"WaveLength"
+MSGBOX "Quad Dimensions in Wavelengths, Feet, and Meters:" & CHR(13) & CHR(13) & "Driver Side =                      "&Round((DE/4),4)&" WL or "&Round((DE/4)*WF,4)&" Feet or "&Round((DE/4)*WL,4)&" Meters" & CHR(13) &"Driver Circumference =      "&Round(DE,4)&" WL or "&Round(DE*WF,4)&" Feet or "&Round(DE*WL,4)&" Meters" & CHR(13) & "Reflector Side =                 "&Round((RE/4),4)&" WL or "&Round((RE/4)*WF,4)&" Feet or "&Round((RE/4)*WL,4)&" Meters" & CHR(13) & "Reflector Circumference = "&Round(RE,4)&" WL or "&Round(RE*WF,4)&" Feet or "&Round(RE*WL,4)&" Meters" & CHR(13) & "Reflector-Driver Space =   "&Round(SP,4)&" WL or "&Round(SP*WF,4)&" Feet or "&Round(SP*WL,4)&" Meters" & CHR(13) & "Approximate Resonant Feedpoint Impedance = "&Round(ZR,3)&" Ohms",,"Dimensions"
+
+MSGBOX "Approximate Free-Space Gain = "&Round(GN,4)&" dBi" & CHR(13) & "Approximate 2:1 VSWR Bandwidth = "&Round(SW,4)&"% of Design Frequency" & CHR(13) & "Approximate >20 dB F-B Ratio Bandwidth = "&Round(FB,4)&"% of Design Frequency" & CHR(13) & "Approximate Rate of Gain Change = "&Round(DG,4)&"dB per 1% of Design Frequency",,"Calculations"
+End Sub
+
+Do Until P = 7
+  P = MSGBOX ("Calculate Quad Demensions",4,"Yes or No")
+  if P = 6 then Calculate
+Loop
@@ -0,0 +1,56 @@
+MSGBOX "Program to calculate the dimensions of a resonant square (High Gain) 3-element quad beam. All equations calibrated to NEC antenna modeling software for wire diameters from 3.16E-5 to 1E-2 wavelengths within about 0.5% from 3.5 - 250 MHz." &CHR(13) & CHR(13) &"L. B. Cebik, W4RNL",,"3 Element Quad Calculations" 
+DIM f, U, WLI, WD, D, L, LL, LM, D1, AD, BD, CD, DD, ED, DE, AR, BR, CR, DR, ER, RE
+DIM AI, BI, CI, DI, EI, IR, AS1, BS, CS, DS, ES, AP, BP, CP, DP, IP, EP, AZ, BZ, CZ, DZ, EZ
+DIM ZR, AG, CG, BG, DG, EG, GN, AW, BW, CW, DW, EW, SW, AF, BF, CF, DF, EF, FB, WS, WF
+SUB Calculate
+  F = INPUTBOX ("Enter Desired Frequency in MHz:","Desired Frequency")
+  U = INPUTBOX ("Select Units for Wire Diameter in 1. Inches, 2. Millimeters, 3. Wavelengths","Select Units")
+  'U = INPUTBOX ("Choose 1. or 2. or 3.")
+  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
+  IF U=3 THEN D=WD
+
+  L=.4342945*LOG(D*10^5):LL=L^2:LM=LL*.0128:LN=LM+1.0413:D1=.4342945*LOG(D)
+  IF D1<-4.5 then MSGBOX "Wire diameter less than 3E-5 wavelengths:  results uncertain."
+  if d1>-2 THEN MSGBOX "Wire diameter greater than 1E-2 wavelengths:  results uncertain."
+  AD=.000266666667:BD=.00506666667:CD=.03633333333:DD=.1221904762:ED=1.183285714
+  DE=(AD*(D1^4))+(BD*(D1^3))+(CD*(D1^2))+(DD*D1)+ED
+  DE = Round(DE, 3)
+  AR=.0037333333333:BR=.05362962963:CR=.29275555556:DR=.7424529101:ER=1.814412698
+  RE=(AR*(D1^4))+(BR*(D1^3))+(CR*(D1^2))+(DR*D1)+ER
+  RE = Round(RE, 3)
+  AI=-.00266666667:BI=-.033244444444:CI=-.1550666667:DI=-.3222793651:EI=.7283809524
+  IR=(AI*(D1^4))+(BI*(D1^3))+(CI*(D1^2))+(DI*D1)+EI
+  IR = Round(IR, 3)
+  as1=.00033333333:BS=.004837037037:CS=.02552777778:DS=.05643756614:ES=.2191230159
+  SP=(as1*(D1^4))+(BS*(D1^3))+(CS*(D1^2))+(DS*D1)+ES 
+  SP = Round(SP, 3)
+  AP=-.002333333333:BP=-.03128148148:CP=-.15586111111:DP=-.3417669312:EP=-.05499206349
+  IP=(AP*(D1^4))+(BP*(D1^3))+(CP*(D1^2))+(DP*D1)+EP
+  IP = Round(IP,3)
+  AZ=4.4029:BZ=53.43954444:CZ=239.2408583:DZ=462.3614437:EZ=373.3035655
+  ZR=(AZ*(D1^4))+(BZ*(D1^3))+(CZ*(D1^2))+(DZ*D1)+EZ
+  ZR = Round(ZR,3)
+  AG=-.15:BG=-1.768518519:CG=-7.763055556:DG=-14.78592593:EG=-.609722222
+  AG=Round(AG,3)
+  GN=(AG*(D1^4))+(BG*(D1^3))+(CG*(D1^2))+(DG*D1)+EG
+  GN = Round(GN,3)
+  AW=.16666666667:BW=2.265925926:CW=11.706111111:DW=27.93058201:EW=28.88753968
+  SW=(AW*(D1^4))+(BW*(D1^3))+(CW*(D1^2))+(DW*D1)+EW
+  SW = Round(SW, 3)
+  AF=.11933333333:BF=1.671777778:CF=8.9885:DF=22.45931746:EF=23.68797619
+  FB=(AF*(D1^4))+(BF*(D1^3))+(CF*(D1^2))+(DF*D1)+EF
+  FB = Round(FB,3)
+  WL=299.7925/F: WL = Round(WL,3)
+  WF=983.5592/F:WF = Round(WF,3)
+  d = Round(D,5)
+  MSGBOX "Wire Diameter in Wavelengths: " & D & chr(13) & "Wavelength in Meters =" & WL & chr(13) & "Wavelength in Feet =" & WF,,"Characteristics at " & F & " Mhz"
+  MSGBOX "Quad Dimensions in Wavelengths, Feet, and Meters:" & chr(13) & chr(13) & "Driver Side =" & (DE/4) &" WL or "&(DE/4)*WF &" Feet or "&(DE/4)*WL&"Meters" &CHR(13) & "Driver Circumference ="&DE&" WL or "&DE*WF&" Feet or "&DE*WL&"Meters" &(CHR(13))&  "Reflector Side ="&(RE/4)&" WL or "&(RE/4)*WF&" Feet or "&(RE/4)*WL&"Meters" & CHR(13) & "Reflector Circumference ="&RE&" WL or "&RE*WF&" Feet or "&RE*WL&"Meters" & CHR(13) & "Reflector-Driver Space ="&SP&" WL or "&SP*WF&" Feet or "&SP*WL&"Meters" & CHR(13) & "Director Side ="&(IR/4)&" WL or "&(IR/4)*WF&" Feet or "&(IR/4)*WL&"Meters" & CHR(13) & "Director Circumference ="&IR&" WL or "&IR*WF&" Feet or "&IR*WL&"Meters" & CHR(13) & "Director-Driver Space ="&IP&" WL or "&IP*WF&" Feet or "&IP*WL&"Meters" & CHR(13) & "Approx. Feedpoint Impedance ="&ZR&" Ohms   ",,"Quad Dimensions"
+  MSGBOX "Free-Space Gain ="&GN&"dBi" & CHR(13) & "Approximate 2:1 VSWR Bandwidth ="&SW&"% of Design Frequency" & CHR(13)& "Approximate >20 dB F-B Ratio Bandwidth ="&FB&"% of Design Frequency",,"Gain, Bandwidth and F/B Ratio"
+End Sub
+
+Do Until P = 7
+  P = MSGBOX ("Calculate Quad Demensions",4,"Yes or No")
+  if P = 6 then Calculate
+Loop
@@ -0,0 +1,50 @@
+MSGBOX "Program to calculate the dimensions of a resonant square 3-element quad beam." & CHR(13) & CHR(13) & "All equations calibrated to NEC antenna modeling software for wire diameters" & CHR(13) & "from 3.16E-5 to 1E-2 wavelengths within about 0.5% from 3.5 - 250 MHz." & CHR(13) & CHR(13) &"L. B. Cebik, W4RNL",, "WideBand 3 Element Quad"
+
+Sub Calculate
+
+F = INPUTBOX ("Enter Desired Frequency in MHz:","Operating Frequency")
+U = INPUTBOX ("Select Units for Wire Diameter in 1. Inches, 2. Millimeters, 3. Wavelengths", "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
+IF U=3 THEN D=WD
+MSGBOX "Wire Diameter in Wavelengths: " & Round(D,6),,"Wire Diameter"
+L=.4342945*LOG(D*10^5):LL=L^2:LM=LL*.0128:LN=LM+1.0413:D1=.4342945*LOG(D)
+IF D1<-4.5 then MSGBOX "Wire diameter less than 3E-5 wavelengths:  results uncertain."
+IF d1>-2 THEN MSGBOX "Wire diameter greater than 1E-2 wavelengths:  results uncertain."
+AD=.00064:BD=.01044148148:CD=.06484444444:DD=.1886626455:ED=1.232080635
+DE=(AD*(D1^4))+(BD*(D1^3))+(CD*(D1^2))+(DD*D1)+ED
+AR=.0009333333333:BR=.01915555556:CR=.13983333333:DR=.4587492063:ER=1.64042381
+RE=(AR*(D1^4))+(BR*(D1^3))+(CR*(D1^2))+(DR*D1)+ER
+AI=-.0012:BI=-.0209037037:CI=-.13021111111:DI=-.3498137566:EI=.5941126984
+IR=(AI*(D1^4))+(BI*(D1^3))+(CI*(D1^2))+(DI*D1)+EI
+AS1=-.0033:BS=-.03927777778:CS=-.1724583333:DS=-.3239603175:ES=-.04951547619
+SP=(AS1*(D1^4))+(BS*(D1^3))+(CS*(D1^2))+(DS*D1)+ES
+AP=-.004866666667:BP=-.06262962963:CP=-.29347222222:DP=-.6174457672:EP=-.2289269841
+IP=(AP*(D1^4))+(BP*(D1^3))+(CP*(D1^2))+(DP*D1)+EP
+AZ=-2.227066667:BZ=-26.75247407:CZ=-115.9142556:DZ=-217.8183323:EZ=-79.59203175
+ZR=(AZ*(D1^4))+(BZ*(D1^3))+(CZ*(D1^2))+(DZ*D1)+EZ
+AG=-.07:BG=-.7877777778:CG=-3.350833333:DG=-6.143888889:EG=5.104166667
+GN=(AG*(D1^4))+(BG*(D1^3))+(CG*(D1^2))+(DG*D1)+EG
+AW=-.05847333333:BW=-.5028392593:CW=-.4586494444:DW=6.080227037:EW=17.61091389
+SW=(AW*(D1^4))+(BW*(D1^3))+(CW*(D1^2))+(DW*D1)+EW
+AF=.11695666667:BF=1.717985556:CF=9.6510925:DF=25.23848992:EF=27.78167988
+FB=(AF*(D1^4))+(BF*(D1^3))+(CF*(D1^2))+(DF*D1)+EF
+AN=-.04666666667:BN=-.5414814815:CN=-2.302777778:DN=-4.364074074:EN=-3.092777778
+DG=(AN*(D1^4))+(BN*(D1^3))+(CN*(D1^2))+(DN*D1)+EN
+WL=299.7925/F
+WF=983.5592/F
+
+MSGBOX "Wavelength in Meters ="& Round(WL,4) & CHR(13) & "Wavelength in Feet ="& Round(WF,4),,"WaveLength"
+
+
+MSGBOX "Quad Dimensions in Wavelengths, Feet, and Meters:" & CHR(13) & CHR(13) & "Driver Side =                      "&Round((DE/4),4)&" WL or " & Round((DE/4)*WF,4) & " Feet or "&Round((DE/4)*WL,4)&" Meters" & CHR(13) & "Driver Circumference =      "&Round(DE,4)&" WL or "&Round(DE*WF,4)&" Feet or "&Round(DE*WL,4)&" Meters" & CHR(13) & "Reflector Side =                 "&Round(RE/4,4)&" WL or "&Round((RE/4)*WF,4)&" Feet or "&Round((RE/4)*WL,4)&" Meters" & CHR(13) & "Reflector Circumference = "&Round(RE,4)&" WL or "&Round(RE*WF,4)&" Feet or "&Round(RE*WL,4)&" Meters" & CHR(13) & "Reflector-Driver Space =   "&Round(SP,4)&" WL or "&Round(SP*WF,4)&" Feet or "&Round(SP*WL,4)&" Meters" & CHR(13) & "Director Side =                   "&Round((IR/4),4)&" WL or "& Round((IR/4)*WF,4)&" Feet or "&Round((IR/4)*WL,4)&" Meters" & CHR(13) & "Director Circumference =   "&Round(IR,4)&" WL or "&Round(IR*WF,4)&" Feet or "&Round(IR*WL,4)&" Meters" & CHR(13) & "Director-Driver Space =     "&Round(IP,4)&" WL or "&Round(IP*WF,4)&" Feet or "&Round(IP*WL,4)&" Meters" & CHR(13) & "Approx. Feedpoint Impedance = "&Round(ZR,3)&" Ohms",,"Dimensions"
+
+
+MSGBOX "Free-Space Gain = "& Round(GN,5)&" dBi" & CHR(13) & "Approximate 2:1 VSWR Bandwidth = " & Round(SW,5) & "  % of Design Frequency" & CHR(13) & "Approximate >20 dB F-B Ratio Bandwidth = "& Round(FB,5) & "% of Design Frequency" & CHR(13) & "Approximate Rate of Gain Change = "& Round(DG,5) & "dB per 1% of Design Frequency",,"Characteristics"
+End Sub
+
+Do Until P = 7
+  P = MSGBOX ("Calculate Quad Demensions",4,"Yes or No")
+  if P = 6 then Calculate
+Loop
@@ -0,0 +1,57 @@
+MSGBOX "Program to calculate the dimensions of a resonant square 4-element quad beam." & chr(13) & "All equations calibrated to NEC antenna modeling software for wire diameters" & " from 3.16E-5 to 1E-2 wavelengths within about 0.5% from 3.5 - 250 MHz." & CHR(13) & CHR(13) & "L. B. Cebik, W4RNL",,"Wide Bandwidth 4 Element Quad"
+
+Sub Calculate
+  F = INPUTBOX ("Enter Desired Frequency in MHz:","Operating Frequency")
+  U = INPUTBOX ("Select Units for Wire Diameter in 1. Inches, 2. Millimeters, 3. Wavelengths","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
+  IF U=3 THEN D=WD
+  D = Round(D,5)
+
+  L=.4342945*LOG(D*10^5):LL=L^2:LM=LL*.0128:LN=LM+1.0413:D1=.4342945*LOG(D)
+  IF D1<-4.5 then MSGBOX "Wire diameter less than 3E-5 wavelengths:  results uncertain."
+  if d1>-2 THEN MSGBOX "Wire diameter greater than 1E-2 wavelengths:  results uncertain."
+  AD=-.00018:BD=-.002359259259:CD=-.01090277778:DD=-.01971296296:ED=.1174938889
+  DE=(AD*(D1^4))+(BD*(D1^3))+(CD*(D1^2))+(DD*D1)+ED:DE=DE*8
+  DE = Round(DE, 3)
+  AR=.0002666666667:BR=.004237037037:CR=.02554444444:DR=.07158756614:ER=.2119230159
+  RE=(AR*(D1^4))+(BR*(D1^3))+(CR*(D1^2))+(DR*D1)+ER:RE=RE*8
+  RE = Round(RE,3)
+  AI=-.0002:BI=-.002525925926:CI=-.01182777778:DI=-.02473915344:EI=.1008246032
+  IR=(AI*(D1^4))+(BI*(D1^3))+(CI*(D1^2))+(DI*D1)+EI:IR=IR*8
+  IR = Round(IR,3)
+  AT=-.0006:BT=-.009059259259:CT=-.04912777778:DT=-.1152343915:ET=.01678174603
+  TT=(AT*(D1^4))+(BT*(D1^3))+(CT*(D1^2))+(DT*D1)+ET:TT=TT*8
+  TT = Round(TT,3)
+  SP=.1635:IP=.481
+  ATT=.0026666666667:BTT=.036888888889:CTT=.177:DTT=.3386587302:ETT=1.046738095
+  TTP=(ATT*(D1^4))+(BTT*(D1^3))+(CTT*(D1^2))+(DTT*D1)+ETT
+  TTP = Round(TTP,3)
+  AZ=1.2:BZ=13.92592593:CZ=60.777777778:DZ=113.9177249:EZ=132.618254
+  ZR=(AZ*(D1^4))+(BZ*(D1^3))+(CZ*(D1^2))+(DZ*D1)+EZ
+  ZR = Round(ZR,2)
+  AG=-.1:BG=-1.184444444:CG=-5.228333333:DG=-9.831507937:EG=4.045238095
+  GN=(AG*(D1^4))+(BG*(D1^3))+(CG*(D1^2))+(DG*D1)+EG
+  GN = Round(GN,3)
+  AW=-.06663333333:BW=-.6539148148:CW=-1.677836111:DW=1.361137831:EW=9.502790079
+  SW=(AW*(D1^4))+(BW*(D1^3))+(CW*(D1^2))+(DW*D1)+EW
+  SW = Round(SW,3)
+  AF=-.03:BF=-.27666667:CF=-.4475:DF=2.348809524:EF=7.853214286
+  FB=(AF*(D1^4))+(BF*(D1^3))+(CF*(D1^2))+(DF*D1)+EF
+  FB = Round(FB,3)
+  WL=299.7925/F
+  WF=983.5592/F
+  WL = Round(WL,4)
+  WF = Round(WF,4)
+
+  MSGBOX "Wire Diameter in Wavelengths: " & D & CHR(13) & "Wavelength in Meters = " & WL & CHR(13) & "Wavelength in Feet = " & WF,,"Wire Diameter"
+
+  MSGBOX "Quad Dimensions in Wavelengths, Feet, and Meters:" & CHR(13) & CHR(13) &"Driver Side ="&(DE/4)&" WL or"&(DE/4)*WF&"Feet or "&(DE/4)*WL&"Meters" & CHR(13) & "Driver Circumference ="&DE&" WL or"&DE*WF&"Feet or "&DE*WL&"Meters" & CHR(13) & "Reflector Side ="&(RE/4)&" WL or "&(RE/4)*WF&"Feet or "&(RE/4)*WL&"Meters" & CHR(13) & "Reflector Circumference ="&RE&" WL or "&RE*WF&"Feet or "&RE*WL&"Meters" & CHR(13) & "Reflector-Driver Space ="&SP&" WL or "&SP*WF&"Feet or "&SP*WL&"Meters" & CHR(13) & "Director 1 Side ="&(IR/4)&" WL or "&(IR/4)*WF&"Feet or "&(IR/4)*WL&"Meters" & CHR(13) & "Director 1 Circumference ="&IR&" WL or "&IR*WF&"Feet or "&IR*WL&"Meters" & CHR(13) & "Director 1-Reflector Space ="&IP&" WL or "&IP*WF&"Feet or "&IP*WL&"Meters" & CHR(13) & "Director 2 Side ="&(TT/4)&" WL or "&(TT/4)*WF&"Feet or "&(TT/4)*WL&"Meters" & CHR(13) & "Director 2 Circumference ="&TT&" WL or "&TT*WF&"Feet or "&TT*WL&"Meters" & CHR(13) & "Director 2-Reflector Space ="&TTP&" WL or "&TTP*WF&"Feet or "&TTP*WL&"Meters" & CHR(13) & "Approx. Feedpoint Impedance ="&ZR&" Ohms   ",,"Quad Demensions"
+  MSGBOX "Free-Space Gain ="&GN&"dBi" & CHR(13) & "Approximate 2:1 VSWR Bandwidth ="&SW&"% of Design Frequency" & CHR(13) & "Approximate >20 dB F-B Ratio Bandwidth ="&FB&"% of Design Frequency",,"Gain/SWR and Bandwith"
+end sub
+
+Do Until P = 7
+  P = MSGBOX ("Calculate Quad Demensions",4,"Yes or No")
+  if P = 6 then Calculate
+Loop