با سلام
بنده یه برنامه ای دارم که باهاش gps-ublox m6 راه اندازی کردم اما اطلاعاتی که روی lcd نمایش میده خام هستن و باید محاسبات روشون انجام بشه که قابل رهیابی باشه مثلا اطلاعات که میده به0.04 ضرب کردم تقریبا موقعیت واقعی بدست اومد حال سوالم اینه که چیکار میتونم بکنم که این عمل در خود برنامه انجام بشه و اطلاعاتی که روی lcd نمایش میده واقعی و قابل رهیابی باشه
پیشاپیش ممنونم از راهنماییتون
بنده یه برنامه ای دارم که باهاش gps-ublox m6 راه اندازی کردم اما اطلاعاتی که روی lcd نمایش میده خام هستن و باید محاسبات روشون انجام بشه که قابل رهیابی باشه مثلا اطلاعات که میده به0.04 ضرب کردم تقریبا موقعیت واقعی بدست اومد حال سوالم اینه که چیکار میتونم بکنم که این عمل در خود برنامه انجام بشه و اطلاعاتی که روی lcd نمایش میده واقعی و قابل رهیابی باشه
پیشاپیش ممنونم از راهنماییتون
کد:
$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 "amir" 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
دیدگاه