Сучасне програмне забезпечення для проектування ланцюгової передачі в металорізальному верстаті

36

Размещено на http://www.allbest.ru/

Курсова робота: Сучасне програмне забезпечення для проектуванні ланцюгової передачі в металорізальному верстаті

Зміст

Вступ

1. Коротка характеристика ланцюгової передачі

2. Альтернативний спосіб передачі крутний моменту від двигуна до вхідного вала верстата

3. Методика, що лежить в основі програмних обчислень

4. Принцип роботи програми

5. Код програми

Висновок

Література

Вступ

Метою даного проекту була розробка програми, написаної в середовищі візуального проектування Delphi 7.0, яка б позбавила користувача, що поставив собі ціль - спроектувати ланцюгову передачу, від трудомісткого пошуку методик розрахунку цієї передачі в книгах і довідниках. Суть програми - визначити типорозмір ланцюга й геометричну характеристику зірочки по заданим користувачем умовам. У програмі враховані багато змінних, що впливають на кінцевий вибір стандартного типорозміру ланцюга.

Чому саме Delphi? Відповідь проста.

Delphi - являє собою унікальну систему розробки, у якій технологія високопродуктивної компіляції сполучається з візуальними засобами розробки й надобіддям процесором баз даних. Це дозволяє створювати ефективні додатки Windows, що працюють із базами даних, у тому числі й додатка для систем клієнт/сервер. Розроблені за допомогою Delphi додатка, можуть функціонувати під практично будь-якою 32 розрядною операційною системою типу Windows 95, 98, 2000, NT, XP.

Delphi - середовище швидкого створення додатків і на даний момент є самим популярним середовищем розробки.

Delphi володіє рядом переваг розробки:

Підтримка великої кількості різноманітних технологій доступу до даних.

- Швидкість розробки додатка.

- Висока продуктивність розробленого додатка.

- Низькі вимоги розробленого додатка до ресурсів комп'ютера.

- Збільшення за рахунок вбудовування нових компонентів і інструментів

у середовище Delphi.

- Можливість розробки нових компонентів і інструментів власними засобами Delphi (існуючі компоненти й інструменти доступні)

- Вдале пророблення ієрархії об'єктів.

ланцюговий передача двигун програма delphi

1. Коротка характеристика ланцюгової передачі

Ланцюгові передачі призначені для передачі руху із заданими зусиллями й швидкостями. Вони можуть працювати в широкому діапазоні переданих потужностей (від 0,1 кВт до 5000 кВт), швидкостей (до 35 м/с), передатних відносин (до 10 ). Ланцюгова передача складається із провідних і веденої зірочок і ланцюга, що охоплює зірочки й зачіпається за їхні зуби.

Ланцюгові передачі володіють рядом достоїнств:

- можливість застосування в значному діапазоні міжосьових відстаней (до 8 м);

- менші, чим у пасових передач, габарити;

- відсутність ковзання;

- високий КПД;

- малі сили, що діють на вали, відсутність необхідності у великому початковому натягу;

- можливість легкої заміни ланцюга;

- можливість передачі руху декільком зірочкам.

Однак ланцюгові передачі не позбавлені недоліків:

- відсутність рідинного тертя в шарнірах і, отже, неминуче зношування, істотний при поганому змазуванні й влученні пилу й бруду (зношування шарнірів приводить до збільшення кроку ланок і довжини ланцюга, що викликає необхідність застосування натяжних пристроїв);

- більше високі вимоги до точності установки валів, чим у кубістських передачах, і більше складний відхід - змащення, регулювання.

- швидкість руху ланцюга, особливо при малих числах зубів зірочок, не постійна, що викликає коливання передатного відношення, хоча ці коливання невеликі.

- передачі вимагають установки на картерах;

Ланцюга, застосовувані в машинобудуванні, по характері виконуваної ними роботи підрозділяють на дві групи - приводні й тягові. У металорізальних верстатах застосовуються приводні зубчасті ланцюги внаслідок забезпечення ними більше плавної роботи, меншого шуму, високої кінематичної точності й володіння більше високою надійністю з -за відсутності роликів і втулок, а також завдяки тому, що розрив однієї пластини не приводить до розриву всього ланцюга.

2. Альтернативний спосіб передачі крутного моменту від двигуна до

вхідного вала верстата

Тут ми розглянемо переваги й недоліки іншої механічної передачі, здатної виконувати ту ж роль що й розглянута нами ланцюгова передача.

Пасова передача (або ременева)

