محاكاة جدولة العملية (كتبها دلفي)

الوحدة 1 ؛

واجهة

يستخدم

Windows ، الرسائل ، sysutilils ، المتغيرات ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ،

مربعات الحوار ، comctrls ، stdctrls ، extctrls ، الشبكات ، التقويم ، المقاييس ، jpeg ؛

يكتب

tform1 = فئة (tform)

الشكل 1: فورد ؛

شكل 2: للمد.

الشكل 3: على العكس ؛

الشكل 4: للمد.

الشكل 5: علامات التبويب ؛

الشكل 6: للمد.

الشكل 7: للمد.

الشكل 8: على العكس ؛

شكل 9: للمد.

الشكل 10: لقضاء عطلة ؛

شكل 11: على العكس ؛

الشكل 12: فورمور ؛

StaticText1: tstatictext ؛

StaticText2: tstatictext ؛

StaticText3: tstatictext ؛

StaticText4: tstatictext ؛

StaticText5: tstatictext ؛

StaticText6: tstatictext ؛

StaticText7: tstatictext ؛

EDIT1: TEDIT ؛

edit2: titit ؛

EDIT3: TEDIT ؛

edit4: titit ؛

EDIT5: Titit ؛

Edit6: Titit ؛

EDIT7: Teded ؛

EDIT8: Titit ؛

Edit9: Titit ؛

EDIT10: Titit ؛

Edit11: Teded ؛

EDIT12: TEDIT ؛

EDIT13: Titit ؛

EDIT16: TEDIT ؛

EDIT15: Titit ؛

EDIT16: TEDIT ؛

EDIT17: Titit ؛

EDIT18: TEDIT ؛

Edit19: Tedod ؛

EDIT20: Teded ؛

Edity21: Titit ؛

Edit22: Teep ؛

EDIT23: Titit ؛

EDIT24: TEDIT ؛

EDIT25: Titit ؛

EDIT26: Titit ؛

EDIT27: Titit ؛

EDIT22: Titit ؛

Button1: Tbutton ؛

EDIT2T2: TITED ؛

Timer1: Timtimer ؛

Timer2: الوقت ؛

listbox1: ledlistbox ؛

Gauge1: tgauge ؛

Gauge2: tgauge ؛

Gauge3: tgauge ؛

Gauge4: tgg ؛

Label1: tlabel ؛

Label2: tlabel ؛

Label3: tlabel ؛

Label4: tlabel ؛

EDIT30: TEDIT ؛

Image1: Timage ؛

Label5: tlabel ؛

Button2: Tbutton ؛

Timer3: TITTER ؛

Button4: Tbutton ؛

Button5: Tbutton ؛

Button3: Tbutton ؛

Label6: tlabel ؛

Button6: Tbutton ؛

Timer4: TITTER ؛

الإجراءات timer1stimer (المرسل: tooject) ؛

الإجراءات button1click (المرسل: tobject) ؛

الإجراءات timer2timer (المرسل: tobject) ؛

الإجراءات button2click (المرسل: tobject) ؛

الإجراء timer33timer (المرسل: tobject) ؛

الإجراء button3click (المرسل: tobject) ؛

الإجراءات button4click (المرسل: tobject) ؛

الإجراءات button5click (المرسل: tobject) ؛

Formcreate الإجراء (المرسل: TOBJECT) ؛

الإجراء button6click (المرسل: tobject) ؛

الإجراءات timer4timer (المرسل: tobject) ؛

خاص

{إعلانات خاصة}

عام

{الإعلانات العامة}

نهاية؛

يكتب

PCB = سجل

الاسم: سلسلة.

ARV: عدد صحيح ؛

SVT: عدد صحيح ؛

STT: عدد صحيح ؛

FNT: عدد صحيح ؛

ZZSJ: عدد صحيح ؛

DQSJ: حقيقي ؛

fnhflflg: bool ؛

Sttflg: المعتوه ؛

نهاية؛

PCBX = صفيف [1.4] من PCB ؛

var

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 ؛

العلم: بول = خطأ ؛

Form1: Tform1 ؛

عرض: tdatetime ؛

العد: عدد صحيح = -1 ؛

Pro: integer = 0 ؛

// pcbad: integer = 1 ؛

Writflg: integer = 0 ؛

PCBS: PCBX ؛

رغم ذلك ، مين ، ثانية ، MSEC: كلمة ؛

الطريقة: عدد صحيح = 1 ؛

تطبيق

استخدم UNIT3 ؛

{$ r * .dfm}

الإجراء tform1.timer1p1.timer1timer (المرسل: tobject) ؛

var

W: عدد صحيح ؛

F: عدد صحيح ؛

