Xwill
10.02.2009, 19:00
Probiere schon seit kurzer Zeit eine SMS mit einem S45 Handy aufzubauen und scheitere schon beim ersten Schritt, der Kommunikation.
Wenn ich "AT" schicke sollte doch das Handy ein "OK" zurückmelden!
Das Handy antwortet mit "AT". Wenn ich das ganze über ein Hyperterminal probiere,
meldet das Handy "OK". Auch andere AT-Befehle funktionieren.
Was mache ich falsch an meiner Kommunikation?
'SMS Aufbauen, mit Siemens S45i,9600
$regfile = "m16def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 9600
Config Lcd = 16 * 2
'Ddrd = &HFF
Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2 , E = Portb.6 , Rs = Portb.7
Config Lcdbus = 4
Dim S As String * 2
Cls
Wait 1
Config Serialin = Buffered , Size = 4
Enable Serial
Enable Interrupts
Echo Off
Print "AT"
Locate 1 , 1
Lcd "Sende: AT"
Wait 2
If Ischarwaiting() = 1 Then
Input S
Wait 2
Locate 2 , 1
Lcd "Antwort: " ; S ;
Wait 2
Else
Locate 1 , 10
Lcd "Error"
End If
End
Wenn ich "AT" schicke sollte doch das Handy ein "OK" zurückmelden!
Das Handy antwortet mit "AT". Wenn ich das ganze über ein Hyperterminal probiere,
meldet das Handy "OK". Auch andere AT-Befehle funktionieren.
Was mache ich falsch an meiner Kommunikation?
'SMS Aufbauen, mit Siemens S45i,9600
$regfile = "m16def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 9600
Config Lcd = 16 * 2
'Ddrd = &HFF
Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2 , E = Portb.6 , Rs = Portb.7
Config Lcdbus = 4
Dim S As String * 2
Cls
Wait 1
Config Serialin = Buffered , Size = 4
Enable Serial
Enable Interrupts
Echo Off
Print "AT"
Locate 1 , 1
Lcd "Sende: AT"
Wait 2
If Ischarwaiting() = 1 Then
Input S
Wait 2
Locate 2 , 1
Lcd "Antwort: " ; S ;
Wait 2
Else
Locate 1 , 10
Lcd "Error"
End If
End