Механізм, що здійснює передачу обертового руху за допомогою ременя, що охоплює закріплені на валах шківи. Ремінь, будучи проміжним гнучким зв'язком, передає крутний момент із провідного шківа на ведений за рахунок сил тертя, що виникають між натягнутим ременем і шківами. Залежно від типу використовуваних ременів П. п. можуть бути плоскоремними, кубістськими й круглоремними. Одержують поширення пасові передачі з поліклиновими ременями, що мають клинові виступи на внутрішній стороні. Плоскі й круглі ремені використовуються, як правило, по одному в передачі, а клинові - по кілька штук (звичайно не більше 6-8).

Плоскоременні передачі прості й зручні, дозволяють застосовувати звичайні шківи із гладкою поверхнею, здатні працювати при високих швидкостях (40-50 м/сек і вище). Однак такі Р. п. мають невисоке тягове зусилля, значні габарити й порівняно мале передатне відношення (звичайно до 5).

Кубістські передачі, забезпечуючи підвищене зчеплення ременів зі шківами, дозволяють скоротити міжосьова відстань, зменшити розміри передачі й підвищити передатне відношення (до 10-15). Круглоременні передачі використовуються рідко, головним чином у приводах малої потужності (настільні верстати, швейні машини й т.п.).

Одержують поширення ремені з міцних синтетичних матеріалів, зубчасті ремені, пасові передачі поширені в приводах с/г машин, електрогенераторів, деяких верстатів, текстильних і інших машин. Пасові передачі. застосовують звичайно для передачі потужності до 30-50 квт. Відомі установки потужністю в кілька сотень і навіть тисяч квт, у яких також використані пасові передачі.

Пасові передачі володіють як рядом достоїнств, так і рядом недоліків.

Достоїнства пасової передачі:

конструктивна простота

відносно мала вартість

здатність передавати потужність на значні відстані (до 15 м і більше)

плавність і безшумність роботи, запобігання механізмів від перевантаження за рахунок пружних властивостей ременя і його здатності пробуксовувати по шківах.

Недоліки пасової передачі:

- короткий термін служби ременів

- відносно більші розміри

- високе навантаження на вали й підшипники

- мінливість передатного відношення (через неминуче проковзування ременя).

3. Методика, на якій заснована програма

Основу обчислювальної програми становлять ряд вказівок і формул, запропонованих книгою А.А. Готовцева й И.П Котенкова «Проектування ланцюгових передач». Програма являє собою більше систематизовану методику, націлену саме на розрахунок зубчастої ланцюгової передачі.

Як вихідні параметри користувачеві необхідно визначиться з:

- передатним відношенням передачі, U;

- міжосьовою відстанню, A (мм);

- діаметром провідної зірочки, De (мм) (повинен бути не менше 68 мм);

Дані змінні дозволять розрахувати максимально припустимий діаметр зірочки по наступній формулі:

і зрівняти його з уведеним користувачем діаметром провідної зірочки. Якщо зазначене користувачем значення буде перевищувати максимальне програма сповістить користувача про цьому, і попросить його перезадати значення.

- частотою обертання провідної зірочки, n (о/хв);

Це дозволить зробити розрахунок швидкості руху ланцюга по формулі:

- режимом роботи ланцюга;

- температурою навколишнього середовища;

- переданою потужністю

Дані параметри впливають на вибір коефіцієнтів, які у свою чергу допомагають визначити коефіцієнт експлуатації, що розраховується по формулі:

Значення швидкості, певне раніше дозволить вирахувати коефіцієнт, що враховує зниження несучої здатності ланцюга, з - за відцентрових сил, для зубчастих ланцюгів:

- максимально припустимою частотою обертання, nmax (о/хв);

Це дозволить визначитися із кроком ланцюга.

- числом зубів провідної зірочки;

Це необхідно, щоб визначитися із числом ланок ланцюга:

де

І згодом ми знайдемо довжину ланцюга:

Далі програма проведе перевірку ланцюга по двох умовах

- умова плавності:

У випадку якщо дана умова не буде виконаються, програма видасть користувачеві повідомлення про це.

- умова довговічності:

Якщо дана умова не виконується, то користувач буде про це інформовано. І нарешті, визначивши зазначені вище параметри ми зможемо порахувати ширину ланцюга:

Друга частина розрахунків присвячена геометричному розрахунку зірочки. Програма розраховує й виводить на екран наступні параметри:

Половина кутового кроку ?, що вираховується по формулі:

Діаметр ділильної окружності :

Радіальний зазор, е:

Висота зуба, h

Діаметр окружності западин :

Відстань між верхнім краєм робочої грані ланки й крапкою, що лежить у площині виміру зуба, Р:

Радіус побудови криволінійного профілю зуба R:

