Bascom i 4 diody sterowane 3 przyciski pomocy

[Kasanova75]

Witam mam taki problemik jestem początkujący w programowaniu, a potrzebuje wysterowac 4 diody trzema przyciskami. tzn. jak nie świeci się D1 & D2 & D3 to się świeci D4, jak nacisne SW1 to zapala D1 jak nacisne SW1 to D1 gaśnie i analogicznie SW2-D2, SW3-D3. Udało mi się coś skleci ale nie działa jak trza. prosze o pomoc

[ Dodano: 03-10-2006, 19:48 ]
$crystal = 11059200

P1 = 0
P3 = 0

Do

If P1 = 0 Then P1 = 128

If P3 = 2 And P1 <> 2 Then P1 = 16
If P3 = 4 And P1 <> 4 Then P1 = 32
If P3 = 8 And P1 <> 8 Then P1 = 64

Wait 2

If P3 = 2 And P1 = 16 Then P1 = 0
If P3 = 4 And P1 = 32 Then P1 = 0
If P3 = 8 And P1 = 64 Then P1 = 0

Wait 2

Loop

End

ale nie działa tak jak chciałem

[ Dodano: 03-10-2006, 19:53 ]
Kolega napisał mi cosik takiego ale jak przytrzymam przcisk to mi mrugaja diody, a mnie chodzi o to że jak nacisne SW1 to dioda D1 się świeci a jak puszcze sw i nacisne drugi raz to odrazu gasnie D1

[ Dodano: 03-10-2006, 21:22 ]
cd...

[mw]

Wykorzystaj instrukcje Debounce.

[ujus]

trochę dziwny program no ale ja tez nie jestem the best'ciak jeśli trafisz przyciskiem na moment wait 2sek przez ten czas układ zajęty jest właśnie tym odliczaniem także założenie do kitu. Pozdro