'
#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: True
#StackBufferSize: 300
#End Region
Sub Process_Globals
Public Serial1 As Serial
Public Motor As Servo
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Motor.Attach2(9,1000,2000)
Start
End Sub
Sub Start
Motor.Write(1800) 'Engine speed: 80%
Delay(5000)
Motor.Write(2000) 'Engine speed: 100%
Delay(5000)
Motor.Write(1000)
End Sub