3 Taster und 3 LEDs - Es will einfach nicht (bascom)

[Matthias (Gast)]

Hi all,

ich habe folgendes Problem:

Ich habe einen Attiny 2313, 3 leds und 3 Taster.
Ich möchte sozusagen einen Switch machen.
Strom liegt an: LED 1 an
druck auf taster 2: LED1 aus - 2 an
durck auf taster 3: LED2 aus - 3 an
druck auf taster 1: LED3 aus - 1 an

(das möchte ich durcheinander machen)

Hier mein Program:

$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
'---------------



Led2 Alias Portb.2
Led1 Alias Portb.1
Led3 Alias Portb.0

Config Debounce = 100
Config Portb = Output
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.5 = Input
Portd.3 = 1
Portd.4 = 1
Portd.5 = 1

Dim Warten As Byte
Warten = 100
                                                        '
Portb.7 = 1
Waitms Warten
Portb.6 = 1
Waitms Warten
Portb.5 = 1
Waitms Warten
Portb.4 = 1
Waitms Warten
Portb.3 = 1
Waitms Warten
Portb.1 = 1
Waitms Warten

Do
Debounce Pind.3 , 0 , Taster1 , Sub
Debounce Pind.4 , 0 , Taster2 , Sub
Debounce Pind.5 , 0 , Taster3 , Sub
Loop
End


Taster1:
Led1 = 1
Led1 = 0
Led1 = 0
Return

Taster2:
Led1 = 0
Led1 = 1
Led1 = 0
Return

Taster3:
Led1 = 0
Led1 = 0
Led1 = 1
Return

bitte helft mir.

gruß
Matthias

[Stefan (Gast)]

vielleicht sollte in den Subs nicht überall nur LED1  stehen..  ZU viel 
Copy&Paste ist auch nicht gut..

[Matthias (Gast)]

daaaaannnkkkkeeee. Das war's!

War gesten einfach schon zu spät :D

danke nochmal!