نمونه برنامه های sim 908

[havash]

سلام دوستان
به نظرم چیزی که توی این انجمن جاش خالی مونده نمونه برنامه های راه اندازی برد و ماژول sim 908 که باید یک نمه بیشتر روش کار کنیم
برنامه هایی برای راه اندازی قسمت جی اس ام و جی پی اس
و معرفی کدهای سریال مهم این ماژول
جایی توی انجمن راه اندازیش با برنامه کامپیوتری رو دیدم
بدون شک مورد استفاده برنامه نویسا و طراحا استفاده مستقیم از کامپیوتر نیست .
برای مثال یکی از برنامه ها میتونه ساخت گوشی همراه باشه . البته با توجه به آداپتور مورد نیاز نمیشه موبایل رو ساخت اما برنامش رو داشته باشیم میتونه برای استفاده کردن توی مدارهای دیگه برامون کاربرد داشته باشه .
نمونه برنامه های برای میکرو AVR به زبان بسکام و کدویژن
من خودم با بسکام کار میکنم .

[havash]

پاسخ : نمونه برنامه های sim 908

سلام دوستان
برنامه ای که قبلا برای sim 900 نوشته شده بود رو امتحان کردم کدهای به نظرم تفاوتی نداشتن با سیم 908
اما مدار کار نکرد .
کد برنامه بسکام :

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~
Dim Shoro As Byte
Dim Payan As Byte
Dim Tool As Byte
Dim Tedad As Byte
Dim A As Byte : A = 0
Dim Aa As String * 1 : Aa = ""
Dim Cid As String * 25 : Cid = ""
Dim Tmp As String * 15 : Tmp = ""
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~
Config Pinc.5 = Output
Config Pinc.3 = Output
Config Pinc.0 = Output
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4
Config Lcd = 16 * 2
Cursor Off
Cls
Lcd "arash"
Waitms 100

Cls
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~
Print "AT"
Wait 2
Print "AT+CLIP=1"
Wait 2
Cls
On Urxc Serial_int
Enable Urxc
Enable Interrupts
Do
Waitms 800
Loop
End
Serial_int:
Cls
Lcd "gooooooooood 1"
Wait 10
A = 0
Aa = ""
Cid = ""
Do
Inputbin , A
Select Case A
Case 0:
Case 13:
Exit Do
Case Else
Aa = Chr(a)
Cid = Cid + Aa
End Select
Loop
Gosub Sss
Locate 1 , 1 : Lcd Tmp
If Tmp = "+989152871816" Or Tmp = "9151432660" Then
Locate 1 , 16 : Lcd "1"
Cls
Lcd "yes"
Locate 2 , 1
Lcd Tmp
Wait 10
Locate 2 , 1 : Lcd "Opening Door..."
Wait 1
Set Portc.3
Set Portc.0
Waitms 120
Reset Portc.3
Reset Portc.0
Wait 1
Locate 1 , 16 : Lcd "0"
Locate 2 , 1 : Lcd " "
Else
Cls
Lcd "no"
Locate 2 , 1
Lcd Tmp
Wait 10
End If
Return
Sss:
Shoro = Instr(cid , "+98&quot
Payan = Instr(shoro , Cid , ",&quot
Tool = 13
Tedad = Payan - Shoro
Tmp = Mid(cid , Shoro , Tool)
Tmp = Ltrim(tmp)
Tmp = Rtrim(tmp)
Return

پایه شماره 68 سیم رو به پایه 3 میکرو مگا هشت و پایه 71 رو به پایه 2 میکرو مگا هشت اتصال دادم
و زمین دو تا مدار رو به هم اتصال دادم
اما جواب نگرفتم
به نظرتون اشکال کار کجاست ؟

[radpour]

پاسخ : نمونه برنامه های sim 908

دوست عزیز مهمترین قسمت AT Comand هستش اونا رو باید مطابق Sim908 بدی :nerd:

[fhgb]

پاسخ : نمونه برنامه های sim 908

سلام بچه ها ...

کسی یه برنامه توپ و کامل که صد در صد عملی هم باشه نداره بذاره اینجا برای ما تازه کارا ؟؟؟

ممنون میشم...