GSM و ارتباط آن با AVR

[af-2012]

پاسخ : GSM و ارتباط آن با AVR

با سلام
دوستان من می خواهم یک گوشی نوکیا1200 رو به avr وصل کنم راهنمایی ام می کنید چگونه به میکرو وصلش کنم
با تشکر

[m.mirzaee]

پاسخ : GSM و ارتباط آن با AVR

سلام
سایت قبلی که پلود کرده بودم پاکش کرده
اینم برد جدیدم
قطعات همه روی قسمت مسی برد نصب میشه
ورودی ها همه سمت چپ ( ولتاژ ورودی 5 تا 40 ولت )
خروجی ها همه سمت راست ( پورت سریال و اسپیکر و میکروفون)
ال ای دی ها وسط برد هستند
یک جای دیگه پلود کردم >
http://rapidshare.com/files/2375529175/final%20SIM900.PCB
اینم عکسش
http://rapidshare.com/files/1920133339/Untitled.jpg

فایل هاش حذف شدن
میشه دوباره پ کنی
خیلی نیازمندم :cry:

[hamed053]

پاسخ : GSM و ارتباط آن با AVR

فایل هاش حذف شدن
میشه دوباره پ کنی
خیلی نیازمندم :cry:

خیلی نیازمندیم ^^
اگه میشه دوباره پ کن

[ali2590]

پاسخ : GSM و ارتباط آن با AVR

دوستان من یه سیم 900 از فروشگاه سایت گرفتم
با یه تغذیه مطمئن وصلش کردم همه کاری انجام میده باهاش تماس گرفنم و اس ام اس ارسال کردم
ولی هر کاری میکنم اس ام اس بهش نمیرسه
کسی تابحال این مورد رو داشته
ممنون میشم کمک کنین .

[ali2590]

پاسخ : GSM و ارتباط آن با AVR

یکی نیست جواب ما رو بده

[hadi_tu5]

پاسخ : GSM و ارتباط آن با AVR

سلام . به همه
من با مگا 32 و سیم 900 یه پروژه برای کنترل یک رله نوشتم .
این برنامه یک هفته کار میکرد . اما امروز سر حلقه استارت لوپ 2 ایستاد. خط 165 . به نظر شما عیب از میکرو که مثلا یهو دستور خط 159 رو اجرا نکرده باشه یا اینکه سیم 900 یادش رفته جواب بده ؟؟؟؟؟
متشکرم.

1. $regfile = "m32def.dat"

2. $crystal = 8000000
s

3. Config Lcd = 16 * 2
4. Config Lcdpin = Pin , Db7 = Porta.5 , Db6 = Porta.4 , Db5 = Porta.3 , _
5. Db4 = Porta.2 , E = Porta.1 , Rs = Porta.0

6. $baud = 9600

7. sleep mode disable

8. Enable Interrupts
9. Config Serialin = Buffered , Size = 64
10. Config Serialout = Buffered , Size = 64

11. Cursor Off

12. Config Porta = Output
13. Config Portc = Output
14. Config Pinc.4 = Input
15. Config Portd = Output

16. Dim Gps As Byte

17. '********************
18. Dim N16 As Byte
19. Dim N17 As Byte
20. Dim N18 As Byte
21. Dim N19 As Byte
22. Dim N20 As Byte
23. Dim N211 As Byte
24. Dim N222 As Byte
25. Dim N233 As Byte
26. Dim N24 As Byte
27. Dim N255 As Byte
28. Dim N26 As Byte
29. Dim N27 As Byte
30. Dim N28 As Byte

31. Dim A1 As String * 1
32. Dim A2 As String * 1
33. Dim A3 As String * 1
34. Dim A4 As String * 1
35. Dim A5 As String * 1
36. Dim A6 As String * 1
37. Dim A7 As String * 1
38. Dim A8 As String * 1
39. Dim A9 As String * 1
40. Dim A10 As String * 1
41. Dim A11 As String * 1
42. Dim A12 As String * 1
43. Dim A13 As String * 1
44. Dim A14 As String * 1
45. Dim A15 As String * 1
46. Dim A16 As String * 1
47. Dim A17 As String * 1
48. Dim A18 As String * 1
49. Dim A19 As String * 1
50. Dim A20 As String * 1

