EagleStar
08.03.2010, 11:05
Hallo zusammen,
ich versuche drei Taster (STK500) mit einem ATmega8@16MHz abzufragen!
Ich bin grad wirklich am verzweifeln, ich habe das schon öffter gemacht, doch hier kann ich keinen Fehler finden! Trotzdem tut es nicht?!
Kann mir jemand einen Tipp geben, was ich hier noch ändern könnte?
Danke schon mal...
Gruß der EagleStar
$regfile = "m8def.dat"
$crystal = 16000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcdbus = 4
Config Lcd = 16 * 2
Cursor Off Noblink
Taminus Alias Portd.0
Tamenu Alias Portd.1
Taplus Alias Portd.2
Config Taminus = Input
Config Tamenu = Input
Config Taplus = Input
Taminus = 1
Tamenu = 1
Taplus = 1
Dim Modi As Byte
Modi = 0
Cls
Lcd "Starte"
Lowerline
Lcd "DDS V1.0"
Wait 3
Cls
Do
Debounce Taminus , 0 , Klein , Sub
Debounce Tamenu , 0 , Modus , Sub
Debounce Taplus , 0 , Gross , Sub
Loop
Klein:
Cls
Lcd "Taster -"
Lowerline
Lcd "aktiv"
Return
Modus:
Cls
Lcd "Taster M"
Lowerline
Lcd "aktiv"
Return
Gross:
Cls
Lcd "Taster +"
Lowerline
Lcd "aktiv"
Return
End
ich versuche drei Taster (STK500) mit einem ATmega8@16MHz abzufragen!
Ich bin grad wirklich am verzweifeln, ich habe das schon öffter gemacht, doch hier kann ich keinen Fehler finden! Trotzdem tut es nicht?!
Kann mir jemand einen Tipp geben, was ich hier noch ändern könnte?
Danke schon mal...
Gruß der EagleStar
$regfile = "m8def.dat"
$crystal = 16000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcdbus = 4
Config Lcd = 16 * 2
Cursor Off Noblink
Taminus Alias Portd.0
Tamenu Alias Portd.1
Taplus Alias Portd.2
Config Taminus = Input
Config Tamenu = Input
Config Taplus = Input
Taminus = 1
Tamenu = 1
Taplus = 1
Dim Modi As Byte
Modi = 0
Cls
Lcd "Starte"
Lowerline
Lcd "DDS V1.0"
Wait 3
Cls
Do
Debounce Taminus , 0 , Klein , Sub
Debounce Tamenu , 0 , Modus , Sub
Debounce Taplus , 0 , Gross , Sub
Loop
Klein:
Cls
Lcd "Taster -"
Lowerline
Lcd "aktiv"
Return
Modus:
Cls
Lcd "Taster M"
Lowerline
Lcd "aktiv"
Return
Gross:
Cls
Lcd "Taster +"
Lowerline
Lcd "aktiv"
Return
End