hallo besserwessi,

danke für deine antwort! du hast mir wirklich sehr geholfen.

ich habe mir jetzt folgendes überlegt:
Code:
$regfile = "m32def.dat"
$crystal = 16000000

Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Lcdbus = 4
Initlcd
Cls
Cursor Off Noblink

Config Pinb.0 = Input
Portb.0 = 1
Config Pina.0 = Input
Porta.0 = 1

Config Timer0 = Counter , Edge = Falling
Timer0 = 0
On Timer0 Isr_von_timer0
Stop Timer0
Enable Timer0

Config Timer1 = Timer , Prescale = 1024
Timer1 = 0
Stop Timer1
Enable Timer1

Enable Interrupts


Main:

Dim I As Long
I = 0

Locate 1 , 1
Lcd "Ergibnis in 2 sec"

Start Timer1
Start Timer0
Do
Loop Until Timer1 = 31250
Stop Timer0
Stop Timer1
Timer1 = 0

I = I * 256
I = I / 2

Locate 3 , 1
Lcd "Wert = " ; I

Do
Loop Until Pina.0 = 0
Cls
Waitms 200
Goto Main

End

Isr_von_timer0:
Timer0 = 0
Incr I
Return
was sagst du dazu??
könnte man das so lassen??

gruß
chris