سلام دوستان
می خوام در این تاپیک کاملا راجع به SIM908 بحث کنم :
خودم شروع می کنم :read:
من یک برد راه انداز از فروشگاه سایت گرفتم
با ATMEGA8 شروع کردم و براش یه برنامه نوشتم
حالا برنامه و شماتیک رو براتون می زارم دوستان مشکل رو پیدا کنند
وقتی مدار روشن میشه فقط چراغ Power ماژول روشن میشه و وقتی پایه PowerKey رو به زمین وصل می کنم NetLight نامنظم چشمک کی زنه
بعد از چند ثانیه اگه PowerKey رو از زمین قطع کنم NetLight خاموش میشه و فقط چراغ Power روشن میمونه
تغذیه 4.2 ولت 3 آمپره (پاور کامپیوتر) دارم دیوونه میشم
:cry2:
برنامه :
می خوام در این تاپیک کاملا راجع به SIM908 بحث کنم :
خودم شروع می کنم :read:
من یک برد راه انداز از فروشگاه سایت گرفتم
با ATMEGA8 شروع کردم و براش یه برنامه نوشتم
حالا برنامه و شماتیک رو براتون می زارم دوستان مشکل رو پیدا کنند
وقتی مدار روشن میشه فقط چراغ Power ماژول روشن میشه و وقتی پایه PowerKey رو به زمین وصل می کنم NetLight نامنظم چشمک کی زنه
بعد از چند ثانیه اگه PowerKey رو از زمین قطع کنم NetLight خاموش میشه و فقط چراغ Power روشن میمونه
تغذیه 4.2 ولت 3 آمپره (پاور کامپیوتر) دارم دیوونه میشم
:cry2:برنامه :
کد:
$regfile = "m8adef.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.5 , E = Portb.4 , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3
Config Pinc.5 = Output
Config Pinc.4 = Input
Config Pinc.3 = Output
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
Cursor Off
Wait 3
Set Portc.5
Waitms 60
Reset Portc.5
Cls
Locate 1 , 1
Lcd "GSM ON"
$prog &HFF , &HE1 , &HD9 , &H00 ' generated. Take care that the chip supports all fuse bytes.
Wait 5
Hom:
Print "AT+CMGD=0,4"
Waitms 500
Cls
Locate 1 , 1
Lcd "Delete Sms"
Waitms 500
Cls
Locate 1 , 1
Lcd "Waiting Sms"
Do
If Pinc.4 = 0 Then Exit Do
Loop
Cls
Waitms 100
Do
Sho:
Print "AT+CMGR=1"
Sms = ""
Incr X
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
If X = 1 Then Goto Sho
X = 0
Gosub Sss
Locate 1 , 1
Lcd Tmp
Locate 1 , 15
Lcd Tedad
If Tedad = 14 Then
If Tmp = "+98910*******" Then
Waitms 200
Locate 2 , 1
Lcd "Correct Password"
R = 1
Waitms 500
Exit Do
End If
If Tmp <> "+98910*******" Then
Waitms 200
Locate 2 , 1
Lcd "Invalid Password"
Waitms 500
Exit Do
End If
End If
Loop
If R = 1 Then
Set Portc.3
Waitms 30
Reset Portc.3
R = 0
Waitms 50
End If
Goto Hom
End
Sss:
Shoro = Instr(sms , "+98")
Payan = Instr(shoro , Sms , "," )
Tool = 13
Tedad = Payan - Shoro
Tmp = Mid(sms , Shoro , Tool)
Tmp = Ltrim(tmp)
Tmp = Rtrim(tmp)
Return
دیدگاه