Problem mit Interrupt

[Naxos]

Wenn ich auf eine Taste am atmega16 drücke, sollte dieses auf dem lcd ein Wort schreiben. Aber ohne dass ich drücke schreibt es das wort 3mal. Wenn ich drücke dauert es einige zeit bis es etwas tut. Es schreibt das Wort dann aber auch 3mal.
Hier der Bascom Quellcode:


$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200
$framesize = 32

Config Adc = Single , Prescaler = 32
Config Portd.2 = Input
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Config Lcdbus = 4
Config Single = Scientific , Digits = 2
Config Int0 = Falling
Enable Interrupts
Enable Int0
On Int0 Spannungsausgabe_auf_tastendruck


Dim Batterypower As Integer


Cls
Locate 1 , 1
Lcd "gestartet"

Do
Batterypower = Getadc(0)
Print Batterypower
Wait 1
Loop


Spannungsausgabe_auf_tastendruck:
Locate 2 , 1
Lcd "hallo"
Wait 1
Cls
Return

Danke im Voraus

naxos

Edit von BASTIUniversal: Bitte, bitte Code-Boxen verwenden!!

[Besserwessi]

Es könnte schon reichen den Pullup an INT0 = PD2 zu aktivieren. Also Portd.2 = 1.

[Naxos]

Danke für deine Hilfe es funktioniert jetzt. Wäre nicht auf so eine Lösung gekommen. Noch einmal vielen Dank.

Naxos