سلام!
کد زیر را ببنید!
این کد قراره که اول موقعیت و .. را از ماژول بگیره و بعد اونا را sms کنه!چ
ولی توی sms که میاد فقط مینویسه AT
دستور AT را هم به ماژول فرستادم ولی به جای OK فقط AT را میفرسته!
ممنون میشم راهنمایی کنید!
کد زیر را ببنید!
این کد قراره که اول موقعیت و .. را از ماژول بگیره و بعد اونا را sms کنه!چ
ولی توی sms که میاد فقط مینویسه AT
دستور AT را هم به ماژول فرستادم ولی به جای OK فقط AT را میفرسته!
ممنون میشم راهنمایی کنید!
کد:
$regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 $hwstack = 64 $swstack = 64 $framesize = 64 Dim B As Byte Dim C As Byte Dim Txt As String * 250 : Txt = "" Config Portb.0 = Input Do Print "AT" Waitms 200 Print "AT+CGPSPWR=1" Waitms 500 Print "AT+CGPSRST=1" Waitms 500 Print "AT+CGPSINF=2" Waitms 2500 Do B = Inkey() Select Case B Case 0: Case 13 : If Txt <> "" Then Exit Do Case 10 : If Txt <> "" Then Exit Do Case Else Txt = Txt + Chr(b) End Select Loop Print "AT+CMGF=1" Waitms 500 Print "AT+CMGS=" ; Chr(34) ; "09372780864" ; Chr(34) Waitms 500 Print Txt ; Chr(26) Waitms 500 Wait 1 Loop End
دیدگاه