Hy

hab ein Problem und zwar möchte ich einen Motro wo hinten eine Inkrementierungsscheibe mit einem gabellichtschranke sitzt steuern.

Funktionen "Taste an"
Motor beginnt sich zu drehn bis zu einem definierten wert (zb. Gabellichtschranke nach 800 impulsen) dann motor stopp!

Funktion "Taste aus"
Motor dreht in die andere richtung (wieder bis zu 800 impulsen ) dann stopp.

also motoransteruern und gabellichtschranke auslesen ist kein problem, aber wie sag ich
stopp nach 800 impulsen vom Gabellichtschranke?!

hab schon bisschen im forum gestöpert und das gefunden was mir helfen könnte
Code:
----------------------------------------------
 $regfile = "2313def.dat"
$crystal = 7372800
$baud = 19200

Dim Zaehlerirq0 As Long


Config Pinb.2 = Output
Portb.2 = 0

Zaehlerirq0 = 0
On Int0 Irq0
Enable Int0

Config Int0 = Falling

Enable Interrupts




'------------------------------------------------------------
Do

If Zaehlerirq0 > 120 Then
Portb.2 = 1
Wait 2
Portb.2 = 0
Zaehlerirq0 = 0
End If
Waitms 50
Loop

End

'------------------------------------------------------------

Irq0:
 Incr Zaehlerirq0
Return
--------------------------------------------------
EDIT: Bitte um Code-Tags ! (PicNick)

leider blick ich nicht ganz durch
(is aus https://www.roboternetz.de/phpBB2/ze...llichtschranke)

danke für eure hilfe

bei interesse könnt ich euch noch ein foto vom motor mit inkrementierungsscheibe reinstellen

mfg
piri