Hallo

Noch ein kleiner Nachtrag, bin ja blöd brauch ja nur den kompletten B-Port toggeln. Jetzt bleibt nur noch das Problem des Ausschaltens auch über einen kurzen Tastendruck.

Code:
$regfile = "attiny2313.dat"
$crystal = 4000000


Config Pind.2 = Input                                       'Taster Eingang

Config Portb.1 = Output                                     'Led1 aus
Config Portb.2 = Output                                     'Led2 aus
Config Portb.3 = Output                                     'Led3 aus

Taster Alias Pind.2
Led Alias Portb                                             'Taster def.
Led1 Alias Portb.1                                          'Led 1 def.
Led2 Alias Portb.2                                          'Led 2 def.
Led3 Alias Portb.3                                          'Led 3 def.

Led1 = 1
Led2 = 1
Led3 = 1


Dim Tastendrucklaenge As Word

Do

Pulsein Tastendrucklaenge , Pind , 2 , 0

If Tastendrucklaenge > 200 And Tastendrucklaenge < 3000 Then Toggle Led1
If Tastendrucklaenge > 5000 Then Toggle Led

Loop