kleines update

hab da programm jetzt so geändert damit es auf tastendruck funktioniert.

nur der gabellichtschranke macht probleme, led (motor) geht nach x impulsen nicht aus.

wenn ich den int0 mit finger berühre funktionierts, also dürft vielleicht das ganze nicht mit gabellichtschranke funktionieren?!

gabellichtschranke gp1a73e http://document.sharpsma.com/files/gp1a73a_e.pdf
hab sie mit ausgang (47k) gegen 5v und vcc (330ohm) gegen 5v beschalten
vielleicht funkt das gar nicht mit gp1a73

mfg
piri

danke für tips

aktuelle code, mit veränderungen, hab die veränderungen teilweise aus andren codes kopiert, weil mit denen zumindest die led an funkt!

Code:
$regfile = "m8def.dat"
$baud = 9600
$crystal = 8000000

Config Pinc.2 = Input
Config Portb.1 = Output





Dim Irq0 As Word





'' Interrupt Int0 config
On Int0 Irq0

Config Int0 = Falling
Enable Int0
Enable Interrupts





Do



''abfrage ob taste gedrückt & Kontrolle ob irq0 noch nicht über 800
Abfrage:




If Pinc.2 = 0 Then
Gosub Rauf
End If



Waitms 100






If Irq0 > 2 Then
Gosub Halt
Else



End If


Loop


'' bei Int0 wird irq0 um 1 erhöht
Irq0:
Incr Irq0


Return




'' wenn 800 impulse ereicht dann motor stopp
Halt:

Irq0 = 0
Portb = &B00000000
Waitms 100
Return

'' wenn 800 interruptimpulse noch nicht erreicht sind motor läuft weiter
Rauf:
Portb = &B11111111
Waitms 100
Return