help me! collegamento a RS232 con GWBASIC

boosy · 06-11-2001, 18:15

Ciao a tutti. Volevo sapere se qualche genio mi può aiutare ad effettuare un softwerino di collegamento via RS232 in GWBASIC o COBOL.
Devo ricevere una stringa di dati da una pesa industriale e registrarla in un file sequenziale che poi mi elaboro tramite i miei programmi.

Grazie 1000.

Boosy

misterx · 06-11-2001, 20:10

Casualmente nella fogna dei miei prog. ho ritrovato questo scorcio in QBASIC che spero possa esserti utile.
Non chiedermi il significato dei parametri in quanto li dovresti trovare nell'help in linea.

Cmq, i parametri fondamentali sono: 4800,E,7,2

4800=velocità di trasmissione
E/O=(ODD/EVEN) pari/dispari
7= n°bit di dati
2 = n° bit di stop

che devono essere i medesimi x le due apparecchiature

OPEN "COM1:4800,E,7,2,CD0,CS0,DS0,OP0,RS,TB2048,RB4096" FOR INPUT AS #1

OPEN "c:\miofile.txt" FOR OUTPUT AS #2

WHILE (a$ <> "EOF")
INPUT #1, a$
PRINT a$ mostra a video i dati in arrivo
WRITE #2, a$ li scrive nel file
WEND
CLOSE #1, #2

come vedi il programma è molto semplice

boosy · 07-11-2001, 14:03

Grazie non 1000 ma un 1000000!!!!
ora provo, poi ti farò sapere!

Boosy

06-11-2001, 18:15	#1
boosy Member Iscritto dal: Feb 2001 Messaggi: 19	help me! collegamento a RS232 con GWBASIC Ciao a tutti. Volevo sapere se qualche genio mi può aiutare ad effettuare un softwerino di collegamento via RS232 in GWBASIC o COBOL. Devo ricevere una stringa di dati da una pesa industriale e registrarla in un file sequenziale che poi mi elaboro tramite i miei programmi. Grazie 1000. Boosy

06-11-2001, 20:10	#2
misterx Senior Member Iscritto dal: Apr 2001 Città: Milano Messaggi: 3739	Casualmente nella fogna dei miei prog. ho ritrovato questo scorcio in QBASIC che spero possa esserti utile. Non chiedermi il significato dei parametri in quanto li dovresti trovare nell'help in linea. Cmq, i parametri fondamentali sono: 4800,E,7,2 4800=velocità di trasmissione E/O=(ODD/EVEN) pari/dispari 7= n°bit di dati 2 = n° bit di stop che devono essere i medesimi x le due apparecchiature OPEN "COM1:4800,E,7,2,CD0,CS0,DS0,OP0,RS,TB2048,RB4096" FOR INPUT AS #1 OPEN "c:\miofile.txt" FOR OUTPUT AS #2 WHILE (a$ <> "EOF") INPUT #1, a$ PRINT a$ mostra a video i dati in arrivo WRITE #2, a$ li scrive nel file WEND CLOSE #1, #2 come vedi il programma è molto semplice

07-11-2001, 14:03	#3
boosy Member Iscritto dal: Feb 2001 Messaggi: 19	Grazie non 1000 ma un 1000000!!!! ora provo, poi ti farò sapere! Boosy

Strumenti
Mostra una versione stampabile Invia questa pagina per email