يبدأ

إذا كان العلم = صحيح و nullflag = خطأ ثم خطأ 远为 صحيح

يبدأ

العد: = العد + 1 ؛

listboxes1.items.add (inttoStr (count) ؛

ل W: = 1 إلى 4 تفعل

يبدأ

إذا pcbs [w] .Arv = counten

يبدأ

timer2.enabled: = false ؛

PCBUM: = pcbnum + 1 ؛

timer2.enabled: = true ؛

نهاية؛

نهاية؛

إذا openFlg = false ثم

يبدأ

إذا العد (العد = pcbs [tempid] .stt + pcbs [tempid] .svt) ثم

يبدأ

PCBS [tempid] .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] .zzsj / (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] .zzsj / (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] .zzsj) ؛

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: = flofosttr (pcbs [4] .dqsj) ؛

نهاية؛

OpenFlg: = صحيح ؛ // 改 !!!!!!!

Tempok: = خطأ ؛

نهاية؛

نهاية؛

لـ F: = 1 إلى 4 تفعل

يبدأ

if (count = pcbs [f] .stt + pcbs [f] .svt) و pcbsvt1

listbr.idds.add (pcbs [f] .name + '完成 !!!!') ؛

نهاية؛ // ل

نهاية

إذا openFlg = false ثم

يبدأ

حالة tempid من

1: ابدأ

IFCLS [1] .SVT = 1 ثم

يبدأ

Gauge1.MaxValue: = 2 ؛

Gauge1.Progress: = 2 ؛

نهاية

آخر

يبدأ

Gauge1.MaxValue: = pcbs [1] .svt ؛

Gauge1.Progress: = count-pcbs [1] .stt ؛

نهاية؛

نهاية

2: ابدأ

Gauge2.MaxValue: = pcbs [2] .svt ؛

Gauge2.progress: = count-pcbs [2] .stt ؛

نهاية

3: ابدأ

Gauge3.MaxValue: = pcbs [3] .svt ؛

Gauge3.progress: = count-pcbs [3] .stt ؛

نهاية

4: ابدأ

Gauge4.MaxValue: = pcbs [4] .svt ؛

Gauge4.progress: = count-pcbs [4] .tt ؛

نهاية؛ // 4 ؛

نهاية

نهاية

إذا كانت مركبات ثنائي الفينيل متعدد الكلور [1] .fnhflg = true ثم

Gauge1.Progress: = pcbs [1] .svt ؛

إذا pcbs [2] .fnhflg = tue ثم

Gauge2.progress: = pcbs [2] .svt ؛

إذا كانت أجهزة الكمبيوتر [3] .fnhflg = الثلاثاء

Gauge3.progress: = pcbs [3] .svt ؛

PCS IFF [4] .FNHFLG = TRUE ثم

Gauge4.progress: = pcbs [4] .svt ؛

نهاية

الإجراء tform1.button1click (المرسل: tobject) ؛

يبدأ

button2.enabled: = false ؛

timer3.endabled: = false ؛

timer2.enabled: = true ؛

timer1.Enabled: = true ؛

timer4.enbabled: = false ؛

يحاول

العلم: = صحيح ؛

PCBS [1] .Name: = edit1.orthtatext ؛

PCBS [1] .Arv: = strtint (edit2.text) ؛

PCBS [1] .svt: = strTouch (edit3.text) ؛

PCBS [1].

PCBS [1] .fnhflg: = false ؛

PCBS [2] .Name: = edit4.text ؛

PCBS [2] .Arv: = strtint (editt5.text) ؛

PCBS [2] .svt: = strtouch.text) ؛

PCBS [2] .sttflg: = false ؛

PCBS [2] .fnhflg: = false ؛

PCBS [3] .Name: = edit7.text ؛

PCBS [3] .Arv: = strtint (edit8.text) ؛

PCBS [3] .SVT: = strTouch (edit9text) ؛

PCBS [3] .sttflg: = false ؛

PCBS [3] .fnhflg: = false ؛

PCBS [4] .NAME: = edit10.text ؛

PCBS [4] .Arv: = strtint (edit11.text) ؛

PCBS [4] .svt: = strtoot (edit12.text) ؛

PCBS [4].

PCBS [4] .fnhflg: = false ؛

nullflag: = false ؛

يستثني

nullflag: = صحيح ؛

Showage ('请将数据填完整') ؛

نهاية؛

نهاية؛

الإجراء tform1.timer2timer (المرسل: tobject) ؛

var

أنا: عدد صحيح.

يبدأ

إذا fnehnum <pcbox ثم

يبدأ

if (openFlg = true) و (pcbumd> 0)))))

