ahmad1369
29-12-2016, 23:16
با سلام خدمت مهندسان و اساتید عزیز...
دوستان عزیز تو راه اندازی ماژولG.top010یا Fgmmopa6b شدیدا به مشکل بر خوردم هر کاری میکنم حل نمیشه
اینم برنامش ..... $regfile = "M8DEF.DAT" $crystal = 4000000 $baud = 9600 Dim Sr As String * 1 , X As Byte , Char(70) As String * 1 Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3_ , Db6 = Pinc.4 , Db7 = Pinc.5 , Rs = Pinc.0 , E = Pinc.1 Config Lcd = 20 * 4 Config Portb = Output '''''''''''''''''''''''' Cls Lcd " You can see links before reply" Waitms 2000 '''''''''''''''''''''''' Sr: 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 Lcd " TIME IS " ; Char(2) ; Char(3) ; ":" ; Char(4) ; Char(5) ; ":" ; Char(6) ; Char(7) Locate 2 , 1 Lcd "Latitude:" ; Char(15) ; Char(16) ; Char(17) ; Char(18) ; Char(19) ; Char(20) ; Char(21) ; Char(22) ; Char(23) Locate 3 , 1 Lcd "Longitude:" ; Char(27) ; Char(28) ; Char(29) ; Char(30) ; Char(31) ; Char(32) ; Char(33) ; Char(34) ; Char(35) ; Char(36) Locate 4 , 1 If Char(25) = "N" Then Lcd " NORTH" Else Lcd " SOUTH" End If If Char(38) = "E" Then Lcd " EAST" Else Lcd " WEST" End If End If End If End If End If End If End If Goto Sr
- - - Updated - - -
از اینجا خریدم
You can see links before reply
دوستان عزیز تو راه اندازی ماژولG.top010یا Fgmmopa6b شدیدا به مشکل بر خوردم هر کاری میکنم حل نمیشه
اینم برنامش ..... $regfile = "M8DEF.DAT" $crystal = 4000000 $baud = 9600 Dim Sr As String * 1 , X As Byte , Char(70) As String * 1 Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3_ , Db6 = Pinc.4 , Db7 = Pinc.5 , Rs = Pinc.0 , E = Pinc.1 Config Lcd = 20 * 4 Config Portb = Output '''''''''''''''''''''''' Cls Lcd " You can see links before reply" Waitms 2000 '''''''''''''''''''''''' Sr: 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 Lcd " TIME IS " ; Char(2) ; Char(3) ; ":" ; Char(4) ; Char(5) ; ":" ; Char(6) ; Char(7) Locate 2 , 1 Lcd "Latitude:" ; Char(15) ; Char(16) ; Char(17) ; Char(18) ; Char(19) ; Char(20) ; Char(21) ; Char(22) ; Char(23) Locate 3 , 1 Lcd "Longitude:" ; Char(27) ; Char(28) ; Char(29) ; Char(30) ; Char(31) ; Char(32) ; Char(33) ; Char(34) ; Char(35) ; Char(36) Locate 4 , 1 If Char(25) = "N" Then Lcd " NORTH" Else Lcd " SOUTH" End If If Char(38) = "E" Then Lcd " EAST" Else Lcd " WEST" End If End If End If End If End If End If End If Goto Sr
- - - Updated - - -
از اینجا خریدم
You can see links before reply