Диплом_Шалыгин (1207197), страница 4
Текст из файла (страница 4)
Так же принцип действия можно наблюдать на с помощью анимации. Был использован компонент Animate, который воспроизводит покадрово, анимацию в avi-формате.
procedure TForm1.Button6Click(Sender: TObject);
begin
Form2.show;
Form2.Animate1.Active:=true;
end;
Процесс создания анимации происходил, в программном продукте Macromedia Flesh 8.
С помощью компонента RadioButton, производится смена исследуемых устройств, процесс смены написан в свойстве компонента Timer. Полученный алгоритм:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form2.Animate1.Active:=true;
if RadioButton1.Checked then Image41.Visible:=true
else Image40.Visible:=false;
if RadioButton2.Checked then Image40.Visible:=true
else Image41.Visible:=false;
end;
Интерфейс ознакомления с устройством можно наблюдать на рисунке 1.8.
Рисунок 1.8 – Интерфейс программы, окно «Принцип действия РЭН-18 и РКН»
После ознакомления с программой, производится переход в главное меню. Нажав на кнопку «Сбор схемы лабораторной установки». Процесс сборки схемы заключается в том, что студенту необходимо соединить проводками элементы схемы, нажимая на лампочки, если появляется надпись «неверное соединение», то сборка продолжается, если все провода соединены верно, и процесс сборки 100% , то программа автоматически переходит к выполнению лабораторной работы. За слежением процесса сборки отвечает компонент iledbar. Для помощи в сборке справа от стенда изображена схема. Весь этот процесс можно наблюдать на рисунке 1.9.
Рисунок 1.9 – Интерфейс программы, окно «Сборка схемы лабораторной установки»
В данном приложении это реализовано следующим образом:
procedure deactivation();
var
a:boolean;
i:integer;
begin
a:=false;
for i:=0 to Form1.ComponentCount-1 do
if Form1.Components[i] is TiLedRound then TiLedRound(Form1. Components[i]). Active:=a;
end;
procedure drawing explorer ();
var
address: integer;
begin
deactivation();
if point 1>point 2 then address:=point 2*100+point 1;
if point 2>point 1 then address:=point 1*100+point 2;
if point 1=point 2 then
begin
point 1:=0;
point 2:=0;
exit;
end;
case address of
110: begin
if form1.Image44.Visible then
else progress drawing:=progress drawing+100/10;
form1.Image44.Visible:=true;
end;
211: begin
if form1.Image45.Visible then
else progress drawing:=progress drawing+100/10;
form1.Image45.Visible:=true;
end;
112: begin
if form1.Image46.Visible then
else progress drawing:=progress drawing+100/10;
form1.Image46.Visible:=true;
end;
else ShowMessage('неверное соединение');end;
form1.iLedBar1.position:=progress drawing;
if progress drawing=100 then form1.iSwitchToggle1.Enabled:=true;
if progress drawing=100 then form1.PageControl1.ActivePageIndex:=0;
point 1:=0; point 2:=0;
end;
procedure TForm1.iLedRound6Click(Sender: TObject);
begin
begin
iLedRound6.Active:=true;
if point 1=0 then point 1:=1
else
begin
point 2:=1;
drawing explorer ();
end;
end;
end;
procedure TForm1.iLedRound15Click(Sender: TObject);
begin
iLedRound15.Active:=true;
if point 1=0 then point 1:=10
else
begin
point 2:=10;
drawing explorer ();
end;
end;
procedure TForm1.iLedRound12Click(Sender: TObject);
begin
iLedRound12.Active:=true;
if point 1=0 then point 1:=11
else
begin
point 2:=11;
drawing explorer ();
end;
end.
Определение величин параметров напряжений и токов реализован такими же методами, как и в предыдущих приложения. Вывод значений производится с помощью визуальных компонентов iSevenSegmentAnalog, iAngularGauge, iLedRound, iSlider.
1.4 Разработка приложения «Командоаппарат КЭП-12У»
1.4.1 Устройство и принцип работы командоаппарата КЭП-12У
Одним из распространенных видов автоматического управления является порядково-временное связывание производственных процессов. Оно осуществляется с помощью различных релейных схем, включающих реле времени, или с помощью командных приборов. Командоаппарат дает команды для выполнения автоматическими устройствами определенных движений по заранее установленному графику времени; он широко применяется в вагоноремонтном производстве для автоматического управления работой поточно-конвейерных линий в сборочных, тележных, малярных и других цехах. Он может быть использован для автоматического управления электрическими или пневматическими цепями/6/.
Командоаппарат, изображенный на рисунке 1.10, состоит из синхронного электродвигателя 1 с встроенным редуктором (тип 9-СД-54, U = 127 В, f = 50 Гц), храпового расцепляющего механизма 8, редуктора с четырехступенчатым переключением скоростей 7, распределительного вала 2 (с большими и малыми кулачками в его 24 пазах), 12 быстродействующих путевых выключателей 3 с электрическими контактами 4 или пневматическими золотниками (на схеме не показаны). Для ручного управления прибором имеется тумблер 5, для дистанционного – соленоид 6/6/.
Приборы КЭП-12У изготовляются с продолжительностью цикла от 30с до 18ч. Контакты выходных цепей обеспечивают коммутацию мощности 500Вт при напряжении до 220 в и силе тока не более 5А. Минимальное время команды (длительность замкнутого состояния контактов) – не менее 10%, а погрешность прибора не более 2,5% от длительности цикла.
Рассмотрим более подробно работу командоаппарата КЭП-12У
Электродвигатель, изображенный на рисунке 1.10, с встроенным редуктором через валик 8 приводит во вращение поводок 3 с храповой собачкой 4 и защелкой 5. Пока собачка 4 не дошла до неподвижного упора 1, она приводит во вращение храповое колесо 2 и в таком положении фиксируется защелкой 5; зубчатые колеса редуктора прекратят вращаться. При дальнейшем вращении защелка упрется в регулируемый упор 7 настроечного колокола и освободит собачку 4, которая пружиной 6 прижмется к храповому колесу 2 и вновь приведет во вращение колеса редуктора/6/.
Рисунок 1.10 – Командоаппарат КЭП –12 У
В результате за один оборот валика, присоединенного к электродвигателю, храповое колесо повернется на угол, величина которого зависит от положения регулируемого упора, настраиваемого поворотом колокола (он имеет деления от 0 до 100). Подача производится кулачковым барабаном, насаженного на валике, вдоль которого может перемещаться зубчатое колесо. Это колесо в зависимости от ритма работы командоаппарата может быть введено в зацепление с любой из зубчатых передач, закрепленных на валу.
На кулачковом барабане имеются пазы для закрепления кулачков взаимодействующих с контактами контактной панели. Число пар кулачков равняется числу переключаемых цепей линии.
Вращающийся вал короткими кулачками освобождает защелки путевых выключателей, замыкающих свои контакты 1КЭП, 2КЭП, 3КЭП и т.д., а длинными кулачками взводит их. В приборе с соленоидами в конце оборота распределительного вала первый от редуктора кулачок взводит защелку и выключает двигатель, завершая цикл управления. В приборе без соленоида двигатель продолжает вращаться и цикл управления непрерывно повторяется.
Кулачки в пазах распределительного вала можно переставлять по окружности, настраивая КЭП-12У в соответствии с заданной временной диаграммой. Угловое расстояние между короткими и длинными кулачками для одного путевого выключателя, выраженное в долях оборота распределительного вала. Для облегчения расстановки кулачков на требуемый порядок переключения контактного устройства прибора распределительный вал можно поворачивать вручную за колокол с делениями от 0 до 100 (при этом зубчатое колесо должно быть выведено из зацепления с зубчатым колесом редуктора).
На рисунке 1.11 зафиксирован момент, когда защелка и собачка находятся в зацеплении, а Г-образный конец собачки вышел из зацепления с храповым колесом. При дальнейшем вращении поводка, собачки и защелки против часовой стрелки Г-образный хвостовик защелки заденет за регулируемый упор, и защелка отойдет от собачки. Последняя под действием пружины принимается к храповому колесу и будет вращать его до тех пор, пока выпуклая поверхность собачки отойдет от храпового колеса и войдет в зацепление с защелкой, продолжая вращаться вместе с ней против часовой стрелки до нового взаимодействия хвостовика защелки с регулируемым упором.
Рисунок 1.11 – Храповой расцепляющий механизм.
Для взаимодействия кулачков с защелками контактов необходимо вывести подвижное зубчатое колесо из зацепления с колесами редуктора и медленно вращать колокол, находящийся на распределительном валу.
1.4.2 Разработка алгоритма и создание программного кода
Данная программа предназначена для понимания работы командоаппарата КЭП-12У. В данном компьютерном приложении не нужно снимать каких-либо показателей или делать какие-нибудь расчеты и графики. Это визуализированное, анимированное приложение, которое позволяет ознакомится с полным функционалом командоаппарата, его настройкой, а также применением его на моечной машине.
Стартовое окно программы представляет собой первую часть лабораторной работы, выполняемой студентом на компьютере. Это окно представлено на рисунке 1.12.
Рисунок 1.12 – Стартовое окно программы «Командоаппарат КЭП-12У»
На первом этапе выполнения лабораторной работы, студенту необходимо ознакомится с чертежом и кратким заданием. Эти кнопки мы видим на стартовом окне. Так же, в этом окне есть кулачки, изображенные оранжевым цветом. Они устанавливаются на вал командоаппатара по средствам переноса компьютерной мышью. Часть кода переноса первого кулачка, без установки его на вал, на языке ObjectPascal выглядит следующим образом:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button<>mbLeft then move:=false
else begin
move:=true;
x0:=x;
y0:=y;
Label1.Visible:=true;
end;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if move then begin
image1.SetBounds(image1.Left+x-x0,image1.Top+y-y0,image1.width,image1.height);
end;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
move:=false;
end;
Для ознакомления с чертежом, необходимо нажать кнопку «Чертеж». На рисунке 1.13 представлено это окно программы. В данном окне реализована функция, которая позволяет читать особенности только того элемента, на котором непосредственно находится указатель компьютерной мыши.
Рисунок 1.13 – окно «Чертеж» программы «Командоаппарат КЭП-12У»
Все надписи в программу загружены изображением в формате jpg, в компонент TImage основной палитры программы Delphi. Код операции показа картинки под курсором мыши выглядит таким образом:
procedure TForm2.Label1MouseEnter(Sender: TObject);
begin
Image2.Visible:=true;
end;
Окно «Задание» открывается соответствующей клавишей, на рабочем окне программы. В этом окне изображена циклограмма, по которой необходимо запрограммировать командоаппарат. Данное окно представлено на рисунке 1.14.
Рисунок 1.14 – окно «Задание» программы «Командоаппарат КЭП-12У»
Расстановка бегунков на валу командоаппарата анимирована благодаря компоненту TImage. Все положения вала с бегунками были вычерчены заранее и загружены в программу в виде изображений формата jpg. Для показа нужного изображения используется свойство Visible. Анимация прокрутки вала с установленным на валу одним бегунком на языке ObjectPascal выглядит следующим образом:
procedure TForm1.Button1Click(Sender: TObject);
begin
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
