ho dei problemi nella conversione dal codice di programmazione "Quick Basic 4" (per sistema operativo dos) a
"Visaul Basic 6" (per Windows).
Linguaggio per Quick Basic 4 fornito con il KIT 357K
REM***********************************************************
REM File:IO232.BAS Data:30/08/2000
REM CONTROLLO 8 OUT 8 IN DIGITALI E 2 IN A/D CON PORTA RS 232
REM (C) 2000 Futura Elettronica snc
REM***********************************************************
OPEN "COM2:9600,N,8,1,rs,cs0,ds0" FOR RANDOM AS #10
DO
a$ = ""
DO WHILE a$ = "" OR VAL(a$) < 0 OR VAL(a$) > 255
CLS
PRINT "Digita valore di OUTPUT da 0 a 255 (A=abbandona)";
INPUT a$
LOOP
IF a$ = "a" OR a$ = "A" THEN
CLOSE #10
EXIT DO
END IF
PRINT #10, "**" + CHR$(VAL(a$)) + "#"; 'comando per pilotare gli 8 relè
digital$ = INPUT$(1, #10)
ad1$ = INPUT$(1, #10)
ad2$ = INPUT$(1, #10)
PRINT "Ingressi ="; ASC(digital$);
PRINT "Convertitore A/D 1 ="; ASC(ad1$); 'comando per leggere il 1 ingresso analogico
PRINT "Convertitore A/D 2 ="; ASC(ad2$)
SLEEP 5
LOOP
END
Effettuado delle ricerche su internet ho scoperto che il protocollo del kit 515 risulta compatibile con il kit 357K
di seguito è riportato il codice per la programmazione del kit 515

By dottore8086 at 2012-03-28[/img]
Dopo svariate ricerche ho trovare questo breve codie per Visual basic 6,
premendo il tasto si abilita il terzo relè
Private Sub Command1_Click()
Dim Instring As String
Dim retval As Double
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = "**" + Chr$(Val(4)) + "#" ' comando per pilotare i relè
MSComm1.PortOpen = False
End Sub
Purtroppo manca la parte per la lettura dei due ingressi analogici;
Gentilmente qualcuno potrebbe darmi qualche dritta su come devo scrivere il codice in VB6. Grazie