51. Dim A21 As String * 1
52. Dim N21 As Byte
53. Dim A22 As String * 1
54. Dim N22 As String * 1
55. Dim A23 As String * 1
56. Dim N23 As String * 1
57. Dim A24 As String * 1
58. Dim A25 As String * 1
59. Dim N25 As String * 1
60. Dim A26 As String * 1
61. Dim A27 As String * 1
62. Dim A28 As String * 1
63. Dim A29 As String * 1
64. Dim A30 As String * 1
65. Dim A31 As String * 1
66. Dim A32 As String * 1
67. Dim A33 As String * 1
68. Dim A34 As String * 1
69. Dim A35 As String * 1
70. Dim A36 As String * 1
71. Dim A37 As String * 1
72. Dim A38 As String * 1
73. Dim A39 As String * 1
74. Dim A40 As String * 1
75. Dim A41 As String * 1
76. Dim A42 As String * 1
77. Dim A43 As String * 1
78. Dim A44 As String * 1
79. Dim A45 As String * 1
80. Dim A46 As String * 1
81. Dim A47 As String * 1
82. Dim A48 As String * 1
83. Dim A49 As String * 1
84. Dim A50 As String * 1
85. Dim A51 As String * 1
86. Dim A52 As String * 1
87. Dim A53 As String * 1
88. Dim A54 As String * 1
89. Dim A55 As String * 1
90. Dim A56 As String * 1
91. Dim A57 As String * 1
92. Dim A58 As String * 1
93. Dim A59 As String * 1
94. Dim A60 As String * 1
95. Dim A61 As String * 1
96. Dim A62 As String * 1

97. Cls
98. Cls
99. Lcd "hadi"
100. Wait 3
101. Cls
102. '*********
103. Cls
104. Lcd "AT"
105. Print "AT"
106. Wait 1

107. Cls
108. Lcd "AT"
109. Print "AT"
110. Wait 1

111. Cls
112. Lcd "AT"
113. Print "AT"
114. Wait 1

115. Cls
116. Lcd "AT+CMGF=1"
117. Print "AT+CMGF=1"
118. Wait 1

119. Cls
120. Lcd "AT+CUSD="
121. Print "AT+CUSD=1"
122. Waitms 700

123. '*****************
124. Cmti:

125. Waitms 300
126. Print "AT+CMGDA=" ; Chr(34) ; "DEL ALL" ; Chr(34)
127. Wait 1

128. Cls
129. Lcd "I'm waiting for SMS"
130. '**********************************
131. 'Check Number Of SMS'
132. '**********************************
133. Do

134. Startloop1:

135. Gps = Waitkey()
136. If Gps <> "+" Then Goto Startloop1

137. Gps = Waitkey()
138. If Gps <> "C" Then Goto Startloop1

139. Gps = Waitkey()
140. If Gps <> "M" Then Goto Startloop1

141. Gps = Waitkey()
142. If Gps <> "T" Then Goto Startloop1

143. Gps = Waitkey()
144. If Gps <> "I" Then Goto Startloop1

145. Gps = Waitkey()
146. If Gps <> ":" Then Goto Startloop1

147. '***********************
148. A36 = Waitkey()
149. A37 = Waitkey()
150. A38 = Waitkey()
151. A39 = Waitkey()
152. A1 = Waitkey()
153. A2 = Waitkey()

154. A3 = Waitkey()

155. N21 = Val(a3)


156. Cls
157. Lcd "AT+CMGR=" ; N21

158. Waitms 700

159. Print "AT+CMGR=" ; N21

160. Goto Startloop2
161. Loop
162. '*********************
163. 'Get SMS'
164. '*********************
165. Startloop2:
166. Gps = Waitkey()
167. If Gps <> "+" Then Goto Startloop2

168. Gps = Waitkey()
169. If Gps <> "C" Then Goto Startloop2

170. Gps = Waitkey()
171. If Gps <> "M" Then Goto Startloop2

172. Gps = Waitkey()
173. If Gps <> "G" Then Goto Startloop2

174. Gps = Waitkey()
175. If Gps <> "R" Then Goto Startloop2

176. Gps = Waitkey()
177. If Gps <> ":" Then Goto Startloop2

