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的啟動 ___________________________________________________________________________ * / 功能啟動（）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 字符串sStart; INT; 的hWnd ApplicationEnRun = 0; TaskNew（“作祟”，“”，4 + 8）; 啟動的功能有點閃爍 TagWrite（“MessPatientez”，“@（等待）”）; 睡眠（1）; AppSimulation = StrToInt（ParameterGet（' 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（”頁“，”窗口“，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'應用程序）”）; ApplicationEnRun = 1; 結束 / * ___________________________________________________________________________ 功能︰AttenteStartUp 作者︰YS-2003/11/13 更改地︰ 地︰描述地︰調用由 ___________________________________________________________________________ * / 功能AttenteStartUp（）靜力觸探INT = 0; 雖然（（TaskHnd（“啟動”） - 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日s。：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，則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做“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 - * / 功能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），“”）；周末周末