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ả (Trung) 1:

功能 ︰ 启动作者 ︰ YS-2003/11/12变化 ︰ YS-2007/7/20 ︰ 多进程启动顺序描述 ︰ 应用程序启动功能由调用 ︰ 在启动时的 Citect___________________________________________________________________________*/功能 Startup()INT; hQueASINT; hQueRMINT; hQueDDINT; hQueMCINT; hQueBASEINT; hQueYSINT; hQueAVINT; hTaskASINT; hTaskRMINT; hTaskDDINT; hTaskMCINT; hTaskBASEINT; hTaskYSINT; hTaskAVINT; iStart字符串 sStart;INT; hWndApplicationEnRun = 0;TaskNew ("作祟"，""，4 + 8);启动的功能有点闪烁TagWrite ("MessPatientez"，"@ （等待）");睡眠 (1); AppSimulation = StrToInt (ParameterGet （' 西得乐'，'模拟'，0）);强制为仿真中的应用预计在线运行启动函数之前。如果 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 做 //"OPC"睡眠 (1);结束结束 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);如果 AppSimulation = 1 然后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);如果 AppSimulation = 1 然后QueRead(hQueAV,iStart,sStart,1)QueClose (hQueAV);结束蜂鸣音 (3);Pageaffiche （"旗帜"）;SleepMS (500);hWnd = WndFind ("Citect");Citect 窗口处于打开状态？如果 hWnd > 0 然后SendKeys ("Citect"，"%{f4}");我们关闭此窗口。结束EspionInfo ("@(Demarrage de l'application)");ApplicationEnRun = 1;结束/*___________________________________________________________________________功能 ︰ AttenteStartUp作者 ︰ YS-2003/11/13更改 ︰描述 ︰由调用 ︰___________________________________________________________________________*/功能 AttenteStartUp()静力触探 INT = 0;虽然 ((TaskHnd("Startup")-1) 和 (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");结束结束

Kết quả (Trung) 2:

功能：启动作者：YS - 2003年12月11日修订：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（“SIDEL”，“模拟”，0））; // Forcage仿真应用//预计将上线启动该功能启动前。如果AppSimulation = 0，则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 - 13/11/2003 修订：说明：：由一个名为___________________________________________________________________________ * / FUNCTION AttenteStartUp（）INT CPT = 0; WHILE（（TaskHnd（“启动”） - 1）和（CPT =超时

Kết quả (Trung) 3:

功能：启动作者：YS—12 11，2003修改：YS—20 07年启动序列的多进程功能说明：启动应用程序电话：Citect在启动_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ * /（）函数启动国际hqueas；国际hquerm；国际hquedd；国际hquemc；国际hquebase；国际hqueys；国际hqueav；国际htaskas；国际htaskrm；国际htaskdd；国际htaskmc；国际htaskbase；国际htaskys；国际htaskav；国际istart；字符串sstart；int hWnd；applicationenrun = 0；tasknew（“眨眼”，4±8）；/ /矛闪烁位的功能tagwrite（“messpatientez”、“”（等一下）”）；睡眠（1）；appsimulation = strtoint（parameterget（“西”、“模拟”，0））；／／催熟栽培的仿真应用我们等待被我们线之前启动的功能。如果appsimulation = 0 then而strtoint（iodeviceinfo（8）做/“警报”睡眠（1）；周末而strtoint（iodeviceinfo（9）做/“布尔代数的”睡眠（1）；周末而strtoint（iodeviceinfo（10.3）做/“整数”睡眠（1）；周末而strtoint（iodeviceinfo 11.3）/“真做”睡眠（1）；周末而strtoint（iodeviceinfo（12.3）做/“曲线”睡眠（1）；周末而strtoint（iodeviceinfo（13.3）做/“liaison1”睡眠（1）；周末而strtoint（iodeviceinfo（14.3%）做/“liaison2”睡眠（1）；周末而strtoint（iodeviceinfo（15）“做/ OPC”睡眠（1）；周末周末maxwindows = strtoint（parameterget（“页面”、“Windows”，16）；tasknew（“attentestartup”，0 4）；hqueas = queopen（“你_启动”，2）；hquerm = queopen（RM _启动”，2）；hquedd = queopen（DD _启动”，2）；hquemc = queopen（MC _启动”，2）；hquebase = queopen（“基地_启动”，2）；hqueys = queopen（“YS _启动”，2）；htaskas = tasknew（“启动”，你_”、“0 4）；htaskrm = tasknew（“启动_ RM”，0 4）；htaskdd = tasknew（“启动_ DD”，0 4）；htaskmc = tasknew（“启动_ MC”，0 4）；htaskbase = tasknew（“启动_基础“，”“，0 4）；htaskys = tasknew（“启动_ YS”，0 4）；如果appsimulation = 1 thenhqueav = queopen（“AV _启动”，2）；htaskav = tasknew（“启动_ 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）；如果appsimulation = 1 thenqueread（hqueav，istart，sstart，1）；queclose（hqueav）；周末哔哔声（3）；pagedisplay（“盲目的”）；sleepms（500）；wndfind（hWnd =“Citect”）；/ /窗口Citect打开吗？如果hWnd＞0，然后（“Citect SendKeys”、“{ } % F4”）；／／关闭此窗口。周末espioninfo（“”（启动应用程序）”）；applicationenrun = 1；周末／＊_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _功能：attentestartup作者：YS—13 11 2003修改：描述：电话：_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ * /attentestartup（）函数int CPT = 0；while（（taskhnd（“启动”）- 1）和（CPT），然后暂停。quewrite（queopen（“你_启动”，1，0），“”）；quewrite（queopen（RM _启动”，1，0），“”）；quewrite（queopen（DD _启动”，1，0），“”）；quewrite（queopen（MC _启动”，1，0），“”）；quewrite（queopen（“基地_启动”，1，0），“”）；quewrite（queopen（“YS _启动”，1，0），“”）；quewrite（queopen（“AV _启动”，1，0），“”）；周末周末