يبدأ

لأني: = 1 إلى pcbruc تحريك

يبدأ

إذا pcbs [i] .fnhflg = false

يبدأ

إذا tempok = false ثم

يبدأ

SUTEMP: = tempid ؛

tempid: = i ؛

Tempok: = صحيح ؛

نهاية؛

إذا كانت مركبات ثنائي الفينيل متعدد الكلور [i] .svt <pcbs [tempid] .svt ثم

يبدأ

//timer1.enabled:/False ؛

tempid: = i ؛

//timer1.enbabled: lue ؛

نهاية

نهاية

نهاية؛

OpenFlg: = false ؛

PCBS [tempid] .stt: = count ؛

PCBS [tempid] .sttflg: = true ؛

//listbox1.idd.add ('进程' + pcbs [subtem] .name + 'fnh') ؛

listboxes.atms.add ('进程' + pcbs [tempid] .name + '被调度') ؛

النهاية ؛

نهاية

نهاية؛ // إجراء

الإجراء tform1.button2Click (المرسل: tobject) ؛

يبدأ

button1.Enabled: = false ؛

Timer1.Enabled: = false ؛

timer2.enabled: = false ؛

timer3.endabled: = true ؛

timer4.enbabled: = true ؛

يحاول

العلم: = صحيح ؛

PCBS [1] .Name: = edit1.orthtatext ؛

PCBS [1] .Arv: = strtint (edit2.text) ؛

PCBS [1] .svt: = strTouch (edit3.text) ؛

PCBS [1] .sttflg: = true ؛

PCBS [1] .fnhflg: = false ؛

PCBS [2] .Name: = edit4.text ؛

PCBS [2] .Arv: = strtint (editt5.text) ؛

PCBS [2] .svt: = strtouch.text) ؛

PCBS [2] .sttflg: = false ؛

PCBS [2] .fnhflg: = false ؛

PCBS [3] .Name: = edit7.text ؛

PCBS [3] .Arv: = strtint (edit8.text) ؛

PCBS [3] .SVT: = strTouch (edit9text) ؛

PCBS [3] .sttflg: = false ؛

PCBS [3] .fnhflg: = false ؛

PCBS [4] .NAME: = edit10.text ؛

PCBS [4] .Arv: = strtint (edit11.text) ؛

PCBS [4] .svt: = strtoot (edit12.text) ؛

PCBS [4].

PCBS [4] .fnhflg: = false ؛

nullflag: = false ؛

يستثني

nullflag: = صحيح ؛

Showage ('请将数据填完整') ؛

نهاية؛

نهاية؛

الإجراء tform1.Timer3Timer3Timerter (المرسل: tobject) ؛

var

م: عدد صحيح ؛

يبدأ

if (flag = true) و (ntp = false) و (nullflag = false)) ثم

ابدأ // إذا كان falg = صحيح إذن

العد: = العد + 1 ؛

listboxes1.items.add (inttoStr (count) ؛

ل M: = 1 إلى 4DO

ابدأ // لـ M: = 1 إلى 5 DO

if ((pcbs [m] .sttfg = true) و (pcbs [m] .fnhflg = false))

ابدأ // if (pcb [m] .sttflg = true و pcb [m] .fnhflg = false)

إذا العد = 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 + '完成 !!!

إذا كان m <4 ثم

ابدأ // إذا كان m <4 ثم

// pcbs losm+1 of.stttlg: = true ؛

// pcbs losm+1 of.stt: = count ؛

forword: = صحيح ؛

نهاية

pcbs [m] .fnt: = count ؛

pcbs [m] .zzzsj: = pcbs [m] .fnt-pcbs [m] .arv ؛

pcbs [m] .dqsj: = pcbs [m] .zzsj / (pcbs [m] .ldt) ؛

النهاية ؛

النهاية ؛

نهاية

PCS IFF [4] .FNHFLG = TRUE ثم

يبدأ

NTP: = صحيح ؛

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] .zzsj) ؛

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: = flofosttr (pcbs [4] .dqsj) ؛

نهاية؛

ل M: = 1 إلى 4 تفعل

يبدأ

if (count> = pcbs [m] .arv) و (pcbs [m] .sttfg = false)) ثم

إذا كان forword = صحيح إذن

يبدأ

pcbs [m] .sttfg: = true ؛

pcbs [m] .stt: = count ؛

forword: = false ؛

نهاية

نهاية

Gauge1.MaxValue: = pcbs [1] .svt ؛

Gauge2.MaxValue: = pcbs [2] .svt ؛

Gauge3.MaxValue: = pcbs [3] .svt ؛

Gauge4.MaxValue: = pcbs [4] .svt ؛

