Sub Process_Globals
Public Serial1 As Serial
Type TestC(A1 As String,A2 As Byte)
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
Dim x As TestC
RunNative("test",x)
Log(x.a1,",",x.a2)
End Sub
#if C
String s;
void test(B4R::Object* o)
{
_testc *tmp;
tmp=o->data.PointerField;
s=String("Hello World!");
tmp->A1->data=s.c_str();
tmp->A2=33;
}
#End If