2.2 Алгоритм функціонування системи
Основним призначенням системи є автоматизація виконання розрахунків параметрів обладнання цукрових заводів.
Все обладнання розбите на три групи згідно його призначення:
основне технологічне обладнання;
допоміжне технологічне обладнання;
загальнозаводське обладнання.
Основним технічним параметром обладнання є продуктивність. Продуктивність обладнання прийнято виражати в кількості продукції, сировини чи напівпродуктів, яке воно здатне виробляти, переробляти чи обробляти за одиницю часу. Продуктивність обладнання обчислюють у тоннах, штуках, метрах та ін. за одиницю часу (хвилину, годину, добу) .
Для обладнання харчової промисловості встановлені три види продуктивності : теоретична, технічна та експлуатаційна.
Теоретичну продуктивність встановлюють для умов безперервної роботи обладнання за виконання номінальних умов експлуатації , без врахування втрат часу на технічне обслуговування, ремонт та організаційні простої.
Технічну продуктивність визначають за умови додержання номінальних вимог експлуатації обладнання за сталого режиму роботи з урахуванням часу на технічне обслуговування і ліквідацію збоїв, передбачених правилами експлуатації. Технічну продуктивність зазначають у нормативно-технічній документації на обладнання, а також в інших технічних документах.
Експлуатаційну продуктивність визначає цукровий завод у процесі експлуатації обладнання у конкретних умовах його використання з урахуванням показників надійності та ряду інших факторів, таких як наявність ремонтної бази, її технічного рівня, забезпеченості запасними частинами та ін.
З паспортних даних заводів-виробників визначають технічну продуктивність такого основного технологічного облдання: уловлювачі легких домішок, уловлювачі важких домішок, гідропневматичні підіймачі, бурякомийки різних типів, водовіддільники, бурякообполіскувачі, лінія для уловлювання та класифікації буряком аси, бурякорізки, ваги конвеєрні для бурякової стружки, дифузійні апарати різних типів, жомові преси похилі та вертикальні, гравітаційн дугові сита для жомопресової води, мезго вловлювачі для дифузійного соку, апарати попередньої дефекації, основної дефекації та дефекації перед ІІ сатурацією, апарати І та ІІ сатурації, фільтри згущувачі листові, фільтр-преси автоматизовані, ваги для меляси та ін.
У разі якщо нове технологічне обладнання обирають з урахуванням його технічної продуктивності, спочатку визначають величину основного фактора (об’єм апарата, площа робочої поверхні), що характеризує технічну продуктивність, а потім з урахуванням технічної характеристики обирають саму машину або апарат.
Опис та реалізація модулів системи
При запуску програми запускається заставка. Реалізація заставки:
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
ZastavkaForm:=TZastavkaForm.Create(application);
ZastavkaForm.Show;
ZastavkaForm.Update;
Sleep(5000);
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TUstSushZhomForm, UstSushZhomForm);
ZastavkaForm.Hide;
ZastavkaForm.Free;
Application.CreateForm(TVodoViddilForm, VodoViddilForm);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TAboutBox1, AboutBox1);
Application.Run;
end.
Рис. 2.1 – Скріншот заставки програми при запуску
Якщо натиснути на меню “Розрахунки”, то відкриється меню з типами обладнання, в яких користувач обирає тип обладнання, для якого він хоче виконати розрахунок. Далі користувач заповнює комірки вхідними даними.
Після заповнення комірок для виведення результату потрібно натиснути кнопку “Виконати розрахунок”.
Далі приклад обробника кнопки для виконання розрахунку технічної продуктивності порційних вагів.
procedure TForm8.Button1Click(Sender: TObject);
begin
m:=strtofloat(edit1.text);
n:=strtoint(edit2.text);
a:=1440*m*n;
label4.Caption:=floattostr(a)+' т на добу';
button2.Visible:=true;
end;
Рис. 4.2. – Скріншот вікна з розрахунком продуктивності порційних вагів.
Приклад обробника кнопки для виконання розрахунку технічної продуктивності вакуум апаратів.
procedure TVakuumAparatuForm.CalculateButtonClick(Sender: TObject);
var mass,percent,time,time1,time2:integer;a:extended;
begin
mass:=strtoint(edit1.text);
percent:=strtoint(edit2.text);
if radiogroup2.ItemIndex=0 then//3 kristalizaciyna //shema
begin
if radiogroup1.ItemIndex=0 then//bez cirkulatora
begin
case percent of
94..99:begin
time1:=145;time2:=15;
end;
92..93:begin
time1:=160;time2:=15;
end;
91:begin
time1:=195;time2:=15;
end;
89..90:begin
time1:=210;time2:=15;
end;
85..87:begin
time1:=275;time2:=25;
end;
83..84:begin
time1:=305;time2:=25;
end;
77..78:begin
time1:=375;time2:=25;
end;
75..76:begin
time1:=555;time2:=45;
end;
70..74:begin
time1:=795;time2:=55;
end;
end;
end;
if radiogroup1.ItemIndex=1 then //z cirkulatorom
begin
case percent of
94..99:begin
time1:=130;time2:=15;
end;
92..93:begin
time1:=145;time2:=15;
end;
91:begin
time1:=175;time2:=15;
end;
89..90:begin
time1:=190;time2:=15;
end;
85..87:begin
time1:=260;time2:=25;
end;
83..84:begin
time1:=285;time2:=25;
end;
77..78:begin
time1:=285;time2:=25;
end;
75..76:begin
time1:=420;time2:=45;
end;
70..74:begin
time1:=600;time2:=55;
end;
end;
end;
end;
if radiogroup2.ItemIndex=1 then//2 kristalizaciyna shema
begin
if radiogroup1.ItemIndex=0 then//bez cirkulatora
begin
case percent of
92..99:begin
time1:=175;time2:=15;
end;
90..91:begin
time1:=210;time2:=15;
end;
79..89:begin
time1:=250;time2:=15;
end;
77..78:begin
time1:=370;time2:=45;
end;
75..76:begin
time1:=555;time2:=45;
end;
end;
end;
if radiogroup1.ItemIndex=1 then //z cirkulatorom
begin
case percent of
92..99:begin
time1:=160;time2:=15;
end;
90..91:begin
time1:=190;time2:=15;
end;
79..89:begin
time1:=225;time2:=15;
end;
77..78:begin
time1:=315;time2:=45;
end;
75..76:begin
time1:=475;time2:=45;
end;
end;
end;
end;
time:=time1+time2;
a:=(24*60*100*mass)/(1000*percent*time);
a:=int(a*100)/100;
label5.Caption:=floattostr(a);
end;
Рис. 4.3. Скріншот вікна з розрахунком продуктивності вакуум апаратів.
Зберігання результатів обрахунків виконується по натисненні кнопки
“В файл”.
Далі приклад обробника кнопки “В файл” для технічної продуктивності буряконасосів.
procedure TBuriakoNasosyCalcForm.Button2Click(Sender: TObject);
var MSWord: Variant;
begin
if savedialog1.Execute then
begin
try
ShellExecute(BuriakoNasosyCalcForm.Handle, 'open', 'msword.exe',
nil, nil, SW_SHOWNORMAL);
MsWord := GetActiveOleObject('Word.Application');
except
try
MsWord := CreateOleObject('Word.Application');
MsWord.Visible := True;
except
Exception.Create('Error');
end;
end;
MSWord.Documents.Add;
MSWord.Selection.Font.Size := 12;
MSWord.Selection.TypeText('Для вибору буряконасоса потрібно планову продуктивність заводу перерахувати в об’ємну подачу буряководяної суміші, м^3/год');
MSWord.Selection.TypeText(#13+'Q=(1/24)∙(Gд/ρб +Gд/(q∙ρв ))');
MSWord.Selection.TypeText(#13+'Де Gд - добова продуктивність заводу, кг/добу;');
MSWord.Selection.TypeText(#13+'ρб - густина коренеплодів буряків, кг/м^3; ρб=1060 кг/м^3 ');
MSWord.Selection.TypeText(#13+'ρв - густина води, кг/м^3; ρв=1000 кг/м^3');
MSWord.Selection.TypeText(#13+'Q - співвідношення буряків/вода; залежно від умов праці заводу q = 1:7..1:9');
MSWord.Selection.TypeText(#13+'Підставивши дані у формулу отримаємо:');
MSWord.Selection.TypeText(#13+'Q=(1/24)∙('+floattostr(gd)+'/1060 +'+floattostr(gd)+'/('+floattostr(q)+'∙1000 )='+label7.caption);
MSWord.Selection.TypeText(#13+label6.caption+' '+label7.Caption);
MSWord.ActiveDocument.SaveAs(savedialog1.FileName);
end;
end;
Рис. 4.4. Скріншот вікна з відкритим документом з виконаними розрахунками