Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Nullmodemkabeltest - CLIENT
| Uploader: |  AndT |
| Datum/Zeit: | 03.04.2009 13:47:16 |
dim as ubyte dsignal
dim as string KEY
dim as ubyte ff = freefile
PRINT "OPEN COM"
OPEN COM "COM1:115200,N,8,2,CS,DS" FOR RANDOM AS #ff
PRINT "READY"
PRINT "CLIENT"
DO
INPUT #1,dsignal
if dsignal <> 0 then print chr(dsignal);
PRINT #1,dsignal
KEY = INKEY
LOOP UNTIL KEY <> ""