rs232_t.bas

PWM VB source code for PWM pulse

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