Timer programmieren

[johannes]

Hallo,

Ich probiere jetzt schon länger im Rahmen meiner Diplomarbeit einen Timer für folgendes Problem zu programmieren.

Es muss ein Zylinder permanent ausgefahren sein, und mit dem Timer nach einer definierten Zeit z.B. 1,5s für einen Zeitraum von beispielsweise 0,2s eingefahren werden. Das ganze soll als Schleife ablaufen, nachdem es mit einem Starttaster gestartet wurde.

Wäre echt super wenn mir jemand helfen könnte.

[bits'bytes]

Zitat von johannes

Hallo,

Ich probiere jetzt schon länger im Rahmen meiner Diplomarbeit einen Timer für folgendes Problem zu programmieren.

Es muss ein Zylinder permanent ausgefahren sein, und mit dem Timer nach einer definierten Zeit z.B. 1,5s für einen Zeitraum von beispielsweise 0,2s eingefahren werden. Das ganze soll als Schleife ablaufen, nachdem es mit einem Starttaster gestartet wurde.

Wäre echt super wenn mir jemand helfen könnte.

Hallo Johannes!

In welcher Sprache programmierst du ?
Funktioniert schon was ?
Woran scheitert es ?

2 Timer, wenn immer einer abläuft, startet er den anderen, die Ansteuerung des Ventils hängst du parallel drauf ...

Den Start-Taster kannst du auch mal zur Vereinfachung weglassen und später hinzufügen....


bg
bb

[johannes]

Hallo bits´bites

Danke für die schnelle Antwort

Ich programmiere das in ST, hab mich heute nochmal mit beschäftigt und mir nochmal einen externen Rat eingeholt, darauf hin ist dann diese Schrittkette entstanden.

Hier mal das bisherige Programm, werde das Morgen mal ausprobieren und hoffen, dass es funktioniert...

PROGRAM _CYCLIC



CASE Step OF
0: (* Warten auf Start *)
DO_Zyl_einfahren:=TRUE;
DO_Zyl_ausfahren:=FALSE;
IF DI_Start AND NOT DI_Stop THEN
Timer:=0;
DO_Zyl_einfahren:=FALSE;
DO_Zyl_ausfahren:=TRUE;
Step:=1;
END_IF

1: (* Langes Intervall läuft *)
IF DI_Stop THEN
Step:=3;
ELSE
Timer:=Timer+ZykZeit;
IF Timer>=Ausfahrzeit THEN
DO_Zyl_einfahren:=TRUE;
DO_Zyl_ausfahren:=FALSE;
Timer:=0;
Step:=2;
END_IF
END_IF

2: (* Lüftzeit läuft *)
IF DI_Stop THEN
Step:=3;
ELSE
Timer:=Timer+ZykZeit;
IF Timer>=Lueftzeit THEN
DO_Zyl_einfahren:=FALSE;
DO_Zyl_ausfahren:=TRUE;
Timer:=0;
Step:=1;
END_IF
END_IF

3: (* Gestoppt *)
DO_Zyl_einfahren:=TRUE;
DO_Zyl_ausfahren:=FALSE;
Step:=0;
END_CASE

END_PROGRAM

[bits'bytes]

Hi Johannes,

sieht gut aus, hab mal kurz deinen Code reinkopiert in die AR000 und laufen lassen.

Was ich an deiner Stelle auf jeden Fall ändern würde

- 2 Timer Bausteine TON

Nicht mit Zykluszeit und aufaddieren, das geht zwar auch ist aber sehr fehleranfällig, glaub es mir.

bg
bb

PS : anbei ein Screenshot vom Test

[johannes]

Vielen Dank für die schnelle Hilfe klappt alles super:-)