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:

功能：啟動作者：YS -二零零三年十二月十一日變化：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））; 強制仿真應用。運行STARTUP函數之前預計上線的所有AppSimulation = 0，那麼IF WHILE StrToInt（IODeviceInfo（8.3））1 DO / /“報警” 睡眠（1）; END “，而StrToInt（IODeviceInfo（9.3））1 DO //”BOOLEEN“ 睡眠（1）; END WHILE StrToInt（IODeviceInfo（10.3））1 DO / /”整數“ 睡眠（1 ）; END WHILE StrToInt（IODeviceInfo（11.3））1 DO / /“真正的” 睡眠（1）; END WHILE StrToInt（IODeviceInfo（12.3））1 DO / /“曲線” 睡眠（1）; END WHILE StrToInt（IODeviceInfo（ 13.3））1 DO //“LIAISON1” 睡眠（1）; END WHILE StrToInt（IODeviceInfo（14.3））1 DO //“LIAISON2” 睡眠（1）; END “，而StrToInt（IODeviceInfo（15.3））1 DO // “OPC” 休眠（1）; END END MaxWindows = StrToInt（ParameterGet（“頁”，“窗口”，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）= 1 THEN IF AppSimulation hQueAV = QueOpen（“AV_Start”，2）; hTaskAV = TaskNew（“Startup_AV”，“”，0 + 4）; 結束 QueRead（hQueAS，ISTART，sStart，1）; QueClose（ hQueAS）; 睡眠（0）; QueRead（hQueRM，ISTART，sStart，1）; QueClose（hQueRM）; 睡眠（0）; QueRead（hQueDD，ISTART，sStart，1）; QueClose（hQueDD）; 睡眠（0）; QueRead（hQueMC，ISTART，sStart，1）; QueClose（hQueMC）; 睡眠（0）; QueRead（hQueBASE，ISTART，sStart，1）; QueClose（hQueBASE）; 睡眠（0）; QueRead（hQueYS，ISTART，sStart， 1）; QueClose（hQueYS）; 睡眠（0）= 1，則IF AppSimulation QueRead（hQueAV，ISTART，sStart，1）; QueClose（hQueAV）; 結束蜂鳴（3）; Pageaffiche（“大旗”）; SleepMS（500 ）; 的hWnd = WndFind（“Citect工程”）; 該Citect的窗口打開？如果的hWnd> 0，那麼的SendKeys（“Citect工程”，“％{F4}”）; 我們關閉這個窗口結束EspionInfo（“@（Demarrage德升“應用程序）”）; ApplicationEnRun = 1; END 功能：AttenteStartUp 作者：YS - 2003年11月13日的變化： 說明： 通過調用： FUNCTION AttenteStartUp（）INT CPT = 0; WHILE（（TaskHnd（“啟動”） - 1 ）AND（CPT =超時時間的話）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) 2:

功能：啟動作者：YS - 11/12/2003 修訂：YS - * / 功能啟動）（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 + = 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> - * / 功能AttenteStartUp（）INT CPT = 0; WHILE（（TaskHnd（“啟動”） - 1）和（CPT =超時

Kết quả (Anh) 3:

功能：啟動作者：/ 03年12月11日沒有。/ 20/07/2007： - 進程多序列說明：一個實施項目西奧公司本著：Citect的。_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ * /啟動（）hqueas打印。hquerm打印。hquedd打印。hquemc打印。hquebase打印。hqueys打印。hqueav打印。htaskas打印。htaskrm打印。htaskdd打印。htaskmc打印。htaskbase打印。htaskys打印。htaskav打印。在ISTART。sstart字符串。中的hWnd。applicationenrun = 0。tasknew（“閃爍”，“4 + 8）/ /有點閃爍功能的tagwrite（messpatientez“，”@（持有）“）。睡眠（1）;appsimulation = strtoint（parameterget（西得樂，“模擬”，0）; / / forcage仿真應用/ /預計要上線前，該公司的功能。如果appsimulation = 0則在strtoint（iodeviceinfo（8.3）1 / /“報警”。睡眠（1）;結束所述strtoint（iodeviceinfo（9.3）1 /“booleen”。睡眠（1）;結束在strtoint（iodeviceinfo（10.3））1 /“滿”。睡眠（1）;結束在strtoint（iodeviceinfo（11.3）1 /“捲軸”。睡眠（1）;結束在strtoint（iodeviceinfo（12.3）1 /“曲線”。睡眠（1）;結束所述strtoint（iodeviceinfo（13.3％）的1 /“liaison1”。睡眠（1）;結束在strtoint（iodeviceinfo（14.3）1 /“liaison2”。睡眠（1）;結束在strtoint（iodeviceinfo（15.3）/“/”1。睡眠（1）;結束結束maxwindows = strtoint（parameterget（“網頁”，“窗口”，16）。tasknew（attentestartup“，”“，0，+ 4）。hqueas = queopen（“_起始，（2）;hquerm = queopen（RM _啟動，（2）;hquedd（SD = queopen _開始，（2）;hquemc = queopen（商標_起始，（2）;_開始hquebase = queopen的基礎上，（2）;hqueys = queopen（YS _啟動，（2）;htaskas = tasknew（啟動_為“，”“，0，+ 4）。htaskrm = tasknew（啟動_ RM“，”“，0，+ 4）。htaskdd（SD = tasknew _公司“，”“,,,,,, 0，+ 4）。htaskmc = tasknew（啟動_ MC“，”“，0，+ 4）。htaskbase = tasknew（啟動_基地“，”“,,,,,, 0，+ 4）。htaskys = tasknew（啟動_伊蘇“，”“，0，+ 4）。如果appsimulation = 1，則hqueav = queopen（“AV _起始，（2）;htaskav = tasknew（啟動_ VA“，”“,,,,,, 0，+ 4）。結束queread（hqueas，ISTART，sstart（1）;queclose（hqueas）。睡眠（0）。queread（hquerm，ISTART，sstart（1）;queclose（hquerm）。睡眠（0）。queread（hquedd，ISTART，sstart（1）;queclose（hquedd）。睡眠（0）。queread（hquemc，ISTART，sstart（1）;queclose（hquemc）。睡眠（0）。queread（hquebase，ISTART，sstart（1）;queclose（hquebase）。睡眠（0）。queread（hqueys，ISTART，sstart（1）;queclose（hqueys）。睡眠（0）。如果appsimulation = 1，則queread（hqueav，ISTART，sstart（1）;queclose（hqueav）。結束PIP（3）;pagedisplay（“關”）。sleepms（500）。的hWnd = wndfind（Citect的“）; / /該窗口打開Citect的。如果的hWnd> 0，那麼的SendKeys（Citect工程“，”％{F}; / /我們關閉此窗口。結束espioninfo（“@（啟動應用程序）。applicationenrun = 1;結束/ * _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _目的：attentestartup作者：YS - 2003年1月11日修改：說明：呼籲：_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ * /attentestartup（）。CPT = 0）。而（taskhnd（「本公司」）（1​​）和（CPT =超時。quewrite（queopen（如_開始，0），（1，a）中。quewrite（queopen（RM _開始，0），（1，）。quewrite（queopen（SD _開始，0），（1，）。quewrite（queopen（商標_開始，0），（1，）。quewrite（queopen基_開始，0），（1，）。quewrite（queopen（YS _開始，0），（1，）。quewrite（queopen（“AV _開始，0），（1，）。結束結束