Sub Process_Globals
Public Serial1 As Serial
Private Timer1 As Timer
Private ResetPin As Pin
Private Counter As Int
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
Timer1.Initialize("Timer1_Tick", 1000)
Timer1.Enabled = True
End Sub
Sub Timer1_Tick
Counter = Counter + 1
Log("Counter = ", Counter)
If Counter = 5 Then
ResetPin.Initialize(4, ResetPin.MODE_OUTPUT)
ResetPin.DigitalWrite(False)
End If
End Sub