با سلام خدمت دوستان
می خوام تو ارنامم wait به اندازه عدد دریافتی از کی=د متوقف شه کمکم کنید
$regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Rs = Portd.0 , E = Portd.2 , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
Config Lcd = 16 * 2
Dim A As Byte , B As Byte
Config Kbd = Portb , Debounce = 50 , Delay = 225
Cls
Home
Do
A = Getkbd()
A = Lookup(a , Read_key)
If A < 16 Then
Select Case A
Case 0 To 9:
Lcd A
Case 10:
Shiftcursor Left
Lcd " "
Shiftcursor Left
Case 11:
Shiftcursor Right
Case 12:
Home
Case 13:
Goto Lrot
Case 14:
Home R
Case 15:
Goto Lrot
End Select
End If
Loop
End
Lrot:
Portc.0 = 1
waitms در این خط
Portc.0 = 0
Read_key:
Data 13 , 14 , 0 , 15 , 12 , 9 , 8 , 7 , 11 , 6 , 5 , 4 , 10 , 3 , 2 , 1
می خوام تو ارنامم wait به اندازه عدد دریافتی از کی=د متوقف شه کمکم کنید
$regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Rs = Portd.0 , E = Portd.2 , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
Config Lcd = 16 * 2
Dim A As Byte , B As Byte
Config Kbd = Portb , Debounce = 50 , Delay = 225
Cls
Home
Do
A = Getkbd()
A = Lookup(a , Read_key)
If A < 16 Then
Select Case A
Case 0 To 9:
Lcd A
Case 10:
Shiftcursor Left
Lcd " "
Shiftcursor Left
Case 11:
Shiftcursor Right
Case 12:
Home
Case 13:
Goto Lrot
Case 14:
Home R
Case 15:
Goto Lrot
End Select
End If
Loop
End
Lrot:
Portc.0 = 1
waitms در این خط
Portc.0 = 0
Read_key:
Data 13 , 14 , 0 , 15 , 12 , 9 , 8 , 7 , 11 , 6 , 5 , 4 , 10 , 3 , 2 , 1
دیدگاه