private Sub Process_Globals
Private SerialNative As Stream
Private astream As AsyncStreams
End Sub
public Sub Initialize
RunNative("SerialNative2", Null)
astream.Initialize(SerialNative, "aStream_newdata","aStream_Error")
astream.MaxBufferSize=1000
astream.WaitForMoreDataDelay=200
End Sub
private Sub aStream_NewData (Buffer() As Byte)
Log(Buffer)
End Sub
Public Sub Send(Data() as byte)
astream.Write(Data)
End Sub
#if C
void SerialNative2(B4R::Object* unused)
{
::Serial2.begin(9600, SERIAL_8N1, 19, 18);;//<--use pin 19/18 as RX/TX
b4r_modgps::_serialnative->wrappedStream = &::Serial2;
}
#End If