Рассчитать требуемый диаметр поддерживающего катка, в зависимости от общего количества поддерживающих катков и базы трактора

Подсказки для каждого компонента, задаваемые свойством Hint выводятся в статусную строку при наведении курсора на конкретный объект.

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

3. Обработка исключительных ситуаций

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

На первом этапе осуществляется блокирование ввода заранее неверной информации в labeledEdit. Это осуществляется путем создания двух процедур:

1. Первая процедура позволяет вводить только вещественный тип данных, т.е. блокируется ввод всех символов, кроме цифр и запятой.

2. Вторая процедура позволяет вводить только целый тип данных, т.е. блокируется ввод всех символов, кроме цифр (см. Приложение, с.26-30).

На втором этапе осуществляется контроль данных при помощи обработки исключительных ситуаций. При введении неверной информации программа автоматически выдаёт сообщение об ошибке и выделяет объект, в который были введены неверные данные (см. Приложение, с с.26-30).

В случае возникновения ошибки будет выдано соответствующее сообщение, при этом будет установлен фокус в тот LabeledEdit, где находятся некорректные данные.

Необходимо  учитывать, что, например, введенные  данные не приводят к возникновению  исключительной ситуации, но тем не менее, препятствуют нормальной работе приложения. Для исключения подобных ситуаций на третьем этапе обработки данных в программе введена дополнительная обработка корректности введенных данных (см. Приложение, с.26-30).

В случае неправильного ввода данных будет выдано соответствующее сообщение, при этом будет установлен фокус в тот LabeledEdit, где находятся некорректные данные .

4. Построение графических зависимостей

Для подтверждения  расчетных данных в программе  используется построение графиков. Если расчётные данные совпадают с  результатами на графической зависимости, то можно сделать вывод, что программа  написана верно, без искажения реальных фактов (см. Приложение, с.32-33).

5. Создание анимации

В данной курсовой работе анимация предоставляет  минимальную информацию о создателе  программмы и схематически показывает исследуемый объект (см. Приложение, с.34-35).

6. Вызов внешнего приложения

Для уточнения  полученных результатов или для каких-то предварительных расчетов можно воспользоваться системным калькулятором Windows. В программе есть такая возможность (см. Приложение, с.29).

Данная  процедура позволяет вызывать внешнее приложение из программного продукта, не закрывая программу.

Преимущество  этой функции в том, что не надо прописывать калькулятор в программном  коде, т.к. он есть в любой версии операционной системы Windows.

7. Динамически подключаемые библиотеки

Динамически подключаемые библиотеки (DLL — Dynamic Link Library) являются ключевым компонентом при написании любого современного приложения Windows. Они представляют собой программные модули, содержащие процедуры и функции, данные или ресурсы, которые могут совместно использоваться несколькими различными приложениями Windows.

Одно  из основных и, пожалуй, главных назначений библиотек DLL - позволить загружать процедуры и функции в память только в случае необходимости во время выполнения приложения, а не компилировать их в само приложение и таким образом загружать в память всякий раз при запуске, независимо от того понадобятся они либо нет. Кроме того, несколько приложений могут использовать одни и те же процедуры и функции, хранящиеся в DLL, одновременно. И самое главное, библиотеки DLL являются универсальными относительно языка программирования. Текст библиотеки представлен в приложении, с.35.

 

6. РАЗРАБОТКА СПРАВОЧНОЙ СИСТЕМЫ

Файл  справочной системы был создан при  помощи Help&Manual версии 5.

Итоговый  файл справки и файл содержания располагаются  в подпапке Hlp папки с программой. Вызвать файл справки можно, нажав клавишу F1, соответствующую кнопку на форме либо соответствующий пункт в падающем и контекстном меню.

Для каждой формы есть своя страница файла справки.

На каждом диалоговом окне есть кнопка Справка, на которой пишется программный  текст вызова справки конкретного  раздела, который представлен в приложении, с.33.

Разработанная справочная система представлена на рисунках, приведенных ниже (рисунок 12,13,14.15,16):

 

           Рисунок 12 – Справка

 

Рисунок 13 – Справка «О программе»

Рисунок 14 – Справка «Главная форма»

 

Рисунок 15 – Справка «Форма с результатами расчетов»

 

Рисунок 16 – Справка «Форма с графическими зависимостями»

 

7. РАСЧЁТ КОНТРОЛЬНОГО ПРИМЕРА

Исходные  данные для расчета:

Трактор «Беларус 2102»

- момент сопротивления проворачиванию уплотнений

( =3.5 Н*м);

-- шаг гусеницы; (0,125 м);

z– число поддерживающих катков (на одной стороне) (z=1-5);

-- вес единицы длины гусеницы(100 H);

L – база трактора; (2,1-2,5 м)

µ - коэффициент  трения гусеницы о ролик (µ = 0,15);

f – коэффициент сопротивлению вращению катка (f =0,02).

 

Таблица 3 –– Результаты требуемого диаметра катка, м

