Sub Process_Globals
'--- IOIO PROVA 1
' accende e spegne il led "stat"
' utilizza la libreria IOIO vers. 2.05
Dim ioio1 As IOIO
Dim digo1 As DigitalOutput
End Sub
Sub Globals
Dim toggle1 As ToggleButton
Dim support As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.Title="IOIO PROVA 1"
Activity.Color = Colors.White
toggle1.Initialize ("toggle1")
Activity.AddView (toggle1,5dip,10dip,70dip,60dip)
toggle1.Checked = False
toggle1.Color = Colors.White
toggle1.TextColor = Colors.Black
toggle1.Visible = True
'
support=ioio1.Initialize
ioio1.Connect("ioio1",ioio1.CONN_BT,1,0)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
If UserClosed Then
ioio1.Disconnect
ExitApplication
End If
End Sub
Sub ioio1_connected(noerror As Boolean)
If noerror Then
ToastMessageShow ("ioio connesso",False)
Else
Dim trouble As Exception
trouble=LastException
ToastMessageShow (trouble.Message,True)
End If
End Sub
Sub toggle1_CheckedChange(Checked As Boolean)
If Checked Then
ioio1.OpenDigitalOutput("led",0,digo1.OP_NORMAL,True)
Else
digo1.Close
End If
End Sub
Sub led_open(noerror As Boolean, result As Object)
If noerror Then
digo1=result
digo1.WriteWait("",False,0)
End If
End Sub