Hallo,
Ich habe zum Testen mal ein Programm für mein ATMega16 geschrieben:
Code:
Ddra = &B0000010
Porta = &B0000001  

Dim Zustand As Bit
Zustand = 0
Do
 If Pina.0 = 0 Then                       'Wenn Taster gedrückt den Zustand Invertieren
               Toggle Zustand
  End If

If Zustand = 1 Then                    'Wenn Zustand = 1 LED an, ansonsten LED aus

               Porta.1 = 1
Else
 Porta.1 = 0
End If

Loop

Das Programm soll die LED mit nach Tastendruck so lange zum leuchten Bringen bis ein erneuter Tastendruck erfolgt.
Funktioniert soweit auch, allerdings sehr schlecht, da:

-Die LED beim gedrücktgehaltenen Taster dunkel leuchtet
- Das ganze nur manchmal funktioniert weil die LED nach dem Tastendruck wieder ausgeht.
-Die LED beim ein und aus gehen den Anschein erweckt als sei sie mit einer PWM gedimmt, die geht also nicht sofort aus bzw an.

Hat jemand ne Ahnung wieso das nicht richtig funktioniert?

Gibt es vielleicht irgendwo ein fertiges "Memory Programm"??

Im Voraus bedankt sich,

Alex