L\z	1.00	2.00	3.00	4.00	5.00
2.10 м	0.0801	0.0962	0.1122	0.1282	0.1442
2.14 м	0.0785	0.0942	0.1099	0.1255	0.1412
2.19 м	0.0769	0.0922	0.1076	0.1230	0.1384
2.23 м	0.0753	0.0904	0.1055	0.1206	0.1356
2.28 м	0.0739	0.0886	0.1034	0.1182	0.1330
2.32 м	0.0725	0.0870	0.1014	0.1159	0.1304
2.37 м	0.0711	0.0853	0.0995	0.1138	0.1280
2.41 м	0.0698	0.0837	0.0977	0.1117	0.1256
2.46 м	0.0685	0.0822	0.0959	0.1096	0.1233
2.50 м	0.0673	0.0808	0.0942	0.1077	0.1212

 

 

Рисунок 17 – Зависимость требуемого диаметра катка от базы трактора

Рисунок 18 – Зависимость требуемого диаметра катка от общего количества катков

 

 

Рисунок 19 –Трехмерная зависимость

 

Таким образом, был проведен расчет диаметра поддерживающего катка  гусеничного трактора в зависимости  от общего количества поддерживающих катков и базы трактора. Результаты были представлены в виде таблицы  и графиков.

Проведенный расчет подтверждает возможность использования  данного программного продукта для  решения поставленной задачи.

ЗАКЛЮЧЕНИЕ

В результате проделанной работы было получено законченное  программное приложение технического характера, с помощью которого можно  рассчитать требуемый диаметр поддерживающего  катка трактора.

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

Был произведен расчет диаметра поддерживающего катка  гусеничного трактора БЕЛАРУС 2102, который прямо пропорционально увеличивается с увеличением количества поддерживающих катков от 1 до 5 и уменьшается с увеличением базы трактора от 2,1м до 2,5м. При количестве поддерживающих катков равному 3 и базе трактора равной 2,1м получаем диаметр поддерживающего катка равный 0,1122м, что подтверждает возможность прикладного использования программы.

 

 

СПИСОК  ИСПОЛЬЗОВАННЫХ  ИСТОЧНИКОВ  ИНФОРМАЦИИ

1. Тракторы. Проектирование, конструирование и расчет / Под общ. ред. И.П.Ксеневича. – М.: Машиностроение, 1991. – 418 с.
2. Барский И.Б. Конструирование и расчет тракторов. Третье издание. – М.: Машиностроение, 1980. – 367 с.
3. Методическое пособие по выполнению курсовой работы по дисциплине «Информатика» для студентов специальностей «Тракторостроение», «Многоцелевые гусеничные и колесные машины», «Городской электрический транспорт». В.В. Равино, Ю.Е. Атаманов  
4. http://belarus-tractor.com/.  
   

ПРИЛОЖЕНИЕ

Текст программы:

unit Unit1;

interface

uses

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

  Dialogs, ComCtrls, StdCtrls, Buttons, Menus, ExtCtrls ,ComObj, Math;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    GroupBox3: TGroupBox;

    LabeledEdit1: TLabeledEdit;

    LabeledEdit2: TLabeledEdit;

    LabeledEdit3: TLabeledEdit;

    LabeledEdit4: TLabeledEdit;

    LabeledEdit5: TLabeledEdit;

    LabeledEdit6: TLabeledEdit;

    LabeledEdit7: TLabeledEdit;

    LabeledEdit8: TLabeledEdit;

    LabeledEdit9: TLabeledEdit;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    PopupMenu1: TPopupMenu;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    StatusBar1: TStatusBar;

    N14: TMenuItem;

    LabeledEdit10: TLabeledEdit;

    LabeledEdit11: TLabeledEdit;

    Label3: TLabel;

    Label1: TLabel;

    PopupMenu2: TPopupMenu;

    N13: TMenuItem;

    N15: TMenuItem;

    BitBtn5: TBitBtn;

    procedure FormCreate(Sender: TObject);

    procedure ShowHint(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure N14Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  zMin,zMax,LMin,LMax,My,tg,qg,m,f:Real;

  v,u:Integer;

  Fr,Fw,FrPY:TextFile;

implementation

uses Unit2, Unit4;

{$R *.dfm}

Type massive1=array[1..100] of real;

Type massive2=array[1..100,1..100] of real;

procedure Diametr(zMin,zMax,LMin,LMax,My,tg,qg,m,f:real;v,u:integer;var Dp,DpZ,DpL:massive2;var DpVer,DpGor,zMass,LMass:massive1);  external

'DLL\Traktor.dll';

procedure TForm1.FormCreate(Sender: TObject);

begin

BorderIcons:=BorderIcons-

[biSystemMenu];

DecimalSeparator:='.';

Application.OnHint:=ShowHint;

AssignFile(Fr, 'Данные.txt');

Reset(Fr);

  ReadLn(Fr, zMin);

  ReadLn(Fr, zMax);

  ReadLn(Fr, v);

  ReadLn(Fr, LMin);

  ReadLn(Fr, LMax);

  ReadLn(Fr, u);

  ReadLn(Fr, My);

  ReadLn(Fr, tg);

  ReadLn(Fr, qg);

  ReadLn(Fr, m);

  ReadLn(Fr, f);

  CloseFile(Fr);

Form1.LabeledEdit1.Text:=FloatToStr(zMin);

Form1.LabeledEdit2.Text:=FloatToStr(zMax);

Form1.LabeledEdit3.Text:=IntToStr(v);

Form1.LabeledEdit4.Text:=FloatToStr(LMin);

Form1.LabeledEdit5.Text:=FloatToStr(LMax);

Form1.LabeledEdit6.Text:=IntToStr(u);