Witam
Chciałem zrobić prosty układ zapalający diody w losowej kolejności
połączyłem wszystko według schematu przedstawionego poniżej:
I zaprogramowałem uC tym programem:
Tyle że po zaprogramowaniu i podłączeniu do zasilania żadna dioda się nie świeci i nie zmienia.
uC na pewno jest sprawny bo po zaprogramowaniu go innym programem wszystko działa jak należy.
Wcześniej zaprogramowałem to jeszcze tym kodem:
I wszystko działało lecz ten kod po każdym ponownym podłączeniu zasilania zaświeca ledy według tego samego schematu.
Ma ktoś pomysł jak przerobić ten pierwszy program lub zna ktoś jeszcze inny sposób?
Za wszelkie pomysły dziękuje.
Chciałem zrobić prosty układ zapalający diody w losowej kolejności
połączyłem wszystko według schematu przedstawionego poniżej:
I zaprogramowałem uC tym programem:
Config Portb = &B01111111
Portb = &B11111111
Dim Cyfra(5) As Byte
Dim R As integer
Cyfra(1) = 254
Cyfra(2) = 252
Cyfra(3) = 248
Cyfra(4) = 240
Do
For R = 1 To 4
Portb = Cyfra(r)
wait 1
Next R
Loop
EndTyle że po zaprogramowaniu i podłączeniu do zasilania żadna dioda się nie świeci i nie zmienia.
uC na pewno jest sprawny bo po zaprogramowaniu go innym programem wszystko działa jak należy.
Wcześniej zaprogramowałem to jeszcze tym kodem:
Config Portb = &B01111111
Portb = &B11111111
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim I As Word
do
I = rnd(7)
if I = 1 then portb = &B11111110
if I = 2 then portb = &B11111100
if I = 3 then portb = &B11111000
if I = 4 then portb = &B11110000
if I = 5 then portb = &B11100000
if I = 6 then portb = &B11000000
waitms 35
portb = &B11111111
waitms 35
loop
endI wszystko działało lecz ten kod po każdym ponownym podłączeniu zasilania zaświeca ledy według tego samego schematu.
Ma ktoś pomysł jak przerobić ten pierwszy program lub zna ktoś jeszcze inny sposób?
Za wszelkie pomysły dziękuje.
