پاسخ : ارتباط با ماژول sim908 و برقراری ارتباط با gps و gsm این ماژول
لایبرری کدوم آیسی؟ اگه منظورتون sim908 است یه سرچ بزنی مییابی
نوشته اصلی توسط سعید خیری
AT OK AT+CSQ +CSQ: 22,0 OK AT+GSV SIMCOM_Ltd SIMCOM_SIM908 Revision:1137B04SIM908M64_ST OK AT+CGPSPWR=1 OK AT+CGPSRST=0 OK AT+CGPSOUT=255 OK AT+CGPSSTATUS? +CGPSSTATUS: Location Unknown OK AT+CGPSINF=32 32,061946.807,V,0.000000,N,0.000000,E,0.00,0.00,090180,,E,A OK کمی صبر کنید و بعد از حدودا 5 دقیقه دوبا ره وارد کنید.... at+cgpsinf=32 32,063959.000,A,3618.027961,N,5938.025976,E,0.00,249.58,241214,,E,A OK
$regfile = "m32def.dat" $crystal = 8000000 $baud = 19200 ' ~~~~~~~~~~~~~~~~~ Configurations~~~~~~~~~~~~~~~~ Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5 Config Pind.2 = Input ' ~~~~~~~~~~~~~~~~~~ Variable ~~~~~~~~~~~~~~~~~~ Dim B As Byte Dim Sms As String * 250 : Sms = "" ' ~~~~~~~~~~~~~~~~~~ initionaliz ~~~~~~~~~~~~~~~~~ Cls Cursor Off Home Lcd "Get SMS..." Waitms 1000 Cls ' ~~~~~~~~~~~~~~~~ Main program ~~~~~~~~~~~~~~~~ Do If Pind.2 = 0 Then Print "AT" Wait 2 Print "AT+CMGR=1" Sms = "" Do B = Inkey() If B > 0 Then 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 End If Loop Home Lcd Sms End If Loop End
دیدگاه