Simulasi Penjadwalan Proses (Ditulis oleh Delphi)

unit unit1;

Antarmuka

Penggunaan

Windows, pesan, sysutilils, varian, kelas, grafik, kontrol, formulir,

Dialog, comctrls, stdctrls, extctrls, grids, kalender, pengukur, jpeg;

jenis

Tform1 = class (tform)

Bentuk1: ford;

Bentuk2: untuk air pasang;

Bentuk3: untuk yang sebaliknya;

Bentuk4: untuk air pasang;

Bentuk5: tab;

Bentuk6: untuk gelombang;

Bentuk7: untuk air pasang;

Bentuk8: untuk yang sebaliknya;

Bentuk9: untuk air pasang;

Bentuk10: untuk istirahat;

Bentuk11: untuk yang sebaliknya;

Bentuk12: formore;

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: waktu;

ListBox1: TListBox;

Gauge1: Tgeuge;

Gauge2: tgeuge;

Gauge3: Tgeuge;

Gauge4: tgg;

Label1: tlabel;

Label2: tlabel;

Label3: tlabel;

Label4: tlabel;

EDIT30: TEDIT;

Gambar1: timage;

Label5: tlabel;

Button2: tbutton;

Timer3: timter;

Button4: tbutton;

Tombol5: tbutton;

Button3: tbutton;

Label6: tlabel;

Button6: tbutton;

Timer4: timter;

Prosedur Timer1Stimer (pengirim: Tobject);

Prosedur Button1Click (pengirim: Tobject);

Prosedur Timer2Timer (Pengirim: Tobject);

Prosedur Button2Click (pengirim: Tobject);

Prosedur Timer33Timer (Pengirim: Tobject);

Prosedur Button3Click (pengirim: Tobject);

Prosedur Button4Click (pengirim: Tobject);

Prosedur Button5Click (pengirim: Tobject);

Prosedur FormCreate (pengirim: Tobject);

Prosedur Button6Click (pengirim: Tobject);

Prosedur Timer4Timer (Pengirim: Tobject);

Pribadi

{Deklarasi Pribadi}

publik

{Deklarasi Publik}

akhir;

jenis

PCB = Rekam

Nama: String;

ARV: Integer;

SVT: Integer;

STT: Integer;

FNT: Integer;

ZZSJ: Integer;

DQSJ: NYATA;

fnhflflg: bool;

Sttflg: payudara;

akhir;

Pcbx = array [1.4] dari PCB;

var

Nullflag: bol = false;

Forword: bol = false;

Subemp: Integer = 0;

J: Integer = 1;

OpenFLG: BOLO = true;

Tempid: Integer = 1;

fnehnum: integer = 0;

Pcbum: integer = 0;

NTP: bol = false;

Tempok: bol = false;

Bendera: bol = false;

Form1: tform1;

Tampilkan: tDateTime;

Hitung: integer = -1;

Pro: Integer = 0;

// pcbad: integer = 1;

writflg: integer = 0;

PCB: PCBX;

Padahal, Min, Sec, Msec: Word;

Metode: Integer = 1;

pelaksanaan

Gunakan Unit3;

{$ R * .dfm}

Prosedur TFORM1.TIMER1P1.TIMER1TIMER (Pengirim: Tobject);

var

W: Integer;

F: Integer;

mulai

jika flag = true dan nullflag = false kemudian dan false 远为 true

mulai

Hitung: = Hitung + 1;