178. '***********************
179. A1 = Waitkey()
180. A2 = Waitkey()
181. A3 = Waitkey()
182. A4 = Waitkey()
183. A5 = Waitkey()
184. A6 = Waitkey()
185. A7 = Waitkey()
186. A8 = Waitkey()
187. A9 = Waitkey()
188. A10 = Waitkey()
189. A11 = Waitkey()
190. A12 = Waitkey()
191. A13 = Waitkey()
192. A14 = Waitkey()
193. A15 = Waitkey()
194. A16 = Waitkey()
195. A17 = Waitkey()
196. A18 = Waitkey()
197. A19 = Waitkey()
198. A20 = Waitkey()
199. A21 = Waitkey()
200. A22 = Waitkey()
201. A23 = Waitkey()
202. A24 = Waitkey()
203. A25 = Waitkey()
204. A26 = Waitkey()
205. A27 = Waitkey()
206. A28 = Waitkey()
207. A29 = Waitkey()
208. A30 = Waitkey()
209. A31 = Waitkey()
210. A32 = Waitkey()
211. A33 = Waitkey()
212. A34 = Waitkey()
213. A35 = Waitkey()
214. A36 = Waitkey()
215. A37 = Waitkey()
216. A38 = Waitkey()
217. A39 = Waitkey()
218. A40 = Waitkey()
219. A41 = Waitkey()
220. A42 = Waitkey()
221. A43 = Waitkey()
222. A44 = Waitkey()
223. A45 = Waitkey()
224. A46 = Waitkey()
225. A47 = Waitkey()
226. A48 = Waitkey()
227. A49 = Waitkey()
228. A50 = Waitkey()
229. A51 = Waitkey()
230. A52 = Waitkey()
231. A53 = Waitkey()
232. A54 = Waitkey()
233. A55 = Waitkey()
234. A56 = Waitkey()
235. A57 = Waitkey()

236. A58 = Waitkey()
237. A59 = Waitkey()
238. A60 = Waitkey()
239. A61 = Waitkey()
240. A62 = Waitkey()
241. '*****************************
242. 'Massage Check'
243. '*****************************
244. Check:

245. If A58 <> "*" Then Goto Cmti

246. If A59 <> "L" Then Goto Cmti

247. If A60 <> "1" Then Goto Cmti

248. If A61 <> "O" Then Goto Cmti

249. If A62 <> "N" Then Goto Cmti

250. '********************************
251. 'Done'
252. '********************************
253. Set Portd.7
254. Waitms 600
255. Reset Portd.7
256. Set Portc.0
257. Waitms 600
258. Reset Portc.0

259. '*******************
260. Waitms 300
261. N19 = Val(a19)
262. N20 = Val(a20)
263. N211 = Val(a21)
264. N222 = Val(a22)
265. N233 = Val(a23)
266. N24 = Val(a24)
267. N255 = Val(a25)
268. N26 = Val(a26)
269. N27 = Val(a27)
270. N28 = Val(a28)

271. Print "AT+CMGS=" ; Chr(34) ; "0" ; N19 ; N20 ; N211 ; _
272. N222 ; N233 ; N24 ; N255 ; N26 ; N27 ; N28 ; Chr(34)
273. Waitms 200
274. Print "*** Done *** BY Hadi." ; Chr(26)
275. Wait 9

276. Goto Cmti
277. End
278. '**********************

[trrstrima]

پاسخ : GSM و ارتباط آن با AVR

چقد بیسیک سخته :angry:

[pouria71]

پاسخ : GSM و ارتباط آن با AVR

سلام
این بورد به دستم رسیده ، تقریبا کامله و فیش ورودی آداپتور داره ، پورت usb هم داره ولی چون ft232 روش نیست احتمالا غیر قابل استفادست

مشکل اینه که با نگه داشتن دکمه پاور net light روشن نمیشه
اگر sim900a سوخته باشه چجوری میشه تستش کرد ؟
حالا اگر سوخته باشه فقط ماژول روی بورد رو عوض کنم یا کلا بیخیال این بورد بشم؟

کسی میدونه این بورد ساخته کدوم شرکته ؟ نمونش رو ندیدم

[trrstrima]

پاسخ : GSM و ارتباط آن با AVR

سلام
این بورد به دستم رسیده ، تقریبا کامله و فیش ورودی آداپتور داره ، پورت usb هم داره ولی چون ft232 روش نیست احتمالا غیر قابل استفادست

مشکل اینه که با نگه داشتن دکمه پاور net light روشن نمیشه
اگر sim900a سوخته باشه چجوری میشه تستش کرد ؟
حالا اگر سوخته باشه فقط ماژول روی بورد رو عوض کنم یا کلا بیخیال این بورد بشم؟