Найбільший зазор між робочою гранню пластин і зубом, K:

Кут повороту ланки на зірочці, ?:

Ширина зуба, b:

Відстань від вершини зуба до лінії центрів :

Радіус закруглення торця зуба й напрямної проточки r:

Глибина проточки

Ширина проточки, s₁

4. Принцип роботи програми

Програма складається з одного головного вікна.

У лівій стороні знаходяться оператори, що запам'ятовують дані вводимі користувачем. Діаметр провідної зірочки вводиться із клавіатури шляхом натискання кнопок несучих у собі числа (за замовчуванням 69 мм). Число зубів зірочки вказується в вікні що випадає за допомогою лівої кнопки мишки (z=17). Передатне відносини вказується також, як і число зубів зірочки (за замовчуванням u=1). Частота обертання зірочки заповнюється уведенням із клавіатури, «не числові» клавіші заблоковані (за замовчуванням n=1500 о/хв). Характер роботи ланцюга задається завдяки списку, що випадає, по клацанню миші. Температура навколишнього середовища вводиться по засобах смуги прокручування, правіше смуги прокручування вказується поточне значення температури (за замовчуванням 15 ⁰ С). Максимально припустима частота обертання провідної зірочки (nmax) вибирається зі списку, що випадає (за замовчуванням nmax=3300 о/хв ). За допомогою другої смуги прокручування користувач може задати передану ланцюгом потужність N у кВт (за замовчуванням N=14 кВт). Далі після коректування всіх даних потрібно нажати кнопку «Розрахунок».

Механізм програми оброблять дані й вікно програми прийме наступний вид: У центрі, розташовується напис «Типорозмір ланцюга З-12-2,4». Програма видала нам стандартний типорозмір ланцюга, відповідно до зазначених умов.Далі користувачеві необхідно нажати кнопку «Внести в базу». Вікно зміниться.

На білому полі нижче кнопки «Внести в базу» з'явився ряд чисел. Кожне число відповідає характеристиці, яка знаходиться над нею. Відповідність літерних позначень геометричним параметрам можна знайти на вікні програми. Дана структура запису в цьому полі не випадкова. Справа в тому, що згодом користувач зможе зберегти результати обчислень у файлі «Ланцюг.txt» (шляхом натискання з головного меню, що випадає, «Файл» і вибору там функції «зберегти» ). Файл прийме структуру аналогічну структурі запису вікна. Дана структура є нічим іншим як зовнішньою базою, на яку можна послатися при роботі в програмі T-Flex, з метою побудови конкретного креслення або 3D моделі зубчастого ланцюга й зірочки. Для добутку зазначених дій необхідно буде мати вже готовє креслення ланцюга й зірочки, розробка якого перебуває в перспективі.

Код програми містить у собі механізми попередження користувача про його некоректну роботу із програмою. У коді прописані умови пропоновані до самої ланцюгової передачі, невиконання яких, з - за некоректно уведених даних веде до появи різного роду повідомлень, що інформують користувача й дають йому рада.

5. Код програми

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, jpeg, Menus;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

ComboBox1: TComboBox;

Label2: TLabel;

Button1: TButton;

Label3: TLabel;

Label4: TLabel;

Edit2: TEdit;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Edit3: TEdit;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

ComboBox2: TComboBox;

RadioButton1: TRadioButton;

Label11: TLabel;

RadioButton2: TRadioButton;

Label12: TLabel;

ScrollBar1: TScrollBar;

Label13: TLabel;

Label14: TLabel;

ComboBox3: TComboBox;

Label15: TLabel;

Label16: TLabel;

ScrollBar2: TScrollBar;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

ComboBox4: TComboBox;

Label25: TLabel;

Image1: TImage;

Panel1: TPanel;

Memo1: TMemo;

Button2: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Button3: TButton;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label40: TLabel;

Label41: TLabel;

Label42: TLabel;

Label43: TLabel;

Label44: TLabel;

Label45: TLabel;

Label46: TLabel;

Label47: TLabel;

Label48: TLabel;

Label49: TLabel;

Label50: TLabel;

Label51: TLabel;

Label52: TLabel;

Label53: TLabel;

Label54: TLabel;

Label55: TLabel;

Label56: TLabel;

Label57: TLabel;

Label58: TLabel;

Label59: TLabel;

Label60: TLabel;

Label61: TLabel;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Button1Click(Sender: TObject);

procedure Edit2Exit(Sender: TObject);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

procedure Edit4KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure ScrollBar1Change(Sender: TObject);

procedure ScrollBar2Change(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9']) then Key := #0;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9']) then Key := #0;

end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9']) then Key := #0;

