Minehunter
Level-1
- Beiträge
- 25
- Reaktionspunkte
- 3
//------------------------------------------
// GLOBAL
stMyRect : VisuElems.VisuStructSimpleRectangle;
pTempClientData : POINTER TO VisuElems.VisuStructClientData;
pLastClientData : POINTER TO VisuElems.VisuStructClientData;
pClientData : POINTER TO VisuElems.VisuStructClientData;
nIteratorSave : INT;
iDialogManager2 : VisuElems.IDialogManager2 := 0;
SIKA_GVL_VISU.nIteratorSave := VisuElems.VisuElemBase.Visu_Globals.g_ClientManager.SaveIteration();
VisuElems.VisuElemBase.Visu_Globals.g_ClientManager.BeginIteration();
iDialogManager := VisuElems.VisuElemBase.g_VisuManager.GetDialogManager();
// Assign the argument in all currently active clients
SIKA_GVL_VISU.pTempClientData := VisuElems.VisuElemBase.Visu_Globals.g_ClientManager.GetNextClient();
WHILE SIKA_GVL_VISU.pTempClientData <> 0 DO
iMessageDialog := iDialogManager.GetDialog(sVisuName); // dialog to be handled is specified
SIKA_GVL_VISU.pLastClientData := SIKA_GVL_VISU.pTempClientData;
SIKA_GVL_VISU.pTempClientData := VisuElems.VisuElemBase.g_ClientManager.GetNextClient();
END_WHILE
// Open Dialog on all Clients
iMessageDialog := iDialogManager.GetDialog(sVisuName); // dialog to be handled is specified
IF iMessageDialog <> 0 THEN
//stMyRect.ptTopLeft.iX := P_DB_LogIn.nXPos;
//stMyRect.ptTopLeft.iY := P_DB_LogIn.nYPos;
//stMyRect.ptBottomRight.iX := 100;
//stMyRect.ptBottomRight.iY := 100;
//iDialogManager.OpenDialog(iMessageDialog, pLastClientData, TRUE, ADR(stMyRect));
iDialogManager.OpenDialog3(iMessageDialog, SIKA_GVL_VISU.pLastClientData, TRUE, ADR(SIKA_GVL_VISU.stMyRect), 0, VisuElems.Visu_InputFlags.GlobalOpenCloseDialog);
END_IF
VisuElems.VisuElemBase.Visu_Globals.g_ClientManager.RestoreIteration(SIKA_GVL_VISU.nIteratorSave);
SIKA_GVL_VISU.nIteratorSave := VisuElems.VisuElemBase.Visu_Globals.g_ClientManager.SaveIteration();
VisuElems.VisuElemBase.Visu_Globals.g_ClientManager.BeginIteration();
iDialogManager := VisuElems.VisuElemBase.g_VisuManager.GetDialogManager();
SIKA_GVL_VISU.pClientData := VisuElems.VisuElemBase.Visu_Globals.g_ClientManager.GetNextClient();
// Cloase Dialog on all Clients
IF SIKA_GVL_VISU.pClientData <> 0 THEN
iMessageDialog := iDialogManager.GetDialog(sVisuName); // dialog to be handled is specified
IF iMessageDialog <> 0 THEN
IF (SIKA_GVL_VISU.iDialogManager2 = 0) THEN
__QUERYINTERFACE(VisuElems.g_VisuManager.GetDialogManager(), SIKA_GVL_VISU.iDialogManager2);
END_IF
IF (SIKA_GVL_VISU.iDialogManager2 <> 0) THEN
SIKA_GVL_VISU.iDialogManager2.CloseDialog2(iMessageDialog, SIKA_GVL_VISU.pClientData, VisuElems.Visu_InputFlags.GlobalOpenCloseDialog);
ELSE
iDialogManager.CloseDialog(iMessageDialog, SIKA_GVL_VISU.pClientData); // Closes The Dialog on all "pClientData"
END_IF
END_IF
END_IF
VisuElems.VisuElemBase.Visu_Globals.g_ClientManager.RestoreIteration(SIKA_GVL_VISU.nIteratorSave);
// Deklaration
sVisuName : STRING := 'VISU_LOGIN';
TrigOpenDialog : R_TRIG;
TrigCloseDialog : R_TRIG;
bOpenDialog : BOOL;
bCloseDialog : BOOL;
// öffne Dialog
TrigOpenDialog(CLK:= bOpenDialog);
IF TrigOpenDialog.Q THEN
OpenDialog();
bOpenDialog := FALSE;
END_IF
// Schließe Dialog
TrigCloseDialog(CLK:= bCloseDialog);
IF TrigCloseDialog.Q THEN
CloseDialog();
bCloseDialog := FALSE;
END_IF
PROGRAM P_VISU_CE7_AUTOSTART
VAR_OUTPUT
bHmiReady : BOOL;
END_VAR
VAR
ntStartHmi : NT_StartProcess;
nHmiStart : USINT;
END_VAR
//--------------------------------------
// Start SPS und VISU
//--------------------------------------
ntStartHmi(
NETID:='' ,
PATHSTR:='\Hard Disk\TwinCAT\3.1\Components\Plc\Tc3PlcHmi\Tc3PlcHmiCE7ARMV7.exe' ,
DIRNAME:='\Hard Disk\TwinCAT\3.1\Components\Plc\Tc3PlcHmi\' ,
TMOUT:=T#5S );
CASE nHmiStart OF
0: ntStartHmi(START:=TRUE);
bHmiReady := FALSE;
IF NOT ntStartHmi.BUSY THEN
nHmiStart := 1;
END_IF
1: IF VisuElems.CurrentClientType <> 0 THEN
nHmiStart := 2;
END_IF
2:
bHmiReady := TRUE;
END_CASE
ntStartHmi(
NETID:='' ,
PATHSTR:='C:\TwinCAT\3.1\Components\Plc\Tc3PlcHmi\Tc3PlcHmi.exe' ,
DIRNAME:='C:\TwinCAT\3.1\Components\Plc\Tc3PlcHmi\' ,
TMOUT:=T#5S );
IF (NOT initialized) OR startVisu.BUSY THEN
startVisu(
NetID := '',
PathStr := '\Hard Disk\TwinCAT\3.1\Components\Plc\Tc3PlcHmi\Tc3PlcHmiCE7ARMV7.exe',
Dirname := '\Hard Disk\TwinCAT\3.1\Components\Plc\Tc3PlcHmi\',
start := NOT initialized
);
END_IF
IF NOT initialized THEN
(*andere Initialisierungen*)
initialized := TRUE;
END_IF
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?