Für die kleinen Module SIM800L vom freundlichen Chinesen habe ich ein kleines Testprogramm das eine SMS " Hallo Welt" an ein bestimmten Empfänger sendet.
Beigefügt habe ich noch eine Schaltung zu diesem Modul.
Die Schaltung ist in eine Alarmanlage eingebaut, bei Auslösung wird mir eine SMS auf mein Smartphone gesendet.
Alles anzeigen
simm800L_2.jpgSIM800L.jpg
Beigefügt habe ich noch eine Schaltung zu diesem Modul.
Die Schaltung ist in eine Alarmanlage eingebaut, bei Auslösung wird mir eine SMS auf mein Smartphone gesendet.
BASCOM-Quellcode
- 'Demo-Programm für SIM800L HALLO WELT
- $regfile = "m8adef.dat"
- $crystal = 16000000
- $hwstack = 64
- $swstack = 64
- $framesize = 64
- $baud = 19200
- Dim Nummer As String * 15
- Waitms 500
- Print "at&f" : Wait 2 'Werkseinstellung Modem
- Print "AT+IPR=19200" ; Chr(13) : Wait 2 'Baudrate einstellen
- Print "AT+CMGF=1" ; Chr(13) : Wait 2 'auf TEXTMODUS stellen
- Config Pinb.0 = Input
- Portb.0 = 1
- Nummer = "01xxxxxxxxx" 'SMS-Empfänger
- Do
- If Pinb.0 = 0 Then
- Print "AT+cmgs=" ; Chr(34) ; Nummer ; Chr(34) ; Chr(13)
- Waitms 500
- Print "Hallo Welt" ; Chr(26)
- Wait 5
- End If
- Loop
Versuch macht klug !