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

Главная

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

Краткая характеристика цепной передачи. Альтернативный способ передачи крутящего момента от двигателя к входному валу станка. Методика, на которой основана программа для проектировании цепной передачи в металлорежущем станке. Принцип работы программы.


посмотреть текст работы


скачать работу можно здесь


полная информация о работе


весь список подобных работ


Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Министерство образования и науки Российской Федерации
Федеральное агентство по образованию
Государственное образовательное учреждение
высшего профессионального образования
«Комсомольский-на-Амуре государственный технический университет»
Пояснительная записка к курсовому проекту
по дисциплине «Металлорежущие станки»
Использование современного программного обеспечения для
проектировании цепной передачи в металлорежущем станке
2 Краткая характеристика цепной передачи
3 Альтернативный способ передачи крутящего момента от двигателя к входному валу станка
4 Методика, лежащая в основе программных вычислений
Целью данного проекта была разработка программы, написанной в среде визуального проектирования Delphi 7.0, которая бы избавила пользователя, поставившего себе цель - спроектировать цепную передачу, от трудоемкого поиска методик расчета этой передачи в книгах и справочниках. Суть программы - определить типоразмер цепи и геометрическую характеристику звездочки по заданным пользователем условиям. В программе учтены многие переменные, влияющие на конечный выбор стандартного типоразмера цепи.
Delphi - представляет собой уникальную систему разработки, в которой технология высокопроизводительной оптимизирующей компиляции сочетается с визуальными средствами разработки и масштабируемым процессором баз данных. Это позволяет создавать эффективные приложения Windows, работающие с базами данных, в том числе и приложения для систем клиент/сервер. Разработанные с помощью Delphi приложения, могут функционировать под практически любой 32 разрядной операционной системой типа Windows 95, 98, 2000, NT, XP.
Delphi - среда быстрого создания приложений и на данный момент является самой популярной средой разработки.
Delphi обладает рядом преимуществ разработки:
Поддержка большого числа разнообразных технологий доступа к данным.
-Высокая производительность разработанного приложения.
-Hизкие требования разработанного приложения к ресурсам компьютера.
-Hаращиваемость за счет встраивания новых компонент и инструментов
-Возможность разработки новых компонент и инструментов собственными средствами Delphi (существующие компоненты и инструменты доступны в исходниках)
-Удачная проработка иерархии объектов.
2 . Краткая характеристика цепной передачи
Цепные передачи предназначены для передачи движения с заданными усилиями и скоростями. Они могут работать в широком диапазоне передаваемых мощностей (от 0,1 кВт до 5000 кВт), скоростей (до 35 м/с), передаточных отношений (до 10 ). Цепная передача состоит из ведущей и ведомой звездочек и цепи, охватывающей звездочки и зацепляющейся за их зубья.
Цепные передачи обладают рядом достоинств:
-возможность применения в значительном диапазоне межосевых расстояний (до 8 м);
-меньшие, чем у ременных передач, габариты;
-малые силы, действующие на валы, отсутствие необходимости в большом начальном натяжении;
-возможность передачи движения нескольким звездочкам.
Однако цепные передачи не лишены недостатков:
-отсутствие жидкостного трения в шарнирах и, следовательно, неизбежный износ, существенный при плохом смазывании и попадании пыли и грязи (износ шарниров приводит к увеличению шага звеньев и длины цепи, что вызывает необходимость применения натяжных устройств);
-более высокие требования к точности установки валов, чем в клиноременных передачах, и более сложный уход - смазка, регулировка.
-скорость движения цепи, особенно при малых числах зубьев звездочек, не постоянна, что вызывает колебания передаточного отношения, хотя эти колебания небольшие.
- передачи требуют установки на картерах;
Цепи, применяемые в машиностроении, по характеру выполняемой ими работы подразделяют на две группы - приводные и тяговые. В металлорежущих станках применяются приводные зубчатые цепи вследствие обеспечения ими более плавной работы, меньшего шума, высокой кинематической точности и обладания более высокой надежностью из -за отсутствия роликов и втулок, а также благодаря тому, что разрыв одной пластины не приводит к разрыву всей цепи.
3 . Альтернативный способ передачи крутящего момента от двигателя к входному валу станка
Здесь мы рассмотрим преимущества и недостатки другой механической передачи, способной выполнять ту же роль что и рассматриваемая нами цепная передача.
Механизм, осуществляющий передачу вращательного движения с помощью ремня, охватывающего закрепленные на валах шкивы. Ремень, являясь промежуточной гибкой связью, передаёт крутящий момент с ведущего шкива на ведомый за счёт сил трения, возникающих между натянутым ремнем и шкивами. В зависимости от типа используемых ремней Р. п. могут быть плоскоремёнными, клиноремёнными и круглоремёнными. Получают распространение ременные передачи с поликлиновыми ремнями, имеющими клиновые выступы на внутренней стороне. Плоские и круглые ремни используются, как правило, по одному в передаче, а клиновые -- по несколько штук (обычно не более 6--8).
Плоскоремённые передачи просты и удобны, позволяют применять обычные шкивы с гладкой поверхностью, способны работать при высоких скоростях (40--50 м/сек и выше). Однако такие Р. п. имеют невысокое тяговое усилие, значительные габариты и сравнительно малое передаточное отношение (обычно до 5).
Клиноремённые передачи, обеспечивая повышенное сцепление ремней со шкивами, позволяют сократить межосевое расстояние, уменьшить размеры передачи и повысить передаточное отношение (до 10--15). Круглоремённые передачи используются редко, главным образом в приводах малой мощности (настольные станки, швейные машины и т. п.).
Получают распространение ремни из высокоэластичных и прочных синтетических материалов, узкоклиновые и зубчатые ремни. ременные передачи распространены в приводах с/х машин, электрогенераторов, некоторых станков, текстильных и других машин. Ременные передачи. применяют обычно для передачи мощности до 30--50 квт. Известны установки мощностью в несколько сотен и даже тысяч квт, в которых также использованы ременные передачи.
Ремённые передачи обладают как рядом достоинств, так и рядом недостатков.
способность передавать мощность на значительные расстояния (до 15 м и более)
плавность и бесшумность работы, предохранение механизмов от перегрузки за счёт упругих свойств ремня и его способности пробуксовывать по шкивам.
-высокая нагрузка на валы и подшипники-
-непостоянство передаточного отношения (из-за неизбежного проскальзывания ремня).
4 . Методика, на которой основана программа
Основу вычислительной программы составляют ряд указаний и формул, предложенных книгой А.А. Готовцева и И.П Котенкова «Проектирование цепных передач». Программа представляет собой более систематизированную методику, нацеленную именно на расчет зубчатой цепной передачи.
В качестве исходных параметров пользователю необходимо определится с:
-передаточным отношением передачи, U;
-диаметром ведущей звездочки, De (мм) (должен быть не меньше 68 мм);
Данные переменные позволят рассчитать максимально допустимый диаметр звездочки по следующей формуле:
и сравнить его с введенным пользователем диаметром ведущей звездочки. Если указанное пользователем значение будет превышать максимальное программа известит пользователя об этом, и попросит его перезадать значение.
- частотой вращения ведущей звездочки , n (об/мин);
Это позволит произвести расчет скорости движения цепи по формуле:
Данные параметры влияют на выбор коэффициентов, которые в свою очередь помогают определить коффициент эксплуатации, рассчитывающийся по формуле:
Значение скорости, определенное ранее позволит высчитать коэффициент, учитывающий снижение несущей способности цепи, из - за центробежных сил, для зубчатых цепей:
- максимально допустимой частотой вращения, nmax (об/мин);
Это позволит определиться с шагом цепи.
Это необходимо, чтобы определиться с числом звеньев цепи:
И впоследствии мы найдем длину цепи:
Далее программа проведет проверку цепи по двум условиям
В случае если данное условие не будет выполнятся, программа выдаст пользователю извещение об этом.
Если данное условие не выполняется, то пользователь будет об этом информирован. И наконец, определив указанные выше параметры мы сможем посчитать ширину цепи:
Вторая часть расчетов посвящена геометрическому расчету звездочки. Программа рассчитывает и выводит на экран следующие параметры:
Половина углового шага ф, которая высчитывается по формуле:
Расстояние между верхним краем рабочей грани звена и точкой, лежащей в плоскости измерения зуба, Р:
Радиус построения криволинейного профиля зуба R:
Наибольший зазор между рабочей гранью пластин и зубом, K:
Угол поворота звена на звездочке, ц:
Расстояние от вершины зуба до линии центров :
Радиус закругления торца зуба и направляющей проточки r:
Программа состоит из одного главного окна.
В левой стороне содержатся операторы, запоминающие данные вводимые пользователем. Диаметр ведущей звездочки вводится с клавиатуры путем нажатия кнопок несущих в себе числа (по умолчанию 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 Окно программы после нажатия кнопки «Внести в базу»
Код программы содержит в себе механизмы предупреждения пользователя о его некорректной работе с программой. В коде прописаны условия предъявляемые к самой цепной передаче, невыполнение которых, из - за некорректно введенных данных ведет к появлению различного рода сообщений, информирующих пользователя и дающих ему совет.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, jpeg, Menus;
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);
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
if not (Key in ['0'..'9']) then Key := #0;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
if not (Key in ['0'..'9']) then Key := #0;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
if not (Key in ['0'..'9']) then Key := #0;
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
if not (Key in ['0'..'9','-']) then Key := #0;
procedure TForm1.Edit2Exit(Sender: TObject);
if De<68 then ShowMessage('Значение диаметра ведущей звездочки введено некорректно')
procedure TForm1.ScrollBar1Change(Sender: TObject);
Label13.Caption:=IntToStr(ScrollBar1.Position);
procedure TForm1.ScrollBar2Change(Sender: TObject);
Label17.Caption:=IntToStr(ScrollBar2.Position);
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;
if Dmax<69 then ShowMessage('Значение максимального диаметра ведущей звездочки при данных параметрах слишком мало. Перезадайте межосевое расстояние или передаточное отношение')
if De>Dmax then ShowMessage('Значение диаметра ведущей звездочки превышает максимальный. Перезадайте межосевое расстояние,передаточное отношение или уточните диаметр ведущей зведочки')
label3.Caption:=formatfloat('#.##',De);
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;
if (T>-80) and (T<-25) then kt:=2.5;
if (T>150) and (T<250) then kt:=1.25;
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('Шаг цепи не удолетворяет условию долговечности. Измените межосевое расстояние.');
B:=(250*klambda*kt*N)/(kv*shag*exp(1.5*ln(V)));
label14.Caption:=formatfloat('###.##',B);
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);
Lt:=(2*(A/shag))+((z+u*z)/2)+((z*u-z)/3.14)*((z*u-z)/3.14)*(shag/A);
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;
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);
procedure TForm1.Button2Click(Sender: TObject);
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.C
Использование современного программного обеспечения для проектировании цепной передачи в металлорежущем станке курсовая работа. Производство и технологии.
Реферат: Much Ado About Nothing 4 Essay Research
Эссе На Тему Субъектность Социальной Системы
Автотранспортное Предприятие Курсовой
Методология Курсовой Работы
Сочинение На Тему Описание Родного Человека
Контрольная работа по теме Современное коневодство
Титульный Лист Дипломной Работы 2022
Футбол Ойынының Ережелері Реферат
Реферат: Стан матеріально-технічної бази аграрних господарств в умовах переходу до ринку
Отчет По Производственной Практике Юриста Пример
Доклад по теме Некоторые аспекты общения в www-чатах русскоязычного интернета
Почему Моя Мама Самая Лучшая Сочинение
Реферат по теме Самоуправление по уставам 20-х годов в младшем жузе и Оренбургской области
Контрольная Работа С Остатками 3 Класс
Курсовая работа по теме Оздоровительный туризм: основные понятия, анализ организации на мировых и отечественных курортах
Курсовая работа: Механизм административно-правового регулирования
Реферат: Обжалование действий и решений суда и должностных лиц в уголовном судопроизводстве
Курсовая работа по теме Развитие активного словаря у детей с умственной отсталостью старшего дошкольного возраста на основе ознакомления с окружающей природой и явлениями
Курсовая работа по теме Изучение особенностей проявления неисправностей вычислительной техники и их диагностики
Сочинение Дневниковая Запись 9 Класс
Бухгалтерский учет наличных денежных средств (на примере ООО "Росс-Эль") - Бухгалтерский учет и аудит курсовая работа
Корпоративные информационные системы - Менеджмент и трудовые отношения контрольная работа
Задача о ранце - Программирование, компьютеры и кибернетика курсовая работа