| |
I3XTY > TUTTI 17.06.09 17:07l 201 Lines 8397 Bytes #999 (0) @ ITA
BID : 40571_I3XTY
Read: GUEST IV3JER IZ6WQP
Subj: MSG n. 17 di I3ZJV
Path: IZ3LSV<IK6ZDE<I4UKI<I3XTY<I3XTY
Sent: 090617/1751 @:I3XTY.TV.IVEN.ITA.EU $:40571_I3XTY Sally 4.1.232
Date: mer, 17 giu 2009 17:51:41 LT
From: I3XTY (Luigi)
To: TUTTI@ITA
Subject: MSG n. 17 di I3ZJV
Inviato da: I3XTY@I3XTY.TV.IVEN.ITA.EU
From: I3ZJV@I3XTY.TV.IVEN.ITA.EU
To : TUTTI@ITA
[/// AUTOINST 1.43b, UTC diff:5, Ora locale: Sab Set 02 17:55:44 2000 ...]
Ciao Enzo, il programma per stampare le qsl si trova su Radiokit marzo 1987
pagina 36 a cura di Massimo e Sante Zannoni I5MZY e I4PWL.
Il programma presentato questa volta e' un programma "complementare" al
"VHF CONTEST HELP DISK" gia' apparso su RKE, perche' utilizzando gli stessi
dati che sono serviti per stampare i log del contest, si possono stampare
(tutte od in parte) le QSL relative al contest stesso.
Anche questo programma essendo molto semplice non necessita di grandi
spiegazioni.
Una volta dato il RUN ed aver risposto a tutte le richieste dei dati
personali, il programma provvedera' automaticamente al prelievo dei dati
dei QSO e a stampare le QSL.
Per esempio se si fossero collegati 300 nominativi e si volessero stampare
tutte le QSL, digitando "T" alla richiesta ed indicando: dal n. 1,300 si
avra' la stampa delle 300 QSL a gruppi di 3 per volta.
Questo perche' utilizzando cartoncini un po' piu' grossi della solita carta
per stampante, e' piu' facile reperire fogli singoli che possono contenere
3 QSL, per cui avremo il tempo necessario, per l'inserimento di un altro
foglio.
Nota quel "1,300" come deve essere scritto, senza le virgolette.
Sono stato costretto a scrivere su due righe le lettere del programma che
deve essere scritto invece su una sola riga, perche' in packet non mi sta,
invece in Q-Basic mi sta come lunghezza. Quindi ho ripetuto la stessa riga
col medesimo numero : vedi le righe 160, 170, 270, 290, 300, 330, 336, 365.
Avvisate I3ZJV di eventuali mancanze o inceppi di questo programma, grazie !
Nel caso si volesse stampare una qsl per volta, digitando "A" alla
richiesta ed indicando il n. del QSO, verra' stampata la QSL relativa al
QSO indicato. Questo programma e' scritto in scrittura stretta ; e' noto
che il Q-Basic lo allarga come vuole lui, per esigenze di programma.
La QSL che risulta e' quella mostrata nella figura.
Poiche' non e' possibile in packet far girare il programma, e quindi con-
trollarlo, sia se corra, sia se le dimensioni dei segni della QSL si com-
bacino, cioe' se venga stampata perfetta, e' necessario spostare i segni
sia a destra, sia a sinistra nel programma, una volta riportato in Q-basic.
Non dovrebbero esserci difficolta' nella digitazione del listato; comunque
come per i precedenti programmi presentati su RKE, siamo a disposizione per
qualsiasi ulteriore chiarimento e per l'invio del programma su disco previo
l'invio al nostro indirizzo del disco stesso e della busta preaffrancata
per il ritorno.
=======================================================================
ESEMPIO DI STAMPA QSL
=========================================================================
****************************
I5MZY/4
****************************
---------------------------------------------------------------------------
TO RADIO DATE GMT FREQ. MODE RST
--------------------------------------------------------------------------
IK4BBB 2NOV1996 1236 144 SSB 59 003
-------------------------------------------------------------------------
73 AND GOOD DX.........................................PSE -QSL-TNX
MASSIMO ZANNONI -VIA PIENZA 43 ------TO RADIO------
i-50142 FIRENZE-ITALY
WW-LOC - JN54VG IK4BBB
=======================================================================
-----------------------------------------------------------------------
STAMPA QSL
-----------------------------------------------------------------------
Programma Complementare al VHF Contest
----------------------------------------------------------------------
1 REM *** PROGRAMMA STAMPA QSL ***
2 REM ** **
3 PRINT CHR147)
4 POKE 53280,6: POKE 53281,6: PRINT " "
5 GOSUB 10000
6 PRINT TAB(98);"BY"
7 PRINT TAB(90); "I5MZY E I4PWL "
8 FOR I=1 TO 3000: NEXT I
9 PRINT CHR147)
10 POKE 53280, 1:POKE 53281, 1: PRINT "": PRINT TAB(1); (4)
11 INPUT " TUO NOMINATIVO "; Z IF Z=""THEN PRINT " ": GOTO 11
12 INPUT "COGNOME E NOME ";Y IF Y= ""THEN PRINT " " :GOTO 12
13 INPUT "VIA E NUMERO"; X IF X= ""THEN PRINT " ": GOTO 13
14 INPUT "C.A.P.- CITTA'";W IF W= ""THEN PRINT " " GOTO 14
15 INPUT "WW-LOC."; H IF H= ""THEN PRINT " ": GOTO 15
20 PRINT " IMMETTI I DATI DEL CONTEST "
30 FOR I=1 TO 1000: NEXT I
40 DEF FNA (V) =INT(V/256): DEF FNB (Z) = Z - HI * 256
71 INPUT "GIORNO "; J%
72 INPUT "MESE (in lettere)"; KIF K=" "THEN PRINT" ":GOTO 72: K
72 LEFTK 3)
73 INPUT "ANNO";L IF L= " " THEN PRINT" ":GOTO 73
80 INPUT "FREQUENZA"; C IF C= " " THEN PRINT " ": GOTO 80
82 PRINT "LE STAMPI TUTTE O SOLO ALCUNE ? (T/A)";
83 INPUT ZZIF ZZ= "" THEN PRINT " ": GOTO 82
86 IF ZZ "A" THEN GOTO 1000
100 INPUT "DAL QSO N. , AL QSO N. "; G, H
110 PRINT TAB(2); (8); (2)
112 GOTO 115
115 PRINT "CONTEST " + K+ "/" +LPRINT TAB(3); (8); (15)
120 FOR J = 1 TO H: N = N + 1
130 HI = FNA(j): LO = FNB (j)
140 PRINT TAB(3); , "P"; CHR2); CHRLO); CHRHI); CHR1): GOSUB 5000
150 PRINT TAB(2); , R GOSUB 5000
160 BLEFTR4):A1MIDR5,2):NBMIDR7,1):C1MIDR8,3):
160 A=VAL(B
161 IF A >=1400 AND A <=2359 THEN K = j%
162 IF A >=0 AND A < 1400 THEN K = j% + 1
163 j= RIGHT" "+STRK),1)
165 IF RIGHTC11) =" "AND MIDC12,1)<>" "THEN C1LEFTC12)+" "
170 IF MIDC12,1)=" "THEN C1LEFTC11)+" ":D1MIDR11,3):
170 L=ASC(D1
172 IF L > 40 THEN F"/"
173 IF L < 39 THEN F" "
174 AA1NBC1FD1SMIDR14,6)
175 S1LEFTS2):S2MIDS3,1):IF S2"0"THEN S2" "
176 S3MIDS4,3)
177 ES1S2S3R2MIDR23,1):IF R2"0"THEN R2" "
178 C=VAL(S2:D=VAL(R2
179 IF C=0 AND D=0 THEN D" SSB "
180 IF C=9 AND D=9 THEN D" CW "
181 IF C=0 AND D=9 THEN D"SSB/CW"
182 IF C=9 AND D=0 THEN D"CW/SSB"
183 PRINT
184 PRINT
200 PRINT 1,CHR14);"----------------------------"
210 PRINT 1,
240 PRINT " *********** "
250 PRINT " "; Z " "
260 PRINT " ********** "
265 PRINT 1, " Z-------------B-----------B--------B---------B--------B-----?"
270 PRINT 1, CHR15); "| TO RADIO | DATE | FREQ. | MODE | GMT |
270 RST |": PRINT 1, CHR14);
280 PRINT 1, " C-------------E-----------E--------E---------E--------E-----4"
290 PRINT 1, CHR15);SPC(4);ASPC(3);jKLSPC(3);BSPC(4);CSPC(4);D
290 SPC(2);E
300 PRINT 1, CHR14);"
300 @-------------A-----------A--------A---------A--------A-----Y"
320 PRINT 1, CHR15);" 73 and good dx...........................PSE-QSL-TNX"
330 PRINT 1, CHR15);" ";YS;"-";X SPC(39-(LEN(YX" ")));" Z-TO
330 RADIO --"
335 PRINT 1, CHR15);" ";W" "-Italy";SPC(39-(LEN(W" ")));"| "
336 PRINT 1," WW-LOC - ";CHR14);H CHR15);
336 SPC(18);" |";SPC(1);CHR14);A1NBC1
340 PRINT 1, CHR14); "--------------------------"
343 IF ZZ= "T" THEN 365
345 IF ZZ= "A" THEN PRINT" Ancora(S/N)";:INPUT KK
350 IF KK= ""THEN PRINT " ":GOTO 345
355 IF KK= "S"THEN NR = 0:GOTO 1050
360 IF KK= "N" THEN 390
365 IF N = 3 THEN N=0:PRINT" Premi un tasto per continuare":POKE 198,0:wait
365 198,1
370 NEXT j
390 CLOSE 3: CLOSE 2: CLOSE 1:END
1000 PRINT TAB(2); (8); (2);
1023 GOTO 1025
1025 PRINT"Contest "+K"/"+L
1026 GOTO 1027
1027 PRINT TAB(3); (8); (15)
1050 INPUT " Num. del QSO";NR
1060 HI=FNA(NR):LO=FNB(NR)
1100 PRINT TAB(3); ,"P";CHR2);CHRLO);CHRHI);CHR1):GOSUB 5000
1200 GOTO 150
5000 PRINT TAB(3);,A1,A2B1,C1
5010 IF A1=0 OR A1=50 THEN RETURN
5020 PRINT A1,A2
5030 CLOSE 3:CLOSE 2:END
10000 PRINT TAB (165);"Z------------------------?"
10005 PRINT" | Il programma prevede |"
10010 PRINT" | la stampa di QSL |"
10020 PRINT" | con stampanti |"
10025 PRINT" | |"
10030 PRINT" | ***di tutti i tipi*** |"
10035 PRINT" @------------------------Y"
10040 FOR I=1 TO 2000:NEXT I
10050 RETURN
73 a tutti de Luigi.
li, mer 17 giugno 2009 17:50 LT (+2.00 UTC)
I3XTY Paese, Veneto
BBS I3XTY@I3XTY.TV.IVEN.ITA.EU
e_mail i3xty@yahoo.it
http://
Messaggio inviato con Sally V4.1.232 software packet per Windows 32bit.
Message sent with Sally V4.1. Windows packet software.
Read previous mail | Read next mail
| |
