Erst mal Danke alle zusammen!
Ich muss mir zuerst das mit den Interrupts durchlesen und ausprobieren, das hört sich nämlich gut an. Bisher hatte ich es so wie unten. Probiert hab ichs auch mit If..Then usw.
Das ging zwar alles so lala, aber eben nicht gescheid. Wenn man schnell hintereinander die Taste betätigt kriegt er oft garnix mit.
Das ganze schaut so aus:
Gruß
Hans

-AVR 8515 und STK200 Board.
-LCD Display

'///// INITIALISIERUNG //////
$regfile = "8515def.dat"
$crystal = 4000000
Config Lcd = 20 * 4
Config Lcdmode = Port
Config Lcdbus = 4
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6
Config Lcdpin = Pin , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2

Config Portd = Input
Config Portb = Output

Set Portb.0
Set Portb.1
Set Portb.2
Set Portb.3
Set Portb.4
Set Portb.5
Set Portb.6
Set Portb.7
Cls

'///// HAUPTPROGRAMM ///////
Do
Debounce Pind.0 , 0 , Taste0 , Sub
Debounce Pind.1 , 0 , Taste1 , Sub
Debounce Pind.2 , 0 , Taste2 , Sub
Loop

'---------------------------------------------------------
Taste0:
---------------------------------------------------------
Cls
Waitms 1000
Lcd "Das war Taste0"
Waitms 1000
....
Return

usw...


'///// Unterprogramme /////

END