سلام مهمان عزیز، اگر این پیغام را مشاهده نموده ای به معنی آن است که شما هنوز ثبت نام نکردی. برای ثبت نام اینجا کلیک کن و از تمام امکانات انجمن ما استفاده کن و لذت ببر.
اگر قبلا ثبت نام کرده اید، وارد شوید. با تشکر مدیریت ایرانا ربات
درود مهمان گرامی!

l ثبت نام
زمان کنونی: 2018/07/21، 09:00 PM
facebook twitter youtube google+ feedburner
  • به انجمن الکترونیک و رباتیک خوش آمدید
  • شروع دوره های آموزشی کلیک کنید.

 پاسخ ها: 2    بازدید ها: 1359
امتیاز موضوع:
  • 6 رأی - میانگین امتیازات: 2.5
  • 1
  • 2
  • 3
  • 4
  • 5
 دریافت پیام با sim900a
2016/05/15، 05:37 PM,
آفلاین
کاربر جدید
تاریخ عضویت: Sep 2015
ارسال ها : 28
اعتبار: 0
سپاس ها 2
سپاس شده 16 بار در 10 ارسال
#1
دریافت پیام با sim900a

سلام
من با این ماژول می خوام اس ام اس دریافت کنم و روی LCD نمایش بدم
ولی متاسفانه اطلاعاتی ندارم
با جستجو توی نت چند تا SAMPLE دیدم که ازشون استفاده کردم ولی بازم موفق نشدم
و روی ال سی دی متن ok نمایش داده میشه
من قبل از دریافت SMS کل پیام های داخل سیمکارتو پاک می کنم و بعد شروع به دریافت می کنم
چند بار این کارو کردم
که هر بار نتیجه ممتفاوتی روی LCD نمایش داده شد
یک بار بعد از پاک کردن پیام LCD پاک شد و هیچ چیزی نمایش داده نشد
یک بار دیگه متن AT+CMGR=6 نمایش داده شد.
یک بار هم درس دریافت شد ولی با مخلفات اضافه پیام مثله ساعت و تاریخ و متن پیام و ...
اگه برنامه ای دارید که تست شده و عملا جواب گرفته اید لطفا شیر کنین
ممنون
برنامه ای که استفاده کردم اینه :
کد:
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Pind.2 = Input
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portb.7
Cursor Off
Dim B As Byte
Dim A As Bit
Dim G As Byte
Dim Sms As String * 250 : Sms = ""
Cls
Lcd "start"
Waitms 1000
Do
If Pind.2 = 0 Then
Print "AT+CMGD=0,4"
Waitms 500
Cls
Locate 1 , 1
Lcd "Delete Sms"
Waitms 500
Cls
Print "AT+CMGR=1"
Sms = ""
G = 0
A = 0
Do
B = Inkey()
   Select Case B
      Case 0:
      Case 13:
      Incr G
       If Sms <> "" Then
       A = 1
       Exit Do
       End If
       Case 10:
        If Sms <> "" Then
        A = 1
        Exit Do
        End If
        Case Else
       If G = 3 Then
        Sms = Sms + Chr(b)
        End If
   End Select
   Loop
   Locate 2 , 1
   Lcd Sms
   End If
   Loop
End

در ضمن ولتاژ ورودی ماژول رو روی 4.2 ولت تنظیم کردم
و در قسمت ارسال پیامک مشکلی ندارم .

با تشکر


امضای ehsan2774 
*****عيب جامعه اين است که همه مي خواند آدم مهمي باشند ولي هيچ کس نمي خواهد فرد مفيدي باشد.*****
2016/05/15، 05:37 PM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
2016/06/01، 12:00 PM,
آفلاین
کاربر جدید
تاریخ عضویت: Sep 2015
ارسال ها : 28
اعتبار: 0
سپاس ها 2
سپاس شده 16 بار در 10 ارسال
#2
RE: دریافت پیام با sim900a

کسی نیست جواب بده؟؟؟؟؟؟؟؟؟؟؟؟ Angry


