Programmazione seriale FT357K (simile al FT515)
Inviato: 28/03/2012, 15:06
Buongiorno,
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
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