rs232_t.bas

来自「PWM VB source code for PWM pulse」· BAS 代码 · 共 10 行

5 CLS
7 PRINT "RS232 TRANSMMITER 9600 BPS"
10 OPEN "COM2:9600,N,8,1,DS,RS,CS,CD" FOR OUTPUT AS #1
30 INPUT "KEY_IN=", A$
'40 IF A$ < "0" OR A$ > "9" THEN 30
50 PRINT #1, A$
60 PRINT "OUT="; A$
70 GOTO 30