Kod: Zaznacz cały
Wyswietlanie:
Incr Mux
If Mux = 4 Then Mux = 0
Select Case Mux
Case 0:
Set Portd.3
Wysw10 = Wyswh / 10
Wysw10 = Lookup(wysw10 , Tabela)
Porta = Wysw10
Reset Portd.2
Case 1:
Set Portd.2
Wysw1 = Wyswh Mod 10
Wysw1 = Lookup(wysw1 , Tabela)
Porta = Wysw1
Reset Portd.1
Case 2:
Set Portd.1
Wyswm10 = Wyswm / 10
Wyswm10 = Lookup(wyswm10 , Tabela)
Porta = Wyswm10
Reset Portd.0
Case 3:
Set Portd.0
Wyswm1 = Wyswm Mod 10
Wyswm1 = Lookup(wyswm1 , Tabela)
Porta = Wyswm1
Reset Portd.3
End Select
Return
Tabela:
Data &B1111111 , &B1111110 , &B1111101 , &B1111100 , &B1111011 ' 0,1,2,3,4
Data &B1111010 , &B1111001 , &B1111000 , &B1110111 , &B1110110 '5,6,7,8,9Wyswh - zmienna gdzie przypisuję godziny
Wyswm - zmienna minutowa
i odpowiednio
wysw10 - dziesiątki
wysw1 - jedności
wyswm10 - wyświetlanie dziesiątek w minutach
wyswm1 - wyświetlanie jedności w minutach.
Co może być przyczyną złego wyświetlania się segmentu sterowanego z PortuD.3?