Dim BStream As AsyncStreamsText
Dim server As ServerSocket
Sub AppStart (Args() As String)
Dim i As Int
sp.initialize("AStream")
Log(sp.ListPorts)
sp.Open("/dev/ttyUSB0")
sp.SetParams(9600,8,1,0)
For i=0 To 23
table(i).Initialize
Next
AStream.Initialize(Me, "AStream",sp.GetInputStream,sp.GetOutputStream)
server.Initialize(40000,"server")
server.listen
DateTime.DateFormat="dd MMM yy "
DateTime.TimeFormat="HH 'uur' mm 'min' ss 'sec'"
controller.Initialize
Pin1.Initialize(1, False) 'GpioPinDigitalOutput
StartMessageLoop
End Sub
Sub server_NewConnection (Successful As Boolean, NewSocket As Socket) 'internet
If Successful Then
BStream.Initialize(Me, "BStream",NewSocket.InputStream, NewSocket.OutputStream)
Else
Log (LastException.Message)
End If
server.Listen
End Sub
Sub BStream_NewText(Text As String)
Dim reply As String
Pin1.Pulse(300)
If Text= "1" Then
reply=elecconsumption & cr
BStream.Write(reply)
End sub