Przyjazne Bascom Forum

Witam, mam problem z wyświetlaniem godzin w moim zegarze. Nie mogę ustawić godzin bo na 4 się blokuję i nie wiem dlaczego, a minuty i sekundy zatrzymują się na 255, a drugim problem co próbowałem na różne sposoby to rozwiązać jest switch który poprzez kliknięcie zareaguje na przeskok z godzin na minuty... próbowałem na różne sposoby i nie działa. Nie potrafię sobie z tym poradzić

Code: [Zaznacz cały] [Rozwiń/Zwiń]

$sim
$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32
Dim Liczh As Byte
Dim Liczm As Byte
Dim Liczs As Byte
Dim Liczba As Byte
Cursor Off
Config Porta = Output
Porta = 255
Funkcja_przel Alias Pina.5
Liczba = 0
Deflcdchar 0,32,32,15,17,17,15,1,14' g
Cls
Locate 1, 6
Lcd "Witam"
Cls
Gosub Disp
Do
Debounce funkcja_przel , 0 , Funkcja , Sub
Liczba = Encoder(pina.7 , Pina.6 , Lewo , Prawo , 0)
Waitus 150
Loop
End
Lewo:
If Liczba = 0 Then
If Liczh > 0 Then Liczh = Liczh - 1
If Liczh < 0 Then Liczh = 24
Gosub Disp
End If
If Liczba = 1 Then
If Liczm > 0 Then Liczm = Liczm - 1
If Liczm < 0 Then Liczm = 59
Gosub Disp
End If
If Liczba = 2 Then
If Liczs > 0 Then Liczs = Liczs - 1
If Liczs < 0 Then Liczs = 59
Gosub Disp
End If
Return
Prawo:
If Liczba = 0 Then
If Liczh < 25 Then Liczh = Liczh + 1
If Liczh = 25 Then Liczh = 0
Gosub Disp
End If
If Liczba = 1 Then
If Liczm < 60 Then Liczm = Liczm - 1
If Liczm = 60 Then Liczm = 0
Gosub Disp
End If
If Liczba = 2 Then
If Liczs < 60 Then Liczs = Liczs - 1
If Liczs = 60 Then Liczs = 0
Gosub Disp
End If
Return
Disp:
Cls
Locate 1, 6
Lcd "Ze"; Chr(0) ;"ar"
Locate 2, 5
Lcd Liczh ; ":" ; Liczm ; ":" ; Liczs
Return
Funkcja:
If Liczba = 0 Then
Locate 2, 5
Cursor Blink
End If
If Liczba = 1 Then
Locate 2, 8
Cursor Blink
End If
If Liczba = 2 Then
Locate 2, 10
Cursor Blink
End If
If Liczba = 3 Then Gosub Zegar
If Liczba = 4 Then Liczba = 0
Return
Zegar:
If Liczh < 25 Then
If Liczm < 60 Then
If Liczs < 60 Then
Liczs = Liczs + 1
Gosub Disp
Wait 1
Else
Liczm = Liczm + 1
Liczs = 0
End If
Else
Liczm = 0
Liczh = Liczh + 1
End If
Else
Liczh = 0
End If
Return

Gdzie popełniłem błąd i jak to rozwiązać . Bardzo proszę o pomoc

Przyjazne Bascom Forum

Problem z wyświetlaniem godzin

Problem z wyświetlaniem godzin