vierlagig
Level-1
- Beiträge
- 9.882
- Reaktionspunkte
- 2.021
-> Hier kostenlos registrieren
kann es sein das überall noch ein Strichpunkt dahinter muss
wenn es ne quelle darstellen soll, dann ja...
und ohne #, stattdessen mit ""
Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
kann es sein das überall noch ein Strichpunkt dahinter muss
mach mal aus deinem "U False" ein "CLR" ...
AWL kennt FALSE nicht als Operator.
Gruß
LL
kennt es wohl, zumindest als ich noch programmiert habe
VAR_TEMP
VarInt1 : INT;
VarInt2 : INT;
VarString1 : STRING;
VarString2 : STRING;
END_VAR
VarString1 := '';
VarString2 := '';
IF (DCI_Command.existent) THEN
DCI_Command.handled := FALSE;
IF (DCI_Command.MessageID = 777) THEN
DCI_Command.handled := TRUE;
DCI_GetStringParam(id:=100,s:=VarString1);
DCI_GetStringParam(id:=103,s:=VarString2);
IF (DCI_Command.isOK) THEN
Data.MaterialID := VarString1;
Data.RecipeID := VarString2;
END_IF;
END_IF;
IF (DCI_Command.MessageID = 778) THEN
DCI_Command.handled := TRUE;
DCI_GetStringParam(id:=100,s:=VarString1);
VarInt1 := DCI_GetIntParam(101);
VarInt2 := DCI_GetIntParam(102);
DCI_GetStringParam(id:=103,s:=VarString2);
IF (DCI_Command.isOK) THEN
Data.MaterialID := VarString1;
Data.InPort := VarInt1;
Data.OutPort := VarInt2;
Data.RecipeID := VarString2;
END_IF;
END_IF;
END_IF;
END_FUNCTION
AR_TEMP
VarInt1 : INT;
VarInt2 : INT;
VarString1 : STRING;
VarString2 : STRING;
END_VAR
Begin
NETWORK
Title = DCI_HandleCommand
VarString1 := '';
VarString2 := '';
U DCI_Command.existent;
SPBN if1;
CLR;
= DCI_Command.handled;
L DCI_Command.MessageID
L 777
==m1.1
SPBN if2;
set;
DCI_Command.handled;
CALL DCI_GetStringParam(id:=100,s:=VarString1);
CALL DCI_GetStringParam(id:=103,s:=VarString2);
U DCI_Command.isOK
SPBN if3;
Data.MaterialID := VarString1;
Data.RecipeID := VarString2;
if3: NOP 0;
if2: NOP 0;
if1: NOP 0;
END_FUNCTION
VarString1 := '';
VarString2 := '';
SET
SAVE
= L 516.1
L W#16#FE00
T LW 4
L W#16#FE00
T LW 260
U "DCI_COMMAND".existent
SPBN A7d0
CLR
= DBX 28.0
L DBD 10
L DW#16#309
==D
SPBN A7d1
SET
= DBX 28.0
L DW#16#64
T LD 518
L W#16#0
T LW 522
L DW#16#87000020
T LD 524
UC "DCI_GetStringParam"
P#L 518.0
P#L 522.0
L DW#16#67
T LD 518
L W#16#0
T LW 522
L DW#16#87000820
T LD 524
UC "DCI_GetStringParam"
P#L 518.0
P#L 522.0
U DBX 20.0
SPBN A7d1
L DW#16#10130001
T LD 518
L W#16#0
T LW 522
L DW#16#87000020
T LD 524
L B#16#10
AUF DI 803
T DIB 4
L DW#16#10130001
T LD 528
L W#16#323
T LW 532
L DW#16#84000020
T LD 534
UC "BLKMOV"
P#L 518.0
P#L 542.0
P#L 528.0
L DW#16#10130001
T LD 518
L W#16#0
T LW 522
L DW#16#87000820
T LD 524
L B#16#10
T DIB 22
L DW#16#10130001
T LD 528
L W#16#323
T LW 532
L DW#16#840000B0
T LD 534
UC "BLKMOV"
P#L 518.0
P#L 546.0
P#L 528.0
A7d1: L "DCI_COMMAND".MessageId
L DW#16#30A
==D
SPBN A7d0
SET
= DBX 28.0
L DW#16#64
T LD 518
L W#16#0
T LW 522
L DW#16#87000020
T LD 524
UC "DCI_GetStringParam"
P#L 518.0
P#L 522.0
L DW#16#65
T LD 518
UC "DCI_GetIntParam"
P#L 518.0
P#L 0.0
L DW#16#66
T LD 518
UC "DCI_GetIntParam"
P#L 518.0
P#L 2.0
L DW#16#67
T LD 518
L W#16#0
T LW 522
L DW#16#87000820
T LD 524
UC "DCI_GetStringParam"
P#L 518.0
P#L 522.0
U DBX 20.0
SPBN A7d0
L DW#16#10130001
T LD 518
L W#16#0
T LW 522
L DW#16#87000020
T LD 524
L B#16#10
AUF DI 803
T DIB 4
L DW#16#10130001
T LD 528
L W#16#323
T LW 532
L DW#16#84000020
T LD 534
UC "BLKMOV"
P#L 518.0
P#L 550.0
P#L 528.0
L #VarInt1
T DIW 0
L #VarInt2
T DIW 2
L DW#16#10130001
T LD 518
L W#16#0
T LW 522
L DW#16#87000820
T LD 524
L B#16#10
T DIB 22
L DW#16#10130001
T LD 528
L W#16#323
T LW 532
L DW#16#840000B0
T LD 534
UC "BLKMOV"
P#L 518.0
P#L 554.0
P#L 528.0
A7d0: CLR
U L 516.1
SAVE
BE
VAR_TEMP
VarInt1 : INT;
VarInt2 : INT;
VarString1 : STRING;
VarString2 : STRING;
END_VAR
Begin
NETWORK
Title = DCI_HandleCommand
L W#16#0000;
T #VarString1;
L W#16#0000;
T #VarString2;
U DCI_Command.existent;
SPBN if1;
CLR;
= DCI_Command.handled;
L DCI_Command.MessageID;
L 777;
==I;
SPBN if2;
set;
= DCI_Command.handled;
CALL DCI_GetStringParam(id:=dw#16#100,s:=VarString1);
CALL DCI_GetStringParam(id:=dw#16#103,s:=VarString2);
U DCI_Command.isOK;
SPBN if3;
UC BLKMOV(
SRCBLK := #VarString1,
DSTBLK := Data.MaterialID
);
UC BLKMOV(
SRCBLK := #VarString2,
DSTBLK := Data.RecipeID
);
if3: NOP 0;
if2: NOP 0;
if1: NOP 0;
END_FUNCTION
L P##VarString_1
LAR1
L 0
T W [AR1,p#0.0]
Wir verwenden essentielle Cookies, damit diese Website funktioniert, und optionale Cookies, um den Komfort bei der Nutzung zu verbessern.
Siehe weitere Informationen und konfiguriere deine Einstellungen