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ả (Việt) 1:

chức năng: Startup

Tác giả: YS - 12/11/2003
thay đổi: YS - 20/07/2007: trình khởi động cho quá trình đa

Mô tả: ứng dụng chức năng khởi động

gọi là khởi động Citect ___________________________________________________________________________ *
/
chức năng khởi động ()

int hqueas; hquerm
int, int
hquedd; hquemc
int, int
hquebase; hqueys
int, int
hqueav; htaskas int

htaskrm int, int
htaskdd; htaskmc
int, int
htaskbase; htaskys
int, int
htaskav; istart
int, chuỗi sstart
,
int hwnd; applicationenrun

= 0
tasknew ("nhấp nháy", "" 4 8) / / chức năng bắt đầu cho nhấp nháy một chút
TagWrite ("messpatientez", "@ (chờ đợi)");
ngủ (1)
= appsimulation StrToInt (parameterget ("Sidel", " mô phỏng ", 0)) / / forcage cho các ứng dụng mô phỏng
/ / "Báo động" dự kiến ​​sẽ được trên mạng trước khi bắt đầu các chức năng khởi động
= 0 sau đó nếu appsimulation
trong khi StrToInt (iodeviceinfo (8.3)) <> 1 làm / /
ngủ (1).

kết thúc trong khi StrToInt (iodeviceinfo (9,3)) <> 1 làm / / "boolean"
ngủ (1)

kết thúc trong khi StrToInt (iodeviceinfo (10.3)) <> 1 làm / / "số nguyên"
ngủ (1)

kết thúc trong khi StrToInt (iodeviceinfo (11.3)) <> 1 làm / / ngủ "thực sự"
(1)

kết thúc trong khi StrToInt (iodeviceinfo (12,3)) <> 1 làm / / "đường cong"
ngủ (1)

kết thúc trong khi StrToInt (iodeviceinfo (13.3)) <> 1 làm / / "link1"
ngủ (1)

kết thúc trong khi StrToInt (iodeviceinfo (14,3)) <> 1 làm / / "liaison2"
ngủ (1)

kết thúc trong khi StrToInt (iodeviceinfo (15.3)) <> 1 làm / / "UCI"
ngủ (1 maxwindows)



