Ja das hab ich auch grad gemerkt...bekomme da leider keine guten werte. Hab jetzt folgendes ausprobiert um erst mal die Impulse zu zählen:
Der int1 hängt an nem Pullup und ich verbinde ihn dann immer gegen Massen aber die Werte die ich bekomme sind viel höher als die Anzahl der Berührungen...Code:$regfile = "m8def.dat" $framesize = 128 $swstack = 64 $hwstack = 64 $crystal = 8000000 $baud = 9600 Dim Umfang As Byte Dim Geschwindigkeit As Byte Dim Cnt As Integer Config Int1 = Falling Enable Interrupts Enable Int1 On Int1 Count Do Print Cnt Cnt = 0 Wait 1 Loop End Count: Cnt = Cnt + 1 Return
Lesezeichen