Witam wszystkich,
Wykonałem klawiaturę matrycową, ale układ nie działa jak sobie wymyśliłem, chce aby wykonać program 1 muszę nacisnąć klawisz 1 i tak dla wszystkich programów. Ale jak wybiorę program 1 to przechodzi do programu 11. Poniżej podaje fragment moich wypocin port C zrobiłem sobie jako port pomocniczy, bo na razie nie potrafi inaczej. Proszę o pomoc w rozwikłaniu zagadki
-------------------------------------
Config Kbd = Portd , Delay = 100
Dim Dm As Byte
Cls
Lcd "testy"
Lowerline
Lcd "2 linia"
'dm rozpiska 1=0 2=1 3=2 4=4 5=5 6=6 7=8 8=9 9=10 0=13 #=12 enter=14
Do
Dm = Getkbd()
'--------------------------------------
If Dm = 0 Then 'menu 1
Cls
Lcd " P1"
Portc = 1
Wait 1
End If
'------------------------------------------
If Dm = 0 And Portc = 1 Then ' menu 11
Cls
Lcd " P11"
Portc = 11
Wait 1
End If
'---------------------------------------
If Portc = 1 And Dm = 14 Then 'start menu 1
Portc = 101
End If
'----------------------------------------
If Portc = 101 Then 'wykonywanie P1
'zadanie do wykonania
End If
'--------------------------------------------
If Portc = 11 And Dm = 14 Then 'start menu 11
Portc = 111
End If
'--------------------------------------------
If Portc = 111 Then 'wykonywanie P11
'zadanie do wykonania
End If
'----------------------------------------------
Loop
End
Wykonałem klawiaturę matrycową, ale układ nie działa jak sobie wymyśliłem, chce aby wykonać program 1 muszę nacisnąć klawisz 1 i tak dla wszystkich programów. Ale jak wybiorę program 1 to przechodzi do programu 11. Poniżej podaje fragment moich wypocin port C zrobiłem sobie jako port pomocniczy, bo na razie nie potrafi inaczej. Proszę o pomoc w rozwikłaniu zagadki
-------------------------------------
Config Kbd = Portd , Delay = 100
Dim Dm As Byte
Cls
Lcd "testy"
Lowerline
Lcd "2 linia"
'dm rozpiska 1=0 2=1 3=2 4=4 5=5 6=6 7=8 8=9 9=10 0=13 #=12 enter=14
Do
Dm = Getkbd()
'--------------------------------------
If Dm = 0 Then 'menu 1
Cls
Lcd " P1"
Portc = 1
Wait 1
End If
'------------------------------------------
If Dm = 0 And Portc = 1 Then ' menu 11
Cls
Lcd " P11"
Portc = 11
Wait 1
End If
'---------------------------------------
If Portc = 1 And Dm = 14 Then 'start menu 1
Portc = 101
End If
'----------------------------------------
If Portc = 101 Then 'wykonywanie P1
'zadanie do wykonania
End If
'--------------------------------------------
If Portc = 11 And Dm = 14 Then 'start menu 11
Portc = 111
End If
'--------------------------------------------
If Portc = 111 Then 'wykonywanie P11
'zadanie do wykonania
End If
'----------------------------------------------
Loop
End

