سلام دوستان :bye
دوستان من ماژول sim900 رو به avr وصل کردم باهاش ارتباط برقرار میکنم اما زمانیکه اس ام اس میدم . بجای اینکه متن اس ام اس رو برام نشون بده این متنو نشون میده
CMTI: "SM",1+
و همینطور بازم اس ام اس میفرستم همین متن منتها به او عدد 1 اضافه میشه
اینم برنامم
$regfile = "m64def.dat"
$crystal = 8000000
$baud = 9600
$lib "glcd.lib"
Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Porta , Wr = 7 , Rd = 6 , Ce = 5 , Cd = 4 , Reset = 3 , Fs = 2 , Mode = 8
Dim R As Bit : R = 0
Dim X As Byte : X = 0
Dim B As Byte
Dim Shoro As Integer
Dim Payan As Integer
Dim Tool As Integer
Dim Tedad As Integer
Dim Sms As String * 250 : Sms = ""
Dim Tmp As String * 20
Dim A As Bit
Dim G As Byte
Config Pind.0 = Output
Cls
Wait 3
Set Portb.3
Wait 4
Reset Portb.3
Waitms 20
Locate 5 , 5
Lcd "GSM ON"
Wait 5
Print "AT+CMGD=0,4"
Waitms 500
Cls
Print "AT"
Print "AT"
Print "AT"
Do
' Print "AT"
' Print "AT"
Print "AT+CMGR=1"
Sms = ""
Do
B = Inkey()
Select Case B
Case 0:
Case 13 :
If Sms <> "" Then Exit Do
Case 10 :
If Sms <> "" Then Exit Do
Case Else
Sms = Sms + Chr(b)
End Select
Loop
' cls
Locate 1 , 1
' Cls
Lcd Sms
Loop
End
دوستان من ماژول sim900 رو به avr وصل کردم باهاش ارتباط برقرار میکنم اما زمانیکه اس ام اس میدم . بجای اینکه متن اس ام اس رو برام نشون بده این متنو نشون میده
CMTI: "SM",1+
و همینطور بازم اس ام اس میفرستم همین متن منتها به او عدد 1 اضافه میشه
اینم برنامم
$regfile = "m64def.dat"
$crystal = 8000000
$baud = 9600
$lib "glcd.lib"
Config Graphlcd = 240 * 128 , Dataport = Portc , Controlport = Porta , Wr = 7 , Rd = 6 , Ce = 5 , Cd = 4 , Reset = 3 , Fs = 2 , Mode = 8
Dim R As Bit : R = 0
Dim X As Byte : X = 0
Dim B As Byte
Dim Shoro As Integer
Dim Payan As Integer
Dim Tool As Integer
Dim Tedad As Integer
Dim Sms As String * 250 : Sms = ""
Dim Tmp As String * 20
Dim A As Bit
Dim G As Byte
Config Pind.0 = Output
Cls
Wait 3
Set Portb.3
Wait 4
Reset Portb.3
Waitms 20
Locate 5 , 5
Lcd "GSM ON"
Wait 5
Print "AT+CMGD=0,4"
Waitms 500
Cls
Print "AT"
Print "AT"
Print "AT"
Do
' Print "AT"
' Print "AT"
Print "AT+CMGR=1"
Sms = ""
Do
B = Inkey()
Select Case B
Case 0:
Case 13 :
If Sms <> "" Then Exit Do
Case 10 :
If Sms <> "" Then Exit Do
Case Else
Sms = Sms + Chr(b)
End Select
Loop
' cls
Locate 1 , 1
' Cls
Lcd Sms
Loop
End
دیدگاه