cuối cuối = StrToInt (parameterget ("trang", "cửa sổ", 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)

nếu appsimulation = 1 sau đó
= hqueav queopen ("av_start", 2) =
htaskav tasknew ("startup_av", "", 0 4)


cuối queread (hqueas, istart, sstart 1)
queclose (hqueas) ngủ
(0)
queread (hquerm, istart, sstart 1)
queclose (hquerm) ngủ
(0)
queread (hquedd, istart, sstart 1)
queclose (hquedd ) ngủ
(0)
queread (hquemc, istart, sstart 1)
queclose (hquemc) ngủ
(0)
queread (hquebase, istart, sstart 1)
queclose (hquebase) ngủ
(0)
queread (hqueys, istart, sstart 1)
queclose (hqueys) ngủ
(0)
= 1 sau đó nếu appsimulation
queread (hqueav, istart, sstart 1)
queclose (hqueav) kết thúc


tiếng bíp (3)
pagedisplay ("biểu ngữ"); sleepms
(500)

hwnd = wndfind ("Citect") / / cửa sổ Citect ? mở nếu hwnd
>
0 sau đó sendkeys ("Citect", "% {F4}") / / chúng tôi đóng cửa sổ

cuối này.espioninfo ("@ (ứng dụng khởi động)");
: Attentestartup

Tác giả: YS - 13/11/2003


thay đổi mô tả

gọi bằng ___________________________________________________________________________ *
/

attentestartup function ()

int CPT = 0;

trong khi ((taskhnd ("khởi động") <> -1) và (CPT
cpt=cpt 1;
messpatientez=messpatientez ".";
sleep(1);
end
nếu thời gian chờ = cpt> sau đó 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 thúc kết thúc

Kết quả (Việt) 2:

Chức năng: Khởi động

tác giả: YS - 2003-11-12
thay đổi: YS - 20/07/2007: trình khởi động cho quá trình nhiều

mô tả: ứng dụng khởi động chức năng

được gọi là: Citect để khởi động
_ * /

() chức năng khởi động

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;
CHUỖI sStart;
INT hWnd;

ApplicationEnRun = 0;
TaskNew ("nhấp nháy", "", 4-8); //Lance chức năng cho nhấp nháy của một chút
TagWrite ("MessPatientez", "@(chờ đợi)");
giấc ngủ (1);

AppSimulation = StrToInt (ParameterGet ('SIDEL', 'Mô phỏng', 0)); / / Buộc cho ứng dụng mô phỏng
. / / Dự kiến sẽ được trên mạng trước khi tung ra chức năng. khởi động

nếu AppSimulation = 0 sau đó
trong khi StrToInt (IODeviceInfo (8.3)) <>1 LÀM //"ALARME"
Ngủ (1);
k
trong KHI StrToInt (IODeviceInfo (9.3)) <>1 làm //"BOOLEEN"
ngủ (1);
k
trong khi StrToInt (IODeviceInfo (10.3)) <>1 LÀM //"ENTIER"
Ngủ (1);
CUỐI
trong KHI StrToInt (IODeviceInfo (11.3)) <>1 làm //"REEL"
ngủ (1);
cuối
trong khi StrToInt (IODeviceInfo(12,)3)) <>1 LÀM //"COURBE"
Ngủ (1);
CUỐI
trong KHI StrToInt (IODeviceInfo (13,3)) <>1 làm //"LIAISON1"
ngủ (1);
k
trong khi StrToInt (IODeviceInfo (14.3)) <>1 LÀM //"LIAISON2"
Ngủ (1);
CUỐI
trong KHI StrToInt (IODeviceInfo (15.3)) <>1 làm //"OPC"
ngủ (1);
cuối
cuối

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)

; Nếu AppSimulation = 1 sau đó
hQueAV = QueOpen("AV_Start",2);
hTaskAV = TaskNew ("Startup_AV", "", 0 4);
kết thúc

QueRead(hQueAS,iStart,sStart,1);
QueClose (hQueAS);
giấc ngủ (0);
QueRead(hQueRM,iStart,sStart,1);
QueClose (hQueRM);
giấc ngủ (0);
QueRead(hQueDD,iStart,sStart,1);
QueClose (hQueDD);
giấc ngủ (0);
QueRead(hQueMC,iStart,sStart,1);
QueClose (hQueMC);
giấc ngủ (0);
QueRead(hQueBASE,iStart,sStart,1)
. QueClose (hQueBASE);
giấc ngủ (0);
QueRead(hQueYS,iStart,sStart,1);
QueClose (hQueYS);
ngủ (0);

nếu AppSimulation = 1 sau đó
QueRead(hQueAV,iStart,sStart,1);
QueClose (hQueAV);
k

tiếng bíp (3);
Pageaffiche ("biểu ngữ");
SleepMS (500);

hWnd = WndFind ("Citect"); / / Cửa sổ Citect là mở?
nếu hWnd > 0 sau đó
SendKeys ("Citect", "% {f4}"); Yêu cầu đóng cửa sổ này.
k
. EspionInfo ("@(Demarrage de l'application)");
ApplicationEnRun = 1;
k


/ * _

chức năng: AttenteStartUp

tác giả: YS - 11-13-2003
thay đổi:

trò chơi mô tả:

được gọi là:
_ * /

() chức năng AttenteStartUp

INT Cpt = 0;

Trong khi ((TaskHnd ("khởi động") <>- 1) và (Cpt < TimeOut)) làm
Cpt = Cpt 1;
MessPatientez = MessPatientez ".";
giấc ngủ (1);
cuối
nếu Cpt > = thời gian chờ sau đó
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
K