rs232_r1.bas

PWM VB source code for PWM pulse

5 CLS
7  PRINT "RS232 RECEIVE 9600 BPS"
10 OPEN "COM1:9600,N,8,1,CD,CS,DS,OP" FOR INPUT AS #1
15 LOCATE 1, 30
17 D$ = ""
20 IF NOT EOF(1) THEN GOSUB 100
30 GOTO 20

100 A$ = INPUT$(LOC(1), #1)
105 IF A$ <= "0" OR A$ <= "9" THEN PRINT A$; : D$ = D$ + A$: A$ = A$: RETURN
110 PRINT : LOCATE 1, 30: D$ = ""
120 GOSUB 300
130 RETURN

300  CLS
308  KK = VAL(D$)
310  SCREEN 12
320  LINE (40, 0)-(40, 480)
330  LINE (0, 240)-(640, 240)
340  PSET (40, 240)
350  FOR t = 0 TO 3.14 * 10 STEP .1
360  y = SIN(t) * 100
370  LINE -(40 + t * 20, 240 - KK), 9
380  NEXT
390  RETURN