إذا pcbs [1] .sttflg = true و pcbs [1] .fnhflg = false

يبدأ

//gauge1.progression:=gaugh1.MaxValue: = PCBS CES1 متاح.

Gauge1.Progress: = count-pcbs [1] .stt ؛

End // IFFBs [1] .sttflg = true و pcbs [1] .fnhflg = false

آخر iff pcs [1] .fnhflg = true ثم

Gauge1.Progress: = pcbs [1] .svt ؛

إذا كانت أجهزة الكمبيوتر [2] .sttfg = true و pcbs [2]

يبدأ

Gauge2.progress: = count-pcbs [2] .stt ؛

End // IFFBs [1] .sttflg = true و pcbs [1] .fnhflg = false

ايلي إذا pcbs [2] .fnhflg = الثلاثاء ثم

Gauge2.progress: = pcbs [2] .svt ؛

إذا كانت أجهزة الكمبيوتر [3] .sttfg = true و pcbs

يبدأ

Gauge3.progress: = count-pcbs [3] .stt ؛

End // IFFBs [1] .sttflg = true و pcbs [1] .fnhflg = false

ايلي إذا pcbs [3] .fnhflg = tue ثم

Gauge3.progress: = pcbs [3] .svt ؛

لو

يبدأ

Gauge4.progress: = count-pcbs [4] .tt ؛

End // IFFBs [1] .sttflg = true و pcbs [1] .fnhflg = false

ايلي إذا pcbs [4] .fnhflg = tue ثم

Gauge4.progress: = pcbs [4] .svt ؛

نهاية؛ // إذا كان falg = صحيح إذن

نهاية

الإجراء tform1.button3click (المرسل) ؛

يبدأ

form1.close ؛

//end.//do أكثر

نهاية؛

الإجراء tform1.button4click (المرسل: tobject) ؛

يبدأ

forword: = false ؛

Subemp: = 0 ؛

J: = 1 ؛

OpenFlg: = صحيح ؛

tempid: = 1 ؛

fnehnum: = 0 ؛

PCBUM: = 0 ؛

NTP: = خطأ ؛

Tempok: = خطأ ؛

العلم: = خطأ ؛

Gauge1.Progress: = 0 ؛

Gauge2.progress: = 0 ؛

Gauge3.Progress: = 0 ؛

Gauge4.progress: = 0 ؛

button2.enported: = true ؛

button1.Enabled: = true ؛

العد: = - 1 ؛

Pro: = 0 ؛

// pcbad: integer = 1 ؛

Writflg: = 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: = '系统填写' ؛

PCBS [1] .fnhflg: = false ؛

PCBS [1].

PCBS [2] .fnhflg: = false ؛

PCBS [2] .sttflg: = false ؛

PCBS [3] .fnhflg: = false ؛

PCBS [3] .sttflg: = false ؛

PCBS [4] .fnhflg: = false ؛

PCBS [4].

نهاية؛

الإجراء tform1.button5click (المرسل: tobject) ؛

يبدأ

form3.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: = صحيح ؛

نهاية؛

نهاية؛

نهاية.

وحدة وحدة 2 ؛

واجهة

يستخدم

Windows ، الرسائل ، sysutilils ، المتغيرات ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ،

مربعات الحوار ، JPEG ، extctrls ، stdctrls ؛

يكتب

tform2 = فئة (tform)

Image1: Timage ؛

Label1: tlabel ؛

Label2: tlabel ؛

Label3: tlabel ؛

خاص

{إعلانات خاصة}

عام

{الإعلانات العامة}

نهاية؛

يكتب

PCB = سجل

الاسم: سلسلة.

ARV: عدد صحيح ؛

SVT: عدد صحيح ؛

STT: عدد صحيح ؛

FNT: عدد صحيح ؛

ZZSJ: عدد صحيح ؛

DQSJ: حقيقي ؛

fnhflflg: bool ؛

Sttflg: المعتوه ؛

نهاية؛

PCBX = صفيف [1.4] من PCB ؛

var

form2: tform2 ؛

PCBS: PCBX ؛

تطبيق

استخدام الوحدة 1 ؛

{$ r * .dfm}

نهاية.

UNIT3 ؛

واجهة

يستخدم

Windows ، الرسائل ، sysutilils ، المتغيرات ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ،

مربعات حوار ، stdctrls ، comctrls ، jpeg ، extctrls ؛

يكتب

tform3 = فئة (tform)

Richedit1: Trichit ؛

خاص

{إعلانات خاصة}

عام

{الإعلانات العامة}

نهاية؛

var

form3: tform3 ؛

تطبيق

{$ r * .dfm}

نهاية.