Programmänderungstipps gesucht

if ($in[88]==off) then
Hier die Befehle, die übersprungen werdrn sollen
endif

das bewirkt, daß bei zusätzlich eingeschaltetem Eingang 88 die Befehle übersprungen werden

Also ich mach das immer über die Programnummer Variablen PGNO.
Ich ruf einfach logic 1 = Hauptprogramm_1 bzw.
logic 2 = Hauptprogramm_2

in diesen beiden Progs befindet sich dann jeweil eine Endlosschleife aus der wiederrum einzelne Unterprogs aufgrufen werden.

Ausschnitt aus Cell:

SWITCH PGNO ; Select with Programnumber

CASE 1
P00 (#EXT_PGNO,#PGNO_ACKN,DMY[],0 ) ; Reset Progr.No.-Request
hauptprogramm_1() ; Call User-Program

CASE 2
P00 (#EXT_PGNO,#PGNO_ACKN,DMY[],0 ) ; Reset Progr.No.-Request
hauptprogramm_2() ; Call User-Program

Hallo,

Da das ein Bearbeitungsroboter ist, gehe ich davon aus, das du P00 und den ganzen Extern-Mist komplett vergessen kannst und dein Cell einfach ein bisschen anders ausschaut.

Wenn ich es richtig verstanden habe, ist der gesammte Ablauf Im Cell drin. Du kannst Cell kopieren, oder in Abhaengigkeit von einer Variable (oder Eingang) den Teil weglassen.

Hinsichtlich der prinzipiellen Erweiterbarkeit wuerde ich aber anders vorgehen.
Loop aus dem alten Progaramm in zwei neue Programme kopieren , die nennst du dann Ablauf_1 und Ablauf_2..oder so
Und dann einen Programmverteiler machen, der die Programme aufruft.
In etwa so:

def haupt()
  INI
  ..
  ..
  ..
  loop
    While NOT(E_HTE)
      switch Ablauf
        case 1
          Ablauf_1()
        case 2
          Ablauf_2()
        default
          ; nix
      end switch
    endwhile
  endloop
end

Aber es fuehren ja bekanntlich viele Wege nach Rom.

BR Stefan

Wenn du die P00 anweisungen auskommentierst bist du genau so weit wie es hier stefanM beschrieben hat. Der ganz klare Vorteil meiner Meinung nach, wenn du über die Programmnummer gehst ist, wenn du morgen die Logic 3 sprich Hauptprogramm_3 brauchst kopierst du dier Hauptprogramm 1 oder 2 was am besten passt und schmeist einfach die aufrufe raus die du für diesen Ablauf nicht brauchst bzw. kopierst andere rein und du bist fertig.

;FOLD AUTOEXT INI
;  P00 (#INIT_EXT,#PGNO_GET,DMY[],0 ) ; Initialize extern mode
  ;ENDFOLD (AUTOEXT INI)
  LOOP
;    P00 (#EXT_PGNO,#PGNO_GET,DMY[],0 )
    SWITCH  PGNO ; Select with Programnumber


    CASE 1
 ;     P00 (#EXT_PGNO,#PGNO_ACKN,DMY[],0 ) ; Reset Progr.No.-Request
      hauptprogramm_1() ; Call User-Program


    CASE 2
 ;     P00 (#EXT_PGNO,#PGNO_ACKN,DMY[],0 ) ; Reset Progr.No.-Request
      hauptprogramm_2() ; Call User-Program


    CASE 3
 ;     P00 (#EXT_PGNO,#PGNO_ACKN,DMY[],0 ) ; Reset Progr.No.-Request
      hauptprogramm_3() ; Call User-Program


    CASE 4
 ;     P00 (#EXT_PGNO,#PGNO_ACKN,DMY[],0 ) ; Reset Progr.No.-Request
      hauptprogramm_4() ; Call User-Program

Aber wie stefanM schon sagte viele Wege führen nach Rom

Gruß Wasdel