اطلاعیه

Collapse
No announcement yet.

ارسال sms با sim900

Collapse
X
Collapse
 
  • صفحه of 1
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی template بعدی
    #1

    ارسال sms با sim900

    سلام
    من دیروز یک ماژول sim900 ماله eca رو خریدم
    هر کاری کردم نتونستم باهاشsms بفرستم اینم برنامش
    $regfile = "m32def.dat"
    $crystal = 8000000
    $baud = 9600
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Porta.1 , Db5 = Porta.2 , Db6 = Porta.3 , Db7 = Porta.4 , E = Portb.2 , Rs = Portb.3
    Config Pina.0 = Input
    Config Pinc.5 = Output
    Dim Sms As String * 250 : Sms = ""
    Cursor Off
    Wait 3
    Set Portc.5
    Waitms 60
    Reset Portc.5
    Cls
    Locate 1 , 1
    Lcd "GSM ON"
    Wait 5
    Print "AT+CMGD=0,4"
    Waitms 500
    Cls
    Locate 1 , 1
    Lcd "Delete Sms"
    Waitms 500
    do
    If Pina.0 = 1 Then
    Goto Send
    End If
    loop
    Send:
    Cls
    Lcd "sending sms"
    Print "AT"
    Waitms 500
    Print "AT+CMGF=1"
    Waitms 500
    Print "AT+CMGS=" ; Chr(34) ; "0912......." ; Chr(34)
    Waitms 500
    Print "good" ; Chr(26)
    Waitms 600
    End
    لطفا کمکم کنید
    یک سوال دیگه هم داشتم led های روی ماژول به چه صورته.
    برچسب ها: ارسال, sim900, sms, با
    #2
    پاسخ : ارسال sms با sim900

    کسی نیست کمک کنه ؟
    نیازش دارم.
    :angry: :cry2:

    دیدگاه

      #3
      پاسخ : ارسال sms با sim900

      نوشته اصلی توسط babak_micro
      سلام
      من دیروز یک ماژول sim900 ماله eca رو خریدم
      هر کاری کردم نتونستم باهاشsms بفرستم اینم برنامش
      $regfile = "m32def.dat"
      $crystal = 8000000
      $baud = 9600
      Config Lcd = 16 * 2
      Config Lcdpin = Pin , Db4 = Porta.1 , Db5 = Porta.2 , Db6 = Porta.3 , Db7 = Porta.4 , E = Portb.2 , Rs = Portb.3
      Config Pina.0 = Input
      Config Pinc.5 = Output
      Dim Sms As String * 250 : Sms = ""
      Cursor Off
      Wait 3
      Set Portc.5
      Waitms 60
      Reset Portc.5
      Cls
      Locate 1 , 1
      Lcd "GSM ON"
      Wait 5
      Print "AT+CMGD=0,4"
      Waitms 500
      Cls
      Locate 1 , 1
      Lcd "Delete Sms"
      Waitms 500
      do
      If Pina.0 = 1 Then
      Goto Send
      End If
      loop
      Send:
      Cls
      Lcd "sending sms"
      Print "AT"
      Waitms 500
      Print "AT+CMGF=1"
      Waitms 500
      Print "AT+CMGS=" ; Chr(34) ; "0912......." ; Chr(34)
      Waitms 500
      Print "good" ; Chr(26)
      Waitms 600
      End
      لطفا کمکم کنید
      یک سوال دیگه هم داشتم led های روی ماژول به چه صورته.
      یک سوال دیگه هم داشتم شماره ی شخصی رو که بهش ارسال می کنیم باید به همون شکل نوشته شه.

      دیدگاه

        #4
        پاسخ : ارسال sms با sim900

        نوشته اصلی توسط babak_micro
        کسی نیست کمک کنه ؟
        نیازش دارم.
        :angry: :cry2:
        سلام بابک جان
        منم این ماژول رو خریدم . ولی میخوام با c راش بندارم .
        ماژول رو چطوری به میکرو وصل کردین ؟ میشه شماتیک بزارین ؟

        دیدگاه

          #5
          پاسخ : ارسال sms با sim900

          نوشته اصلی توسط کیوان قاسمی
          سلام بابک جان
          منم این ماژول رو خریدم . ولی میخوام با c راش بندارم .
          ماژول رو چطوری به میکرو وصل کردین ؟ میشه شماتیک بزارین ؟
          سلام
          شما همین ماژول فروشگاه رو دارید دیگه
          باید پایه های txd و rxd رو که به ترتیب پایه های 9و 10 ماژول میشه به rxdوtxd میکرو وصل کنید
          gnd به زمین و اکه می خواین ماژول رو تو برنامه روشن کنید پایه یک رو به میکرو وصل کنید واگه نه فکر می کنم باید vbat رو به تغذیه وصل کنید
          تغذیه ماژول بین 3.1 تا 4.8هست.

          دیدگاه

            #6
            پاسخ : ارسال sms با sim900

            نوشته اصلی توسط babak_micro
            سلام
            شما همین ماژول فروشگاه رو دارید دیگه
            باید پایه های txd و rxd رو که به ترتیب پایه های 9و 10 ماژول میشه به rxdوtxd میکرو وصل کنید
            gnd به زمین و اکه می خواین ماژول رو تو برنامه روشن کنید پایه یک رو به میکرو وصل کنید واگه نه فکر می کنم باید vbat رو به تغذیه وصل کنید
            تغذیه ماژول بین 3.1 تا 4.8هست.
            سلام
            بله همین ماژول رو از eca خریدم ولی نمیدونستم باید چیکارش کنم ائن pdf راهنماش هم خیلی زیاد بودو انگلیسی حوصلم نگرفته بود...

            پس با همین 4 پایه راه میوفته ؟ خوب یک کاری کن واسه راه اندازیش. بزن به rs232 کامپیوترت بعد از توی هایپر ترمینال دستورای at رو بهش بده ببین جواب میده ؟

            دیدگاه

              #7
              پاسخ : ارسال sms با sim900

              الان به max232 دسترسی ندارم
              شما راه دیگه ای دارید. :question:

              دیدگاه

                #8
                پاسخ : ارسال sms با sim900

                نوشته اصلی توسط babak_micro
                الان به max232 دسترسی ندارم
                شما راه دیگه ای دارید. :question:
                سلام
                یهترین روشی که به ذهنم میرسه همینه . من قبلا با gsm modem و با C#.net یک برنامه ازسال اس ام اس نوشتم . چون هایپر مقدار برگشت رو از روی ماژول به راحتی واسه ما نشون میده . ما میتونیم از درس بودن کدهای at اطمینان حاصل کنیم. بعد که جواب گرفتیم همون دستورا رو باید با میکرو به ماژول بفرستیم و ماژول هم باید همون پاسخ هایی که به هایپر برمیگردونه رو به میکرو برگردونه...الان مسافرتم . برگردم با توجه به پایه هایی که شما گفتین چک میکنم ببینم جواب میده...
                در یکی از پست ها یکی از بچه ها یک pdf خوبی واسم گذاشت ، پیداش میکنم واست میزارم
                ----
                یک سوال : بقیه پایه های ماژول چه به دردمون میخوره ؟ میشه از gprs هم استفاده کرد ؟ شما همون pdf که توی قسمت فروشگاه گذاشتن رو مطالعه کردین واسه راه اندازی؟

                دیدگاه

                  #9
                  پاسخ : ارسال sms با sim900

                  نوشته اصلی توسط کیوان قاسمی
                  سلام
                  یهترین روشی که به ذهنم میرسه همینه . من قبلا با gsm modem و با C#.net یک برنامه ازسال اس ام اس نوشتم . چون هایپر مقدار برگشت رو از روی ماژول به راحتی واسه ما نشون میده . ما میتونیم از درس بودن کدهای at اطمینان حاصل کنیم. بعد که جواب گرفتیم همون دستورا رو باید با میکرو به ماژول بفرستیم و ماژول هم باید همون پاسخ هایی که به هایپر برمیگردونه رو به میکرو برگردونه...الان مسافرتم . برگردم با توجه به پایه هایی که شما گفتین چک میکنم ببینم جواب میده...
                  در یکی از پست ها یکی از بچه ها یک pdf خوبی واسم گذاشت ، پیداش میکنم واست میزارم
                  ----
                  یک سوال : بقیه پایه های ماژول چه به دردمون میخوره ؟ میشه از gprs هم استفاده کرد ؟ شما همون pdf که توی قسمت فروشگاه گذاشتن رو مطالعه کردین واسه راه اندازی؟
                  والا من که الان ماژولم سوخته (یعنی فکر میکنم که سوخته)باید برم دوباره ماژول رو بخرم .بقیه ی پایه ها که چند تاش واسه اتصال کیبرد چندتا واسه میکروفن و speaker هست و اتصال مستقیم ماژول به lcd.

                  دیدگاه

                    #10
                    پاسخ : ارسال sms با sim900

                    نوشته اصلی توسط babak_micro
                    والا من که الان ماژولم سوخته (یعنی فکر میکنم که سوخته)باید برم دوباره ماژول رو بخرم .بقیه ی پایه ها که چند تاش واسه اتصال کیبرد چندتا واسه میکروفن و speaker هست و اتصال مستقیم ماژول به lcd.
                    سلام
                    مطمینی سوخته؟! من اومدم . این چند روز کار دارم . منم با هایپر تست میکنم نتیجشو تو همینجا میزارم.اگه شما هم کاری کردین خبر بدین .

                    موفق باشی

                    دیدگاه

                      #11
                      پاسخ : ارسال sms با sim900

                      سلام . به همه
                      من با مگا 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. '**********************

                      دیدگاه

                        #12
                        پاسخ : ارسال sms با sim900

                        دوست عزیز متاسفانه من بسکام کار نمیکنم ولی اگه به کامپیوتر وصل کنی و پیام های ماژول رو رهگیری کنی میتونی مشکلتو راحت متوجه بشی.
                        چون شما میگی یک هفته کار کرد فک نکنم مشکل از کدت باشه.
                        هنوز من تست نکردم که تعداد sms ها بالا بره و سیم پر بشه دیگه sms نیاد ولی اگه واقعا اینجوریه با اون دستوری که گفتم پاکشون کن.میتونی index پیام هارو بگیری و بگی مثلا وقتی به 20 رسید پاک کن.

                        دیدگاه

                          #13
                          پاسخ : ارسال sms با sim900

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

                          دیدگاه

                            #14
                            پاسخ : ارسال sms با sim900

                            Print "AT"
                            Waitms 500
                            Print "AT+CMGF=1"
                            Waitms 500
                            Print "AT+CMGS=" ; Chr(34) ; "093**********" ; Chr(34)
                            Waitms 500
                            Print "POWER ON" ; Chr(26)
                            Waitms 600
                            این مثال عملی و تست شده برای ارسال پیام
                            برای روشن کردن ماژول هم اگه بخوای با میکرو روشنش کنی
                            تو خط اول برنامت اینو بنویس
                            Cursor Off
                            Wait 3
                            Set Portc.5
                            Wait 1
                            Reset Portc.5
                            Cls
                            Locate 1 , 6
                            Lcd "GSM ON"
                            Wait 2
                            پایه های RXD و TXD رو حتما با مقاومت 10کیلو اهم پول اپ کن.

                            دیدگاه

                              #15
                              پاسخ : ارسال sms با sim900

                              نوشته اصلی توسط کیوان قاسمی
                              دوست عزیز متاسفانه من بسکام کار نمیکنم ولی اگه به کامپیوتر وصل کنی و پیام های ماژول رو رهگیری کنی میتونی مشکلتو راحت متوجه بشی.
                              چون شما میگی یک هفته کار کرد فک نکنم مشکل از کدت باشه.
                              هنوز من تست نکردم که تعداد sms ها بالا بره و سیم پر بشه دیگه sms نیاد ولی اگه واقعا اینجوریه با اون دستوری که گفتم پاکشون کن.میتونی index پیام هارو بگیری و بگی مثلا وقتی به 20 رسید پاک کن.
                              با تشکر از همکاری شما .
                              اما در خط 126 بعد از دریافت هر پیامک و اجرای دستور مربوط به اون کل پیام ها پاک میشن.

                              دیدگاه

                              قبلی template بعدی
                              لطفا صبر کنید...
                              X