Использование современного программного обеспечения для проектировании цепной передачи в металлорежущем станке

Министерствообразования и науки Российской Федерации
Федеральноеагентство по образованию
Государственноеобразовательное учреждение
высшегопрофессионального образования
«Комсомольский-на-Амурегосударственный технический университет»
Институт КП МТО
Кафедра ТМ
Пояснительнаязаписка к курсовому проекту
по дисциплине«Металлорежущие станки»
Использованиесовременного программного обеспечения для
проектированиицепной передачи в металлорежущем станке
Студент группы 5ТМб-1
К. Н. Мускин
Преподаватель
А.С.Хвостиков
2009

Содержание
1Введение
2Краткая характеристика цепной передачи
3Альтернативный способ передачи крутящего момента от двигателя к входному валустанка
4Методика, лежащая в основе программных вычислений
5Принцип работы программы
6Код программы
7Заключение

1.Введение
Целью данного проектабыла разработка программы, написанной в среде визуального проектирования Delphi7.0, которая бы избавила пользователя, поставившего себе цель – спроектироватьцепную передачу, от трудоемкого поиска методик расчета этой передачи в книгах исправочниках. Суть программы – определить типоразмер цепи и геометрическую характеристикузвездочки по заданным пользователем условиям. В программе учтены многиепеременные, влияющие на конечный выбор стандартного типоразмера цепи.
Почему именно Delphi?Ответ прост.
Delphi — представляетсобой уникальную систему разработки, в которой технологиявысокопроизводительной оптимизирующей компиляции сочетается с визуальнымисредствами разработки и масштабируемым процессором баз данных. Это позволяетсоздавать эффективные приложения Windows, работающие с базами данных, в томчисле и приложения для систем клиент/сервер. Разработанные с помощью Delphi приложения,могут функционировать под практически любой 32 разрядной операционной системойтипа Windows 95, 98, 2000, NT, XP.
Delphi — среда быстрогосоздания приложений и на данный момент является самой популярной средойразработки.
Delphi обладает рядомпреимуществ разработки:
Поддержка большогочисла разнообразных технологий доступа к данным.
-Быстрота разработкиприложения.
-Высокаяпроизводительность разработанного приложения.
-Hизкие требованияразработанного приложения к ресурсам компьютера.
-Hаращиваемость за счетвстраивания новых компонент и инструментов
в среду Delphi.
-Возможность разработкиновых компонент и инструментов собственными средствами Delphi (существующиекомпоненты и инструменты доступны в исходниках)
-Удачная проработкаиерархии объектов.

2.Краткая характеристика цепной передачи
Цепные передачипредназначены для передачи движения с заданными усилиями и скоростями. Онимогут работать в широком диапазоне передаваемых мощностей (от 0,1 кВт до 5000кВт), скоростей (до 35 м/с), передаточных отношений (до 10 ). Цепная передачасостоит из ведущей и ведомой звездочек и цепи, охватывающей звездочки изацепляющейся за их зубья.
Цепные передачиобладают рядом достоинств:
-возможность примененияв значительном диапазоне межосевых расстояний (до 8 м);
-меньшие, чем уременных передач, габариты;
-отсутствие скольжения;
-высокий КПД;
-малые силы,действующие на валы, отсутствие необходимости в большом начальном натяжении;
-возможность легкойзамены цепи;
-возможность передачидвижения нескольким звездочкам.
Однако цепные передачине лишены недостатков:
-отсутствие жидкостноготрения в шарнирах и, следовательно, неизбежный износ, существенный при плохомсмазывании и попадании пыли и грязи (износ шарниров приводит к увеличению шагазвеньев и длины цепи, что вызывает необходимость применения натяжныхустройств);
-более высокиетребования к точности установки валов, чем в клиноременных передачах, и болеесложный уход — смазка, регулировка.
-скорость движенияцепи, особенно при малых числах зубьев звездочек, не постоянна, что вызываетколебания передаточного отношения, хотя эти колебания небольшие.
— передачи требуютустановки на картерах;
Цепи, применяемые вмашиностроении, по характеру выполняемой ими работы подразделяют на две группы– приводные и тяговые. В металлорежущих станках применяются приводные зубчатыецепи вследствие обеспечения ими более плавной работы, меньшего шума, высокойкинематической точности и обладания более высокой надежностью из –за отсутствияроликов и втулок, а также благодаря тому, что разрыв одной пластины не приводитк разрыву всей цепи.
3.Альтернативный способ передачи крутящего момента от двигателя к входному валустанка
 
