GSM Modem probleme

[Guidobald]

Hallo

Ich hoffen jemand kann mir sagen was ich falsch mache. Ich will mit einem GSM Modem SMS verschicken. Senden geht auch alles ganz prima ich möchte nun aber gerne die Antwort des Modems auswerten. Ich habe den Großteil aus einem Buch abgeschrieben muss aber noch ein Fehler drinn sein es geht einfach noch nicht.

Vielen dank



$crystal = 4000000
$baud = 9600
$regfile "m16def.dat"


Declare Function Read_gsm(byval Mask As String) As Byte

Config Serialin = Buffered , Size = 40

Enable Interrupts

Dim Status As Byte


Config Porta = Output
Config Portc = Output






Toggle Porta.0 'GSM Modem einschalten
Waitms 1000
Toggle Porta.0




Do



Print "AT"

Status = Read_gsm( "OK")

If Status <> 0 Then



Portc.6 = 1
Wait 1
Portc.6 = 0

Else

Portc.7 = 1
Wait 1
Portc.7 = 0


End If

Wait 4


Loop
End


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

[Gento]

Welches 'Handy' benutz Du ?

In Deinem Buch ? ist von Siemens die Rede !

Gento

[Guidobald]

das modem ist das GM862 von Telit kann aber die gleichen AT-Befehle. Ich konnte das natürlich schon mit einer Hyperterminal testen.