gesamtplan
11.11.2007, 12:15
Hallo zusammen,
spiele seit ein paar Tagen daran rum mein altes ME45 mit einem Atmega16 Testboard (KreativesChaosBoard) zur Kommunikation zu bewegen und habs jetzt endlich hinbekommen. Ziel war es bei einer bestimmten SMS am Controller was auszulösen (hier: LED blinken).
Da ich nix fertiges zu diesem Thema gefunden habe will ich es meinen Nachfolgern etwas leichter machen. Deshalb gibts hier den Code zum nachlesen. Ich hoffe irgendwer kann damit was anfangen und es ist einigermaßen verständlich. Verbesserungsvorschläge nehme ich natürlich gerne an.
Grüße
Gesamtplan
'SMSUNREAD6.BAS: PDU SMS auslesen
'Empfang von Siemens ME45
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 38400
'LCD Config
Config Lcd = 40 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.0 , Rs = Portc.1
Config Lcdbus = 4
Config Lcdmode = Port
Initlcd
Cls
Cursor Off
Dim Cmgl As String * 106 'cmgl String
Dim Sms As String * 58 'reiner SMS String
Dim Led As Bit
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Config Pinb.3 = Output
Led Alias Portb.3
Smsreadroutine: 'Routine zum Einlesen des SMS strings
Print "at+cmgl=0" ; Chr(13) 'Neue SMS da?
Waitms 100
If Len(cmgl) > 105 Then 'Stringpolling
Sms = Mid(cmgl , 12 , 70) 'SMS auslesen
Cmgl = "" 'String cmgl leeren
End If
Locate 1 , 1
Lcd Sms 'Ausgabe String auf Display
If Sms = "Hier SMS Empfangsstring eintragen (PDU-Mode)"then
Led = 0
Else
Led = 1
End If
Locate 2 , 1 'Anzeige zum debuggen
Lcd "Laenge von Cmgl = " ; Len(cmgl) ; " Zeichen " ; Len(sms)
Goto Smsreadroutine
'UART Interrupt
Onrxd:
If Asc(udr) = 58 Then 'Doppelpunkt(58) abrufen wenn at+cmgl=0 neue Nachricht
Cmgl = "" 'Cmgl wieder leeren
Else
Cmgl = Cmgl + Chr(udr)
End If
Return
'Sms Aktion:
'Sms Loeschen:
spiele seit ein paar Tagen daran rum mein altes ME45 mit einem Atmega16 Testboard (KreativesChaosBoard) zur Kommunikation zu bewegen und habs jetzt endlich hinbekommen. Ziel war es bei einer bestimmten SMS am Controller was auszulösen (hier: LED blinken).
Da ich nix fertiges zu diesem Thema gefunden habe will ich es meinen Nachfolgern etwas leichter machen. Deshalb gibts hier den Code zum nachlesen. Ich hoffe irgendwer kann damit was anfangen und es ist einigermaßen verständlich. Verbesserungsvorschläge nehme ich natürlich gerne an.
Grüße
Gesamtplan
'SMSUNREAD6.BAS: PDU SMS auslesen
'Empfang von Siemens ME45
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 38400
'LCD Config
Config Lcd = 40 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.0 , Rs = Portc.1
Config Lcdbus = 4
Config Lcdmode = Port
Initlcd
Cls
Cursor Off
Dim Cmgl As String * 106 'cmgl String
Dim Sms As String * 58 'reiner SMS String
Dim Led As Bit
On Urxc Onrxd
Enable Urxc
Enable Interrupts
Config Pinb.3 = Output
Led Alias Portb.3
Smsreadroutine: 'Routine zum Einlesen des SMS strings
Print "at+cmgl=0" ; Chr(13) 'Neue SMS da?
Waitms 100
If Len(cmgl) > 105 Then 'Stringpolling
Sms = Mid(cmgl , 12 , 70) 'SMS auslesen
Cmgl = "" 'String cmgl leeren
End If
Locate 1 , 1
Lcd Sms 'Ausgabe String auf Display
If Sms = "Hier SMS Empfangsstring eintragen (PDU-Mode)"then
Led = 0
Else
Led = 1
End If
Locate 2 , 1 'Anzeige zum debuggen
Lcd "Laenge von Cmgl = " ; Len(cmgl) ; " Zeichen " ; Len(sms)
Goto Smsreadroutine
'UART Interrupt
Onrxd:
If Asc(udr) = 58 Then 'Doppelpunkt(58) abrufen wenn at+cmgl=0 neue Nachricht
Cmgl = "" 'Cmgl wieder leeren
Else
Cmgl = Cmgl + Chr(udr)
End If
Return
'Sms Aktion:
'Sms Loeschen: