Programmazione seriale FT357K (simile al FT515)

Rispondi
dottore8086
Messaggi: 1
Iscritto il: 27/03/2012, 15:09
Home_Page: http://

Programmazione seriale FT357K (simile al FT515)

Messaggio da dottore8086 » 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
Immagine
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 :roll:

Rispondi