DECLARE SUB stampa (stringa$) DEFINT A-Z delimita$ = "" FOR z = 1 TO 80 delimita$ = delimita$ + "Í" NEXT COLOR 15, 1 CLS a$ = "Programma Converte v 1.0 by Giovanni Franceschini I0JFE": stampa a$ PRINT PRINT " Il programma permette di trasformare le misure degli elementi di" PRINT "un'antenna calcolata con il software di DL6WU, o anche le misure" PRINT "ricavate da antenne commerciali, in coordinate adatte al software" PRINT "MMANA reperibile sul sito internet http://www.qsl.net/mmhamsoft/" PRINT " I dati da inserire sono "; : COLOR , 8: PRINT "il numero degli elementi"; : COLOR , 1 PRINT " che costituiscono" PRINT "l'antenna e per ciascuno di essi:" COLOR , 8 PRINT "1) la lunghezza;" PRINT "2) il diametro;" PRINT "3) la distanza dall'inizio del boom;" PRINT "4) l'altezza rispetto al boom. C'Š da dire che nel caso di antenne" PRINT " che montano due o pi— riflettori (cortina), l'altezza pu• anche" PRINT " essere negativa per quegli elementi che si trovano sotto il boom." COLOR , 4 PRINT "N.B. tutte le misure sono in millimetri" PRINT : COLOR , 1 PRINT " Dopo aver inserito tutti i dati essi saranno visualizzati e comparir…" PRINT "la richiesta se sono corretti. In caso di risposta negativa sar… possibile" PRINT "indicare l'elemento sbagliato e si potr… procedere alla modifica." PRINT " Fatto ci• si dovranno inserire "; : COLOR , 8: PRINT "la frequenza in Mhz, una breve "; PRINT "descrizione, l'elemento radiante e il nome dell'antenna senza estensione"; : COLOR , 1 PRINT "che sar… assunta automaticamente come .maa secondo la regola di MMANA." a$ = "Premi Y per proseguire oppure Q per terminare": stampa a$ DO scelta$ = UCASE$(INPUT$(1)) LOOP WHILE scelta$ <> "Y" AND scelta$ <> "Q" IF scelta$ = "Q" THEN END DO CLS a$ = "Inserimento dati dell'antenna": stampa a$ PRINT a$ = "Quanti elementi": stampa a$ LOCATE , 38: INPUT ""; elementi LOOP WHILE elementi = 0 DIM lunghezza!(1 TO elementi), diametro!(1 TO elementi) DIM distanza!(1 TO elementi), altezza!(1 TO elementi) PRINT : COLOR , 2 FOR count = 1 TO elementi PRINT delimita$ PRINT count INPUT "Lunghezza :", lunghezza!(count) INPUT "Diametro :", diametro!(count) INPUT "Distanza da inizio Boom:", distanza!(count) INPUT "Altezza sul Boom :", altezza!(count) NEXT DO PRINT delimita$ COLOR , 4 PRINT "Elemento Lunghezza Diametro Distanza da inizio Boom Altezza sul Boom" FOR count = 1 TO elementi PRINT USING "#####"; count; LOCATE , 12: PRINT USING "######.###"; lunghezza!(count); LOCATE , 24: PRINT USING "######.###"; diametro!(count); LOCATE , 40: PRINT USING "###########.###"; distanza!(count); LOCATE , 65: PRINT USING "###########.###"; altezza!(count) IF count MOD 20 = 0 THEN DO LOOP WHILE INKEY$ = "" END IF NEXT PRINT delimita$ a$ = "Se i dati sono corretti premi Y altrimenti N": stampa a$ DO scelta$ = UCASE$(INPUT$(1)) LOOP WHILE scelta$ <> "Y" AND scelta$ <> "N" IF scelta$ = "N" THEN DO LOCATE , 22: INPUT "Indica l'elemento da modificare "; count LOOP WHILE count = 0 OR count > elementi INPUT "Lunghezza :", lunghezza!(count) INPUT "Diametro :", diametro!(count) INPUT "Distanza da inizio Boom:", distanza!(count) INPUT "Altezza sul Boom :", altezza!(count) END IF LOOP WHILE scelta$ <> "Y" COLOR , 2 PRINT delimita$ INPUT "Frequenza in Mhz :", frequenza! INPUT "Breve descrizione :", brevedescr$ INPUT "Qual'‚ il radiatore:", radiatore$ INPUT "Nome file :", nomefile$ PRINT delimita$ DIM y1!(1 TO elementi) DIM y2!(1 TO elementi) FOR count = 1 TO elementi y1!(count) = lunghezza!(count) / 2 * -1 y2!(count) = lunghezza!(count) / 2 NEXT OPEN nomefile$ + ".maa" FOR OUTPUT AS #1 PRINT #1, brevedescr$ PRINT #1, "*" PRINT #1, frequenza! PRINT #1, "***Wires***" PRINT #1, elementi FOR count = 1 TO elementi PRINT #1, distanza!(count) / 1000; ","; y1!(count) / 1000; ","; altezza!(count) / 1000; ","; PRINT #1, distanza!(count) / 1000; ","; y2!(count) / 1000; ","; altezza!(count) / 1000; ","; diametro!(count) / 2000; ","; -1 NEXT PRINT #1, "*** Source ***" PRINT #1, "1, 1" PRINT #1, "w" + radiatore$ + "c," + " 0.0, 1.0" CLOSE 1 DEFSNG A-Z SUB stampa (stringa$) DEFINT L lunghezza = LEN(stringa$) COLOR , 5 LOCATE , (80 - lunghezza) / 2 PRINT stringa$ COLOR , 1 END SUB