Fonction : StartupAuteur : YS - 12/

Fonction : Startup

Auteur : YS - 12/11/2003
Modifie : YS - 20/07/2007 : Sequence de demarrage pour Multi-process

Description : Fonction de demarrage d'application

Appele par : Citect au startup
___________________________________________________________________________*/

FUNCTION Startup()

INT hQueAS;
INT hQueRM;
INT hQueDD;
INT hQueMC;
INT hQueBASE;
INT hQueYS;
INT hQueAV;
INT hTaskAS;
INT hTaskRM;
INT hTaskDD;
INT hTaskMC;
INT hTaskBASE;
INT hTaskYS;
INT hTaskAV;
INT iStart;
STRING sStart;
INT hWnd;

ApplicationEnRun=0;
TaskNew("blink","",4+8); //lance la fonction pour clignotement d'un bit
TagWrite("MessPatientez","@(Patientez)");
Sleep(1);

AppSimulation= StrToInt( ParameterGet("SIDEL","Simulation",0)); // Forcage pour application de simulation
// On attend d'etre on-line avant de lancer les fonctions STARTUP.

IF AppSimulation=0 THEN
WHILE StrToInt(IODeviceInfo(8,3))1 DO //"ALARME"
Sleep(1);
END
WHILE StrToInt(IODeviceInfo(9,3))1 DO //"BOOLEEN"
Sleep(1);
END
WHILE StrToInt(IODeviceInfo(10,3))1 DO //"ENTIER"
Sleep(1);
END
WHILE StrToInt(IODeviceInfo(11,3))1 DO //"REEL"
Sleep(1);
END
WHILE StrToInt(IODeviceInfo(12,3))1 DO //"COURBE"
Sleep(1);
END
WHILE StrToInt(IODeviceInfo(13,3))1 DO //"LIAISON1"
Sleep(1);
END
WHILE StrToInt(IODeviceInfo(14,3))1 DO //"LIAISON2"
Sleep(1);
END
WHILE StrToInt(IODeviceInfo(15,3))1 DO //"OPC"
Sleep(1);
END
END

MaxWindows = StrToInt( ParameterGet("PAGE","Windows",16));

TaskNew("AttenteStartUp","",0+4);

hQueAS=QueOpen("AS_Start",2);
hQueRM=QueOpen("RM_Start",2);
hQueDD=QueOpen("DD_Start",2);
hQueMC=QueOpen("MC_Start",2);
hQueBASE=QueOpen("BASE_Start",2);
hQueYS=QueOpen("YS_Start",2);

hTaskAS=TaskNew("Startup_AS","",0+4);
hTaskRM=TaskNew("Startup_RM","",0+4);
hTaskDD=TaskNew("Startup_DD","",0+4);
hTaskMC=TaskNew("Startup_MC","",0+4);
hTaskBASE=TaskNew("Startup_BASE","",0+4);
hTaskYS=TaskNew("Startup_YS","",0+4);

IF AppSimulation=1 Then
hQueAV=QueOpen("AV_Start",2);
hTaskAV=TaskNew("Startup_AV","",0+4);
End

QueRead(hQueAS,iStart,sStart,1);
QueClose(hQueAS);
Sleep(0);
QueRead(hQueRM,iStart,sStart,1);
QueClose(hQueRM);
Sleep(0);
QueRead(hQueDD,iStart,sStart,1);
QueClose(hQueDD);
Sleep(0);
QueRead(hQueMC,iStart,sStart,1);
QueClose(hQueMC);
Sleep(0);
QueRead(hQueBASE,iStart,sStart,1);
QueClose(hQueBASE);
Sleep(0);
QueRead(hQueYS,iStart,sStart,1);
QueClose(hQueYS);
Sleep(0);

IF AppSimulation=1 Then
QueRead(hQueAV,iStart,sStart,1);
QueClose(hQueAV);
End

Beep(3);
PageDisplay("BANDEAU");
SleepMS(500);

