B4J Question 3g usb modem and AT commands

Sub Process_Globals

    Private sp As Serial
    Private ast As AsyncStreamsText   

End Sub

Sub AppStart (Form1 As Form, Args() As String)

    sp.SetParams(115200,8,1,0)    ' Set speed, etc.
    ast.Initialize(Me, "ast", sp.GetInputStream, sp.GetOutputStream)
    
End Sub

Sub ast_NewText(Text As String)
    
    Log (Text)    ' Process received string here

End Sub

Sub btnAT_Click

   ast.Write("AT..." & Chr(10) & Chr(13))    ' Send AT command as a string here

End Sub