main: do if portb.0=1 then b=10 incr b _timer=0 endif incr _timer waitms 2 cls lcd b loop until timer<500 _timer=0 t1=b lcd T1 goto main
:angry: :angry: :angry: :angry:
$regfile = "m8def.dat" $crystal = 4000000 Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5 Config Lcd = 16 * 2 Config Kbd = Portd , Debounce = 250 , Delay = 150 '-------------------------------------------------- Dim A As Byte Dim B As Byte Dim B2 As Byte Dim C As Byte Dim T As Word Dim Text As String * 3 Dim Fulltext As String * 10 '-------------------------------------------------- Main: Fulltext = "" T = 0 C = 0 Do M1: Incr T A = Getkbd() If A > 15 Then B = "" Waitms 2 Goto M1 End If If A =< 15 Then T = 0 B = Lookup(a , Dat1) Incr C Waitms 2 Goto M2 End If Loop M2: If B = 1 Then Select Case C Case 1: Text = "A" Case 2: Text = "B" Case 3: Text = "C" end select End If If B = 2 Then Select Case C Case 1: Text = "D" Case 2: Text = "E" Case 3: Text = "F" End Select End If If B = 3 Then Select Case C Case 1: Text = "G" Case 2: Text = "H" Case 3: Text = "I" End Select End If '-------------- If T <= 20 Then Cls Lcd Fulltext Lcd Text End If If T > 20 Then T = 0 C = 0 Fulltext = Fulltext + Text Cls Lcd Fulltext ; ">" End If Goto M1 '------------------------------------------------------------------------ Dat1: Data 1 , 2 , 3 , 21 , 4 , 5 , 6 , 22 , 7 , 8 , 9 , 23 , 24 , 0 , 25 , 26
:bye :nice:
این یکی رو نوشتم، از قبلی بهتره، ولی باز هم بدون مشکل نیست. راستش من دیگه عقلم جایی قد نمی ده. خودتون ببینید می تونید این یکی دو تا مشکلش رو هم حل کنید. $regfile = "m8def.dat" $crystal = 4000000 Config Kbd = Portd , Debounce = 250 , Delay = 150 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , Rs = Portb.5 , E = Portb.4 '------------------------------------------------ Dim Key As Byte Dim B As Bit Dim Num As Byte Dim Kpn As Byte Dim T As Byte Dim Lastkey As Byte Dim Char As String * 2 Dim Ftxt As String * 10 '------------------------------------------------ Waitms 1000 Main: T = 0 Kpn = 0 Key = 0 Num = 0 Lastkey = 30 Char = "" Ftxt = "" M1: Kpn = 0 M2: T = 0 Do M3: Waitms 2 Incr T Key = Getkbd() If Key < 15 Then Num = Lookup(key , Dat) Incr Kpn T = 0 Goto Show End If If T > 10 Then Goto Ftxtshow End If Loop Show: If Kpn > 3 Then Kpn = 1 If Num = 1 Then Select Case Kpn Case 1: Char = "A" Case 2: Char = "B" Case 3: Char = "C" End Select End If If Num = 2 Then Select Case Kpn Case 1: Char = "D" Case 2: Char = "E" Case 3: Char = "F" End Select End If If Num = 3 Then Select Case Kpn Case 1: Char = "G" Case 2: Char = "H" Case 3: Char = "I" End Select End If Cls Lcd Ftxt ; Char If B = 0 Then Lastkey = Num B = 1 Goto M3 Elseif Lastkey = Num Then Goto M3 Else Lastkey = Num Goto Ftxtshow End If Ftxtshow: T = 0 Kpn = 0 Ftxt = Ftxt + Char Cls char="" Lcd Ftxt Goto M3 Dat: Data 1 , 2 , 3 , 21 , 4 , 5 , 6 , 22 , 7 , 8 , 9 , 23 , 24 , 0 , 25 , 26
دیدگاه