test232.bas

example for serial-port by basic

CLS

ON ERROR GOTO ErrHandle
ON COM(2) GOSUB ComHandle

LOCATE 5, 10
PRINT "Test RS232 Communication from PC/AT to 8051 Board"
LOCATE 6, 10
PRINT "Press ESC to exit ..."


MsgTxd$ = "Data on TxD Line : "
MsgRxd$ = "Data on RxD Line : "
'LOCATE 7, 12
'PRINT MsgTxd$
LOCATE 8, 12
PRINT MsgRxd$

OPEN "COM2:9600,N,8,1" FOR INPUT AS #1
I = 0
J = 0

COM(2) ON
DO
LOOP UNTIL INKEY$ = CHR$(27)


COM(2) OFF
CLOSE #1
END

ComHandle:
   DataRxd$ = INPUT$(1, #1)
   LOCATE 8 + J, 12 + LEN(MsgRxd$) + I
   PRINT DataRxd$
   IF I = 29 THEN
      I = 0: J = J + 1
   ELSE
      I = I + 1
   END IF
   RETURN

ErrHandle:
   LOCATE 11, 10
   PRINT "Error "; ERR; "  Error Line No. : "; ERL
   LOCATE 12, 10
   PRINT "Using device : "; ERDEV$; " >>>  "; "Device Error Code = "; ERDEV
   END