rs232_r.bas

PWM VB source code for PWM pulse

5 CLS
10 OPEN "COM1:9600,N,8,1,CD,CS,DS,OP" FOR INPUT AS #1
17 D$ = ""
18 Y = 20
20 IF NOT EOF(1) THEN GOSUB 100
30 GOTO 20

100 A$ = INPUT$(LOC(1), #1)
110 IF A$ <= "0" OR A$ <= "9" THEN D$ = D$ + A$: RETURN
120 PRINT
130 KK = VAL(D$): LOCATE 2, 30: PRINT KK
140  SCREEN 12
150  LINE (20, 0)-(20, 480), 9
160  LINE (0, 470)-(640, 470), 9
170  PSET (Y, 470 - KK), 2
180  Y = Y + 1: IF Y > 620 THEN Y = 20
190  D$ = ""
200  RETURN