end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9','-']) then Key := #0;

end;

procedure TForm1.Edit2Exit(Sender: TObject);

var De:real;

begin

De:=StrToFloat(Edit2.text);

if De<68 then ShowMessage('Значення діаметра провідної зірочки уведено некоректно')

else

end;

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

Label13.Caption:=IntToStr(ScrollBar1.Position);

end;

procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

Label17.Caption:=IntToStr(ScrollBar2.Position);

end;

procedure TForm1.Button1Click(Sender: TObject);

var A,s,Dmax,u,u1,De,n,h,V,P,Talpha,klambda,kt,T,kv,e,shag,B,Bkon,z,Lt,L,b2,c1,r1,tau,dd,Dt,R,K,fi,beta,gamma,bzuba,cL,h1,s1,ty,y:real;

begin

A:=StrToFloat(Edit1.text);

De:=StrToFloat(Edit2.text);

u:=StrToFloat(ComboBox1.text);

if ComboBox1.Text='1..4'

then Dmax:=(1.66*A)/(u+1)

else Dmax:=A/(u+1);

if Dmax<69 then ShowMessage(Значення максимального діаметра провідної зірочки при даних параметрах занадто мало. Перездайте міжосьову відстань або передатне відношення)

else

if De>Dmax then ShowMessage(Значення діаметра провідної зірочки перевищує максимальний. Перездайте міжосьову відстань,передатне відношення або уточните діаметр провідної зірочки)

else

label3.Caption:=formatfloat('#.##',De);

n:=StrToFloat(Edit3.text);

V:=(3.14*De*n)/60000;

label8.Caption:=formatfloat('###.##',V);

if (combobox2.ItemIndex=0) and (RadioButton1.Checked) then klambda:=1;

if (combobox2.ItemIndex=1) and (RadioButton1.Checked) then klambda:=1.25;

if (combobox2.ItemIndex=2) and (RadioButton1.Checked) then klambda:=1.4;

if (combobox2.ItemIndex=3) and (RadioButton1.Checked) then klambda:=1.6;

if (combobox2.ItemIndex=4) and (RadioButton1.Checked) then klambda:=1.8;

if (combobox2.ItemIndex=5) and (RadioButton1.Checked) then klambda:=1.9;

if (combobox2.ItemIndex=0) and (RadioButton2.Checked) then klambda:=1;

if (combobox2.ItemIndex=1) and (RadioButton2.Checked) then klambda:=1;

if (combobox2.ItemIndex=2) and (RadioButton2.Checked) then klambda:=1.1;

if (combobox2.ItemIndex=3) and (RadioButton2.Checked) then klambda:=1.25;

if (combobox2.ItemIndex=4) and (RadioButton2.Checked) then klambda:=1.45;

if (combobox2.ItemIndex=5) and (RadioButton2.Checked) then klambda:=1.5;

T:=StrToFloat(Label13.Caption);

if (T>-80) and (T<-25) then kt:=2.5;

if (T>-25) and (T<150) then kt:=1;

if (T>150) and (T<250) then kt:=1.25;

kv:=1-1.1*0.001*V*V;

if ComboBox3.Text='3300' then shag:= 12.7;

if ComboBox3.Text='2650' then shag:= 15.875;

if ComboBox3.Text='2200' then shag:= 19.05;

if ComboBox3.Text='1650' then shag:= 25.4;

if ComboBox3.Text='1350' then shag:= 31.75;

if shag>0.185*De then showmessage(Крок ланцюга не задовольняє умові плавності. Зміните частоту обертання або відкоригуйте діаметр провідної зірочки.);

if (shag<0.0125*A) or (shag>0.04*A) then showmessage(Крок ланцюга не задовольняє умові довговічності. Зміните міжосьову відстань.);

N:=StrToFloat(Label17.Caption);

B:=(250*klambda*kt*N)/(kv*shag*exp(1.5*ln(V)));

label14.Caption:=formatfloat('###.##',B);

if (B>22.5) and (B<117) then

else showmessage(Отримана ширина ланцюга виходить за межі стандартних значень, визначити типорозмір ланцюга не представляється можливим. Переглянете уведені вами параметри);

if (ComboBox3.Text='3300') and (B>22.5) and (B<25.5) then Bkon:=22.5;

if (ComboBox3.Text='3300') and (B>25.5) and (B<28.5) then Bkon:=28.5;

if (ComboBox3.Text='3300') and (B>28.5) and (B<31.5) then Bkon:=28.5;

if (ComboBox3.Text='3300') and (B>31.5) and (B<34.5) then Bkon:=34.5;

