TIA Transferbefehl in SCL

[Bit´ler]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo zusammen,

hab bis jetzt nur AWL programmiert und benötige in SCL etwas Unterstützung.

Wie kann ich in SCL folgenden AWL Programmcode umwandeln bzw. vereinfachen.


U DB20.DBX0.1
SPB M102

L DB21.DBW 4 // Immer 2 Byte Abstand zum nächsten DBW; gleicher DB
T PAW 484 //Immer 2 Byte Abstand zum nächsten PAW


L DB21.DBW 6
T PAW 486
.
.
.
L DB21.DBW44
T PAW 524

SPA M102


Ich hab die Suchfunktion natürlich benutzt aber leider nichts konkretes gefunden.

Gruß

 

[rostiger Nagel]

Transferbefehl in SCL geht grundsätzlich so:

IF DB20.DBX0.1 THEN
[B]PAW 486 := DB21.DBW 6;[/B]
END_IF;

 

[DeltaMikeAir]

Zuviel Werbung?
-> Hier kostenlos registrieren

Für einen "Massentransfer" FOR verwenden:

VAR
i : INT;
END_VAR;

FOR i := 4 TO 44 BY 2 DO
    PAW[i + 480] := DB21.DBW[i]
END_FOR;

Symbolische Programmierung wäre allerdings "schöner". Also nicht DB21.DBW4 sondern z.B. "Palettentransport".Palettenband[7]
Dann musst du deinen Adressen nicht immer anpassen, wenn sich was in deinem DB verschiebt.

 

[Bit´ler]

Schon mal vielen Dank für die Hilfe...

@DeltaMikeAir: das
VAR
i : INT;
END_VAR;

ist die Variablendeklaration.... Als lokale Variable... INOUT deklarieren?

Gruß

Wie gesagt..Fast keine SCL Kenntnisse...

 

[DeltaMikeAir]

Das kann auch eine temporaere Variable sein. Es ist nur eine Hilfsvariable.

 

[Bit´ler]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

hab den Programmcode eingegeben...
Frisst alles...Nur das PAW nicht...Wo muss ich den Operand noch definieren?
->Der Operand PEW ist nicht definiert..
Gruß

 

[DeltaMikeAir]

Stell mal deinen Code hier rein

 

[gravieren]

Hast du eine 1500er ?

 

[DeltaMikeAir]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ist es eine 1500ér / 1200ér?

 

[Bit´ler]

Hallo,

hab den Programmcode eingegeben...
Frisst alles...Nur das PAW nicht...Wo muss ich den Operand noch definieren?
->Der Operand PEW ist nicht definiert..
Gruß

 

[Bit´ler]

Sorry.... ne 1200-er

 

[Bit´ler]

Zuviel Werbung?
-> Hier kostenlos registrieren

Sorry....ne 1200´er

 

[PN/DP]

Sorry....ne 1200´er

IF PEEK_BOOL(area:=16#84, dbNumber:=20, byteOffset:=0, bitOffset:=1) THEN  //DB20.DBX0.1
    %AW486:P := PEEK_WORD(area:=16#84, dbNumber:=21, byteOffset:=6);       //PAW486 := DB21.DBW6
    ...
END_IF;

Das sollte man aber wirklich symbolisch programmieren...

Harald