اطلاعیه

Collapse
No announcement yet.

مشکل در دریافت پیام کوتاه از sim900a

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    مشکل در دریافت پیام کوتاه از sim900a

    سلام دوستان
    من برای سیم 900 با گوشی پیام ارسال میکنم ولی هر چی ارسال میکنم و میخوام که نمایشش بده
    متن رو همش جمله
    +cmti: "sm" =1
    رو نمایش میده و هر کارش هم میکنم فایده نداره
    در ضمن من با بیسیک برنامه مینویسم
    مهم نیست که چه مدرکی دارید ، مهم این است که چه درکی دارید ...

    #2
    پاسخ : مشکل در دریافت پیام کوتاه از sim900a

    سلام
    برنامه ای که استفاده کردین رو بزارید...
    *****عيب جامعه اين است که همه مي خواند آدم مهمي باشند ولي هيچ کس نمي خواهد فرد مفيدي باشد.*****
    http://electerodl.ir/forum

    دیدگاه


      #3
      پاسخ : مشکل در دریافت پیام کوتاه از sim900a

      ممنون از توجهتون

      $regfile = "m8def.dat"
      $crystal = 8000000
      $baud = 9600
      Config Lcd = 16 * 2 : Cursor Off
      Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.0 , Rs = Portb.1
      Config Portd.7 = Input , Portd.6 = Output
      Dim B As Byte
      Dim Sms As String * 250
      Sms = ""
      Dim Ssms As String * 250
      Dim Numsms As String * 250
      Dim G As Byte

      Cls
      Lcd " IN THE NAME OF"
      Locate 2 , 1
      Lcd " GOD"
      Wait 2
      Cls

      'Print "AT"
      'Wait 1
      'Print "AT"
      'Wait 1
      'Print "AT+CMGDA=" ; Chr(34) ; "DEL ALL" ; Chr(34)
      'Wait 1

      Print "AT+IPR=9600"
      Wait 1
      Print "AT"
      Wait 1
      Print "AT+CMGF=1"
      Wait 1
      '******************************************** ******

      Main:
      'Print "AT+CMGD=0,4"
      'Wait 1


      Do
      If Pind.7 = 0 Then
      Print "AT+CMGR=1"
      Sms = ""
      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

      Numsms = Mid(sms , 25 , 5) '25---10
      Ssms = Mid(sms , 42 , 5) '42---20

      Locate 1 , 1
      Lcd sSms

      Locate 2 , 1
      Lcd Numsms
      Wait 5

      Cls
      End If
      Loop

      End
      مهم نیست که چه مدرکی دارید ، مهم این است که چه درکی دارید ...

      دیدگاه


        #4
        پاسخ : مشکل در دریافت پیام کوتاه از sim900a

        سلام. دوست عزیز توصیه اکید دارم قبل از اتصال ماژول sim900 به میکرو آموزش زیر رو ببین
        aparat.com/jmoosavi >> آموزش راه اندازی sim900 با hc-05
        STM32 واقعا یه چیز دیگه است...

        دیدگاه


          #5
          پاسخ : مشکل در دریافت پیام کوتاه از sim900a

          ممنون از شما دوست عزیز
          مهم نیست که چه مدرکی دارید ، مهم این است که چه درکی دارید ...

          دیدگاه


            #6
            پاسخ : مشکل در دریافت پیام کوتاه از sim900a

            با سلام
            شما بهتره این آموزش رو هم یک نگاهی بندازین
            قسمت دربازکن با SMS

            http://www.eca.ir/forum2/index.php?topic=62998.msg356956#msg356956

            توش قشنگ توضیح داده
            فک کنم موفق بشی
            *****عيب جامعه اين است که همه مي خواند آدم مهمي باشند ولي هيچ کس نمي خواهد فرد مفيدي باشد.*****
            http://electerodl.ir/forum

            دیدگاه


              #7
              پاسخ : مشکل در دریافت پیام کوتاه از sim900a

              سلام دوستان
              لینکهای بالا باز نمیشن.
              مشکل من با SIM900A که از فروشگاه خریدم اینه که وقتی از سیمکارت ایرانسل استفاده میکنم، پیامک از هیچ اپراتوری حتی ایرانسل دریافت نمیشه. اگه از سیمکارتهای همراه اول و رایتل استفاده کنم، مشکل حل میشه. اما فعلا جوریه که باید از ایرانسل استفاده کنم. و لازمه که مشکل حل بشه. اگه بعد از ارسال پیامک و دریافت نشدنش با SIM900 سیمکارت رو دربیارم و توی یه گوشی موبایل بزارم، بمحض روشن شدن گوشی پیامک هم دریافت میشه.

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

              دیدگاه

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