$regfile = "m32def.dat" ' specify the used micro $crystal = 11000000 $baud = 9600 ' used crystal frequency ' use baud rate Config Pinb.0 = Output Portb.0 = 0 Wait 2 Portb.0 = 1 Wait 2 Portb.0 = 0 Dim C As Word Dim B As Word Dim B1 As Byte Dim S As Byte Dim S1 As Byte Dim R As Byte Dim U As Byte Dim N As String * 20 Dim N1 As String * 20 Dim N2 As String * 6 Dim N3 As String * 10 Dim N4 As String * 10 Dim Mn As String * 30 Dim Nm As String * 55 Dim Cc As String * 10 Dim Ccc As String * 10 Dim A As Single Dim N5 As String * 3 Dim N6 As String * 3 Dim N11 As String * 5 Dim N22 As String * 5 Dim N10 As String * 1 Dim N20 As String * 1 Do J: Portb.0 = 0 Input Mn N = Mid(mn , 2 , 5) If N = "+CLIP" Then N1 = Mid(mn , 19 , 4) B = Val(n1) If B = 3903 Then Portb.0 = 1 Wait 3 Open "coma.0:4800,8,n,1" For Input As #1 U = 0 Do 'gps U = U + 1 Input #1 , Nm N = Mid(nm , 2 , 6) If N = "$GPRMC" Then N4 = Mid(nm , 47 , 5) If N = "$GPGSV" Then N6 = Mid(nm , 13 , 2) If N = "$GPGGA" Then N1 = Mid(nm , 20 , 4) N11 = Mid(nm , 25 , 4 ) N10 = Mid(nm , 30 , 1) 'N C = Val(n11) A = C * 0.006 Cc = Fusing(a , "#.##") N2 = Mid(nm , 32 , 5) N22 = Mid(nm , 38 , 4 ) N20 = Mid(nm , 43 , 1) 'E C = Val(n22) A = C * 0.006 Ccc = Fusing(a , "#.##") N5 = Mid(nm , 47 , 2) A = Val(n4) A = A * 1.852 B = Round(a) End If Loop Until U > 25 Close #1 Print "at+cmgs=" ; Chr(34) ; "09153752127" ; Chr(34) Wait 2 Print N1 ; Chr(39) ; Cc ; Chr(34) ; N10 ; Spc(2) ; N2 ; Chr(39) ; Ccc ; Chr(34) ; N20 ; Spc(2) ; N5 ; Spc(2) ; N6 ; Spc(2) ; B ; "km/h Google Earth" ; Chr(26) Wait 12 Goto J Else Goto J End If End If If N = "+CMTI" Then N1 = Mid(mn , 14 , 2) Wait 1 S1 = 0 Jjj: S = 0 S1 = S1 + 1 If S1 > 2 Then Goto J Print "AT+CMGR= N1" Portb.0 = 0 Jj: Input N3 S = S + 1 If S > 5 Then Goto Jjj N4 = Mid(n3 , 2 , 2) If N4 = "64" Then N2 = Mid(n3 , 4 , 1) '648 B = Val(n2) For R = 1 To B Wait 1 Portb.0 = 1 Wait 1 Portb.0 = 0 Next Print "at+cmgd=" ; N1 Wait 1 Goto J Else Print "at+cmgd=" ; N1 Wait 1 Goto Jj End If Else Goto J End If Loop
' \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
$regfile "m8def.dat"
$crystal = 11059200
$baud #1 = 9600
$baud #2 = 9600
$baud = 4800
Open "comb.0:9600,8,n,1" For Output As #1
Open "comb.1:9600,8,n,1" For Input As #2
' ///////////////////////////////////////////////////////////////////////////////
'| SUBs ----------------------------------------------------------->>>>>>>>>>>>>>
' \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'Declare Sub Anim
' ///////////////////////////////////////////////////////////////////////////////
'| CONFIGURATIONs ------------------------------------------------->>>>>>>>>>>>>>
' \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.0 , Db6 = Portc.1 , Db5 = Portc.2_
, Db4 = Portc.3 , E = Portc.4 , Rs = Portc.5
'Config Porta.2 = Output
Config Timer1 = Timer , Prescale = 8
'Start Timer1
Cursor Off Noblink
Cls
Config Single = Scientific , Digits = 2
Config Pind.2 = Input
Config Int1 = Falling
' ///////////////////////////////////////////////////////////////////////////////
'| INTRRUPTs ------------------------------------------------------>>>>>>>>>>>>>>
' \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Enable Interrupts
Enable Urxc
On Urxc Serial_data
' ///////////////////////////////////////////////////////////////////////////////
' ///////////////////////////////////////////////////////////////////////////////
'| DIMANSIONs ----------------------------------------------------->>>>>>>>>>>>>>
' \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Dim Flag As Bit , Flag_sms As Bit
Dim Data_s As Byte
Dim Char As String * 1
Dim Gps_data As String * 100
Dim Gps As String * 100
Dim A As Bit , B As Bit , C As Bit , D As Bit , E As Bit , F As Bit , G As Bit , Cl1 As Bit , Cl2 As Bit
Dim Utc As String * 10
Dim Lat As String * 9 , North As String * 20
Dim Lon As String * 10 , East As String * 20
Dim Sms As String * 250 : Sms = ""
Dim Sms1 As Byte
' ///////////////////////////////////////////////////////////////////////////////
'| MACROS --------------------------------------------------------->>>>>>>>>>>>>>
' \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Macro Split_data
If Flag = 0 Then
Utc = Mid(gps , 2 , 9)
'Locate 1 , 1
'Lcd Utc
Lat = Mid(gps , 14 , 9)
Locate 2 , 1
Lcd Lat
Lon = Mid(gps , 26 , 9)
Locate 1 , 1
Lcd Lon
End If
End Macro
' ///////////////////////////////////////////////////////////////////////////////
'| MAIN ----------------------------------------------------------->>>>>>>>>>>>>>
Cls
' \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Flag = 0
Do :
Split_data
'Home
If Pind.2 = 0 Then
Disable Urxc
Print #1 , "at"
Waitms 500
Print #1 , "at+cmgf=1"
Waitms 500
Print #1 , "AT+CMGS=" ; Chr(34) ; "0912*******" ; Chr(34)
Waitms 500
Print #1 , Lat ; Chr(26)
Waitms 500
Print #1 , "AT+CMGS=" ; Chr(34) ; "0912*******" ; Chr(34)
Waitms 500
Print #1 , Lon ; Chr(26)
Flag = 1
End If
If Flag = 1 Then
Wait 10
'Print #1 , "AT+CMGR=1"
Sms = ""
Do
Disable Urxc
If Sms = "" Then Print #1 , "AT+CMGR=1"
'Waitms 500
Data_s = Inkey(#2)
Select Case Data_s
Case 0:
Case 13 :
If Sms <> "" Then Exit Do
Case 10 :
If Sms <> "" Then Exit Do
Case Else
Sms = Sms + Chr(data_s)
End Select
Loop
Sms1 = Len(sms)
If Len(sms) > 30 Then
Locate 1 , 1
Cls
Lcd "lock"
If Sms <> "" Then Print #1 , "AT+CMGD=1"
Flag_sms = 0
Sms = ""
End If
'Enable Urxc
End If
Loop
End
' ///////////////////////////////////////////////////////////////////////////////
'| SUB ROUTINE ---------------------------------------------------->>>>>>>>>>>>>>
' \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'----------------=============== CHECK POSITION ===============-----------------
'--------================= GET $GPGGA DATA FROM MODULE =================--------
Serial_data:
Char = Chr(udr)
If Char <> "" Then
If A = 0 And Char = "$" Then A = 1
If A = 1 And Char = "G" Then B = 1
If B = 1 And Char = "P" Then C = 1
If C = 1 And Char = "G" Then D = 1
If D = 1 And Char = "G" Then E = 1
If E = 1 And Char = "A" Then F = 1
If A = 1 And B = 1 And C = 1 And D = 1 And E = 1 And F = 1 Then
If Len(gps_data) < 72 Then
Gps_data = Gps_data + Char
Elseif Len(gps_data) = 72 Then
Gps = Left(gps_data , 71)
End If
End If
End If
If F = 1 And Udr = 13 Then
A = 0 : B = 0 : C = 0 : D = 0 : E = 0 : F = 0 : Gps_data = ""
End If
Return
دیدگاه