Hallo

Ich find den Fehler nicht
Ich habe ein Handy angeschlossen die Verbindung ist OK getestet mit anderes Softwahre
Nun will ich die Antwort verarbeiten ob ein OK kommt oder nicht.
Es kommt 100% von Telefon ein OK zeigt aber immer nur „no ready“ und Wiederholt den Vorgang was mir nicht ganz klar ist.

Danke für eure Hilfe

################################################## ####################


Config Serialin = Buffered , Size = 40
Enable Interrupts

Declare Function Read_gsm(byval Mask As String) As Byte
Dim Status As Byte

Wait 1

Print "AT"

Waitms 50

Status = Read_gsm( "OK")

If Status <> 0 Then

Cls

Lcd " ready "

Wait 1

Else

Lcd " no ready"

End If


Do


Loop



Function Read_gsm(byval Mask As String) As Byte
Local In$ As String * 20
Local C As Byte

In$ = ""
Wait 1
While Ischarwaiting() <> 0
C = Inkey()
In$ = In$ + Chr(c)
Wend
Read_gsm = Instr(in$ , Mask)
End Function