امضای ehsan2774 
*****عيب جامعه اين است که همه مي خواند آدم مهمي باشند ولي هيچ کس نمي خواهد فرد مفيدي باشد.*****
2016/06/01، 12:00 PM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
2016/07/02، 03:06 AM,
آفلاین
مدیرکل
تاریخ عضویت: Sep 2015
ارسال ها : 665
اعتبار: 59
سپاس ها 393
سپاس شده 250 بار در 171 ارسال
#3
RE: دریافت پیام با sim900a

(2016/05/15، 05:37 PM)ehsan2774 نوشته است: سلام
من با این ماژول می خوام اس ام اس دریافت کنم و روی LCD نمایش بدم
ولی متاسفانه اطلاعاتی ندارم
با جستجو توی نت چند تا SAMPLE دیدم  که ازشون استفاده کردم ولی بازم موفق نشدم
و روی ال سی دی متن ok نمایش داده میشه
من قبل از دریافت SMS کل پیام های داخل سیمکارتو پاک می کنم و بعد شروع به دریافت می کنم
چند بار این کارو کردم
که هر بار نتیجه ممتفاوتی روی LCD نمایش داده شد
یک بار بعد از پاک کردن پیام LCD پاک شد و هیچ چیزی نمایش داده نشد
یک بار دیگه متن AT+CMGR=6 نمایش داده شد.
یک بار هم درس دریافت شد ولی با مخلفات اضافه پیام مثله ساعت و تاریخ و متن پیام و ...
اگه برنامه ای دارید که تست شده و عملا جواب گرفته اید لطفا شیر کنین
ممنون
برنامه ای که استفاده کردم اینه :

کد:
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Pind.2 = Input
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portb.7
Cursor Off
Dim B As Byte
Dim A As Bit
Dim G As Byte
Dim Sms As String * 250 : Sms = ""
Cls
Lcd "start"
Waitms 1000
Do
If Pind.2 = 0 Then
Print "AT+CMGD=0,4"
Waitms 500
Cls
Locate 1 , 1
Lcd "Delete Sms"
Waitms 500
Cls
Print "AT+CMGR=1"
Sms = ""
G = 0
A = 0
Do
B = Inkey()
  Select Case B
     Case 0:
     Case 13:
     Incr G
      If Sms <> "" Then
      A = 1
      Exit Do
      End If
      Case 10:
       If Sms <> "" Then
       A = 1
       Exit Do
       End If
       Case Else
      If G = 3 Then
       Sms = Sms + Chr(b)
       End If
  End Select
  Loop
  Locate 2 , 1
  Lcd Sms
  End If
  Loop
End

در ضمن ولتاژ ورودی ماژول رو روی 4.2 ولت تنظیم کردم
و در قسمت ارسال پیامک مشکلی ندارم .

با تشکر

سلام مهندس 
شما دارید تقریبا درست انجام میدید.
پیامی که نمایش میدید تاریخ،ساعت،متن،دستور دریافت داخلش هست که باید متن رو ازش جدا کنید بعدا نشون بدید


امضای محمد مومنی 
مهندسی رباتیک،بهشت ریاضیات است...
عضویت در کانال آموزشی تیم EEFZ
2016/07/02، 03:06 AM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
« قدیمی‌تر | جدیدتر »
کاربرانِ درحال بازدید از این موضوع: 1 مهمان



پرش به انجمن:

تیم اموزشی ما از سال ۱۳۸۸ در سطح استان فارس اموزش های خود را ارئه داد اما به دلیل نبود موسسه و اموزشگاه های فعال در دیگر استان ها تصمیم گرفتیم اموزشهای الکترونیک و رباتیک را بصورت مجازی ارائه دهیم.امیدوارم اموزشهای ارائه شده از طرف تیم ما رضایت شما کاربران عزیز را جلب کرده باشددر صورت هرگونه سوال،انتقاد،پیشنهاد اموزش به شماره زیر پیامک بزیند یا در واتس اپ پیغام بگذارید. ۰۹۱۷۶۷۶۲۵۸۵ © 2015. Translated By Yasserp66