listboxes1.items.add (inttoStr (count);

untuk w: = 1 hingga 4 lakukan

mulai

Jika PCB [W] .Arv = Counten

mulai

timer2.enabled: = false;

Pcbum: = pcbnum + 1;

timer2.enabled: = true;

akhir;

akhir;

Jika openflg = false maka

mulai

Jika Hitung (Hitung = PCB [TempID] .STT + PCBS [tempid] .svt) lalu

mulai

Pcbs [tempid] .fnhflg: = true;

fnehnum: = fnehre + 1;

Jika fnehnum = 4 maka

mulai

Bendera: = false;

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;

PCB [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;

PCB [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;

PCB [4] .ZZZSJ: = PCBS [4] .FNT-PCBS [4] .Arv;

PCB [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);

Edit.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: = flofostr (pcbs [4] .dqsj);

akhir;

OpenFlg: = true; // 改 !!!!!!!!

Tempok: = false;

akhir;

akhir;

untuk f: = 1 hingga 4 lakukan

mulai

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

Listbr.idds.add (pcbs [f] .name + '完成 !!!!');

akhir; // untuk

akhir;

Jika openflg = false maka

mulai

Kasus Tempid dari

1: Mulai

ifcls [1] .svt = 1 lalu

mulai

gauge1.maxValue: = 2;

gauge1.progress: = 2;

akhir

kalau tidak

mulai

gauge1.maxValue: = pcbs [1] .svt;

gauge1.progress: = count-pcbs [1] .stt;

akhir;

akhir;

2: Mulai

gauge2.maxValue: = pcbs [2] .svt;

gauge2.progress: = count-pcbs [2] .stt;

akhir;

3: Mulai

gauge3.maxValue: = pcbs [3] .svt;

gauge3.progress: = count-pcbs [3] .stt;

akhir;

4: Mulai

gauge4.maxValue: = pcbs [4] .svt;

gauge4.progress: = count-pcbs [4] .tt;

akhir; // 4;

akhir;

akhir;

Jika PCB [1] .fnhflg = true maka

gauge1.progress: = pcbs [1] .svt;

Jika PCB [2] .fnhflg = Selalu

gauge2.progress: = pcbs [2] .svt;

Jika PCS [3] .fnhflg = Selalu

gauge3.progress: = pcbs [3] .svt;

Iff pcs [4] .fnhflg = true

gauge4.progress: = pcbs [4] .svt;

akhir;

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

mulai

Tombol2.Enabled: = false;

timer3.enabled: = false;

timer2.enabled: = true;

timer1.enabled: = true;

timer4.enabled: = false;

mencoba

Bendera: = true;

Pcbs [1] .name: = edit1.orthTatext;

Pcbs [1] .arv: = strtint (edit2.text);

Pcbs [1] .svt: = strtouch (edit3.text);

PCB [1].

PCB [1] .fnhflg: = false;

Pcbs [2] .name: = edit4.text;

Pcbs [2] .arv: = strtint (editt5.text);

Pcbs [2] .svt: = strtouch.text);

PCB [2] .sttflg: = false;

PCBS [2] .fnhflg: = false;

Pcbs [3] .name: = edit7.text;

Pcbs [3] .arv: = strtint (edit8.text);

Pcbs [3] .svt: = strtouch (edit9.text);

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);

PCB [4].

PCBS [4] .fnhflg: = false;

Nullflag: = false;

Kecuali

nullflag: = true;

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

akhir;

akhir;

Prosedur TFORM1.TIMER2TIMER (Pengirim: Tobject);

var

I: Integer;

mulai

Jika fnehnum <pcbox maka

mulai

if (openflg = true) dan (pcbumd> 0))))

mulai

untuk i: = 1 ke pcbruc aduk

mulai

Jika PCB [i] .fnhflg = false

mulai

Jika tempok = false maka

mulai

Suremp: = Tempid;

Tempid: = i;

Tempok: = true;

akhir;

Jika PCB [i] .svt <pcbs [tempid] .svt maka

mulai

//timer1.enabled:/false;

Tempid: = i;

//timer1.enabled: lue;

akhir; // jika pcbs [i] .svt <pcs [tempid] .svt

akhir;

akhir;

OpenFlg: = false;

PCB [tempid] .stt: = count;

PCB [tempid] .sttflg: = true;

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

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

akhir; // if (openflg = true dan phbumt> 0)

berakhir; // jika fnhnum <pcbnum lalu

akhir; // Prosedur

Prosedur TFORM1.BUTTON2CLICK (Pengirim: Tobject);

mulai

Button1.enabled: = false;

