реферат
Главная

Рефераты по сексологии

Рефераты по информатике программированию

Рефераты по биологии

Рефераты по экономике

Рефераты по москвоведению

Рефераты по экологии

Краткое содержание произведений

Рефераты по физкультуре и спорту

Топики по английскому языку

Рефераты по математике

Рефераты по музыке

Остальные рефераты

Рефераты по авиации и космонавтике

Рефераты по административному праву

Рефераты по безопасности жизнедеятельности

Рефераты по арбитражному процессу

Рефераты по архитектуре

Рефераты по астрономии

Рефераты по банковскому делу

Рефераты по биржевому делу

Рефераты по ботанике и сельскому хозяйству

Рефераты по бухгалтерскому учету и аудиту

Рефераты по валютным отношениям

Рефераты по ветеринарии

Рефераты для военной кафедры

Рефераты по географии

Рефераты по геодезии

Рефераты по геологии

Рефераты по геополитике

Рефераты по государству и праву

Рефераты по гражданскому праву и процессу

Рефераты по делопроизводству

Рефераты по кредитованию

Рефераты по естествознанию

Рефераты по истории техники

Рефераты по журналистике

Рефераты по зоологии

Рефераты по инвестициям

Рефераты по информатике

Исторические личности

Рефераты по кибернетике

Рефераты по коммуникации и связи

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

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

Министерство образования и науки Российской Федерации

Федеральное агентство по образованию

Государственное образовательное учреждение

высшего профессионального образования

«Комсомольский-на-Амуре государственный технический университет»

Институт КП МТО

Кафедра ТМ

Пояснительная записка к курсовому проекту

по дисциплине «Металлорежущие станки»

Использование современного программного обеспечения для

проектировании цепной передачи в металлорежущем станке

Студент группы 5ТМб-1

К. Н. Мускин

Преподаватель

А.С.Хвостиков

2009


Содержание

1 Введение

2 Краткая характеристика цепной передачи

3 Альтернативный способ передачи крутящего момента от двигателя к входному валу станка

4 Методика, лежащая в основе программных вычислений

5 Принцип работы программы

6 Код программы

7 Заключение


1. Введение

Целью данного проекта была разработка программы, написанной в среде визуального проектирования Delphi 7.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. Код программы

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.


7. Заключение

Надеюсь разработанная мною программа сможет выполнить свое служебное назначение когда-нибудь. Однако факт того, что человеку ни придется перебирать литературу чтобы рассчитать зубчатую передачу – на лицо.

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





© 2010 Интернет База Рефератов