Здесь мы рассмотримпреимущества и недостатки другой механической передачи, способной выполнять туже роль что и рассматриваемая нами цепная передача.
Ремённые передача
Механизм,осуществляющий передачу вращательного движения с помощью ремня, охватывающегозакрепленные на валах шкивы. Ремень, являясь промежуточной гибкой связью,передаёт крутящий момент с ведущего шкива на ведомый за счёт сил трения,возникающих между натянутым ремнем и шкивами. В зависимости от типаиспользуемых ремней Р. п. могут быть плоскоремёнными, клиноремёнными и круглоремёнными.Получают распространение ременные передачи с поликлиновыми ремнями, имеющимиклиновые выступы на внутренней стороне. Плоские и круглые ремни используются,как правило, по одному в передаче, а клиновые — по несколько штук (обычно неболее 6—8).
Плоскоремённые передачипросты и удобны, позволяют применять обычные шкивы с гладкой поверхностью,способны работать при высоких скоростях (40—50 м/сек и выше). Однако такие Р.п. имеют невысокое тяговое усилие, значительные габариты и сравнительно малоепередаточное отношение (обычно до 5).
Клиноремённые передачи,обеспечивая повышенное сцепление ремней со шкивами, позволяют сократитьмежосевое расстояние, уменьшить размеры передачи и повысить передаточноеотношение (до 10—15). Круглоремённые передачи используются редко, главнымобразом в приводах малой мощности (настольные станки, швейные машины и т. п.).
Получаютраспространение ремни из высокоэластичных и прочных синтетических материалов,узкоклиновые и зубчатые ремни. ременные передачи распространены в приводах с/хмашин, электрогенераторов, некоторых станков, текстильных и других машин.Ременные передачи. применяют обычно для передачи мощности до 30—50 квт.Известны установки мощностью в несколько сотен и даже тысяч квт, в которыхтакже использованы ременные передачи.
Ремённые передачиобладают как рядом достоинств, так и рядом недостатков.
Достоинства ременнойпередачи:
конструктивная простота
относительно малаястоимость
способность передаватьмощность на значительные расстояния (до 15 м и более)
плавность и бесшумностьработы, предохранение механизмов от перегрузки за счёт упругих свойств ремня иего способности пробуксовывать по шкивам.
Недостатки ременнойпередачи:
— короткий срок службыремней
-относительно большиеразмеры
-высокая нагрузка навалы и подшипники-
-непостоянствопередаточного отношения (из-за неизбежного проскальзывания ремня).

4.Методика, на которой основана программа
 
Основу вычислительнойпрограммы составляют ряд указаний и формул, предложенных книгой А.А. Готовцеваи И.П Котенкова «Проектирование цепных передач». Программа представляет собойболее систематизированную методику, нацеленную именно на расчет зубчатой цепнойпередачи.
В качестве исходныхпараметров пользователю необходимо определится с:
-передаточнымотношением передачи, U;
-межосевым расстоянием,A (мм);
-диаметром ведущейзвездочки, De (мм) (должен быть неменьше 68 мм);
Данные переменныепозволят рассчитать максимально допустимый диаметр звездочки по следующейформуле:
/>
и сравнить его свведенным пользователем диаметром ведущей звездочки. Если указанноепользователем значение будет превышать максимальное программа известитпользователя об этом, и попросит его перезадать значение.
-частотой вращенияведущей звездочки, n(об/мин);
Это позволит произвестирасчет скорости движения цепи по формуле:
/>
-режимом работы цепи;
-температурой окружающейсреды;
-передаваемой мощностью
Данные параметры влияютна выбор коэффициентов, которые в свою очередь помогают определить коффициентэксплуатации, рассчитывающийся по формуле:
/>
Значение скорости,определенное ранее позволит высчитать коэффициент, учитывающий снижение несущейспособности цепи, из – за центробежных сил, для зубчатых цепей:
/>
— максимальнодопустимой частотой вращения, nmax(об/мин);
Это позволит определитьсяс шагом цепи.
-числом зубьевведущей звездочки;
Это необходимо, чтобыопределиться с числом звеньев цепи:
/>
где /> />
И впоследствии мынайдем длину цепи:
/>
Далее программапроведет проверку цепи по двум условиям
— условие плавности:
/>
В случае если данноеусловие не будет выполнятся, программа выдаст пользователю извещение об этом.
-условие долговечности:
/>
Если данное условие невыполняется, то пользователь будет об этом информирован. И наконец, определивуказанные выше параметры мы сможем посчитать ширину цепи:
/>
Вторая часть расчетовпосвящена геометрическому расчету звездочки. Программа рассчитывает и выводитна экран следующие параметры:
Половина углового шагаτ, которая высчитывается по формуле:
/>
Диаметр делительнойокружности />:
/>
Радиальный зазор, е:
/>
Высота зуба, h
/>
Диаметр окружностивпадин />:
/>
Расстояние междуверхним краем рабочей грани звена и точкой, лежащей в плоскости измерения зуба,Р:
/>
Радиус построениякриволинейного профиля зуба R:
/>
Наибольший зазор междурабочей гранью пластин и зубом, K:
/>
Угол поворота звена назвездочке, φ:
/>
Ширина зуба, b:
/>
Расстояние от вершинызуба до линии центров />:
/>
Радиус закругленияторца зуба и направляющей проточки r:
/>
Глубина проточки />
/>
Ширина проточки, s1
/>
5.Принцип работы программы
Программа состоит изодного главного окна.
/>
Рисунок1.Главное окнопрограммы

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

