PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Probleme mit Declare Function



dasnetzwerk
21.08.2008, 18:38
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

linux_80
21.08.2008, 18:58
Hallo,

bitte Codeteile immer mit <code> einfassen (Button oberhalb des Textfeldes), damits schöner aussieht !

Evtl. muss Du die Stacks vergrössern, denn bei so langen Strings wirds schon eng, und der AVR macht komische Sachen.
Bedeutet $swstack, $framesize mal erhöhen.
Da gibts auch 'ne Seite im Wiki dazu:
https://www.roboternetz.de/wissen/index.php/Bascom_Inside

dasnetzwerk
21.08.2008, 19:07
ja das war es danke für die hilfe nun geht es