timer1.enabled: = false;

timer2.enabled: = false;

timer3.enabled: = true;

timer4.enabled: = true;

mencoba

Bendera: = true;

Pcbs [1] .name: = edit1.orthTatext;

Pcbs [1] .arv: = strtint (edit2.text);

Pcbs [1] .svt: = strtouch (edit3.text);

PCB [1] .sttflg: = true;

PCB [1] .fnhflg: = false;

Pcbs [2] .name: = edit4.text;

Pcbs [2] .arv: = strtint (editt5.text);

Pcbs [2] .svt: = strtouch.text);

PCB [2] .sttflg: = false;

PCBS [2] .fnhflg: = false;

Pcbs [3] .name: = edit7.text;

Pcbs [3] .arv: = strtint (edit8.text);

Pcbs [3] .svt: = strtouch (edit9.text);

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);

PCB [4].

PCBS [4] .fnhflg: = false;

Nullflag: = false;

Kecuali

nullflag: = true;

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

akhir;

akhir;

Prosedur TFORM1.TIMER3TIMER3TIMERTER (Pengirim: Tobject);

var

M: Integer;

mulai

if (flag = true) dan (ntp = false) dan (nullflag = false)) kemudian

Mulai // jika falg = true

Hitung: = Hitung + 1;

listboxes1.items.add (inttoStr (count);

untuk m: = 1 hingga 4do

Mulai // untuk m: = 1 hingga 5 lakukan

If ((pcbs [m] .sttfg = true) dan (pcbs [m] .fnhflg = false))

Mulai // if (pcb [m] .sttflg = true dan pcb [m] .fnhflg = false)

Jika Count = PCB [m] .stt + pcbs [m] .svt maka

Mulai // if (count = pcbs [m] .stt + pcbs [m] .svt) lalu

Pcbs [m] .fnhflg: = true;

//timer4.enportdi: = false;

Pro: = 0;

//timer4.enportd: = true;

Listbox1.itms.add ('进程:' + pcbs [m] .name + '完成 !!!!');

Jika m <4 maka

Mulai // jika m <4 lalu

// pcbs losm+1 of.sttttlg: = true;

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

forword: = true;

akhir;

Pcbs [m] .fnt: = count;

Pcbs [m] .zzzsj: = pcbs [m] .fnt-pcbs [m] .arv;

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

akhir; // if (count = pcbs [m] .stt + pcbs [m] .svt) kemudian

akhir; // if (pcb [m] .sttflg = true dan pcb [m] .fnhflg = false)

akhir;

Iff pcs [4] .fnhflg = true

mulai

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);

Edit.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: = flofostr (pcbs [4] .dqsj);

akhir;

untuk m: = 1 hingga 4 lakukan

mulai

If (count> = pcbs [m] .arv) dan (pcbs [m] .sttfg = false)) kemudian

Jika forword = true maka

mulai

PCB [m] .sttfg: = true;

PCB [m] .stt: = count;

forword: = false;

akhir;

akhir;

gauge1.maxValue: = pcbs [1] .svt;

gauge2.maxValue: = pcbs [2] .svt;

gauge3.maxValue: = pcbs [3] .svt;

gauge4.maxValue: = pcbs [4] .svt;

Jika PCB [1] .sttflg = true dan pcbs [1] .fnhflg = false

mulai

//gauge1.progresif :=Gaugh1.maxValue: = PCBS CES1 tersedia.shtt;

gauge1.progress: = count-pcbs [1] .stt;

End // iffbs [1] .stttflg = true dan pcbs [1] .fnhflg = false

Lain iff pcs [1] .fnhflg = true kemudian

gauge1.progress: = pcbs [1] .svt;

Jika PCS [2] .sttfg = true dan pcbs [2] .fnhflg = false

mulai

gauge2.progress: = count-pcbs [2] .stt;

End // iffbs [1] .stttflg = true dan pcbs [1] .fnhflg = false

Elee if pcbs [2] .fnhflg = Sel kemudian

gauge2.progress: = pcbs [2] .svt;