Как видно на картинке вправой части и в центре появились значения вычисленных геометрических величин.В центре, чуть ниже картинки располагается надпись «Типоразмер цепи З-12-2,4».Программа выдала нам стандартный типоразмер цепи, согласно указаннымусловиям.Далее пользователю необходимо нажать кнопку «Внести в базу». Окноизменится (см рисунок3)
Как видим на белом полениже кнопки «Внести в базу» появился ряд чисел. Каждое число соотвествуетхарактеристике находящейся над ней. Соотвествие буквенных обозначенийгеометрическим параметрам можно найти на окне программы. Данная структуразаписи в этом поле не случайна. Дело в том, что впоследствии пользовательсможет сохранить результаты вычислений в файле «Цепь.txt»(путем нажатия из выпадающего главного меню «Файл» и выбора там функции«сохранить» ). Файл примет структуру аналогичную структуре записи окна. Даннаяструктура является ничем иным как внешней базой, на которую можно сослаться приработе в программе T-Flex,с целью построения конкретного чертежа или 3Dмодели зубчатой цепи и звездочки. Для произведения указанных действийнеобходимо будет иметь уже готовый параметризованный чертеж цепи и звездочки,разработка которого находится в перспективе.
/>
Рисунок 3 Окнопрограммы после нажатия кнопки «Внести в базу»

