mam mały problem z modułem SIM800 (działa prawidłowo z terminalem)
napisałem taki program do wysyłania i odbierania sms-ów , cześć odpowiedzialna za wysyłanie działa tylko z odbiorczą mam problem
chodź tutaj jak podłącze FT232 pomiędzy prockiem, a modułem i wyślę komendę z terminala to procesor obierze prawidłowo komendę i wyśle sms-a
[syntax=basic4gl]'informacja że nadszedł nowy sms o numerze 23 +CMTI: "SM",23
'polecenie o odebraniu sms o numerze 23 at+cmgr=23
'odebrany sms +CMGR: "REC READ","+48","","17/03/25,17:04:26+04" STATUS
$regfile = "m644pdef.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 32
$framesize = 128
$baud = 19200
Config Serialin = Buffered , Size = 128
Enable Interrupts
Echo Off
Dim Rx_cmd As Byte , Ric As Byte
Dim Command As String * 254 , Ioval_prec As String * 21 , Cmdsend As String * 21 ,
Dim Temp_sms As String * 15 , Nr_sms As String * 2 , Temp_command As String * 100
Dim Ramka As String * 254
Dim Komunikat As String * 100
Dim Numer_telefonu As String * 9
Declare Sub Receive_sms_message
Waitms 250
Command = ""
Ric = 0
Rx_cmd = 0
'Do
' Rx_cmd = Ischarwaiting()
' If Rx_cmd = 1 Then
' Rx_cmd = Waitkey()
' Ric = 1
' Command = Command + Chr(rx_cmd)
' Waitms 1
' Else
' If Ric = 1 Then
' Ric = 0
' If Mid(command , 1 , 5) = "IOCHK" Then
' Waitms 250
' Print "TNN" ; Chr(13)
' Waitms 1
' End If
' Command = ""
' End If
' End If
'Loop
Command = ""
Ric = 0
Rx_cmd = 0
Print "AT" ; Chr(13) '
Waitms 100
Print "AT+CMGF=1" ; Chr(13)
Waitms 100
Print "AT+CMGD=" ; 20
Wait 2
Do
Call Receive_sms_message
Loop
Sub Receive_sms_message
Rx_cmd = Ischarwaiting()
If Rx_cmd = 1 Then
Rx_cmd = Waitkey()
Ric = 1
Command = Command + Chr(rx_cmd)
Waitms 500
Else
If Ric = 1 Then
Ric = 0
Temp_sms = Mid(command , 2 , 4)
Print Temp_sms
If Temp_sms = "CMTI" Then
Nr_sms = Mid(command , 13 , 2) 'sprawdza czy jest nowy sms +CMTI: "SM",23
Print "AT+CMGF=1" ; Chr(13)
Print "AT+CMGR=" ; Nr_sms ; Chr(13)
'
Elseif Temp_sms = "CMGR" Then 'działa z terminala
Waitms 25
Print Command
Temp_command = Mid(command , 61 , 6) '36 na innym terminalu odczyt sms w tym przypadku"STATUS"
If Temp_command = "STATUS" Then
Komunikat = "JEZELI WIDZISZ TEGO SMS TO ZNACZY,ZE DZIALA odbior sms-a i nadawanie"
Numer_telefonu = "123456789"
Print "AT" ; Chr(13) '
Waitms 100
Print "AT+CMGF=1" ; Chr(13)
Waitms 100
Print "AT+CMGS=" ; Chr(34) ; Numer_telefonu ; Chr(34) ; Chr(13)
Waitms 100
Print Komunikat ; Chr(26) ; Chr(26) ; Chr(26)
Waitms 100
End If
Waitms 1
End If
Command = ""
Print "AT+CMGD=" ; Nr_sms 'kasowaie sms-a
End If
End If
End Sub[/syntax]
więc chcąc sprawdzić czy moduł SIM800 działa prawidłowo czy wysyła do procesora dane by ten je mógł przetworzyć wgrałem mu krótki program
[syntax=basic4gl]$regfile = "m644pdef.dat"
$crystal = 16000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Echo Off
'first compile and run this program with the line below remarked
Config Serialin = Buffered , Size = 200 , Bytematch = 65
'when BYTEMATCH=ALL is used the label called is Serial0ByteReceived
Dim Nm As String * 100
Dim Odczyt As String * 100
'the enabling of interrupts is not needed for the normal serial mode
'So the line below must be remarked to for the first test
Enable Interrupts
Print "AT" ; Chr(13);
Do
'get a char from the UART
If Ischarwaiting() = 1 Then 'was there a char?
Nm = Inkey()
Print Nm ;
'print it
End If
'wait 1 second
Loop
'when the specified byte is received the following label is called
'in this case A is checked
Serial0charmatch:
Return[/syntax]Statystyki: Napisane przez slawek3000 — 16 kwi 2017, o 09:46
]]>