'RAMP1.bas

'Forward / Reverse Ramp test for-
'Pontech SV-203B/C PWM pulse generator
'Aveox H-160 Brushless motor controller

'Pontech SV-203 measured pulse width
'M1   = 0.5 mS
'M128 = 1.5 mS
'M255 = 2.5 mS

'Pontech commands to Aveox H-160 Controller
'M84  = 1.17 mS = maximum reverse RPM
'M122 = 1.48 mS = zero RPM
'M160 = 1.77 mS = maximum forward RPM


CLS

OPEN "COM1:9600,N,8,1,CD0,CS0,DS0" FOR OUTPUT AS #1

'Forward ramp up
   PRINT "Ramp Forward"
   FOR n = 122 TO 160
   Pos$ = STR$(n)
   PRINT #1, "M"; Pos$
   FOR D = 1 TO 20000: NEXT D
   NEXT n

   FOR D = 1 TO 20000: NEXT D

'Ramp down to zero
   PRINT "Ramp to Zero"
   FOR n = 160 TO 122 STEP -1
   Pos$ = STR$(n)
   PRINT #1, "M"; Pos$
   FOR D = 1 TO 20000: NEXT D
   NEXT n
  
'Reverse ramp up
   PRINT "Ramp Reverse"
   FOR n = 122 TO 84 STEP -1
   Pos$ = STR$(n)
   PRINT #1, "M"; Pos$
   FOR D = 1 TO 20000: NEXT D
   NEXT n

   FOR D = 1 TO 20000: NEXT D

'Ramp down to zero
   PRINT "Ramp to Zero"
   FOR n = 84 TO 122
   Pos$ = STR$(n)
   PRINT #1, "M"; Pos$
   FOR D = 1 TO 20000: NEXT D
   NEXT n
   PRINT "Done"
END