единица единицы 1;
Интерфейс
Использование
Windows, сообщения, sysutilils, варианты, классы, графика, управления, формы,
Диалоги, comctrls, stdctrls, extctrls, сетки, календарь, датчики, JPEG;
тип
Tform1 = class (tform)
Shape1: Ford;
Shape2: для прилива;
Shape3: для наоборот;
Shape4: для прилива;
Shape5: вкладки;
Форма6: для прилива;
Shape7: для прилива;
Shape8: для наоборот;
Shape9: для прилива;
Shape10: для перерыва;
Shape11: для наоборот;
Shape12: Formore;
StaticText1: TSTATICTEXT;
StaticText2: TSTATICTEXT;
StaticText3: TSTATICTEXT;
StaticText4: TSTATICTEXT;
StaticText5: TSTATICTEXT;
StaticText6: TSTATICTEXT;
StaticText7: TSTATICTEXT;
РЕДАКТИРОВАТЬ1: ТЕДИТ;
РЕДАКТИРОВАТЬ2: TITIT;
РЕДАКТИРОВАТЬ3: ТЕДИТ;
РЕДАКТИРОВАТЬ4: TITIT;
РЕДАКТИРОВАТЬ5: TITIT;
РЕДАКТИРОВАТЬ6: TITIT;
РЕДАКТИРОВАТЬ7: Теды;
Edit8: Titit;
РЕДАКТИРОВАТЬ9: TITIT;
РЕДАКТИРОВАТЬ10: TITIT;
РЕДАКТИРОВАТЬ11: Теды;
РЕДАКТИРОВАТЬ12: ТЕДИТ;
РЕДАКТИРОВАТЬ13: TITIT;
РЕДАКТИРОВАТЬ16: ТЕДИТ;
РЕДАКТИРОВАТЬ15: TITIT;
РЕДАКТИРОВАТЬ16: ТЕДИТ;
РЕДАКТИРОВАТЬ17: TITIT;
РЕДАКТИРОВАТЬ18: ТЕДИТ;
РЕДАКТИРОВАТЬ19: Тедад;
РЕДАКТИРОВАТЬ20: Теды;
Edity21: Titit;
Edit22: Teep;
РЕДАКТИРОВАНИЕ23: TITIT;
Edit24: TEDIT;
РЕДАКТИРОВАНИЕ25: TITIT;
РЕДАКТИРОВАТЬ 26: TITIT;
Edit27: Titit;
Edit22: Titit;
Баттон1: Tbutton;
Edit2t2: TITED;
Таймер1: Тимтимер;
Таймер2: время;
ListBox1: tlistbox;
Lauge1: Tgauge;
Lauge2: Tgauge;
Lauge3: Tgauge;
Lauge4: TGG;
Label1: Tlabel;
Label2: Tlabel;
Label3: Tlabel;
Label4: Tlabel;
РЕДАКТИРОВАТЬ 30: ТЕДИТ;
Image1: Timage;
Label5: Tlabel;
Button2: Tbutton;
Таймер3: Тимтер;
Баттон4: Tbutton;
Кнопка5: Tbutton;
Button3: Tbutton;
Label6: Tlabel;
Кнопка6: Tbutton;
Таймер4: Тимтер;
Процедура таймер1stimer (отправитель: tobject);
процедура Button1click (отправитель: tobject);
Процедура таймер2Timer (отправитель: tobject);
процедура Button2click (отправитель: tobject);
Timer Timer333timer (отправитель: tobject);
процедура Button3click (отправитель: Tobject);
процедура Button4click (отправитель: Tobject);
процедура Button5click (отправитель: tobject);
Процедура FormCreate (отправитель: Tobject);
процедура Button6click (отправитель: tobject);
Процедура таймер4Timer (отправитель: tobject);
Частный
{Частные объявления}
публичный
{Публичные объявления}
конец;
тип
Pcb = запись
Имя: String;
ARV: целое число;
SVT: целое число;
STT: целое число;
Fnt: целое число;
Zzsj: целое число;
DQSJ: Real;
fnhflflg: bool;
Sttflg: сиська;
конец;
PCBX = массив [1.4] из PCB;
вар
Nullflag: bol = false;
Forword: bol = false;
Subemp: Integer = 0;
J: целое число = 1;
Openflg: bolo = true;
Tempid: Integer = 1;
Fnehnum: Integer = 0;
Pcbum: integer = 0;
NTP: bol = false;
Tempok: bol = false;
Флаг: bol = false;
Форма1: tform1;
Показать: tdateTime;
COUNT: Integer = -1;
Pro: Integer = 0;
// pCBAD: Integer = 1;
Writfflg: Integer = 0;
PCBS: PCBX;
Хотя, мин, Sec, MSEC: Word;
Метод: целое число = 1;
выполнение
Использовать единицу3;
{$ R * .dfm}
Процедура tform1.timer1p1.timer1timer (отправитель: tobject);
вар
W: целое число;
F: целое число;
начинать
Если flag = true и nullflag = false then и false 远为 true
начинать
Count: = count + 1;
listboxes1.items.add (inttoStr (count);
для W: = 1-4
начинать
Если печатные платы [w] .arv = counten
начинать
timer2.enabled: = false;
Pcbum: = pcbnum + 1;
timer2.enabled: = true;
конец;
конец;
Если openflg = false, то
начинать
Если count (count = pcbs [tempid] .stt + pcbs [tempid] .svt) тогда
начинать
Pcbs [tepsid] .fnhflg: = true;
fnehnum: = fnehre + 1;
Если fnehnum = 4, то тогда
начинать
Флаг: = ложь;
Pcbs [1] .fnt: = pcbs [1] .stt + pcbs [1] .svt;
Pcbs [1] .zzzsj: = pcbs [1] .fnt-pcbb [1] .arv;
Pcbs [1] .dqsj: = pcbs [1] .zzssj / (pcbs [1] .lnt);
PCBS [2] .FNT: = PCBS [2] .STT + PCBS [2] .SVT;
PCBS [2] .zzzsj: = PCBS [2] .fnt-pcbs [2] .arv;
PCBS [2] .DQSJ: = PCBS [2] .zzssj / (PCBS [2] .ltt);
PCBS [3] .FNT: = PCBS [3] .STT + PCBS [3] .SVT;
Pcbs [3] .zzzsj: = pcbs [3] .fnt-pcbs [3 .arv;
PCBS [3] .DQSJ: = PCBS [3] .zzsj / (PCBS [3] .ltt);
PCBS [4] .fnt: = PCBS [4] .STT + PCBS [4] .SVT;
Pcbs [4] .zzzsj: = pcbs [4] .fnt-pcbs [4] .arv;
Pcbs [4] .dqsj: = pcbs [4] .zzsj/ (pcbs [4] .tt);
Edit13.text: = inttoStr (pcbs [1] .tt);
EDIT14.Text: = inttoStr (PCBS [1] .stt + PCBS [1] .SVT);
EDIT15.Text: = inttoStr (PCBS [1] .zzsj);
EDIT16.Text: = FLATTOSTR (PCBS [1] .DQSJ);
Editi7.text: = inttoStr (pcbs [2] .stt);
Editi.text: = inttoStr (pcbs [2] .stt + pcbs [2] .svt);
EDIT19.Text: = inttoStr (PCBS [2] .zzsj);
Edit20.text: = flattoStr (PCBS [2] .dqsj);
Edit21.text: = inttoStr (PCBS [3] .tt);
edit22.text: = inttoStr (PCBS [3] .Stt + PCBS [3 .SVT);
Edit23.text: = inttoStr (pcbs [3] .zzssj);
edit24.text: = flattoStr (PCBS [3] .dqsj);
edit25.text: = inttoStr (PCBS [4] .tt);
Edit26.text: = inttoStr (PCBS [4] .stt + PCBS [4] .SVT);
Edit27.text: = inttoStr (pcbs [4] .zzsj);
Edit22.text: = flofostr (pcbs [4] .dqsj);
конец;
OpenFlg: = true; // 改 !!!!!!!!
Tempok: = false;
конец;
конец;
для f: = 1-4
начинать
if (count = pcbs [f] .stt + pcbs [f] .svt) и pcbsvt1
Listbr.idds.add (pcbs [f] .name + '完成 !!!!');
конец; // для
конец;
Если openflg = false, то
начинать
Случай темпа
1: Начните
ifcls [1] .svt = 1 тогда
начинать
kaile1.maxvalue: = 2;
Lauge1.Progress: = 2;
конец
еще
начинать
kaile1.maxvalue: = pcbs [1] .svt;
kaile1.progress: = count-pcbs [1] .stt;
конец;
конец; // 1;
2: начинать
kaleg2.maxvalue: = pcbs [2] .svt;
kail2.progress: = count-pcbs [2] .stt;
конец; // 2;
3: начинать
kaine3.maxvalue: = pcbs [3] .svt;
kaine3.progress: = count-pcbs [3] .stt;
конец; // 3;
4: Начните
kale4.maxvalue: = pcbs [4] .svt;
kale4.progress: = count-pcbs [4] .tt;
конец; // 4;
конец; / случай
конец;
Если печатные платы [1] .fnhflg = true тогда
Gaue1.Progress: = PCBS [1] .SVT;
Если печатные платы [2] .fnhflg = tue тогда
kaine2.progress: = pcbs [2] .svt;
Если ПК [3] .fnhflg = tue тогда
kale3.progress: = pcbs [3] .svt;
IFF PCS [4] .fnhflg = true Then Then
kaine4.progress: = pcbs [4] .svt;
конец;
Процедура tform1.button1click (отправитель: tobject);
начинать
Button2.enabled: = false;
timer3.nabled: = false;
timer2.enabled: = true;
timer1.enabled: = true;
timer4.enabled: = false;
пытаться
Флаг: = true;
Pcbs [1] .name: = edit1.orthtatext;
Pcbs [1] .arv: = strtint (edit2.text);
Pcbs [1] .svt: = strtouch (edit3.text);
ПХБ [1].
ПХБ [1] .fnhflg: = false;
Pcbs [2] .name: = edit4.text;
PCBS [2] .arv: = strtint (Editt5.Text);
Pcbs [2] .svt: = strtouch.text);
PCBS [2] .stflg: = false;
ПХБ [2] .fnhflg: = false;
PCBS [3] .name: = edit7.text;
Pcbs [3] .arv: = strtint (edit8.text);
PCBS [3] .svt: = strtouch (edit9.text);
ПХБ [3] .stflg: = false;
ПХБ [3] .fnhflg: = false;
PCBS [4] .name: = edit10.text;
PCBS [4] .arv: = strtint (edit11.text);
Pcbs [4] .svt: = strtoot (edit12.text);
ПХБ [4].
ПХБ [4] .fnhflg: = false;
Nullflag: = false;
Кроме
nullflag: = true;
Showage ('请将数据填完整');
конец;
конец;
Процедура tform1.timer2timer (отправитель: tobject);
вар
я: целое число;
начинать
Если fnehnum <pcbox, тогда
начинать
if (openflg = true) и (pcbumd> 0)))))))))))))
начинать
для i: = 1 до pcbruc remost
начинать
Если PCBS [i] .fnhflg = false
начинать
Если Tempok = fals
начинать
SUREMP: = TEMPID;
Tempid: = i;
Tempok: = true;
конец;
Если PCBS [i] .Svt <pcbs [tempid] .svt тогда
начинать
//timer1.enabled:/false;
Tempid: = i;
//timer1.enabled: lue;
end;
конец;
конец;
OpenFlg: = false;
Pcbs [tephid] .stt: = count;
Pcbs [tepsid] .stflg: = true;
//listbox1.idd.add ('进程' + pcbs [subtem] .name + 'fnh');
listboxs.atms.add ('进程' + pcbs [tempid] .name + '被调度');
конец;
конец;
конец; // Процедура
Процедура tform1.button2click (отправитель: tobject);
начинать
Button1.enabled: = false;
timer1.enabled: = false;
timer2.enabled: = false;
timer3.nabled: = true;
timer4.enabled: = true;
пытаться
Флаг: = true;
Pcbs [1] .name: = edit1.orthtatext;
Pcbs [1] .arv: = strtint (edit2.text);
Pcbs [1] .svt: = strtouch (edit3.text);
PCBS [1] .stflg: = true;
ПХБ [1] .fnhflg: = false;
Pcbs [2] .name: = edit4.text;
PCBS [2] .arv: = strtint (Editt5.Text);
Pcbs [2] .svt: = strtouch.text);
PCBS [2] .stflg: = false;
ПХБ [2] .fnhflg: = false;
PCBS [3] .name: = edit7.text;
Pcbs [3] .arv: = strtint (edit8.text);
PCBS [3] .svt: = strtouch (edit9.text);
ПХБ [3] .stflg: = false;
ПХБ [3] .fnhflg: = false;
PCBS [4] .name: = edit10.text;
PCBS [4] .arv: = strtint (edit11.text);
Pcbs [4] .svt: = strtoot (edit12.text);
ПХБ [4].
ПХБ [4] .fnhflg: = false;
Nullflag: = false;
Кроме
nullflag: = true;
Showage ('请将数据填完整');
конец;
конец;
Процедура tform1.timer3timer3timerter (отправитель: tobject);
вар
М: целое число;
начинать
if (flag = true) и (ntp = false) и (nullflag = false)) тогда
Начинать // Если falg = true, тогда
Count: = count + 1;
listboxes1.items.add (inttoStr (count);
Для M: = от 1 до 4DO
Начинать // для m: = 1 до 5
If ((pcbs [m] .sttfg = true) и (pcbs [m] .fnhflg = false)))
Начинать // if (pcb [m] .stflg = true и pcb [m] .fnhflg = false)
Если count = pcbs [m] .stt + pcbs [m] .svt тогда
Начинать // if (count = pcbs [m] .stt + pcbs [m] .svt) тогда
Pcbs [m] .fnhflg: = true;
//timer4.enportdi: = false;
Pro: = 0;
//timer4.enportd: = true;
Listbox1.itms.add ('进程:' + pcbs [m] .name + '完成 !!!!');
Если м <4, то тогда
Начинать // Если m <4, то тогда
// pcbs losm+1 of.stttlg: = true;
// pcbs losm+1 of.stt: = count;
forword: = true;
конец;
Pcbs [m] .fnt: = count;
Pcbs [m] .zzzsj: = pcbs [m] .fnt-pcbs [m] .arv;
Pcbs [m] .dqsj: = pcbs [m] .zzsj / (pcbs [m] .ldt);
end;
end;
конец; // для m: = 1 до 5
IFF PCS [4] .fnhflg = true Then Then
начинать
Ntp: = true;
Edit13.text: = inttoStr (pcbs [1] .tt);
EDIT14.Text: = inttoStr (PCBS [1] .stt + PCBS [1] .SVT);
EDIT15.Text: = inttoStr (PCBS [1] .zzsj);
EDIT16.Text: = FLATTOSTR (PCBS [1] .DQSJ);
Editi7.text: = inttoStr (pcbs [2] .stt);
Editi.text: = inttoStr (pcbs [2] .stt + pcbs [2] .svt);
EDIT19.Text: = inttoStr (PCBS [2] .zzsj);
Edit20.text: = flattoStr (PCBS [2] .dqsj);
Edit21.text: = inttoStr (PCBS [3] .tt);
edit22.text: = inttoStr (PCBS [3] .Stt + PCBS [3 .SVT);
Edit23.text: = inttoStr (pcbs [3] .zzssj);
edit24.text: = flattoStr (PCBS [3] .dqsj);
edit25.text: = inttoStr (PCBS [4] .tt);
Edit26.text: = inttoStr (PCBS [4] .stt + PCBS [4] .SVT);
Edit27.text: = inttoStr (pcbs [4] .zzsj);
Edit22.text: = flofostr (pcbs [4] .dqsj);
конец;
для m: = 1 до 4
начинать
If (count> = pcbs [m] .arv) и (pcbs [m] .sttfg = false)) тогда
Если forword = true, тогда
начинать
Pcbs [m] .sttfg: = true;
Pcbs [m] .stt: = count;
forword: = false;
конец; // 3 и
конец; // для m: = 1 до 4
kaile1.maxvalue: = pcbs [1] .svt;
kaleg2.maxvalue: = pcbs [2] .svt;
kaine3.maxvalue: = pcbs [3] .svt;
kale4.maxvalue: = pcbs [4] .svt;
Если PCB [1] .stflg = true и pcbs [1] .fnhflg = false
начинать
//gauge1.progressive:=gaugh1.maxvalue: = pcbs ces1 доступен.shtt;
kaile1.progress: = count-pcbs [1] .stt;
End // iffbs [1] .stflg = true и pcbs [1] .fnhflg = false
Иначе iff pcs [1] .fnhflg = true тогда
Gaue1.Progress: = PCBS [1] .SVT;
Если ПК [2] .sttfg = true и pcbs [2] .fnhflg = false
начинать
kail2.progress: = count-pcbs [2] .stt;
End // iffbs [1] .stflg = true и pcbs [1] .fnhflg = false
Ee, если pcbs [2] .fnhflg = tue tue tue tue
kaine2.progress: = pcbs [2] .svt;
Если ПК [3] .sttfg = true и pcbs [3 .fnhflg = false
начинать
kaine3.progress: = count-pcbs [3] .stt;
End // iffbs [1] .stflg = true и pcbs [1] .fnhflg = false
Ee, если pcbs [3] .fnhflg = tue tue tue tue
kale3.progress: = pcbs [3] .svt;
Если ПК [4] .stflg = true и pcbs [4] .fnhflg = false
начинать
kale4.progress: = count-pcbs [4] .tt;
End // iffbs [1] .stflg = true и pcbs [1] .fnhflg = false
Ee ele if pcbs [4] .fnhflg = tue tue tue tue
kaine4.progress: = pcbs [4] .svt;
конец; // Если falg = true, тогда
конец;
Процедура tform1.button3click (отправитель);
начинать
Form1.close;
//end.//do Over
конец;
Процедура tform1.button4click (отправитель: tobject);
начинать
forword: = false;
Subemp: = 0;
J: = 1;
OpenFlg: = true;
Tempid: = 1;
fnehnum: = 0;
Pcbum: = 0;
Ntp: = false;
Tempok: = false;
Флаг: = ложь;
Lauge1.Progress: = 0;
Lauge2.progress: = 0;
Laige3.Progress: = 0;
Lauge4.progress: = 0;
Button2.enported: = true;
Button1.enabled: = true;
Счет: = - 1;
Pro: = 0;
// pCBAD: Integer = 1;
writfflg: = 0;
Флаг: = ложь;
Nullflag: = false;
edit1.text: = ';
Edit2.text: = ';
Edit3.text: = ';
Edit4.text: = ';
Edit5.text: = ';
Edit6.text: = ';
edit7.text: = ';
edit8.text: = ';
Edit9.text: = ';
edit9.text: = ';
edit11.text: = ';
edit12.text: = ';
Edit13.text: = '系统填写';
Edit14.text: = '系统填写';
EDIT15.Text: = '系统填写';
EDIT16.Text: = '系统填写';
Editian.text: = '系统填写';
Editi.text: = '系统填写';
EDIT19.Text: = '系统填写';
Edit20.text: = '系统填写';
Edit21.text: = '系统填写';
edit22.text: = '系统填写';
Edit23.text: = '系统填写';
edit24.text: = '系统填写';
edit25.text: = '系统填写';
Edit26.text: = '系统填写';
Edit27.text: = '系统填写';
Edit22.text: = '系统填写';
ПХБ [1] .fnhflg: = false;
ПХБ [1].
ПХБ [2] .fnhflg: = false;
PCBS [2] .stflg: = false;
ПХБ [3] .fnhflg: = false;
ПХБ [3] .stflg: = false;
ПХБ [4] .fnhflg: = false;
ПХБ [4].
конец;
Процедура tform1.button5click (отправитель: tobject);
начинать
Форма3.show;
конец;
Процедура tform1.field: объектив);
начинать
Form100fieldstyle: = fssstsyontop;
EposateWindow (Handle, 2000, AW_Center);
Form100formstyle: = fsnormal;
конец;
Процедура tform1.button6click (отправитель: tobject);
начинать
edit1.text: = 'a';
Edit2.text: = '0';
Edit3.text: = '3';
edit4.text: = 'b';
Edit5.text: = '5';
Edit6.text: = '2';
edit7.text: = 'c';
edit8.text: = '5';
Edit9.text: = '3';
edit19.text: = 'd';
edit11.text: = '5';
edit12.text: = '2';
конец;
Процедура tform1.timer4timer4timer (отправитель: tobject);
начинать
If ((pcbs [1] .arv = count) и (pcbs [1] .sttflg = false)) тогда
начинать
forword: = true;
конец;
конец;
Конец.
Единица 2;
Интерфейс
Использование
Windows, сообщения, sysutilils, варианты, классы, графика, управления, формы,
Dialogs, jpeg, extctrls, stdctrls;
тип
Tform2 = class (tform)
Image1: Timage;
Label1: Tlabel;
Label2: Tlabel;
Label3: Tlabel;
Частный
{Частные объявления}
публичный
{Публичные объявления}
конец;
тип
Pcb = запись
Имя: String;
ARV: целое число;
SVT: целое число;
STT: целое число;
Fnt: целое число;
Zzsj: целое число;
DQSJ: Real;
fnhflflg: bool;
Sttflg: сиська;
конец;
PCBX = массив [1.4] из PCB;
вар
Форма2: Tform2;
PCBS: PCBX;
выполнение
Использовать единицу1;
{$ R * .dfm}
Конец.
единица единицы3;
Интерфейс
Использование
Windows, сообщения, sysutilils, варианты, классы, графика, управления, формы,
Dialogs, STDCTRLS, COMCTRLS, JPEG, EXTCTRLS;
тип
Tform3 = class (tform)
Richedit1: трихит;
Частный
{Частные объявления}
публичный
{Публичные объявления}
конец;
вар
Форма3: tform3;
выполнение
{$ R * .dfm}
Конец.