Blinker

Hallo,

prinzipiell hab ich es bissher auf immer so aehnlich geloesst, wie Christian vorgeschlagen hat.
Habe in meinem Programmen auch immer ziemlich viele Timer verwendet - irgendwann verliert da jeder den Ueberblick.

Ich kann mir auch sowas vorstellen:

; global, oder im Dat
int C_iInterval[10]
int iLastTime[10]
bool bBlinker[10]


; lokal
int iCnt


def blinker
  ResetBlinker()
  while TRUE
    for iCnt = 1 to 10
      if $timer[1]/C_iInterval > iLastTime[iCnt] then
        iLastTime[iCnt] = $timer[1]/C_iInterval
        bBlinker[iCnt] = NOT(bBlinker[iCnt])
        ' timer ueberlauf behandeln
        if iCnt = 10 then
          if $Timer[iCnt] > (65535 - 20) then
            ResetBlinker()
          endif
        endif
      endif
    endfor
  endwhile


  $out[33] = ($in[10] AND bBlinker[1]) OR $in[11] ; Ausgang blinkt mit 10 Hz
  $out[34] = ($in[10] AND bBlinker[2]) OR $in[11] ; Ausgang blinkt mit 5 Hz
  $out[35] = ($in[10] AND bBlinker[3]) OR $in[11] ; Ausgang blinkt mit 2.5 Hz
  $out[35] = ($in[10] AND bBlinker[10]) OR $in[11] ; Ausgang blinkt mit 1 Hz Hz


end






def ResetBlinker
  int iCnt as long
  for iCnt = 1 to 10
    iLastTime[iCnt] = $timer[1] / C_iInterval[10]
    C_iInterval[iCnt] = 100 * iCnt
  endfor
  $timer_stop[1] = FALSE
  $Timer[1] = 0
end

Gruss Stefan

Ich habs allerdings nie probiert!

Da waren jede Menge Fehler drin - so sollte es tun.

DEF blinker( )
  ; global, oder im Dat
  int C_iInterval[10]
  int iLastTime[10]
  bool bBlinker[10]
  ; lokal
  int iCnt
  InitBlinker()
  while TRUE
    for iCnt = 1 to 10
      if ($timer[1] / C_iInterval[iCnt]) > iLastTime[iCnt] then
        iLastTime[iCnt] = ($timer[1] / C_iInterval[iCnt])
        bBlinker[iCnt] = NOT(bBlinker[iCnt])
        ;timer ueberlauf behandeln
        if iCnt == 10 then
          if $Timer[iCnt] > (65535 - 20) then
            ResetBlinker()
          endif
        endif
      endif
    endfor
  endwhile
  $out[33] = ($in[10] AND bBlinker[1]) OR $in[11] ; Ausgang blinkt mit 10 Hz
  $out[34] = ($in[10] AND bBlinker[2]) OR $in[11] ; Ausgang blinkt mit 5 Hz
  $out[35] = ($in[10] AND bBlinker[3]) OR $in[11] ; Ausgang blinkt mit 2.5 Hz
  $out[35] = ($in[10] AND bBlinker[10]) OR $in[11] ; Ausgang blinkt mit 1 Hz Hz
end
def ResetBlinker()
  int iCnt as long
  for iCnt = 1 to 10
    iLastTime[iCnt] = $timer[1] / C_iInterval[10]
    C_iInterval[iCnt] = 100 * iCnt
  endfor
  $timer_stop[1] = FALSE
  $Timer[1] = 0
end
def InitBlinker()
  int iCnt
  for iCnt = 1 to 10
    C_iInterVal[iCnt] = 1000
    bBlinker[iCnt] = FALSE
  endfor
  ResetBlinker()
end

Hallo,
ich habe den Blinker mal ausprobiert ( den ersten der vorgeschlagen wurde). Er funktioniert super.
Aber nun steh ich gerade völlig auf dem Schlauch.
Für was ist die -500 bei $TIMER[1]=-500 ;0,5?
Die 0,5 ist ja die Ablaufzeit wenn ich das richtig sehe.

Danke für euer Verständnis für die Blöde Frage.

Gruß Friedrich

Der Timer startet bei -500ms. Sobald er in den positiven Bereich wechselt geht $TIMER_FLAG auf True.
Soll heißen:

$TIMER[1] = - 500
IF $TIMER_FLAG[1] THEN 
;mach alle 500ms was tolles 
$TIMER[1] = - 500
ENDIF

Im Prinzip ist es das gleiche wie:

$TIMER[1] = 0
IF $TIMER[1]>500 THEN 
;mach alle 500ms was tolles 
$TIMER[1] = 0
ENDIF

Timer_Flag ist aber irgendwie schöner zu verarbeiten...

Übrigens ist der einfachste Blinker im Submit IMO immer noch der:
bBlinker wird als boolsche Variable deklariert
In der Submit Schleife:

$TIMER_STOP[1]=FALSE
IF $TIMER_FLAG[1] THEN
  $TIMER[1]=-500
 bBlinker=NOT bBlinker
ENDIF

Danke Irrer Polterer für die gute Erklärung.
Dann habe ich das mit dem Timer glaube ich wirklich falsch verstanden. Ich nun benötige ich glaube auch noch eine Erörterung für was die 0,5 steht.
Ich dachte ja das nach Ablauf der 0,5 das "Tu was" kommt. Nun hab ich eben einfach mal mit dem wert 0,5 gespielt und konnte aber keine Veränderung feststellen.
Hast du eventuell auch einen Tipp wo ich so was nachlesen kann bevor ich jedes Mal so fragen stellen muss?

Gruß Friedrich

Vergesst einfach meine frage hier..... Wer lesen kann ist klar im Vorteil ....
Ich hab das Semikolon überlesen ... nun hab ich´s mit den 0,5 auch verstanden...

nuja, alle 0,5 Sekunden wechselt das BOOL bBlinker seinen Zustand: Wenns aus ist, gehts an und wenns an ist, gehts aus...
mithin ist es ein Blinker, der eine halbe Sekunde aus ist und dann für ne halbe Sekunde an.
Änderst Du die "-500" auf "-750", dann wird die Impulszeit und die Pausenzeit jeweils ne dreiviertelsekunde sein.
Um den Blinker auf ne Lampe durchzusteuern könntest Du in die sps.sub z.B. sowas wie "$out[22] = bBlinker" reinschreiben.
Das bewirkt, dass dein konfigurierter Ausgang 22 (wo die Lampe anzuschliessen wäre) blinkt....

Ja genauso war es titan 72.
Deswegen sagte ich ja das ihr die frage lieber schnell vergessen solltet [emoji51].
Ich frage sicher gelegentlich komisches zeug aber da hab ich mich selbst übertroffen.

Ich hab da mal noch ein Anliegen.

Nach dem wir die Lichterorgel nun erfolgreich eingebunden haben ist uns nun folgendes aufgefallen:
-Zelle Steht in Automatik (Roboter AUT, Programm angehalten)
-Nun wird der Roboter am Wochenende ausgeschaltet (bis jetzt Kaltstart)
Nach wieder einschalten fährt der Submitinterpreter nicht hoch.
Nach dem ich den Roboter mit der Orginal SPS im Automatikbetrieb einen Zyklus laufen lassen habe, kann man die Orginal SPS abwählen und die Bearbeitete wieder anwählen.
Dann läuft die SPS auch bis zum nächsten Neustart.

Was kann das für Fehlerursachen haben?

Und mal noch was anderes.... Habe vorhin von einem Multisubmit gelesen. Hat das jemand von euch?

Gruß Friedrich