Witam
Napisałem coś takiego:
Wszytko działa ale gdy przechodzę do jakiegoś podmenu to od nowa muszę sprawdzać przyciski w celu ustawienia jakiejś zmiennej. Da się to jakoś zrobić inaczej aby w kółko nie powtarzać sprawdzania przycisków.
Napisałem coś takiego:
Do
If Ok = 0 Then
Waitms 50
If Ok = 0 Then
Sound Buzer , 1 , 100000
Set Buzer
Gosub Menu
End If
End If
Loop
End
Menu:
Cls
Menuu = 1
Do
Locate 1 , 1
Select Case Menuu
Case Is = 1
Lcd "Harmonogram "
If Ok = 0 Then
Waitms 25
If Ok = 0 Then
Sound Buzer , 1 , 100000
Set Buzer
Gosub Harmonogram
End If
End If
Case Is = 2
Lcd "Dawka reczna "
If Ok = 0 Then
Waitms 25
If Ok = 0 Then
Sound Buzer , 1 , 100000
Set Buzer
Gosub Dawka_reczna
End If
End If
Case Is = 3
Lcd "Kalibracja "
If Ok = 0 Then
Waitms 25
If Ok = 0 Then
Sound Buzer , 1 , 100000
Set Buzer
Gosub Kalibracja
End If
End If
Case Is = 4
Lcd "Zegar "
If Ok = 0 Then
Waitms 25
If Ok = 0 Then
Sound Buzer , 1 , 100000
Set Buzer
Gosub Ustaw_czas
End If
End If
Case Is = 5
Lcd "Pokaz nastawy"
If Ok = 0 Then
Waitms 25
If Ok = 0 Then
Sound Buzer , 1 , 100000
Set Buzer
Gosub Pokaz_nastawy
End If
End If
Case Is = 6
Lcd "Reset eeprom "
If Ok = 0 Then
Waitms 25
If Ok = 0 Then
Sound Buzer , 1 , 100000
Set Buzer
Gosub Reset_eeprom
End If
End If
End Select
If Up = 0 And Menuu < 6 Then
Incr Menuu
Sound Buzer , 1 , 100000
Set Buzer
Waitms 300
End If
If Up = 0 And Menuu = 6 Then
Menuu = 1
Sound Buzer , 1 , 100000
Set Buzer
Waitms 300
End If
If Down = 0 And Menuu > 1 Then
Decr Menuu
Sound Buzer , 1 , 100000
Set Buzer
Waitms 300
End If
If Down = 0 And Menuu = 1 Then
Menuu = 6
Sound Buzer , 1 , 100000
Set Buzer
Waitms 300
End If
Loop Until Esc = 0
Sound Buzer , 1 , 100000
Set Buzer
Waitms 100
Cls
ReturnWszytko działa ale gdy przechodzę do jakiegoś podmenu to od nowa muszę sprawdzać przyciski w celu ustawienia jakiejś zmiennej. Da się to jakoś zrobić inaczej aby w kółko nie powtarzać sprawdzania przycisków.