if (ComboBox3.Text='3300') and (B>34.5) and (B<37.5) then Bkon:=34.5;

if (ComboBox3.Text='3300') and (B>37.5) and (B<40.5) then Bkon:=40.5;

if (ComboBox3.Text='3300') and (B>40.5) and (B<43.5) then Bkon:=40.5;

if (ComboBox3.Text='3300') and (B>43.5) and (B<46.5) then Bkon:=46.5;

if (ComboBox3.Text='3300') and (B>46.5) and (B<49.5) then Bkon:=46.5;

if (ComboBox3.Text='3300') and (B>49.5) and (B<52.5) then Bkon:=52.5;

if (ComboBox3.Text='3300') and (B>52.5) then showmessage(При даній ширині ланцюга крок занадто малий. Збільште величину кроку шляхом зміни допускається частоти, що, обертання або зменшите потужність);

if (ComboBox3.Text='2650') and (B>30) and (B<34) then Bkon:=30;

if (ComboBox3.Text='2650') and (B>34) and (B<38) then Bkon:=38;

if (ComboBox3.Text='2650') and (B>38) and (B<42) then Bkon:=38;

if (ComboBox3.Text='2650') and (B>42) and (B<46) then Bkon:=46;

if (ComboBox3.Text='2650') and (B>46) and (B<50) then Bkon:=46;

if (ComboBox3.Text='2650') and (B>50) and (B<54) then Bkon:=54;

if (ComboBox3.Text='2650') and (B>54) and (B<58) then Bkon:=54;

if (ComboBox3.Text='2650') and (B>58) and (B<62) then Bkon:=62;

if (ComboBox3.Text='2650') and (B>62) and (B<66) then Bkon:=62;

if (ComboBox3.Text='2650') and (B>66) and (B<70) then Bkon:=70;

if (ComboBox3.Text='2650') and (B>70) then showmessage(При даній ширині ланцюга крок занадто малий. Звеличте величину кроку шляхом зміни допускається частоты, що, обертання або зменшите потужність);

if (ComboBox3.Text='2200') and (B>45) and (B<51) then Bkon:=45;

if (ComboBox3.Text='2200') and (B>51) and (B<57) then Bkon:=57;

if (ComboBox3.Text='2200') and (B>57) and (B<63) then Bkon:=57;

if (ComboBox3.Text='2200') and (B>63) and (B<69) then Bkon:=69;

if (ComboBox3.Text='2200') and (B>69) and (B<75) then Bkon:=69;

if (ComboBox3.Text='2200') and (B>75) and (B<81) then Bkon:=81;

if (ComboBox3.Text='2200') and (B>81) and (B<87) then Bkon:=81;

if (ComboBox3.Text='2200') and (B>87) and (B<93) then Bkon:=93;

if (ComboBox3.Text='2200') and (B>93)then showmessage(При даній ширині ланцюга крок занадто малий. Звеличте величину кроку шляхом зміни допускається частоти, що, обертання або зменшите потужність);

if (ComboBox3.Text='1650') and (B>57) and (B<63) then Bkon:=57;

if (ComboBox3.Text='1650') and (B>63) and (B<69) then Bkon:=69;

if (ComboBox3.Text='1650') and (B>69) and (B<75) then Bkon:=69;

if (ComboBox3.Text='1650') and (B>75) and (B<81) then Bkon:=81;

if (ComboBox3.Text='1650') and (B>81) and (B<87) then Bkon:=81;

if (ComboBox3.Text='1650') and (B>87) and (B<93) then Bkon:=93;

if (ComboBox3.Text='1650') and (B>93) and (B<99) then Bkon:=93;

if (ComboBox3.Text='1650') and (B>99) and (B<105) then Bkon:=105;