hWnd=WndFind("Citect"); // La fenêtre Citect est ouverte ?
If hWnd>0 then
SendKeys("Citect","%{f4}"); //On ferme cette fenêtre.
End
EspionInfo("@(Demarrage de l'application)");
ApplicationEnRun=1;
END


/*___________________________________________________________________________

Fonction : AttenteStartUp

Auteur : YS - 13/11/2003
Modifie :

Description :

Appele par :
___________________________________________________________________________*/

FUNCTION AttenteStartUp()

INT Cpt=0;

WHILE ((TaskHnd("Startup")-1) AND (Cpt=TimeOut THEN
QueWrite(QueOpen("AS_Start",0),1,"A");
QueWrite(QueOpen("RM_Start",0),1,"A");
QueWrite(QueOpen("DD_Start",0),1,"A");
QueWrite(QueOpen("MC_Start",0),1,"A");
QueWrite(QueOpen("BASE_Start",0),1,"A");
QueWrite(QueOpen("YS_Start",0),1,"A");
QueWrite(QueOpen("AV_Start",0),1,"A");
END
END

Kết quả (Anh) 1:

Function: StartupAuthor: YS - 11/12/2003Changes: YS - 20/07/2007: Boot Sequence for Multi-processDescription: Application startup functionCalled by: Citect at the startup___________________________________________________________________________ * / ___________________________________________________________________________ * / FUNCTION Startup()INT hQueAS;INT hQueRM;INT hQueDD;INT hQueMC;INT hQueBASE;INT hQueYS;INT hQueAV;INT hTaskAS;INT hTaskRM;INT hTaskDD;INT hTaskMC;INT hTaskBASE;INT hTaskYS;INT hTaskAV;INT iStart;STRING sStart;INT hWnd; ApplicationEnRun = 0; TaskNew ("blink", "", 4 + 8); launches the function for flashing of a bit TagWrite ("MessPatientez", "@(wait)"); Sleep (1); AppSimulation = StrToInt (ParameterGet ('SIDEL', 'Simulation', 0)); Forcing for simulation application Expected to be on-line before running the STARTUP functions. IF AppSimulation = 0 THEN WHILE StrToInt (IODeviceInfo (8.3)) 1 DO / / "Alarm" Sleep (1); END "WHILE StrToInt (IODeviceInfo (9.3)) 1 DO //"BOOLEEN " Sleep (1); END WHILE StrToInt (IODeviceInfo (10.3)) 1 DO / / "Integer" Sleep (1); END WHILE StrToInt (IODeviceInfo (11.3)) 1 DO / / "Real" Sleep (1); END WHILE StrToInt (IODeviceInfo (12.3)) 1 DO / / "Curve" Sleep (1); END WHILE StrToInt (IODeviceInfo (13.3)) 1 DO //"LIAISON1" Sleep (1); END WHILE StrToInt (IODeviceInfo (14.3)) 1 DO //"LIAISON2" Sleep (1); END "WHILE StrToInt (IODeviceInfo (15.3)) 1 DO //"OPC " Sleep (1); END END MaxWindows = StrToInt (ParameterGet("PAGE","Windows",16)); TaskNew ("AttenteStartUp", "", 0 + 4); hQueAS = QueOpen("AS_Start",2); hQueRM = QueOpen("RM_Start",2); hQueDD = QueOpen("DD_Start",2); hQueMC = QueOpen("MC_Start",2); hQueBASE = QueOpen("BASE_Start",2); hQueYS = QueOpen("YS_Start",2); hTaskAS = TaskNew("Startup_AS","",0+4); hTaskRM = TaskNew("Startup_RM","",0+4); hTaskDD = TaskNew("Startup_DD","",0+4); hTaskMC = TaskNew("Startup_MC","",0+4); hTaskBASE = TaskNew("Startup_BASE","",0+4); hTaskYS = TaskNew("Startup_YS","",0+4); IF AppSimulation = 1 Then hQueAV = QueOpen("AV_Start",2); hTaskAV = TaskNew("Startup_AV","",0+4); End QueRead(hQueAS,iStart,sStart,1); QueClose (hQueAS); Sleep (0); QueRead(hQueRM,iStart,sStart,1); QueClose (hQueRM); Sleep (0); QueRead(hQueDD,iStart,sStart,1); QueClose (hQueDD); Sleep (0); QueRead(hQueMC,iStart,sStart,1); QueClose (hQueMC); Sleep (0); QueRead(hQueBASE,iStart,sStart,1); QueClose (hQueBASE); Sleep (0); QueRead(hQueYS,iStart,sStart,1); QueClose (hQueYS); Sleep (0); IF AppSimulation = 1 Then QueRead(hQueAV,iStart,sStart,1); QueClose (hQueAV); End Beep (3); Pageaffiche ("banner"); SleepMS (500); hWnd = WndFind ("Citect"); The Citect window is open? If hWnd > 0 then SendKeys ("Citect", "% {f4}"); We close this window. End EspionInfo ("@(Demarrage de l'application)"); ApplicationEnRun = 1;ENDFunction: AttenteStartUpAuthor: YS - 11/13/2003Changes: Description: Called by: FUNCTION AttenteStartUp()INT Cpt = 0; WHILE ((TaskHnd("Startup")-1) AND (Cpt = TimeOut THEN) QueWrite (QueOpen("AS_Start",0), 1, "A"); QueWrite (QueOpen("RM_Start",0), 1, "A"); QueWrite (QueOpen("DD_Start",0), 1, "A"); QueWrite (QueOpen("MC_Start",0), 1, "A"); QueWrite (QueOpen("BASE_Start",0), 1, "A"); QueWrite (QueOpen("YS_Start",0), 1, "A"); QueWrite (QueOpen("AV_Start",0), 1, "A"); ENDEND

Kết quả (Anh) 2:

功能：啟動作者：YS - 11/12/2003 修訂：YS - 20/07/2007：開機順序了多進程描述：應用程序啟動函數的調用方式：Citect的啟動___________________________________________________________________________ * / 功能啟動（）INT hQueAS ; INT hQueRM; INT hQueDD; INT hQueMC; INT hQueBASE; INT hQueYS; INT hQueAV; INT hTaskAS; INT hTaskRM; INT hTaskDD; INT hTaskMC; INT hTaskBASE; INT hTaskYS; INT hTaskAV; INT ISTART; STRING sStart; INT的hWnd; ApplicationEnRun = 0; TaskNew（“閃爍”，“”，4 + 8）; //函數發動位的眨眼TagWrite（“MessPatientez”，“@（等待）”），睡眠（1）; AppSimulation = StrToInt（ParameterGet （“西得樂”，“模擬”，0））; // Forcage仿真應用。預計//要上線的所有啟動該功能啟動前AppSimulation = 0，那麼IF WHILE StrToInt（IODeviceInfo（8.3））1 // DO“ALARM” 睡眠（1）; END WHILE StrToInt（IODeviceInfo（9.3））1 DO //“布爾” 睡眠（1）; END WHILE StrToInt（IODeviceInfo（10.3））// 1 DO“整體” 睡眠（1） ; END WHILE StrToInt（IODeviceInfo（11.3））// 1 DO“REAL” 睡眠（1）; END WHILE StrToInt（IODeviceInfo（12.3））// 1 DO“曲線” 睡眠（1）; END WHILE StrToInt（IODeviceInfo（13 3））1 DO //“LINK1” 睡眠（1）; END WHILE StrToInt（IODeviceInfo（14.3））// 1 DO“LIAISON2” 睡眠（1）; END WHILE StrToInt（IODeviceInfo（15.3））1 DO //“ OPC“ 睡眠（1）END END MaxWindows StrToInt =（AppSimulation = 1 AppSimulation = 1 //該Citect的窗口中打開？如果的hWnd> 0，那麼的SendKeys（”Citect工程“，”％{F4}“）; //關閉此窗口。結束EspionInfo（“@（從引導：AttenteStartUp 作者：YS - 2003年11月13日修訂：說明：：由一個名為___________________________________________________________________________ * / FUNCTION AttenteStartUp（）INT CPT = 0; WHILE（（TaskHnd（ “啟動”） - 1）和（CPT =超時

Kết quả (Anh) 3:

function: startupauthor: / 12 / 11 / 03no. / 20 / 07 / 2007: sequence of multi - processdescription: according to project implementationin the company: citect._ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ * /the startup ()in hqueas.in hquerm.in hquedd.in hquemc.in hquebase.in hqueys.in hqueav.in htaskas.in htaskrm.in htaskdd.in htaskmc.in htaskbase.in htaskys.in htaskav.in istart.string sstart.in hwnd.applicationenrun = 0.tasknew ("blink", "4 + 8); / / is a bit of flashing functiontagwrite (messpatientez "," @ (hold on) ").sleep (1);appsimulation = strtoint (parameterget (sidel, "simulation", 0); / / forcage simulation application/ / is expected to be on line before the company functions.if appsimulation = 0 thenthe strtoint (iodeviceinfo (8.3) 1, / / "alarm."sleep (1);endthe strtoint (iodeviceinfo (9.3) 1 / "booleen".sleep (1);endthe strtoint (iodeviceinfo (10.3)) 1 / "full".sleep (1);endthe strtoint (iodeviceinfo (11.3) 1 / "reel".sleep (1);endthe strtoint (iodeviceinfo (12.3) 1 / "curve".sleep (1);endthe strtoint (iodeviceinfo (13.3%) 1 / "liaison1".sleep (1);endthe strtoint (iodeviceinfo (14.3) 1 / "liaison2".sleep (1);endthe strtoint (iodeviceinfo (15.3) / "/" 1.sleep (1);endendmaxwindows = strtoint (parameterget ("page", "windows", 16).tasknew (attentestartup "," ", 0, + 4).hqueas = queopen ("_ start, (2);hquerm = queopen (rm _ start, (2);hquedd (sd = queopen _ start, (2);hquemc = queopen (tm _ start, (2);hquebase = queopen base _ start, (2);hqueys = queopen (ys _ start, (2);htaskas = tasknew (startup _ as "," ", 0, + 4).htaskrm = tasknew (startup _ rm "," ", 0, + 4).htaskdd (sd = tasknew _ company "," ",,,,,, 0, + 4).htaskmc = tasknew (startup _ mc "," ", 0, + 4).htaskbase = tasknew (startup _ base "," ",,,,,, 0, + 4).htaskys = tasknew (startup _ ys "," ", 0, + 4).if appsimulation = 1 thenhqueav = queopen ("av _ start, (2);htaskav = tasknew (startup _ va "," ",,,,,, 0, + 4).endqueread (hqueas, istart, sstart (1);queclose (hqueas).sleep (0).queread (hquerm, istart, sstart (1);queclose (hquerm).sleep (0).queread (hquedd, istart, sstart (1);queclose (hquedd).sleep (0).queread (hquemc, istart, sstart (1);queclose (hquemc).sleep (0).queread (hquebase, istart, sstart (1);queclose (hquebase).sleep (0).queread (hqueys, istart, sstart (1);queclose (hqueys).sleep (0).if appsimulation = 1 thenqueread (hqueav, istart, sstart (1);queclose (hqueav).endpip (3);pagedisplay ("off").sleepms (500).hwnd = wndfind (citect "); / / the window citect is open.if hwnd > 0 thensendkeys (citect ","% {f}; / / we close this window.endespioninfo ("@ (start the application).applicationenrun = 1;end/ * _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _purpose: attentestartupauthor: ys - 1 / 11 / 2003amend:description:call for:_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ * /attentestartup ().cpt = 0).while (taskhnd ("company") (1) and (cpt = timeout.quewrite (queopen (as _ start, 0), (1, a).quewrite (queopen (rm _ start, 0), (1, a).quewrite (queopen (sd _ start, 0), (1, a).quewrite (queopen (tm _ start, 0), (1, a).quewrite (queopen base _ start, 0), (1, a).quewrite (queopen (ys _ start, 0), (1, a).quewrite (queopen ("av _ start, 0), (1, a).endend