Witam chciałbym prosić o pomoc.
Zacznę od tego ,że jestem początkujący, uczę się programować w bascom-avr
i chciałbym napisać program, żeby działał podobnie do układu 4017, tylko z ulepszeniami.
Po naciśnięciu przycisku, zapala się kolejna dioda, a po naciśnięciu drugiego, zapala się poprzednia.
Mój program wygląda tak:
Jest to napisane na 3 diody ale w razie potrzeby, dopisałbym na więcej.
PROBLEM POLEGA NA TYM, ŻE TEN PROGRAM NIE DZIAŁA POPRAWNIE!!
Prosił bym o pomoc co jest nie tak gdyż siedzę nad tym już kolejny dzień i próbowałem na różne sposoby.
Poprawiłem tytuł i treść wiadomości.
Regulamin p.15
[zumek]
Zacznę od tego ,że jestem początkujący, uczę się programować w bascom-avr
i chciałbym napisać program, żeby działał podobnie do układu 4017, tylko z ulepszeniami.
Po naciśnięciu przycisku, zapala się kolejna dioda, a po naciśnięciu drugiego, zapala się poprzednia.
Mój program wygląda tak:
$regfile = "m8def.dat"
$crystal = 1000000
Config Portc.0 = Input
Config Portc.1 = Input
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
Dim X As Byte
Dim Z As Byte
Portc.0 = 1
Portc.1 = 1
Portd.0 = 1
Portd.1 = 1
Portd.2 = 1
X = Z
Do
If Pinc.0 = 0 Then Z = X + 1
If Pinc.1 = 0 Then Z = X - 1
If Z = 1 Then
Portd.0 = 0
Else
Portd.0 = 1
End If
If Z = 2 Then
Portd.1 = 0
Else
Portd.1 = 1
End If
If Z = 3 Then
Portd.2 = 0
Else
Portd.2 = 1
End If
Loop
EndJest to napisane na 3 diody ale w razie potrzeby, dopisałbym na więcej.
PROBLEM POLEGA NA TYM, ŻE TEN PROGRAM NIE DZIAŁA POPRAWNIE!!
Prosił bym o pomoc co jest nie tak gdyż siedzę nad tym już kolejny dzień i próbowałem na różne sposoby.
Poprawiłem tytuł i treść wiadomości.
Regulamin p.15
[zumek]
