Witam. Założyłem sobie kilka prostych celów i stopniowo będę je realizował. Tworze programik który stopniowo będę modernizował i dodawał coraz to rozmaitsze funkcje związane oczywiście ze sterowaniem diod LED.Mam nadzieje że starczy cierpliwości innym a także wyrozumiałości:)Pracuje na atmega8.
Zatem mam już swój 1 program:
Chciałbym wydłużyć zakres "biegnięcia" diody o kolejny port np PORTB. Czyli dioda biegnie od pind0 do pind6 i przechodzi do pinb0 do pinb6 po czym zawraca. Wymyśliłem coś takiego:
Co wy na to??
Proszę pamiętać o używaniu znaczników code. - arnoldziq
Zatem mam już swój 1 program:
Config Portd = Output
Dim i as byte
Portd = &B11111110
Do
for i=1 to 7
Rotate Portd , Left , 1
Waitms 200
next
for i=1 to 7
Rotate Portd , right , 1
Waitms 200
next
Loop
End Chciałbym wydłużyć zakres "biegnięcia" diody o kolejny port np PORTB. Czyli dioda biegnie od pind0 do pind6 i przechodzi do pinb0 do pinb6 po czym zawraca. Wymyśliłem coś takiego:
Config Portd = Output
Config Portb = Output
Dim i as byte
Portd = &B11111110
Dim j as byte
Portb = &B11111110
Do
for i=1 to 7
Rotate Portd , Left , 1
Waitms 200
next
for j=1 to 7
Rotate Portb , Left , 1
Waitms 200
next
for j=1 to 7
Rotate Portd , right , 1
Waitms 200
next
for i=1 to 7
Rotate Portd , right , 1
Waitms 200
next
Loop
EndCo wy na to??
Proszę pamiętać o używaniu znaczników code. - arnoldziq
