کمک فوری،مشکل در برقراری ارتباط با sim900
تبلیغات تجاری در گروه تخصصی تعمیرکاران ( تعرفه تبلیغات )
کمک فوری،مشکل در برقراری ارتباط با sim900 کمک فوری،مشکل در برقراری ارتباط با sim900 کمک فوری،مشکل در برقراری ارتباط با sim900 کمک فوری،مشکل در برقراری ارتباط با sim900 کمک فوری،مشکل در برقراری ارتباط با sim900
نمایش نتایج: از 1 به 1 از 1
  1. #1

    https://www.tamirkaran.ir/star/roshan.gifhttps://www.tamirkaran.ir/star/khamosh.gifhttps://www.tamirkaran.ir/star/khamosh.gifhttps://www.tamirkaran.ir/star/khamosh.gifhttps://www.tamirkaran.ir/star/khamosh.gif
    عضو گروه
    ariaaaa آنلاین نیست.

    تاریخ عضویت
    March 2013
    نوشته ها
    2
    تشکر
    0
    2 بار در 1 پست از ایشان تشکر شده است
    پسندیده شده
    0
    مورد پسند شما
    1
    میزان امتیاز
    30
    گروه تعمیرکاران تخصصی ترین مرجع الکترونیک در ایران
    Array

    Question کمک فوری،مشکل در برقراری ارتباط با sim900

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

    $regfile = "m16def.dat"
    $crystal = 8000000
    $baud = 9600
    '================================================= ===================================
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
    '================================================= ===================================
    Enable Interrupts
    Enable Urxc
    '================================================= ====================================
    On Urxc Uart0
    Declare Sub Getsms
    Declare Sub Del
    Declare Sub Sendon
    Declare Sub Sendoff
    '================================================= ====================================
    Dim Text As String * 100 : Text = ""
    Dim Baf As String * 10 : Baf = "" '
    Dim Reg As String * 40 : Reg = ""
    Dim H As String * 1 : H = ""
    Dim Tool As Byte : Tool = 0
    Dim A(100) As Byte
    Dim B As Byte : B = 0
    Dim C As Byte : C = 0
    Dim D As Byte : D = 0
    Dim E As Byte : E = 0
    Dim F As Byte : F = 0
    Dim G As Byte : G = 0
    Dim Flag As Byte : Flag = 0
    '================================================= ===================================
    Config Portd = Output
    '================================================= ===================================
    Cursor Off
    Cls
    '================================================= ===================================
    Main:
    Call Del
    Select Case Flag
    Case 1 :
    Locate 1 , 1
    Lcd " MOTOR IS ON"
    Locate 2 , 1
    Lcd " Waiting For SMS"
    Case 2 :
    Locate 1 , 1
    Lcd " MOTOR IS OFF"
    Locate 2 , 1
    Lcd " Waiting For SMS"
    Case Else :
    Locate 1 , 1
    Lcd " Waiting For SMS"
    End Select
    '================================================= ===================================
    Do
    Print "AT+CMGR=1"
    Waitms 400
    Call Getsms
    Tool = Len(text)
    Baf = ""
    For B = 1 To Tool
    H = Mid(text , B , 1)
    If H = "M" Then
    Baf = Baf + H
    C = B + 1
    H = Mid(text , C , 1)
    If H = "=" Then
    Baf = Baf + H
    D = C + 1
    H = Mid(text , D , 1)
    If H = "O" Then
    Baf = Baf + H
    E = D + 1
    H = Mid(text , E , 1)
    If H = "N" Then
    Baf = Baf + H
    End If
    End If
    End If
    End If
    Next B
    If Baf = "M=ON" Then
    Cls
    Locate 1 , 1
    Lcd "MOTOR ON"
    Set Portd.6
    Call Sendon
    Flag = 1
    Exit Do
    End If
    '================================================= ==================================
    Baf = ""
    For B = 1 To Tool
    H = Mid(text , B , 1)
    If H = "M" Then
    Baf = Baf + H
    C = B + 1
    H = Mid(text , C , 1)
    If H = "=" Then
    Baf = Baf + H
    D = C + 1
    H = Mid(text , D , 1)
    If H = "O" Then
    Baf = Baf + H
    E = D + 1
    H = Mid(text , E , 1)
    If H = "F" Then
    Baf = Baf + H
    F = E + 1
    H = Mid(text , F , 1)
    If H = "F" Then
    Baf = Baf + H
    End If
    End If
    End If
    End If
    End If
    Next B
    If Baf = "M=OFF" Then
    Cls
    Locate 1 , 1
    Lcd "MOTOR OFF"
    Reset Portd.6
    Call Sendoff
    Flag = 2
    Exit Do
    End If
    '================================================= ===================================
    Loop
    Waitms 250
    Goto Main
    End 'end program
    '================================================= ===================================
    Uart0:
    Incr G
    A(g) = Udr
    Return
    '================================================= ===================================
    Sub Getsms
    Text = ""
    For G = 1 To 100
    Text = Text + Chr(a(g))
    Next G
    End Sub
    '================================================= ===================================
    Sub Del
    Reg = "AT+CMGDA=" + Chr(34) + "DEL ALL" + Chr(34)
    Print Reg
    Waitms 500
    While G = 0
    nop
    Wend
    Call Getsms
    Locate 1 , 1
    Lcd Text
    Locate 2 , 1
    Lcd "DELLET ALL SMS"
    Wait 5
    Cls
    End Sub
    '================================================= ====================================
    Sub Sendon
    Print "AT"
    Waitms 500
    Print "AT+CMGF=1"
    Waitms 500
    Print "AT+CMGS=" ; Chr(34) ; "09351480761" ; Chr(34)
    Print "AT+CMGS=" ; Chr(34) ; "09351480761" ; Chr(34)
    Waitms 500
    Print " MOTOR IS ON"
    Waitms 600
    End Sub
    '================================================= ===================================
    Sub Sendoff
    Print "AT"
    Waitms 500
    Print "AT+CMGF=1"
    Waitms 500
    Print "AT+CMGS=" ; Chr(34) ; "09351480761" ; Chr(34)
    Print "AT+CMGS=" ; Chr(34) ; "09351480761" ; Chr(34)
    Waitms 500
    Print " MOTOR IS OFF"
    Waitms 600
    End Sub
    منبع :Www.TamirKaran.ir
    کمک فوری،مشکل در برقراری ارتباط با sim900 فايل هاي پيوست شده

 

 

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
پرداخت آنلاین حق عضویت
فعالیت‌های این سایت تابع قوانین و مقررات جمهوری اسلامی ایران است.
تمام حقوق برای گروه تخصصی تعمیركاران محفوظ است و هرگونه کپی برداری پیگرد قانونی خواهد داشت.
سامانه پیام کوتاه گروه : 50002050031501
© Copyright TamirKaran.ir 2010-2021 | Hosted by PersianWhois.com
logo-samandehi