کسی میدونه این بورد ساخته کدوم شرکته ؟ نمونش رو ندیدم

اولا بیا ببین خروجی اون 2576 اصلا چطوری به پایه ی vbat از ماژول وصله؟! اصلا وصله / یا قطعی هست توی مدار؟!
وقتی روشن میکنی پایه vbat رو ببین که 4.2 یا تو تو این حوالی ولتاژ هست روش؟
وقتی pwr رو میزنی جریان کشی مدار چه تغییری میکنه؟
این کارا رو بکن و بیا اینجا نتیجه رو بگو معلوم میشه چی شده! راجع به عوض کردن ماژول هم نگران نباش , میشه عوضش کرد

[pouria71]

پاسخ : GSM و ارتباط آن با AVR

آخرین باری که وصل کردم متفاوت بود با دفعات قبل و نا امیدم کرد
هم رگولاتور و هم sim900 هردو داغ میشن
vbat وصله ولتاژش هم 3.6 ولت
جریان مدار تا قبل این وضعیت 19 میلی امپر ثابت بود
الان شده حدود 600 میلی

[ali2590]

پاسخ : GSM و ارتباط آن با AVR

دوستان من ماژول سیم 900 رو راه اتدازی کردم برای دریافت اس ام اس و نمایش ان روی ال سی دی .
برنامه رو طوری نوشتم که با هر بار خوندن اس ام اس تمامی مسیجها پاک بشن
و مشکل اینه که پیام اول رو درست نمایش میده ولی برای نمایش پیام دوم تمامی محتویات پیام ارسالی از جمله زمان پیام و ... رو روی ال سی دی نمایش میده پیام سوم درست میشه چهارمی دوباره خراب و ...
اینم متن برنامه :

$regfile = "m8def.dat"
$crystal = 1000000
$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 A As String * 250 : A = ""
Dim B As Byte
Dim G As Byte


Cursor Off
Wait 3
Set Portc.5
Wait 1
Reset Portc.5
Cls
Locate 1 , 5
Lcd "GSM ON"
Wait 5


Hom:
Cls
Print "AT+CMGD=1,4"
Wait 2
Cls
Locate 1 , 4
Lcd "Delete Sms"
Wait 2
Cls
Locate 1 , 4
Lcd "Waiting Sms"

Do
If Pinc.4 = 0 Then Exit Do
Loop
Wait 3

Do
Print "AT+CMGR=1"
A = ""
G = 0
Do
B = Inkey()
Select Case B
Case 0:
Case 13:
Incr G
If A <> "" Then
Exit Do
End If
Case 10:
If A <> "" Then
Exit Do
End If
Case Else
If G = 3 Then
A = A + Chr(b)
End If
End Select
Loop

Locate 2 , 1
Lcd A
Wait 5
goto hom

[trrstrima]

پاسخ : GSM و ارتباط آن با AVR

آخرین باری که وصل کردم متفاوت بود با دفعات قبل و نا امیدم کرد
هم رگولاتور و هم sim900 هردو داغ میشن
vbat وصله ولتاژش هم 3.6 ولت
جریان مدار تا قبل این وضعیت 19 میلی امپر ثابت بود
الان شده حدود 600 میلی

من احتمال خیلی زیاد میدم که ماژول رو سوزوندی :angry: :cry2:
من هر وقت یه سیم900 میسوزونم دلم میخاد از پنجره بپرم وسط خیابون ... ناراحت نباش دوست من , بقای عمر بقیه سیم900 هات...

[pouria71]

پاسخ : GSM و ارتباط آن با AVR

بورد مشابه همین هست که همچیش ردیف باشه مثل تغذیه ماژول و خروجی txd و rxd داشته باشه ؟ (بدون نیاز به کل کل با مازول)
بورد های فروشگاه سایت اینطور نیستن یا خیلی پایینترن یا خیلی بالاتر

[ali2590]

پاسخ : GSM و ارتباط آن با AVR

یکی نیست جواب مارو بده

[ali2590]

پاسخ : GSM و ارتباط آن با AVR

دوستان من یک برنامه برای دریافت و نمایش روی ال سی دی نوشتم که در مقابل پیامک خالی هنگ میکنه

چطور میتونم بوسیله فرمان AT+CNMI مسیجای روی حافظه سیم رو بخونم
ممنون میشم دوستان جواب بده متن برنامه رو بالا (توی چند پست قبل) گذاشتم.