Sub Process_Globals
Dim sp As Serial
Dim AStream As AsyncStreamsText
Dim BStream As AsyncStreamsText
Dim ss As ServerSocket
Dim cs As Socket
Type tablestruct ( year As Int, month As Int, day As Int, gasconsumption As Long, elecconsumption As Long)
Dim table(24) As tablestruct
End Sub
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)
ss.Initialize(40000,"ss")
StartMessageLoop
End Sub
Sub aStream_NewText (Text As String)
Log(Text)
End Sub