Код программы содержитв себе механизмы предупреждения пользователя о его некорректной работе спрограммой. В коде прописаны условия предъявляемые к самой цепной передаче,невыполнение которых, из – за некорректно введенных данных ведет к появлениюразличного рода сообщений, информирующих пользователя и дающих ему совет.
6.Кодпрограммы
unitUnit1;
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;
procedureEdit1KeyPress(Sender: TObject; var Key: Char);
procedureButton1Click(Sender: TObject);
procedureEdit2Exit(Sender: TObject);
procedureEdit3KeyPress(Sender: TObject; var Key: Char);
procedureEdit4KeyPress(Sender: TObject; var Key: Char);
procedureEdit2KeyPress(Sender: TObject; var Key: Char);
procedureScrollBar1Change(Sender: TObject);
procedureScrollBar2Change(Sender: TObject);
procedureButton2Click(Sender: TObject);
procedureN3Click(Sender: TObject);
procedureN4Click(Sender: TObject);
procedureButton3Click(Sender: TObject);
private
{Private declarations }
public
{Public declarations }
end;
var
Form1:TForm1;
implementation
{$R*.dfm}
procedureTForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
ifnot (Key in [‘0’..’9′]) then Key := #0;
end;
procedureTForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
ifnot (Key in [‘0’..’9′]) then Key := #0;
end;
procedureTForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
ifnot (Key in [‘0’..’9′]) then Key := #0;
end;
procedureTForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
ifnot (Key in [‘0′..’9′,’-‘]) then Key := #0;
end;
procedureTForm1.Edit2Exit(Sender: TObject);
varDe:real;
begin
De:=StrToFloat(Edit2.text);
if De
else
end;
procedureTForm1.ScrollBar1Change(Sender: TObject);
begin
Label13.Caption:=IntToStr(ScrollBar1.Position);
end;
procedureTForm1.ScrollBar2Change(Sender: TObject);
begin
Label17.Caption:=IntToStr(ScrollBar2.Position);
end;
procedureTForm1.Button1Click(Sender: TObject);
varA,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);
ifComboBox1.Text=’1..4’
thenDmax:=(1.66*A)/(u+1)
else Dmax:=A/(u+1);
if Dmax
else
if De>Dmax thenShowMessage(‘Значение диаметра ведущей звездочки превышает максимальный.Перезадайте межосевое расстояние, передаточное отношение или уточните диаметрведущей зведочки’)
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
if(T>-25) and (T
if(T>150) and (T
kv:=1-1.1*0.001*V*V;
ifComboBox3.Text=’3300′ then shag:= 12.7;
ifComboBox3.Text=’2650′ then shag:= 15.875;
ifComboBox3.Text=’2200′ then shag:= 19.05;
ifComboBox3.Text=’1650′ then shag:= 25.4;
ifComboBox3.Text=’1350′ then shag:= 31.75;
if shag>0.185*Dethen showmessage(‘Шаг цепи не удовлетворяет условию плавности.Измените частотувращения или откорректируйте диаметр ведущей звездочки.’);
if (shag0.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
elseshowmessage(‘Полученная ширина цепи выходит за пределы стандартных значений,определить типоразмер цепи не представляется возможным. Пересмотрите введенныевами параметры’);
if(ComboBox3.Text=’3300′)and (B>22.5)and (B
if(ComboBox3.Text=’3300′) and (B>25.5) and (B
if(ComboBox3.Text=’3300′) and (B>28.5) and (B
if(ComboBox3.Text=’3300′) and (B>31.5) and (B
if(ComboBox3.Text=’3300′) and (B>34.5) and (B
if(ComboBox3.Text=’3300′) and (B>37.5) and (B
if(ComboBox3.Text=’3300′) and (B>40.5) and (B
if(ComboBox3.Text=’3300′) and (B>43.5) and (B
if(ComboBox3.Text=’3300′) and (B>46.5) and (B
if(ComboBox3.Text=’3300′) and (B>49.5) and (B
if(ComboBox3.Text=’3300′) and (B>52.5) then showmessage(‘Приданнойширинецепишагслишкоммал.Увеличьтевеличину шага путем изменения допускаемой частоты вращения или уменьшитемощность’);
if(ComboBox3.Text=’2650′) and (B>30) and (B
if(ComboBox3.Text=’2650′) and (B>34) and (B
if(ComboBox3.Text=’2650′) and (B>38) and (B
if(ComboBox3.Text=’2650′) and (B>42) and (B
if(ComboBox3.Text=’2650′) and (B>46) and (B
if(ComboBox3.Text=’2650′) and (B>50) and (B
if(ComboBox3.Text=’2650′) and (B>54) and (B
if(ComboBox3.Text=’2650′) and (B>58) and (B
if(ComboBox3.Text=’2650′) and (B>62) and (B
if(ComboBox3.Text=’2650′) and (B>66) and (B
if(ComboBox3.Text=’2650′) and (B>70) then showmessage(‘Приданнойширинецепишагслишкоммал.Увеличтевеличину шага путем изменения допускаемой частоты вращения или уменьшитемощность’);
if(ComboBox3.Text=’2200′) and (B>45) and (B
if(ComboBox3.Text=’2200′) and (B>51) and (B
if(ComboBox3.Text=’2200′) and (B>57) and (B
if(ComboBox3.Text=’2200′) and (B>63) and (B
if(ComboBox3.Text=’2200′) and (B>69) and (B
if(ComboBox3.Text=’2200′) and (B>75) and (B
if(ComboBox3.Text=’2200′) and (B>81) and (B
if(ComboBox3.Text=’2200′) and (B>87) and (B
if(ComboBox3.Text=’2200′) and (B>93)then showmessage(‘Приданнойширинецепишагслишкоммал.Увеличтевеличину шага путем изменения допускаемой частоты вращения или уменьшитемощность’);
if(ComboBox3.Text=’1650′) and (B>57) and (B
if(ComboBox3.Text=’1650′) and (B>63) and (B
if(ComboBox3.Text=’1650′) and (B>69) and (B
if(ComboBox3.Text=’1650′) and (B>75) and (B
if(ComboBox3.Text=’1650′) and (B>81) and (B
if(ComboBox3.Text=’1650′) and (B>87) and (B
if(ComboBox3.Text=’1650′) and (B>93) and (B
if(ComboBox3.Text=’1650′) and (B>99) and (B
if(ComboBox3.Text=’1650′) and (B>105) then showmessage(‘Приданнойширинецепишагслишкоммал.Увеличтевеличину шага путем изменения допускаемой частоты вращения или уменьшитемощность’);
if(ComboBox3.Text=’1350′) and (B>69) and (B
if(ComboBox3.Text=’1350′) and (B>75) and (B
if(ComboBox3.Text=’1350′) and (B>81) and (B
if(ComboBox3.Text=’1350′) and (B>87) and (B
if(ComboBox3.Text=’1350′) and (B>93) and (B
if(ComboBox3.Text=’1350′) and (B>99) and (B
if(ComboBox3.Text=’1350′) and (B>105) and (B
if(ComboBox3.Text=’1350′) and (B>111) and (B
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′;
ifComboBox3.Text=’3300′ then b2:=7.0;
ifComboBox3.Text=’3300′ then u1:=4.76;
ifComboBox3.Text=’3300′ then h:=8.3;
ifComboBox3.Text=’3300′ then e:=1.3;
ifComboBox3.Text=’3300′ then P:=1.270 ;
ifComboBox3.Text=’3300′ then Talpha:=14.11;
ifComboBox3.Text=’3300′ then c1:=20.52;
ifComboBox3.Text=’3300′ then r1:=1.5;
ifComboBox3.Text=’3300′ then s:=1.5;
ifComboBox3.Text=’2650′ then b2:=8.7;
ifComboBox3.Text=’2650′ then u1:=5.95;
ifComboBox3.Text=’2650′ then h:=10.3;
ifComboBox3.Text=’2650′ then e:=1.6;
ifComboBox3.Text=’2650′ then P:=1.587;
ifComboBox3.Text=’2650′ then Talpha:=17.73;
ifComboBox3.Text=’2650′ then c1:=23.92;
ifComboBox3.Text=’2650′ then r1:=2;
ifComboBox3.Text=’2650′ then s:=2;
ifComboBox3.Text=’2200′ then b2:=10.5;
ifComboBox3.Text=’2200′ then u1:=7.14;
ifComboBox3.Text=’2200′ then h:=12.4;
ifComboBox3.Text=’2200′ then e:=1.9;
ifComboBox3.Text=’2200′ then P:=1.905;
ifComboBox3.Text=’2200′ then Talpha:=21.22;
ifComboBox3.Text=’2200′ then c1:=30.76;
ifComboBox3.Text=’2200′ then r1:=2;
ifComboBox3.Text=’2200′ then s:=3;
ifComboBox3.Text=’1650′ then b2:=14;
ifComboBox3.Text=’1650′ then u1:=9.52;
ifComboBox3.Text=’1650′ then h:=16.5;
ifComboBox3.Text=’1650′ then e:=2.5;
ifComboBox3.Text=’1650′ then P:=2.54 ;
ifComboBox3.Text=’1650′ then Talpha:=28.33;
ifComboBox3.Text=’1650′ then c1:=41.03;
ifComboBox3.Text=’1650′ then r1:=2.5;
ifComboBox3.Text=’1650′ then s:=3;
ifComboBox3.Text=’1350′ then b2:=17.5;
ifComboBox3.Text=’1350′ then u1:=11.91;
ifComboBox3.Text=’1350′ then h:=20.7;
ifComboBox3.Text=’1350′ then e:=3.2;
ifComboBox3.Text=’1350′ then P:=3.175 ;
ifComboBox3.Text=’1350′ then Talpha:=35.35;
ifComboBox3.Text=’1350′ then c1:=51.34;
ifComboBox3.Text=’1350′ then r1:=3.5;
ifComboBox3.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;
procedureTForm1.Button2Click(Sender: TObject);
begin
ifPanel1.Caption=” then showmessage (‘Произведитерасчетцепи.’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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+’;’);
ifPanel1.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;
procedureTForm1.N3Click(Sender: TObject);
begin
memo1.Lines.SaveToFile(‘Цепь.txt’);
end;
procedureTForm1.N4Click(Sender: TObject);
begin
Showmessage (‘Даннаяпрограмма предназначена для выбора зубчатой приводной цепи определенноготипоразмера, согласно данным введеным пользователем.’);
end;
procedureTForm1.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.

7.Заключение
Надеюсь разработаннаямною программа сможет выполнить свое служебное назначение когда-нибудь. Однакофакт того, что человеку ни придется перебирать литературу чтобы рассчитатьзубчатую передачу – на лицо.
А ответ на вопрос «Чтолучше – цепная передача или ременная?» однозначно ответить мне непредставляется возможным. Конечно, цепная передача имеет ряд преимуществ надременной, например меньшие, чем у ременных передач, габариты или отсутствиепроскальзывания и так далее, но они как и все механические передачи ни лишенысвоих недостатков, которые впоследствии могут повлиять на окончательный выборинженера, проектирующего станок.