10 'ÚÄ RVSPRN.BAS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ E.D.C. S.r.L. Ä¿ 20 '³ TRASFERIMENTO MULTIPLO TRA C200-ASC02 E C200HS ³ 30 '³ - Il programma realizza i seguenti trasferimenti: ³ 40 '³ ³ 50 '³ PLC <--- ASCI BASIC ³ 60 '³ ³ 70 '³ STAMPANTE SERIALE PANASONIC: ³ 75 '³ 9600, 8 BIT NO PARITY, XON XOFF, STOP BITS 1 ³ 80 '³ ³ 90 '³ DM1100-DM1109: NOME PRODOTTO (ASCII) ³ 100 '³ DM1110-DM1119: NOME IMPIANTO (ASCII) ³ 110 '³ DM1120 : TESTA DI PRODUZIONE (ASCII) ³ 120 '³ ³ 130 '³ DM1200-DM1210: DATI NUMERICI ³ 140 '³ ³ 150 '³ ³ 160 '³ ³ 165 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 170 CLEAR 5000 180 DIM TBNUM(20) 190 LTPREC%=0:TBSTR$="":INIZIO%=0 200 'LETTURA FLAG DI STAMPA DA PLC -> DM3700 210 PC READ "@D,1200,1,I4";INIZIO% 220 IF INIZIO% <> 0 AND LTPREC% <> INIZIO% THEN GOSUB 300 230 LTPREC%=INIZIO% 240 GOTO 200 300 'INIZIO ROUTINE LETTURA DATI DA PLC E INVIO ALLA STAMPANTE 310 PC READ "@D,1100,21,21A3";TBSTR$ 320 PC READ "@D,1201,10,S10I4";TBNUM(1) 330 PRODOTTO$=MID$(TBSTR$,1,20) 340 PLANT$=MID$(TBSTR$,21,20) 350 TESTA$=MID$(TBSTR$,41,1) 400 S$=STR$(TBNUM(1)) 410 M$=STR$(TBNUM(2)) 420 O$=STR$(TBNUM(3)) 430 GIORNI$=STR$(TBNUM(4)) 440 MESI$=STR$(TBNUM(5)) 450 ANNI$=STR$(TBNUM(6)) 454 DEC%=TBNUM(7) MOD 10 458 IF DEC% < 4 THEN PESO%=TBNUM(7)\10 ELSE PESO%=TBNUM(7)\10+1 460 NETTO$=STR$(PESO%) 470 TARA$=STR$(TBNUM(8)) 480 P1$=STR$(TBNUM(10)) 482 P20$=STR$(TBNUM(9)) 486 P2$="0000"+RIGHT$(P20$,((LEN(P20$))-1)) 490 IF TBNUM(10)<>0 THEN PROG$=P1$+RIGHT$(P2$,4) ELSE PROG$=P2$ 500 T$=O$+"."+M$+"."+S$ 510 TDATA$=GIORNI$+"/"+MESI$+"/"+ANNI$ 600 '----------------------- Apro la Porta di comunicazione Nø2 650 OPEN #2,"COMU:(59)" 700 PRINT #2, CHR$(27)+"!"+CHR$(56) 710 PRINT #2, STRING$(1," ")+TDATA$+STRING$(3," ")+PRODOTTO$+Chr$(13) 720 PRINT #2, Chr$(13) 730 PRINT #2, Chr$(13) 740 PRINT #2, String$(1, " ") + T$ + Chr$(13) 750 PRINT #2, Chr$(13) 760 PRINT #2, String$(17, " ") + TESTA$ + " " + PROG$ + Chr$(13) 770 PRINT #2, Chr$(13) 780 PRINT #2, Chr$(13) 790 PRINT #2, Chr$(13) 800 PRINT #2, Chr$(13) 810 PRINT #2, String$(1, " ") + NETTO$ + " KG." + String$(3, " ") + TARA$ + " KG." + String$(2, " ") + PLANT$ + Chr$(13) 820 PRINT #2, Chr$(13) 830 PRINT #2, Chr$(13) 840 PRINT #2, Chr$(13) 850 PRINT #2, Chr$(13) 860 PRINT #2, Chr$(13) 870 PRINT #2, Chr$(13) 880 PRINT #2, Chr$(13) 890 PRINT #2, Chr$(13) 900 PRINT #2, Chr$(13) 910 PRINT #2, Chr$(13) 920 PRINT #2, Chr$(13) 930 PRINT #2, Chr$(13) 950 CLOSE #2 960 ZERO%=0 970 PC WRITE "@D,1200,1,I4";ZERO% 985 ' 990 GOTO 230