Trigger bei Drehbewegung

Dann musst dir glaub ich was basteln. z.B. im sub $Axis_Act.A6 abfragen und dein Signal rausschicken. Bedenke aber dabei, dass es hier zu Zeitprobleme kommen kann, da die Sub nur alle 12ms durchläuft.

Es sollte doch auch gehen, dass du nach deiner A6 Bewegung einfach
in einer Schleife den Vorlaufzeiger diese Geschichte erledigen läßt.
Dort könntest du einfach den $axis_act abfragen, ob er sich um 1° geändert hat und dann dein Signal ausgeben.....

Ich würd's per Interrupt machen:

DEF MYPROG()


INTERRUPT DECL 8 WHEN $AXIS_ACT.A6>90 THEN DO TRIGGER_OUT()
...
PTP {A1 0, A2 -100,A3 ...... A6 -180}
INTERRUPT ON 8
PTP {A6 360}
INTERRUPT OFF 8


...
..
END
DEF TRIGGER_OUT()
INTERRUPT OFF 8
$OUT[1]=TRUE
END

Das musst du natürlich noch passend machen für alle Stellen an denen du Triggern willst.

REAL R_TRIGA6 ;in $Config.dat 
DEF MYPROG()
;===== Ein Trigger pro Grad


INTERRUPT DECL 8 WHEN $AXIS_ACT.A6>R_TRIGA6 THEN DO TRIGGER_OUT()
...
PTP {A1 0, A2 -100,A3 ...... A6 -180}
R_TRIGA6=$AXIS_ACT.A6+1
INTERRUPT ON 8
PTP {A6 360}
INTERRUPT OFF8


...
..
END
DEF TRIGGER_OUT()
R_TRIGA6=$AXIS_ACT.A6+1
PULSE($OUT[1], TRUE,0.2)
END

Lass mal das 'THEN' weg.

Hallo

war da nicht was mit logischen Operationen in eine Interrupt deklarierung. ich glaub das geht net musste erst nen Cycflag rausmachen

oder so wie ichs machen würd

zwei Interrupts

INTERRUPT DECL 14 WHEN bTrigger DO STOP2()
INTERRUPT DECL 14 WHEN NOT bTrigger DO STOP2()

und in Stop2 muss rein bTrigger = NOT bTrigger

und in Stop2 mit IF den Zustand abfragen wann was passieren soll

IF $POS_ACT.A>-80 THEN
BLAH
ENDIF

dann schaut er alle 12ms nach obs soweit ist

Gruß Loipe

edit jetzt hab ich doch den fehler mit den THEN reinkopiert