Jika PCS [3] .sttfg = true dan pcbs [3 .fnhflg = false

mulai

gauge3.progress: = count-pcbs [3] .stt;

End // iffbs [1] .stttflg = true dan pcbs [1] .fnhflg = false

Elee jika pcbs [3] .fnhflg = Sel kemudian

gauge3.progress: = pcbs [3] .svt;

Jika PCS [4] .sttflg = true dan pcbs [4] .fnhflg = false

mulai

gauge4.progress: = count-pcbs [4] .tt;

End // iffbs [1] .stttflg = true dan pcbs [1] .fnhflg = false

Elee if pcbs [4] .fnhflg = Sel kemudian

gauge4.progress: = pcbs [4] .svt;

akhir; // jika falg = true maka

akhir;

Prosedur TFORM1.BUTTON3Click (pengirim);

mulai

Form1.close;

//end.//do over

akhir;

Prosedur TFORM1.BUTTON4CLICK (Pengirim: Tobject);

mulai

forword: = false;

Subemp: = 0;

J: = 1;

OpenFlg: = true;

Tempid: = 1;

fnehnum: = 0;

Pcbum: = 0;

Ntp: = false;

Tempok: = false;

Bendera: = false;

gauge1.progress: = 0;

gauge2.progress: = 0;

gauge3.progress: = 0;

gauge4.progress: = 0;

Button2.enported: = true;

Button1.Enabled: = true;

Hitung: = - 1;

Pro: = 0;

// pcbad: integer = 1;

writflg: = 0;

Bendera: = false;

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

PCB [1] .fnhflg: = false;

PCB [1].

PCBS [2] .fnhflg: = false;

PCB [2] .sttflg: = false;

PCBS [3] .fnhflg: = false;

PCBS [3] .sttflg: = false;

PCBS [4] .fnhflg: = false;

PCB [4].

akhir;

Prosedur TFORM1.BUTTON5CLICK (Pengirim: Tobject);

mulai

Form.

akhir;

Prosedur TFORM1.FIELD: TERTANGGUNG JAWAB);

mulai

Form100FieldStyle: = FSSSTSYONTOP;

EposateWindow (Handle, 2000, AW_CENTER);

Form100FormStyle: = fsnormal;

akhir;

Prosedur TFORM1.BUTTON6CLICK (Pengirim: Tobject);

mulai

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';

akhir;

Prosedur TFORM1.TIMER4TIMER4TIMER (Pengirim: Tobject);

mulai

If ((pcbs [1] .arv = count) dan (pcbs [1] .sttflg = false)) kemudian

mulai

forword: = true;

akhir;

akhir;

Akhir.

unit unit2;

Antarmuka

Penggunaan

Windows, pesan, sysutilils, varian, kelas, grafik, kontrol, formulir,

Dialog, jpeg, extctrls, stdctrls;

jenis

Tform2 = class (tform)

Gambar1: timage;

Label1: tlabel;

Label2: tlabel;

Label3: tlabel;

Pribadi

{Deklarasi Pribadi}

publik

{Deklarasi Publik}

akhir;

jenis

PCB = Rekam

Nama: String;

ARV: Integer;

SVT: Integer;

STT: Integer;

FNT: Integer;

ZZSJ: Integer;

DQSJ: NYATA;

fnhflflg: bool;

Sttflg: payudara;

akhir;

Pcbx = array [1.4] dari PCB;

var

Form2: tform2;

PCB: PCBX;

pelaksanaan

Gunakan Unit1;

{$ R * .dfm}

Akhir.

unit unit3;

Antarmuka

Penggunaan

Windows, pesan, sysutilils, varian, kelas, grafik, kontrol, formulir,

Dialog, stdctrls, comctrls, jpeg, extctrls;

jenis

Tform3 = class (tform)

Richedit1: Trichit;

Pribadi

{Deklarasi Pribadi}

publik

{Deklarasi Publik}

akhir;

var

Form3: tform3;

pelaksanaan

{$ R * .dfm}

Akhir.