if (ComboBox3.Text='1650') and (B>105) then showmessage('При даній ширині ланцюга крок занадто малий. Звеличте величину кроку шляхом зміни допускається частоти, що, обертання або зменшите потужність);

if (ComboBox3.Text='1350') and (B>69) and (B<75) then Bkon:=69;

if (ComboBox3.Text='1350') and (B>75) and (B<81) then Bkon:=81;

if (ComboBox3.Text='1350') and (B>81) and (B<87) then Bkon:=81;

if (ComboBox3.Text='1350') and (B>87) and (B<93) then Bkon:=93;

if (ComboBox3.Text='1350') and (B>93) and (B<99) then Bkon:=93;

if (ComboBox3.Text='1350') and (B>99) and (B<105) then Bkon:=105;

if (ComboBox3.Text='1350') and (B>105) and (B<111) then Bkon:=105;

if (ComboBox3.Text='1350') and (B>111) and (B<117) then Bkon:=117;

if (ComboBox3.Text='1350') and (B>117)then showmessage('При даній ширині ланцюга крок занадто малий. Збільште величину кроку шляхом зміни допускається частоти, що, обертання або зменшите потужність);

label21.Caption:=formatfloat('##.##',Bkon);

z:=StrToFloat(ComboBox4.text);

Lt:=(2*(A/shag))+((z+u*z)/2)+((z*u-z)/3.14)*((z*u-z)/3.14)*(shag/A);

L:=Lt*shag;

label25.Caption:=formatfloat('##.##',L);

if (ComboBox3.Text='3300') and (Bkon=22.5) then

Panel1.Caption:='Типорозмір ланцюга - З-12-2,4';

if (ComboBox3.Text='3300') and (Bkon=28.5) then

Panel1.Caption:='Типорозмір ланцюга - З-12-2,9';

if (ComboBox3.Text='3300') and (Bkon=34.5) then

Panel1.Caption:='Типорозмір ланцюга - З-12-3,4';

if (ComboBox3.Text='3300') and (Bkon=40.5) then

Panel1.Caption:='Типорозмір ланцюга - З-12-4,0';

if (ComboBox3.Text='3300') and (Bkon=46.5) then

Panel1.Caption:='Типорозмір ланцюга - З-12-4,7';

if (ComboBox3.Text='3300') and (Bkon=52.5) then

Panel1.Caption:='Типорозмір ланцюга - З-12-5,3';

f (ComboBox3.Text='2650') and (Bkon=30) then

Panel1.Caption:='Типорозмір ланцюга - З-15-3,9';

if (ComboBox3.Text='2650') and (Bkon=38) then

Panel1.Caption:='Типорозмір ланцюга - З-15-4,8';

if (ComboBox3.Text='2650') and (Bkon=46) then

Panel1.Caption:='Типорозмір ланцюга - З-15-5,7';

if (ComboBox3.Text='2650') and (Bkon=54) then

Panel1.Caption:='Типорозмір ланцюга - З-15-6,7';

if (ComboBox3.Text='2650') and (Bkon=62) then

Panel1.Caption:='Типорозмір ланцюга - З-15-7,8';

if (ComboBox3.Text='2650') and (Bkon=70) then

Panel1.Caption:='Типорозмір ланцюга - З-15-8,9';

if (ComboBox3.Text='2200') and (Bkon=45) then

Panel1.Caption:='Типорозмір ланцюга - З-19-7,2';

if (ComboBox3.Text='2200') and (Bkon=57) then

Panel1.Caption:='Типорозмір ланцюга - З-19-8,7';

if (ComboBox3.Text='2200') and (Bkon=69) then

Panel1.Caption:='Типорозмір ланцюга - З-19-10,3';

if (ComboBox3.Text='2200') and (Bkon=81) then

Panel1.Caption:='Типорозмір ланцюга - З-19-12,2';

if (ComboBox3.Text='2200') and (Bkon=93) then

Panel1.Caption:='Типорозмір ланцюга - З-19-14,1';

if (ComboBox3.Text='1650') and (Bkon=57) then

Panel1.Caption:='Типорозмір ланцюга - З-25-11,6';

if (ComboBox3.Text='1650') and (Bkon=69) then

Panel1.Caption:='Типорозмір ланцюга - З-25-13,8';

if (ComboBox3.Text='1650') and (Bkon=81) then

Panel1.Caption:='Типорозмір ланцюга - З-25-16,3';

if (ComboBox3.Text='1650') and (Bkon=93) then

Panel1.Caption:='Типорозмір ланцюга - З-25-18,9';

if (ComboBox3.Text='1650') and (Bkon=105) then

Panel1.Caption:='Типорозмір ланцюга - З-25-21,6';

if (ComboBox3.Text='1350') and (Bkon=69) then

Panel1.Caption:='Типорозмір ланцюга - З-31-17,1';

if (ComboBox3.Text='1350') and (Bkon=81) then

Panel1.Caption:='Типорозмір ланцюга - З-31-20,2';

if (ComboBox3.Text='1350') and (Bkon=93) then

Panel1.Caption:='Типорозмір ланцюга - З-31-23,5';

if (ComboBox3.Text='1350') and (Bkon=105) then

Panel1.Caption:='Типорозмір ланцюга - З-31-26,8';

if (ComboBox3.Text='1350') and (Bkon=117) then

Panel1.Caption:='Типорозмір ланцюга - З-31-30,3';

if ComboBox3.Text='3300' then b2:=7.0;

if ComboBox3.Text='3300' then u1:=4.76;

if ComboBox3.Text='3300' then h:=8.3;

if ComboBox3.Text='3300' then e:=1.3;

if ComboBox3.Text='3300' then P:=1.270 ;

if ComboBox3.Text='3300' then Talpha:=14.11;

if ComboBox3.Text='3300' then c1:=20.52;

if ComboBox3.Text='3300' then r1:=1.5;

if ComboBox3.Text='3300' then s:=1.5;

if ComboBox3.Text='2650' then b2:=8.7;

if ComboBox3.Text='2650' then u1:=5.95;

if ComboBox3.Text='2650' then h:=10.3;

if ComboBox3.Text='2650' then e:=1.6;

if ComboBox3.Text='2650' then P:=1.587;

if ComboBox3.Text='2650' then Talpha:=17.73;

if ComboBox3.Text='2650' then c1:=23.92;

if ComboBox3.Text='2650' then r1:=2;

if ComboBox3.Text='2650' then s:=2;

if ComboBox3.Text='2200' then b2:=10.5;

if ComboBox3.Text='2200' then u1:=7.14;

if ComboBox3.Text='2200' then h:=12.4;

if ComboBox3.Text='2200' then e:=1.9;

if ComboBox3.Text='2200' then P:=1.905;

if ComboBox3.Text='2200' then Talpha:=21.22;

if ComboBox3.Text='2200' then c1:=30.76;

if ComboBox3.Text='2200' then r1:=2;

if ComboBox3.Text='2200' then s:=3;

if ComboBox3.Text='1650' then b2:=14;

if ComboBox3.Text='1650' then u1:=9.52;

if ComboBox3.Text='1650' then h:=16.5;

if ComboBox3.Text='1650' then e:=2.5;

if ComboBox3.Text='1650' then P:=2.54 ;

if ComboBox3.Text='1650' then Talpha:=28.33;

if ComboBox3.Text='1650' then c1:=41.03;

if ComboBox3.Text='1650' then r1:=2.5;

if ComboBox3.Text='1650' then s:=3;

if ComboBox3.Text='1350' then b2:=17.5;

if ComboBox3.Text='1350' then u1:=11.91;

if ComboBox3.Text='1350' then h:=20.7;

if ComboBox3.Text='1350' then e:=3.2;

if ComboBox3.Text='1350' then P:=3.175 ;

if ComboBox3.Text='1350' then Talpha:=35.35;

if ComboBox3.Text='1350' then c1:=51.34;

if ComboBox3.Text='1350' then r1:=3.5;

if ComboBox3.Text='1350' then s:=3;

tau:=3.14/z;

dd:=shag/sin(tau);

Dt:=dd-(2*h/cos(tau));

P:=0.1*shag;

R:=2.4*shag;

K:=0.04*shag;

fi:=6.28/z;

gamma:=0.52-fi;

bzuba:=B+2*s;

cL:=0.4*shag;

r:=shag;

h1:=0.75*shag;

s1:=2*s;

ty:=shag-2*(u1*cos(gamma)-P*sin(gamma));

label27.Caption:=formatfloat('0.##',tau);

label28.Caption:=formatfloat('#.##',dd);

label29.Caption:=formatfloat('#.##',e);

label30.Caption:=formatfloat('#.##',h);

label31.Caption:=formatfloat('#.##',Dt);

label32.Caption:=formatfloat('#.##',P);

label33.Caption:=formatfloat('#.##',R);

label34.Caption:=formatfloat('0.##',fi);

label35.Caption:=formatfloat('0.##',gamma);

label36.Caption:=formatfloat('#.##',bzuba);

label37.Caption:=formatfloat('#.##',cL);

label38.Caption:=formatfloat('#.##',r);

label39.Caption:=formatfloat('#.##',h1);

label40.Caption:=formatfloat('#.##',s1);

label41.Caption:=formatfloat('#.##',T);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if Panel1.Caption='' then showmessage (Зробіть розрахунок ланцюга.);

if Panel1.Caption='Типорозмір ланцюга - З-12-2,4' then

memo1.Lines.add('12.7; 22.5; 13.4; 7; 1.5; 4.76; 28.5; 30; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-12-2,9' then

memo1.Lines.add('12.7; 28.5; 13.4; 7; 1.5; 4.76; 34.5; 36; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-12-3,4' then

memo1.Lines.add('12.7; 34.5; 13.4; 7; 1.5; 4.76; 40.5; 42; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-12-4,0' then

memo1.Lines.add('12.7; 40.5; 13.4; 7; 1.5; 4.76; 46.5; 48; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-12-4,7' then

memo1.Lines.add('12.7; 46.5; 13.4; 7; 1.5; 4.76; 52.5; 54; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-12-5,3' then

memo1.Lines.add('12.7; 52.5; 13.4; 7; 1.5; 4.76; 58.5; 60; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-15-3,9' then

memo1.Lines.add('15.875; 30; 16.7; 8.7; 2.0; 5.95; 36.0; 39; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-15-4,8' then

memo1.Lines.add('15.875; 38; 16.7; 8.7; 2.0; 5.95; 44.0; 47; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-15-5,7' then

memo1.Lines.add('15.875; 46; 16.7; 8.7; 2.0; 5.95; 52.0; 55; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-15-6,7' then

memo1.Lines.add('15.875; 54; 16.7; 8.7; 2.0; 5.95; 60.0; 63; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-15-7,8' then

memo1.Lines.add('15.875; 62; 16.7; 8.7; 2.0; 5.95; 68.0; 71; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-15-8,9' then

memo1.Lines.add('15.875; 70; 16.7; 8.7; 2.0; 5.95; 76.0; 79; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-19-7,2' then

memo1.Lines.add('19.05; 45; 20.1; 10.5; 3.0; 7.14; 52.6; 56; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-19-8,7' then

memo1.Lines.add('19.05; 57; 20.1; 10.5; 3.0; 7.14; 64.5; 68; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-19-10,3' then

memo1.Lines.add('19.05; 69; 20.1; 10.5; 3.0; 7.14; 76.5; 80; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-19-12,2' then

memo1.Lines.add('19.05; 81; 20.1; 10.5; 3.0; 7.14; 88.5; 92; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-19-14,1' then

memo1.Lines.add('19.05; 93; 20.1; 10.5; 3.0; 7.14; 100.5; 104; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-25-11,6' then

memo1.Lines.add('25.40; 57; 26.7; 14.0; 3.0; 9.52; 65.0; 68; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-25-13,8' then

memo1.Lines.add('25.40; 69; 26.7; 14.0; 3.0; 9.52; 77.0; 80; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+';

'+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-25-16,3' then

memo1.Lines.add('25.40; 81; 26.7; 14.0; 3.0; 9.52; 89.0; 92; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-25-18,9' then

memo1.Lines.add('25.40; 93; 26.7; 14.0; 3.0; 9.52; 101; 104; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-25-21,6' then

memo1.Lines.add('25.40; 105; 26.7; 14.0; 3.0; 9.52; 113; 116; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-31-17,1' then

memo1.Lines.add('31.75; 69; 33.4; 17.5; 3.0; 11.9; 78.0; 82; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-31-20,1' then

memo1.Lines.add('31.75; 81; 33.4; 17.5; 3.0; 11.9; 90.0; 94; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-31-23,5' then

memo1.Lines.add('31.75; 93; 33.4; 17.5; 3.0; 11.9; 102; 106; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-31-26,8' then

memo1.Lines.add('31.75; 105; 33.4; 17.5; 3.0; 11.9; 114; 118; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

if Panel1.Caption='Типорозмір ланцюга - З-31-30,3' then

memo1.Lines.add('31.75; 117; 33.4; 17.5; 3.0; 11.9; 126; 130; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');

end;

procedure TForm1.N3Click(Sender: TObject);

begin

memo1.Lines.SaveToFile('Ланцюг.txt');

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Showmessage (Дана програма призначена для вибору зубчастого приводного ланцюга певного типорозміру, згідно даним користувача);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

memo1.Clear;

memo1.Lines.Strings[0]:=' t; B; b1; b2; s; u; l; l1; tau; dd; e; h; Dt; P; R; fi; gamma; bzuba; cL; r; h1; s1; T; De; ';

end;

end.

Висновок

Сподіваюся розроблена мною програма зможе виконати своє службове призначення. На питання «Що краще - ланцюгова передача або пасова?» однозначно відповісти не представляється можливим. Звичайно, ланцюгова передача має ряд переваг над пасовою, наприклад менші, чим у пасових передач, габарити або відсутність проковзування й так далі, але вони як і всі механічні передачі ні позбавлені своїх недоліків, які згодом можуть вплинути на остаточний вибір інженера, що проектує верстат.

Література

1. Беленький П.С. Види передач та їх проектування. - К., 2004

2. Пустовіт С.С. Алгоритми при проектуванні верстатів. - К., 2006

3. Окунь Л.М. Програмування у вищих навчальних закладах. - К., 2006

4. Лесовий М.М. Аналіз ланцюгової передачі. - К., 2004

5. Готовцева А.А. й Котенкова И.П. Проектування ланцюгових передач. - К., 2003

Размещено на Allbest.ru