لطفا دوستان درمورد اینا توضیح دهید :applause:
کد:
$regfile = "m16def.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 "mohammad" 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
دیدگاه