Розділ 5. Охорона праці
Конструкція робочого місця, його розміри та взаємне розташування його елементів повинні відповідати антропометричним, фізіологічним та психофізіологічним характеристикам людини, а також характеру роботи.
Організація робочих місць повинна забезпечувати стійке положення та вільність рухів працівника, безпеку виконання трудових операцій, виключати чи допускати лише в деяких випадках роботу в незручних позиціях, котрі зумовлюють підвищену втомлюваність.
Для створення сприятливих умов зорової роботи, які б виключали швидку втомлюваність очей, виникнення професійних захворювань виробниче освітлення повинно відповідати наступним вимогам:
– створювати на робочій поверхні освітленість, що відповідає характеру зорової роботи і не є нижчою за встановлені норми;
– не повинно чинити засліплюючої дії як від самих джерел освітлення так і від інших предметів;
– забезпечити достатню рівномірність та постійність рівня освітленості, щоб уникнути частої пере адаптації органів зору.
Функціональні зміни, пов’язані з дією вібрації на людину-оператора – погіршення зору, зміни реакції вестибулярного апарату, виникнення галюцинацій, швидка втомлюваність. Негативні відчуття від вібрації виникають при прискореннях, що складають 5% прискорення сили ваги, тобто при 0,5 м/с2. Особливо шкідливі вібрації з частотами, близькими до частот власних коливань тіла людини, більшість котрих знаходиться в межах 6..30 Гц.
В Україні і в міжнародні організації зі стандартизації застосовується принцип нормування шуму на основі граничних спектрів в октавних смугах частот.
Шум вважається допустимим, якщо вимірювані рівні звукового тиску у всіх октавних смугах частот нормованого діапазону (63-8000 Гц) будуть нижчі ніж значення, котрі визначаються граничним спектром.
До роботи з електрикою допускаються особи, які:
– пройшли навчання і перевірку знань «Правил безпечної експлуатації електроустановок» з присвоєнням відповідної групи (1-5);
– пройшли медичний огляд.
Основними вимогами безпеки, що ставляться до обладнання є безпека для здоров’я та життя людей, надійність та зручність експлуатації.
Безпека виробничого обладнання забезпечується:
– вибором безпечних принципів дії, конструктивних схем, елементів конструкції;
– застосування в конструкції засобів захисту;
– застосування в конструкції відповідних матеріалів.
Організація робочих місць користувача ЕОМ повинна забезпечувати стійке положення та вільність рухів працівника.
Загальні принципи організації робочого місця:
– забороняється працювати на комп’ютері, якщо пошкоджений шнур чи розетка, працювати на ЕОМ зі знятою кришкою, перевіряти та міняти запобіжники на складових частинах при включеному ЕОМ;
– забороняється використовувати складові частини ЕОМ, якщо на них попала вода чи пролита рідина, блокувати вентиляційні отвори на кришках складових частин ЕОМ;
– забороняється розміщувати шнур живлення там де по ньому можуть проходити люди;
– забороняється проштовхувати предмети через бокові отвори, що може привести до короткого замикання або ви можете доторкнутись до місць з високою напругою.
Загальні вимоги регламентуються ГОСТ 12.3.002-75. Вони передбачають:
– усунення безпосереднього контакту користувача з оголеними частинами проводів чи задньої стінки ПК;
– заборону працювати на ПК з вологими руками, що може призвести до короткого замикання;
– обставляти ПК непотрібними речами, що не дають вільної можливості працювати з ним та інше.
– режими праці та відпочинку.
Працівники мають право: на відпочинок та на здоров’я і безпечні умови праці; на об’єднання у професійні спілки на вирішення колективних, трудових конфліктів, на участь в управлінні підприємством, установою, організацією, матеріальну допомогу у разі безробіття, чи непрацездатності, на звернення до суду для вирішення трудових спорів тощо.
Головною базою організації безпечної експлуатації виробничих об’єктів є забезпечення обслуговування їх висококваліфікованим персоналом. Існує 5 груп виробничого персоналу. Кожна з яких відрізняється від попередньої складністю покладеної на неї роботи.
Робоче місце складається з стола з розміщеним на ньому екраном, клавіатурою і підставкою під документи, крісла, підставки для ніг.
Розміри стола залежать від розмірів екрану, орієнтовні розміри: довжина 160 см, ширина 90 см, загальна площа 1,44 м2. Висота стола повинна регулюватись у відповідності з антропометричними даними студента в межах 68-84 см.
Доцільне розміщення клавіатури окремо від екрана. Це забезпечує вибір оптимального положення, висоти та нахилу всіх складових обладнання робочого місця студента.
Екран повинен знаходитись нижче рівня очей прямо або з нахилом на оператора. Кут зору, при якому забезпечується оптимальне розміщення символів на екрані, в межах 0,5. Екран повинен розміщуватись на відстані 40-90 см від очей оператора. Оптимальна відстань при висоті символів 2,5 мм – 50 см; при висоті символів 3-4 мм її можна збільшити до 80 см.
Оператору документи потрібно читати з підставки, висота і нахил якої регулюються. Нахил документа 60о дозволяє максимально зменшити відблиск від нього.
Робоче крісло повинно бути рухоме. Короткі підлокітники крісла повинні забезпечувати положення рук трохи вище стола.
Підставка для ніг рекомендується розмірами 40х30х15 см з кутом нахилу 30, без переміщення по підлозі. Освітленість робочих місць повинна бути в межах від 300 до 500 лк як в зоні розміщення документів і клавіатури.
В робочій зоні відношення яскравості поверхонь не повинно перевищувати 3:1, а між робочою поверхнею столу та навколишніми поверхнями (стіл, обладнання і т.п.) 10:1.
З метою виключення на екранах дисплеїв яскравих плям, на робочому місці не повинно бути яскравих (блискучих) предметів великих розмірів. Одяг студента повинен бути по можливості темним; всі предмети позаду студента повинні мати низьку яскравість; при рядковому розміщенні обладнання не можна допускати, щоб дисплеї були повернуті екранами один до одного, у випадку, якщо це має місце, необхідно між ними встановити перегородки.
Для уникнення засвіток екранів і зниження перепадів яскравості в полізору при природному освітленні, робочі столи студентів необхідно розміщувати далі від вікон і таким чином, щоб віконні шиби знаходились збоку від студентів, а природне світло падало з лівої сторони. Вікна повинні бути оснащені шторами, які розсіюють світло, або регульованими жалюзі. При південній орієнтації вікон найбільш ефективним засобом для створення сприятливого світлового середовища в приміщенні і зниженні теплової дії інсоляції є використання на вікнах плівки з металізованим покриттям.
Рекомендується робота на клавіатурі дисплея сліпим десяти пальцевим методом. Це дозволяє знизити втомлюваність зору за рахунок його постійного переключання з документа на екран і клавіатуру та шкідливу дію блищання клавіатури.
Висновки
Під час проходження практики було підписано інструктаж з техніки безпеки та охорони праці.
Впроцесі виконання практичного завдання було поглиблено вивчено закріплено теоретичні знання, які було отримано під час лекцій та практичних занять.
Для вирішення практичних завдань було використано мови C++ та Delphi.
На даній практиці я працював в таких середовищах розробки як: C++ Builder Berlin 10.1, Delphi 2010, PTC MathCad Prime 4.0. Microsoft Word 2016.
перелік джерел
1. Т.В. Ковалюк «Основи програмування» – Видавнича група BVH,
2005. – 851 стр.
2. Я.Н.Глинський, В.Є. Анохін, В.А. Ряжська – «Turbo Paskal 7.0 и Delphi» – ООО «ДиаСофтЮП», 2001. - 667 стр.
3. Фаронов В.В. Delphi 10. Учбовий курс. – М. Нолідж, 2008. – 425 стр.
4. A.I. Плис, Н.А. Сливина: MathCad – «Математичний практикум для інженерів і економістів» – ООО «Типография «Новости», 2002. – 655 стр.
5. Глинський Я.М., Анохін В.Є., РяжковськаВ.А. С++ і С++ Builder: Навч. Посібн. 5-те вид. – Львів. СПД Глинський, 2011. – 192 стр.
додаток
1.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, pngimage, ExtCtrls;
type
TForm2 = class(TForm)
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Label1: TLabel;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var a,b,c,s:double;
x:integer;
begin
a := strtofloat(Edit1.Text);
b := strtofloat(Edit2.Text);
c := strtofloat(Edit3.Text);
s := a*b;
if c>s then
begin
Label1.Visible := true;
Label1.Caption := 'Розмір килима > кімнати.';
end
else
begin
x := trunc(s/c);
Label1.Visible := true;
Label1.Caption := inttostr(x) + ' килим(-а,-ів) потрібно, щоб накрити площу кімнати. ' + floattostr(c/s * 100) + '% ненакрито';
Form1.Close := true;
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Close;
end;
end.
2.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, pngimage, ExtCtrls;
type
TForm3 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Image1: TImage;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
var
x1, x2, x3, xi, fac, i: integer;
s: double;
begin
s := 0;
x1 := 1;
x2 := 1;
x3 := 1;
fac := 1;
Memo1.Lines.Add('Перевірка значень:');
for i := 1 to 16 do begin
fac := fac * i;
if i <= 3 then xi := 1 else xi := x3 - x1;
Memo1.Lines.Add('a(' + IntToStr(i) + ') = '+ IntToStr(xi));
s := s + xi / fac;
x1 := x2; x2 := x3; x3 := xi;
end;
Memo1.Lines.Add('Сума = ' + FloatToStr(s));
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
Form3.Close;
end;
end.
3.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls, pngimage;
type
TForm3 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
StringGrid2: TStringGrid;
StaticText1: TStaticText;
StaticText2: TStaticText;
Image1: TImage;
Label1: TLabel;
Image2: TImage;
Image3: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
var
n,i,j,k,q,y:integer;
a : array[1..8] of integer;
b : array[1..8] of integer;
c : array[1..16] of integer;
begin
y:=0;
for i := 1 to 16 do c[i] := 0;
for i := 1 to 8 do begin
a[i]:= Random(10) - 5;
b[i]:= Random(10) - 5;
StringGrid1.Cells[i-1,0]:=inttostr(a[i]);
StringGrid1.Cells[i-1,1]:=inttostr(b[i]);
end;
q := 1;
j := 1;
for i := 1 to 8 do begin
if a[i] > 0 then begin
c[j]:=a[i];
j := j+1;
end;
end;
for k:= 1 to 8 do begin
if b[k] > 0 then begin
c[j]:=b[k];
j := j+1;
end;
end;
for i := 1 to 8 do begin
if a[i] < 0 then begin
c[j]:=a[i];
j := j+1;
end;
end;
for k:= 1 to 8 do begin
if b[k] < 0 then begin
c[j]:=b[k];
j := j+1;
end;
end;
Label1.Visible := true;
Image2.Visible := true;
Image3.Visible := true;
StringGrid2.Visible := true;
for k := 1 to 16 do StringGrid2.Cells[k-1,y]:=inttostr(c[k]);
end;
end.
4.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, pngimage, ExtCtrls, Menus;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
MainMenu1: TMainMenu;
N1: TMenuItem;
N11: TMenuItem;
N21: TMenuItem;
N31: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure Image1MouseEnter(Sender: TObject);
procedure Image1MouseLeave(Sender: TObject);
procedure Image2MouseEnter(Sender: TObject);
procedure Image2MouseLeave(Sender: TObject);
procedure Image3MouseEnter(Sender: TObject);
procedure Image3MouseLeave(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4MouseEnter(Sender: TObject);
procedure Image4MouseLeave(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TForm1.Image1Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
Image1.Picture.LoadFromFile('D:\Practic\4 exercise\BG,Buttons\Button1.Activate.png');
end;
procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
Image1.Picture.LoadFromFile('D:\Practic\4 exercise\BG,Buttons\Button1.png');
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
Form3.Show;
Form1.Hide;
end;
procedure TForm1.Image2MouseEnter(Sender: TObject);
begin
Image2.Picture.LoadFromFile('D:\Practic\4 exercise\BG,Buttons\Button2.Activate.png');
end;
procedure TForm1.Image2MouseLeave(Sender: TObject);
begin
Image2.Picture.LoadFromFile('D:\Practic\4 exercise\BG,Buttons\Button2.png');
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
Form4.Show;
Form1.Hide;
end;
procedure TForm1.Image3MouseEnter(Sender: TObject);
begin
Image3.Picture.LoadFromFile('D:\Practic\4 exercise\BG,Buttons\Button3.Activate.png');
end;
procedure TForm1.Image3MouseLeave(Sender: TObject);
begin
Image3.Picture.LoadFromFile('D:\Practic\4 exercise\BG,Buttons\Button3.png');
end;
procedure TForm1.Image4Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Image4MouseEnter(Sender: TObject);
begin
Image4.Picture.LoadFromFile('D:\Practic\4 exercise\BG,Buttons\Exit.Activate.png');
end;
procedure TForm1.Image4MouseLeave(Sender: TObject);
begin
Image4.Picture.LoadFromFile('D:\Practic\4 exercise\BG,Buttons\Exit.png');
end;
procedure TForm1.N11Click(Sender: TObject);
begin
Exercise1.Show;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
Exercise2.Show;
end;
procedure TForm1.N2Click(Sender: TObject);
var point :tpoint;
begin
Form8.Show;
end;
procedure TForm1.N31Click(Sender: TObject);
begin
Exercise3.Show;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form9.Show;
end;
end.
5.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, pngimage, StdCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N1801: TMenuItem;
N901: TMenuItem;
Image3: TImage;
PopupMenu2: TPopupMenu;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N1802: TMenuItem;
N902: TMenuItem;
N1803: TMenuItem;
N903: TMenuItem;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
PopupMenu3: TPopupMenu;
PopupMenu4: TPopupMenu;
PopupMenu5: TPopupMenu;
PopupMenu6: TPopupMenu;
PopupMenu7: TPopupMenu;
PopupMenu8: TPopupMenu;
PopupMenu9: TPopupMenu;
PopupMenu10: TPopupMenu;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
UpLeft1: TMenuItem;
UpRight1: TMenuItem;
N1804: TMenuItem;
N904: TMenuItem;
N1805: TMenuItem;
N905: TMenuItem;
N180901: TMenuItem;
N906: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N1806: TMenuItem;
N907: TMenuItem;
N1807: TMenuItem;
N908: TMenuItem;
N1808: TMenuItem;
N909: TMenuItem;
N1809: TMenuItem;
N9010: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N9029: TMenuItem;
UpLeft5: TMenuItem;
UpRight7: TMenuItem;
N38: TMenuItem;
N39: TMenuItem;
N40: TMenuItem;
N41: TMenuItem;
N18029: TMenuItem;
N9030: TMenuItem;
N18030: TMenuItem;
N9031: TMenuItem;
N18031: TMenuItem;
N9032: TMenuItem;
UpLeft6: TMenuItem;
UpRight8: TMenuItem;
PopupMenu11: TPopupMenu;
PopupMenu12: TPopupMenu;
PopupMenu13: TPopupMenu;
PopupMenu14: TPopupMenu;
PopupMenu15: TPopupMenu;
PopupMenu16: TPopupMenu;
PopupMenu17: TPopupMenu;
PopupMenu18: TPopupMenu;
PopupMenu19: TPopupMenu;
PopupMenu20: TPopupMenu;
PopupMenu21: TPopupMenu;
PopupMenu22: TPopupMenu;
N42: TMenuItem;
N43: TMenuItem;
N44: TMenuItem;
N45: TMenuItem;
N18032: TMenuItem;
N01: TMenuItem;
N18033: TMenuItem;
N9033: TMenuItem;
N18034: TMenuItem;
N9034: TMenuItem;
UpLeft7: TMenuItem;
UpRight9: TMenuItem;
Htpcnjh1: TMenuItem;
N46: TMenuItem;
N47: TMenuItem;
N48: TMenuItem;
N18035: TMenuItem;
N9035: TMenuItem;
N18036: TMenuItem;
N9036: TMenuItem;
N18037: TMenuItem;
N9037: TMenuItem;
UpLeft8: TMenuItem;
UpRight10: TMenuItem;
N49: TMenuItem;
N50: TMenuItem;
N51: TMenuItem;
N52: TMenuItem;
N18038: TMenuItem;
N9038: TMenuItem;
N18039: TMenuItem;
N9039: TMenuItem;
N18040: TMenuItem;
N9040: TMenuItem;
UpLeft9: TMenuItem;
UpRight11: TMenuItem;
N53: TMenuItem;
N54: TMenuItem;
N55: TMenuItem;
N56: TMenuItem;
N18041: TMenuItem;
N9041: TMenuItem;
N18042: TMenuItem;
N9042: TMenuItem;
N18043: TMenuItem;
N9043: TMenuItem;
UpLeft10: TMenuItem;
UpRight12: TMenuItem;
N57: TMenuItem;
N58: TMenuItem;
N59: TMenuItem;
N60: TMenuItem;
N18044: TMenuItem;
N9044: TMenuItem;
N18045: TMenuItem;
N9045: TMenuItem;
N18046: TMenuItem;
N9046: TMenuItem;
UpLefty1: TMenuItem;
UpDown1: TMenuItem;
N61: TMenuItem;
N62: TMenuItem;
N63: TMenuItem;
N64: TMenuItem;
N18047: TMenuItem;
N9047: TMenuItem;
N18048: TMenuItem;
N9048: TMenuItem;
N18049: TMenuItem;
N9049: TMenuItem;
UpLeft11: TMenuItem;
UpRight13: TMenuItem;
N65: TMenuItem;
N66: TMenuItem;
N67: TMenuItem;
N68: TMenuItem;
N18050: TMenuItem;
N9050: TMenuItem;
N18051: TMenuItem;
N9051: TMenuItem;
N18052: TMenuItem;
N9052: TMenuItem;
UpLeft12: TMenuItem;
UpRight14: TMenuItem;
N69: TMenuItem;
N70: TMenuItem;
N71: TMenuItem;
N72: TMenuItem;
N18053: TMenuItem;
N9053: TMenuItem;
N18054: TMenuItem;
N9054: TMenuItem;
N18055: TMenuItem;
N9055: TMenuItem;
UpLeft13: TMenuItem;
UpRight15: TMenuItem;
N73: TMenuItem;
N74: TMenuItem;
N75: TMenuItem;
N76: TMenuItem;
N18056: TMenuItem;
N9056: TMenuItem;
N18057: TMenuItem;
N9057: TMenuItem;
N18058: TMenuItem;
N9058: TMenuItem;
UpLeft14: TMenuItem;
UpRight16: TMenuItem;
N77: TMenuItem;
N78: TMenuItem;
N79: TMenuItem;
N80: TMenuItem;
N18059: TMenuItem;
N9059: TMenuItem;
N18060: TMenuItem;
N9060: TMenuItem;
N18061: TMenuItem;
N91: TMenuItem;
UpRight17: TMenuItem;
UpLeft15: TMenuItem;
N81: TMenuItem;
N82: TMenuItem;
N83: TMenuItem;
N84: TMenuItem;
N18062: TMenuItem;
N9061: TMenuItem;
N18063: TMenuItem;
N9062: TMenuItem;
N101: TMenuItem;
N9063: TMenuItem;
UpLeft16: TMenuItem;
UpRight18: TMenuItem;
Htpbcnjh1: TMenuItem;
N85: TMenuItem;
N86: TMenuItem;
N87: TMenuItem;
N18064: TMenuItem;
N9064: TMenuItem;
N18065: TMenuItem;
N9065: TMenuItem;
N18066: TMenuItem;
DownLeft10: TMenuItem;
DownRight10: TMenuItem;
DownLeft11: TMenuItem;
DownRight11: TMenuItem;
DownLeft12: TMenuItem;
DownRight12: TMenuItem;
DownLeft13: TMenuItem;
DownRigh1: TMenuItem;
DrowLeft1: TMenuItem;
DrowRight1: TMenuItem;
DownLeft14: TMenuItem;
DownRight13: TMenuItem;
DownLeft15: TMenuItem;
DownRight14: TMenuItem;
DownLeft16: TMenuItem;
DownRight15: TMenuItem;
DownLeft17: TMenuItem;
DownRight16: TMenuItem;
DownLeft18: TMenuItem;
DownRight17: TMenuItem;
DownLeft19: TMenuItem;
DownRight18: TMenuItem;
DownLeft20: TMenuItem;
DownRight19: TMenuItem;
DownLeft21: TMenuItem;
DownRight20: TMenuItem;
DownRight21: TMenuItem;
DownRight22: TMenuItem;
DownLeft22: TMenuItem;
DownRight23: TMenuItem;
DownLeft23: TMenuItem;
DownRight24: TMenuItem;
DownLeft24: TMenuItem;
DownRight25: TMenuItem;
DownLeft25: TMenuItem;
DownRight26: TMenuItem;
MainMenu1: TMainMenu;
N112: TMenuItem;
N113: TMenuItem;
Button1: TButton;
procedure N1801Click(Sender: TObject);
procedure N901Click(Sender: TObject);
procedure N1803Click(Sender: TObject);
procedure N903Click(Sender: TObject);
procedure N1802Click(Sender: TObject);
procedure N902Click(Sender: TObject);
procedure N18019Click(Sender: TObject);
procedure N9020Click(Sender: TObject);
procedure UpLeft3Click(Sender: TObject);
procedure UpRight4Click(Sender: TObject);
procedure N1804Click(Sender: TObject);
procedure N904Click(Sender: TObject);
procedure N1805Click(Sender: TObject);
procedure N905Click(Sender: TObject);
procedure N180901Click(Sender: TObject);
procedure N906Click(Sender: TObject);
procedure UpLeft1Click(Sender: TObject);
procedure UpRight1Click(Sender: TObject);
procedure N18011Click(Sender: TObject);
procedure N9012Click(Sender: TObject);
procedure N18010Click(Sender: TObject);
procedure N9011Click(Sender: TObject);
procedure Up1Click(Sender: TObject);
procedure UpRight2Click(Sender: TObject);
procedure N1806Click(Sender: TObject);
procedure N907Click(Sender: TObject);
procedure N1807Click(Sender: TObject);
procedure N908Click(Sender: TObject);
procedure N1808Click(Sender: TObject);
procedure N909Click(Sender: TObject);
procedure N1809Click(Sender: TObject);
procedure N9010Click(Sender: TObject);
procedure N18012Click(Sender: TObject);
procedure N9013Click(Sender: TObject);
procedure N18013Click(Sender: TObject);
procedure N9014Click(Sender: TObject);
procedure N18014Click(Sender: TObject);
procedure N9015Click(Sender: TObject);
procedure UpLeft2Click(Sender: TObject);
procedure UpRight3Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N9016Click(Sender: TObject);
procedure N18016Click(Sender: TObject);
procedure N9017Click(Sender: TObject);
procedure N18017Click(Sender: TObject);
procedure N9018Click(Sender: TObject);
procedure N18018Click(Sender: TObject);
procedure N9019Click(Sender: TObject);
procedure N18020Click(Sender: TObject);
procedure N9021Click(Sender: TObject);
procedure N18021Click(Sender: TObject);
procedure N9022Click(Sender: TObject);
procedure N18022Click(Sender: TObject);
procedure N9023Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure UpRight5Click(Sender: TObject);
procedure N18023Click(Sender: TObject);
procedure N9024Click(Sender: TObject);
procedure N18024Click(Sender: TObject);
procedure N9025Click(Sender: TObject);
procedure N18025Click(Sender: TObject);
procedure N9026Click(Sender: TObject);
procedure UpLeft4Click(Sender: TObject);
procedure UpRight6Click(Sender: TObject);
procedure N18026Click(Sender: TObject);
procedure N9027Click(Sender: TObject);
procedure N18027Click(Sender: TObject);
procedure N9028Click(Sender: TObject);
procedure N18028Click(Sender: TObject);
procedure N9029Click(Sender: TObject);
procedure N18029Click(Sender: TObject);
procedure N9030Click(Sender: TObject);
procedure N90107Click(Sender: TObject);
procedure DownLeft1Click(Sender: TObject);
procedure DownRight1Click(Sender: TObject);
procedure DownLeft2Click(Sender: TObject);
procedure DownRight2Click(Sender: TObject);
procedure DownLeft3Click(Sender: TObject);
procedure DownRight3Click(Sender: TObject);
procedure DownLeft4Click(Sender: TObject);
procedure DownRight4Click(Sender: TObject);
procedure DownLeft5Click(Sender: TObject);
procedure DownRight5Click(Sender: TObject);
procedure DownLeft6Click(Sender: TObject);
procedure DownRight6Click(Sender: TObject);
procedure DownLeft7Click(Sender: TObject);
procedure DownRight7Click(Sender: TObject);
procedure DownLeft8Click(Sender: TObject);
procedure DownRight8Click(Sender: TObject);
procedure DownLeft9Click(Sender: TObject);
procedure DownRight9Click(Sender: TObject);
procedure DownLeft10Click(Sender: TObject);
procedure DownRight10Click(Sender: TObject);
procedure DownLeft11Click(Sender: TObject);
procedure DownRight11Click(Sender: TObject);
procedure DownLeft12Click(Sender: TObject);
procedure DownRight12Click(Sender: TObject);
procedure DownLeft13Click(Sender: TObject);
procedure DownRigh1Click(Sender: TObject);
procedure DrowLeft1Click(Sender: TObject);
procedure DrowRight1Click(Sender: TObject);
procedure DownLeft14Click(Sender: TObject);
procedure DownRight13Click(Sender: TObject);
procedure DownLeft15Click(Sender: TObject);
procedure DownRight14Click(Sender: TObject);
procedure DownLeft16Click(Sender: TObject);
procedure DownRight15Click(Sender: TObject);
procedure DownLeft17Click(Sender: TObject);
procedure DownRight16Click(Sender: TObject);
procedure DownLeft18Click(Sender: TObject);
procedure DownRight17Click(Sender: TObject);
procedure DownLeft19Click(Sender: TObject);
procedure DownRight18Click(Sender: TObject);
procedure DownLeft20Click(Sender: TObject);
procedure DownRight19Click(Sender: TObject);
procedure DownLeft21Click(Sender: TObject);
procedure DownRight20Click(Sender: TObject);
procedure DownRight21Click(Sender: TObject);
procedure DownRight22Click(Sender: TObject);
procedure DownLeft22Click(Sender: TObject);
procedure DownRight23Click(Sender: TObject);
procedure DownLeft23Click(Sender: TObject);
procedure DownRight24Click(Sender: TObject);
procedure DownLeft24Click(Sender: TObject);
procedure DownRight25Click(Sender: TObject);
procedure DownLeft25Click(Sender: TObject);
procedure DownRight26Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N112Click(Sender: TObject);
procedure N113Click(Sender: TObject);
procedure Image12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.DownLeft10Click(Sender: TObject);
begin
Image11.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft11Click(Sender: TObject);
begin
Image12.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft12Click(Sender: TObject);
begin
Image13.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft13Click(Sender: TObject);
begin
Image14.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft14Click(Sender: TObject);
begin
Image16.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft15Click(Sender: TObject);
begin
Image17.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft16Click(Sender: TObject);
begin
Image18.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft17Click(Sender: TObject);
begin
Image19.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft18Click(Sender: TObject);
begin
Image20.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft19Click(Sender: TObject);
begin
Image21.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft1Click(Sender: TObject);
begin
Image2.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft20Click(Sender: TObject);
begin
Image22.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft21Click(Sender: TObject);
begin
Image23.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft22Click(Sender: TObject);
begin
Image25.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft24Click(Sender: TObject);
begin
Image27.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft25Click(Sender: TObject);
begin
Image28.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft2Click(Sender: TObject);
begin
Image3.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft3Click(Sender: TObject);
begin
Image4.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft4Click(Sender: TObject);
begin
Image5.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft5Click(Sender: TObject);
begin
Image6.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft6Click(Sender: TObject);
begin
Image7.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft7Click(Sender: TObject);
begin
Image8.Picture.LoadFromFile('left_down.png');
end;
procedure TForm1.DownLeft8Click(Sender: TObject);
begin
Image9.Picture.LoadFromFile('left_down.png');
end;