ماژول u blox neo6
سلام بچه ها من از این برنامه و ماژول استفاده کردم تا بتونم موقعیت رو بدست بیارم ولی اول موقعیت صفر رو نشون داد.بعدشم کلا قطع شد.به نظر شما این برنامه مشکل داره؟'
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , E = Pinb.1 , Rs = Pinb.0
Dim Key As String * 1
Dim Gps(18) As String * 1
Dim Ikey As String * 70
Dim Sr As String * 1 , X As Byte , Char(70) As String * 1
Dim Lat1 As Single
Dim Lat2 As String * 20
Dim Lat3 As Single
Dim Long1 As Single
Dim Long2 As String * 20
Dim Long3 As Single
Cls '
Lcd "khorshad"
Waitms 2000
Do
Sr = Waitkey()
If Sr = "$" Then
Sr = Waitkey()
If Sr = "G" Then
Sr = Waitkey()
If Sr = "P" Then
Sr = Waitkey()
If Sr = "R" Then
Sr = Waitkey()
If Sr = "M" Then
Sr = Waitkey()
If Sr = "C" Then
For X = 1 To 64
Char(x) = Waitkey()
Next X
Cls
Lat2 = Char(16) + Char(17) + Char(19) + Char(20) + Char(21) + Char(22) + Char(23)
Long2 = Char(27) + Char(28) + Char(29) + Char(30) + Char(31) + Char(32) + Char(33) + Char(34) + Char(35) + Char(36) + Char(37)
Lat1 = Val(lat2)
Lat1 = Lat1 / 6000000
Lat3 = Val(char(15) )
Lat1 = Lat1 + Lat3
Lat1 = Lat1 * 110.567
Long1 = Val(long2)
Long1 = Long1 / 6000000
Long3 = Val(char(15) )
Long1 = Long1 + Long3
Long1 = Long1 * 110.567
Locate 1 , 1
'Lcd Char(15) ; Char(16) ; Char(17) ; Char(18) ; Char(19) ; Char(20) ; Char(21) ; Char(22) ; Char(23) ; Char(25) ; Char(27) ; Char(28) ; Char(29) ; Char(30) ; Char(31) ; Char(32)
Lcd Lat1 ; Char(25)
Locate 2 , 1
'Lcd Char(33) ; Char(34) ; Char(35) ; Char(36) ; Char(37) ; Char(39) ; "D" ; Char(52) ; Char(53) ; Char(50) ; Char(51)
Lcd Long1 ; Char(39)
End If
End If
End If
End If
End If
End If
Loop
پاسخ با نقل قول