Do
PWM 1, 1000, 25
PWM 1, 1001, 25
Loop

Option Explicit

Dim i,j As integer

DecreaseForLoop '<<--- Change here

'<<==============================================

Sub DecreaseForLoop
Do
For i = 100 To 20 Step -1 'Setup the next decreasing PWM frequency
PWM 1,i,10 ' PWM output 1.. the new frequency.. Duty cycle
' NOTES: The first pulse duty cycle is alway 3.2 times longer than
' the next pulse duty cycle.
' Any higher than 30% duty, pulses 1 & 2 blend into a single wide pulse.
For j = 1 To 400
' j give the HZ time to settle
' higher value gives more pulse of the same Hz
Next j
Next i
PWM 1, stop ' Stop the PWM to create a LOW gap in the signal
Pause 100 ' A good size gap to easily see
Loop
End Sub

'<<==============================================

Sub IncreaseForLoop
Do
For i = 20 To 100 'Setup the next decreasing PWM frequency
PWM 1,i,10 ' PWM output 1.. the current set Hz.. Duty cycle
'NOTES: The first pulse duty cycle width is always 10%(mS) of the
'set duty cycle. ie: Set=10,pulse=1mS.. Set=70,pulse=7mS
For j = 1 To 400
'NOTES: Unrepeatable gaps, but are consistant with values
Next j
Next i
PWM 1, stop ' Stop the PWM to create a 0V gap in the signal
Pause 100 ' A good size gap to easily see
Loop
End Sub

'<<==============================================

Sub IncreasePause
Do
For i = 20 To 100 'Setup the next decreasing PWM frequency
PWM 1,i,10 ' PWM output 1.. the current set Hz.. Duty cycle
'NOTES: The first pulse duty cycle width is always 10%(mS) of the
'set duty cycle. ie: Set=10,pulse=1mS.. Set=70,pulse=7mS
Pause 10
'NOTES: Consistantly positioned gaps, consistant with the PAUSE value
'Doesn't appear random and can be repeatable
'PAUSE=10 looks perfect
Next i
PWM 1, stop ' Stop the PWM to create a 0V gap in the signal
Pause 100 ' A good size gap to easily see
Loop
End Sub

Option Explicit

Dim integer i, slow=20, fast=5000

Do
Print "Ramp Up to "; fast; "Hz"
For i = slow To fast Step 1
PWM 1,i,25
Pause 5
Next i

Print "High Speed "; fast; "Hz"
PWM 1, fast,25
Pause 5000

Print "Ramp Down to "; slow; "Hz"
For i = fast To slow Step -1
PWM 1,i,25
Pause 5
Next i

Print "Low Speed "; slow; "Hz"
PWM 1, slow, 25
Pause 5000
Loop

option explicit

dim i, j as integer '<< declares
const min=20 '<< minimum frequency
const max=5000 '<< maximum frequency

setpin 49, inth, PulseInt '<< define the interrupt

i = min '<< Set the initial minimum frequency
j = 0 '<< set a dummy variable

do
pwm 1, min, 50 '<< start the PWM at minimum frequency
do while i < max '<< Have we reached the maximum?
j = j + 1 '<< fill in time while waiting
loop '<< no, wait here
pwm 1, stop '<< Stop the PWM
i = min '<< reset the minimum
j = 0 '<< reset the dummy variable
pause 100 'Wait here and create a trace marker on the DSO
loop '<< do it again

Sub PulseInt '<< do this interrupt
pwm 1, i, 50 '<< set the PWM to the valie of i
i = i + 1 '<< increase i for next frequency
end sub

Const mStep=48, mDirection=50, mEnable=54 <<- Set Constants

SetPin 50, dout <<-- Set Pins
SetPin 51, dout
SetPin 52, dout
SetPin 53, dout
SetPin 54, dout

Pin(mDirection)=Low <<-- CW Rotation
Pin(mEnable)=High <<-- Enable DRV882
Port (51,3)= &B101 <<-- Set to 1/32 Mode

do
for i = 20 to 25000
pwm 1, i, 50
pause 1
next i
loop

Do
PWM 1, 3000, 25
PWM 1, 3010, 25
Loop