Probleme mit Declare Function
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
