Witam mam trochę problemów z multipleksowaniem wyświetlacza a mianowicie znalazłem ten kod na stronie Link
i stawiłem to do bascoma i tyle błędów mi wykryło że głowa boli
Co tu jest źle?
i stawiłem to do bascoma i tyle błędów mi wykryło że głowa boli
$crystal = 1000000 'definiujemy z jakim taktowaniem będzie pracował
Config Portb = Output 'port b jako wejścia
Portb = &B11111111 'wszędzie stan spoczynkowy-0
Config Portd = Output 'pprt d jako wyjścia
Portd = &B11111111
Do
Wyswietlanie:
Mux = Not Mux
If Mux = 1 Then
Set P1.6
Wysw10 = Wysw / 10
Wysw10 = Lookup(wysw10 , Tabela)
P3 = Wysw10
Reset P1.7
Else
Set P1.7
Wysw1 = Wysw Mod 10
Wysw1 = Lookup(wysw1 , Tabela)
P3 = Wysw1
Reset P1.6
End If
Return
Tabela:
Data 65 , 207 , 82 , 70 , 204 , 100 , 96 , 79 , 64 , 68
'znak: 0 1 2 3 4 5 6 7 8 9
Loop
EndCo tu jest źle?
