Трасса сборки печатных плат

Автоматизировать процесс установки радиоэлементов на печатную плату (ПП)






Состав задания



1.сравнить варианты компоновки установки сборки печатных плат: позиционирует только сборочный манипулятор (М), позиционируют М, ПП и магазин с радиоэлементами. Обосновать выбор предпочтительного варианта по ТЭП (производительность, надёжность, стоимость проекта, удобство обслуживания и ремонта и др.).

2.Разработать циклограмму работы установки сборки ПП и дать ее описание с помощью логических уравнений.

3.Построить имитационную модель установки сборки ПП с использованием сети Петри. Дать первоначальную маркировку сети и представить фрагмент графа достижимости (3..4 шага), составить матрицы входных и выходных инциденций.

4.Разработать программу функционирования модели с учётом следующих ситуаций:

М имеет 1,2,3,4 захвата;

М позиционирует по двум координатам X и Y, а ПП и пенальный магазин (ПМ) неподвижны;

М позиционирует только по координате X, а ПП и ПМ – по координате Y.

5.Разработать функциональную схему устройства управления (УУ) по логическим уравнениям (допускается фрагмент схемы). Дать рекомендацию по выбору элементной базы логической части УУ (контактная, бесконтактная, программируемый контроллер).

6.Составить общую структурную схему системы управления (СУ) и обосновать выбор аппаратной или программной реализации алгоритма управления объектом.

7.Составить перечень исполнительных механизмов и обосновать для них выбор подходящего типа привода (электрический, пневматический, гидравлический, комбинированный).

8.Представить схему подачи ПП в позицию сборки и фиксации её.

9.Разработать конструктивную схему захватного устройства для ИМС со штырьковыми выводами.

10.Предложить принцип контроля правильности установки выводов ИМС в отверстия ПП (ИМС с деформированными выводами должна быть отбракована).

Исходные данные.

Начало цикла – подача из накопителя ПП в позицию сборки.

Окончание цикла – выгрузка собранной ПП в накопитель.

Тактовое время установки ИМС на ПП – не более 1,5 секунд.

Масса радиоэлемента – порядка 20..30 г.

Производство серийное.




1.ЦИКЛОГРАММА РАБОТЫ ТРАССЫ





Рис.1 Циклограмма работы трассы.



Примечание: время цикла ТЦ – время, необходимое на выпуск одной ПП, т.е. периодичность сборки.



Обозначения

Шаб – подача шабером ПП из магазина ПП.

ШД – подача на 1 шаг ленты с резисторами.

Ф – фиксация ПП в позиции сборки.

Выр – вырубка резистора из ленты.

Взят – взятие манипулятором радиоэлемента.

Форм – формовка выводов радиоэлементов.

Поз – позиционирование для установки радиоэлемента.

УРЭ – установка радиоэлемента на ПП.

Подг – общий подгиб выводов радиоэлементов.

Выгр – выгрузка собранной ПП в накопитель собранных плат.

СОБЫТИЯ:

t1 – ПП подана шабером из магазина.

t2 – лента с резисторами отмотана на 1 шаг.

t3 – ПП зафиксирована.

t4 – резистор вырублен из липкой ленты.

t5– радиоэлемент взят захватным устройством манипулятора.

t6 – выводы радиоэлемента отформованы.

t7– ПП выставлена в нужную точку по координатам X,Y..

t8 – радиоэлемент установлен на ПП.

t9 – манипулятор перешёл в позицию выдачи следующего радиоэлемента.

t10 – произведён общий подгиб выводов радиоэлементов.

t11 – ПП расфиксирована.

t12 – ПП выгружена в накопитель собранных плат.






2.Имитационная модель автомата сборки с использованием сети Петри



Название условия

№



№

Название события

Наличие ПП в магазине

P1



t1

ПП подана шабером на место сборки

Свободно место сборки

P2



t2

Лента с резисторами смотана на один шаг

Привод подачи ленты резисторов исправен

P3



t3

ПП зафиксирована

Фиксатор работает нормально

P4



t4

Резистор вырублен из ленты

Устройство по вырубке резисторов исправно

P5



t5

Радиоэлемент взят ЗУ манипулятора

ЗУ манипулятора в позиции выдачи радиоэлемента 

P6



t6

Выводы радиоэлемента отформованы

Радиоэлемент можно брать с помощью манипулятора

P7



t7

ПП выставлена в нужную точку

Наличие ЗУ с радиоэлементом в позиции формовки выводов.

P8



t8

Радиоэлемент установлен на ПП

Устройство по формовке выводов исправно

P9



t9

манипулятор перешёл в позицию выдачи следующего радиоэлемента

ПП позиционирует по координатам X,Y

P10



t10

произведён общий подгиб выводов радиоэлементов

Правильное совмещение выводов радиоэлементов и отверстий ПП



P11



t11

ПП расфиксирована

Установлены все радиоэлементы

P12



t12

ПП выгружена в накопитель собранных плат

Устройство по подгибу выводов исправно

P13







Фиксатор работает нормально

P14







Исправен выгружающий робот

Р15







Наличие свободного места в накопителе собранных ПП

Р16







Табл. 1 Таблица условий и событий





	Рис.2 Сеть Петри.




	

	Рис. 3 Сеть Петри с конфликтными ситуациями.

	

	t13 – манипулятор выставил радиоэлемент по координате X.

	t14 – ПП выставлена по координате Y.

	t15 – манипулятор взял 3 радиоэлемента.

	t16 – манипулятор выставил радиоэлемент по координатам XY.

	Р16 – ПП позиционирует по координате Y.

	

	3.ГРАФ ДОСТИЖИМОСТИ

	

	1110 0000 1000 1001 0

	                        

	

	                                         t1                                        t2

	

	

	           0011 0000 1000 1001 0                                                           1100 1000 1000 1001 0

	

	                        t3                                                             t4

	

	          0010 0100 1000 1001 0                                                            1100 0010 1000 1001 0

	

	            t15                                                

	          

	                                    t15                                                  t5

	                                                                                                  t5

	0010 0001 1000 1001 0                                                                 0000 0000 1100 1001 0

	                                                        

	

	МАТРИЦА ВХОДНЫХ ИНЦИДЕНЦИЙ (F)

	

	t1

	t2

	t3

	t4

	t5

	t6

	t7

	t8

	t9

	t10

	T11

	t12

	t13

	t14

	t15

	t16

	Р1

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	Р2

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	Р3

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	Р4

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	Р5

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	Р6

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	Р7

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	Р8

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	Р9

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	Р10

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	1

	0

	0

	1

	Р11

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	Р12

	0

	0

	

	0

	0

	0

	0

	0

	1

	1

	0

	0

	0

	0

	0

	0

	Р13

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	Р14

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	Р15

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	Р16

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	Р17

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	

	МАТРИЦА ВЫХОДНЫХ ИНЦИДЕНЦИЙ (Н)

	

	Р1

	Р2

	Р3

	Р4

	Р5

	Р6

	Р7

	Р8

	Р9

	Р10

	Р11

	Р12

	Р13

	Р14

	Р15

	Р16

	Р17

	t1

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	t2

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	t3

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	t4

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	t5

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	t6

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	t7

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	t8

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	t9

	0

	0

	0

	0

	0

	1

	1

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	t10

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	t11

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	t12

	1

	1

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	1

	0

	t13

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	t14

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	t15

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	t16

	0

	0

	0

	0

	0

	0

	0

	0

	0

	0

	1

	0

	0

	0

	0

	0

	0

	

	4. Программа функционирования модели (Visual Basic 6.0)

	

	Private Sub EXIT_Click()

	End

	End Sub

	

	Private Sub ishodnoe_2_Click()

	shiber.Left = 0

	shiber.Visible = True

	Timershiber_2.Enabled = False

	Timershiber.Enabled = False

	TimerSHIBER_3.Enabled = False

	Timershiber_obr.Enabled = False

	Timershiber_2_OBR.Enabled = False

	TimerSHIBER_3_OBR.Enabled = False

	TimerSHIBER_4.Enabled = False

	TimerSHIBER_4_OBR.Enabled = False

	pp.Left = 1320

	pp.Visible = True

	TimerPP_2.Enabled = False

	TimerPP_3.Enabled = False

	Timerpp.Enabled = False

	TimerPP_obr.Enabled = False

	TimerPP_4.Enabled = False

	PPZ.Left = 2600

	PPZ.Visible = False

	TimerPPZ_2.Enabled = False

	TimerPPZ_3.Enabled = False

	TimerPPZ.Enabled = False

	TimerPPz_OBR.Enabled = False

	TimerPPZ_4.Enabled = False

	R.Top = 2160

	R.Left = 3840

	TimerPOZR.Enabled = False

	MR.Top = 1680

	MR.Left = 3840

	R.Visible = True

	ZR.Left = 3480

	ZR.Visible = False

	TimerZR_2.Enabled = False

	TimerZR.Enabled = False

	TimerZR_OBR.Enabled = False

	TimerZR_4.Enabled = False

	imc.Left = 4800

	imc.Top = 2040

	TimerPOZIMC.Enabled = False

	MIMC.Left = 4800

	MIMC.Top = 1560

	imc.Visible = True

	ZRIMC.Left = 4500

	ZRIMC.Visible = False

	TimerZRIMC_2.Enabled = False

	TimerZRIMC.Enabled = False

	TimerZrimc_obr.Enabled = False

	TimerZRIMC_4.Enabled = False

	imc2.Left = 6360

	imc2.Top = 2160

	TimerPOZIMC2.Enabled = False

	imc2.Visible = True

	MIMC2.Left = 6360

	MIMC2.Top = 1800

	pimc2.Left = 5520

	pimc2.Visible = False

	Timerpimc2.Enabled = False

	Timerpimc2_obr.Enabled = False

	TimerPIMC2_4.Enabled = False

	VYGR.Left = 7755

	VYGR.Visible = False

	TimerVYGR.Enabled = False

	Timervygr_obr.Enabled = False

	gotov.Visible = False

	POZPP.Visible = False

	POZPP_MAN.Visible = False

	ZY_3.Visible = False

	MAN.Visible = False

	Line46.Visible = True

	Line47.Visible = True

	NR.Left = 3720

	NR.Top = 1320

	NIMC.Left = 4800

	NIMC.Top = 1080

	NIMC2.Left = 6240

	NIMC2.Top = 1320

	End Sub

	

	Private Sub ISHODNOE_3_Click()

	shiber.Left = 0

	shiber.Visible = True

	Timershiber.Enabled = False

	Timershiber_obr.Enabled = False

	Timershiber_2.Enabled = False

	TimerSHIBER_3.Enabled = False

	Timershiber_2_OBR.Enabled = False

	TimerSHIBER_3_OBR.Enabled = False

	TimerSHIBER_4.Enabled = False

	TimerSHIBER_4_OBR.Enabled = False

	pp.Left = 1320

	pp.Visible = True

	Timerpp.Enabled = False

	TimerPP_obr.Enabled = False

	TimerPP_2.Enabled = False

	TimerPP_3.Enabled = False

	TimerPP_4.Enabled = False

	PPZ.Left = 2640

	PPZ.Top = 3000

	PPZ.Visible = False

	TimerPPZ.Enabled = False

	TimerPPz_OBR.Enabled = False

	TimerPPZ_2.Enabled = False

	TimerPPZ_3.Enabled = False

	TimerPPZ_4.Enabled = False

	R.Top = 1440

	R.Left = 6000

	TimerPOZR.Enabled = False

	R.Visible = True

	MR.Left = 6000

	MR.Top = 1080

	ZR.Left = 3480

	ZR.Top = 2520

	ZR.Visible = False

	TimerZR.Enabled = False

	TimerZR_OBR.Enabled = False

	TimerZR_2.Enabled = False

	TimerZR_4.Enabled = False

	imc.Top = 2160

	imc.Left = 5760

	TimerPOZIMC.Enabled = False

	imc.Visible = True

	MIMC.Left = 5760

	MIMC.Top = 1680

	ZRIMC.Left = 4500

	ZRIMC.Top = 2700

	ZRIMC.Visible = False

	TimerZRIMC.Enabled = False

	TimerZrimc_obr.Enabled = False

	TimerZRIMC_2.Enabled = False

	TimerZRIMC_4.Enabled = False

	imc2.Top = 2160

	imc2.Left = 6520

	TimerPOZIMC2.Enabled = False

	imc2.Visible = True

	MIMC2.Left = 6520

	MIMC2.Top = 1800

	pimc2.Left = 5520

	pimc2.Top = 3000

	pimc2.Visible = False

	Timerpimc2.Enabled = False

	Timerpimc2_obr.Enabled = False

	TimerPIMC2_4.Enabled = False

	VYGR.Left = 7755

	VYGR.Visible = False

	TimerVYGR.Enabled = False

	Timervygr_obr.Enabled = False

	gotov.Visible = False

	POZPP.Visible = False

	POZPP_MAN.Visible = False

	ZY_3.Visible = False

	MAN.Visible = False

	Line46.Visible = False

	Line47.Visible = False

	NR.Left = 6000

	NR.Top = 800

	NIMC.Left = 5600

	NIMC.Top = 1300

	NIMC2.Left = 6540

	NIMC2.Top = 1320

	End Sub

	печатный плата трасса циклограмма

	Private Sub ishodnoe_4_Click()

	shiber.Left = 0

	shiber.Visible = True

	Timershiber.Enabled = False

	Timershiber_obr.Enabled = False

	Timershiber_2.Enabled = False

	Timershiber_2_OBR.Enabled = False

	TimerSHIBER_3.Enabled = False

	TimerSHIBER_3_OBR.Enabled = False

	TimerSHIBER_4.Enabled = False

	TimerSHIBER_4_OBR.Enabled = False

	pp.Left = 1320

	pp.Visible = True

	Timerpp.Enabled = False

	TimerPP_obr.Enabled = False

	TimerPP_2.Enabled = False

	TimerPP_3.Enabled = False

	TimerPP_4.Enabled = False

	PPZ.Left = 2640

	PPZ.Top = 3000

	PPZ.Visible = False

	TimerPPZ.Enabled = False

	TimerPPz_OBR.Enabled = False

	TimerPPZ_2.Enabled = False

	TimerPPZ_3.Enabled = False

	TimerPPZ_3.Enabled = False

	R.Top = 2160

	R.Left = 3840

	TimerPOZR.Enabled = False

	R.Visible = True

	MR.Left = 3840

	MR.Top = 1680

	ZR.Left = 3480

	ZR.Top = 2520

	ZR.Visible = False

	TimerZR.Enabled = False

	TimerZR_OBR.Enabled = False

	TimerZR_2.Enabled = False

	TimerZR_4.Enabled = False

	imc.Top = 2040

	imc.Left = 4800

	TimerPOZIMC.Enabled = False

	imc.Visible = True

	MIMC.Left = 4800

	MIMC.Top = 1560

	ZRIMC.Left = 4500

	ZRIMC.Top = 2700

	ZRIMC.Visible = False

	TimerZRIMC.Enabled = False

	TimerZrimc_obr.Enabled = False

	TimerZRIMC_2.Enabled = False

	TimerZRIMC_4.Enabled = False

	imc2.Top = 2160

	imc2.Left = 5880

	TimerPOZIMC2.Enabled = False

	imc2.Visible = True

	MIMC2.Left = 5880

	MIMC2.Top = 1800

	pimc2.Left = 5520

	pimc2.Top = 3000

	pimc2.Visible = False

	Timerpimc2.Enabled = False

	Timerpimc2_obr.Enabled = False

	TimerPIMC2_4.Enabled = False

	VYGR.Left = 7755

	VYGR.Visible = False

	TimerVYGR.Enabled = False

	Timervygr_obr.Enabled = False

	gotov.Visible = False

	POZPP.Visible = False

	POZPP_MAN.Visible = False

	ZY_3.Visible = False

	MAN.Visible = False

	Line46.Visible = True

	Line47.Visible = True

	NR.Left = 3720

	NR.Top = 1320

	NIMC.Left = 4800

	NIMC.Top = 1080

	NIMC2.Left = 5800

	NIMC2.Top = 1320

	End Sub

	Private Sub start_2_Click()

	Timershiber_2.Enabled = True

	TimerPP_2.Enabled = True

	POZPP_MAN.Visible = True

	End Sub

	

	Private Sub START_4_Click()

	TimerSHIBER_4.Enabled = True

	TimerPP_4.Enabled = True

	MAN.Visible = True

	End Sub

	

	Private Sub START3_Click()

	TimerSHIBER_3.Enabled = True

	TimerPP_3.Enabled = True

	ZY_3.Visible = True

	End Sub

	

	Private Sub ishodnoe_1_Click()

	shiber.Left = 0

	shiber.Visible = True

	Timershiber.Enabled = False

	Timershiber_obr.Enabled = False

	Timershiber_2.Enabled = False

	Timershiber_2_OBR.Enabled = False

	TimerSHIBER_3.Enabled = False

	TimerSHIBER_3_OBR.Enabled = False

	TimerSHIBER_4.Enabled = False

	TimerSHIBER_4_OBR.Enabled = False

	pp.Left = 1320

	pp.Visible = True

	Timerpp.Enabled = False

	TimerPP_obr.Enabled = False

	TimerPP_2.Enabled = False

	TimerPP_3.Enabled = False

	TimerPP_4.Enabled = False

	PPZ.Left = 2640

	PPZ.Top = 3000

	PPZ.Visible = False

	TimerPPZ.Enabled = False

	TimerPPz_OBR.Enabled = False

	TimerPPZ_2.Enabled = False

	TimerPPZ_3.Enabled = False

	TimerPPZ_3.Enabled = False

	R.Top = 2160

	R.Left = 3840

	TimerPOZR.Enabled = False

	R.Visible = True

	MR.Left = 3840

	MR.Top = 1680

	ZR.Left = 3480

	ZR.Top = 2520

	ZR.Visible = False

	TimerZR.Enabled = False

	TimerZR_OBR.Enabled = False

	TimerZR_2.Enabled = False

	TimerZR_4.Enabled = False

	imc.Top = 2040

	imc.Left = 4800

	TimerPOZIMC.Enabled = False

	imc.Visible = True

	MIMC.Left = 4800

	MIMC.Top = 1560

	ZRIMC.Left = 4500

	ZRIMC.Top = 2700

	ZRIMC.Visible = False

	TimerZRIMC.Enabled = False

	TimerZrimc_obr.Enabled = False

	TimerZRIMC_2.Enabled = False

	TimerZRIMC_4.Enabled = False

	imc2.Top = 2160

	imc2.Left = 6360

	TimerPOZIMC2.Enabled = False

	imc2.Visible = True

	MIMC2.Left = 6360

	MIMC2.Top = 1800

	pimc2.Left = 5520

	pimc2.Top = 3000

	pimc2.Visible = False

	Timerpimc2.Enabled = False

	Timerpimc2_obr.Enabled = False

	TimerPIMC2_4.Enabled = False

	VYGR.Left = 7755

	VYGR.Visible = False

	TimerVYGR.Enabled = False

	Timervygr_obr.Enabled = False

	gotov.Visible = False

	POZPP.Visible = False

	POZPP_MAN.Visible = False

	ZY_3.Visible = False

	MAN.Visible = False

	Line46.Visible = True

	Line47.Visible = True

	NR.Left = 3720

	NR.Top = 1320

	NIMC.Left = 4800

	NIMC.Top = 1080

	NIMC2.Left = 6240

	NIMC2.Top = 1320

	End Sub

	

	

	Private Sub start_1_Click()

	Timershiber.Enabled = True

	Timerpp.Enabled = True

	POZPP.Visible = True

	End Sub

	

	Private Sub TimerPIMC2_4_Timer()

	pimc2.Top = pimc2.Top + 100

	pimc2.Left = pimc2.Left + 100

	pimc2.Visible = True

	If pimc2.Top >= 4000 Then

	pimc2.Top = 4000

	If pimc2.Left >= 8000 Then

	TimerPIMC2_4.Enabled = False

	TimerVYGR.Enabled = True

	imc2.Visible = True

	imc2.Left = 5880

	imc2.Top = 2160

	pimc2.Visible = False

	pimc2.Left = 5520

	pimc2.Top = 3000

	End If

	End If

	End Sub

	

	Private Sub Timerpimc2_obr_Timer()

	pimc2.Visible = False

	TimerVYGR.Enabled = True

	pimc2.Left = pimc2.Left - 350

	imc2.Visible = True

	If pimc2.Left <= 5520 Then

	pimc2.Left = 5520

	pimc2.Top = pimc2.Top - 350

	If pimc2.Top < 3000 Then

	Timerpimc2_obr = False

	End If

	End If

	End Sub

	

	Private Sub Timerpimc2_Timer()

	pimc2.Top = pimc2.Top + 100

	pimc2.Left = pimc2.Left + 100

	pimc2.Visible = True

	imc2.Visible = False

	If pimc2.Top >= 4000 Then

	pimc2.Top = 4000

	If pimc2.Left >= 8000 Then

	Timerpimc2.Enabled = False

	Timerpimc2_obr.Enabled = True

	End If

	End If

	End Sub

	

	Private Sub TimerPOZIMC_Timer()

	imc.Left = imc.Left + 50

	R.Visible = True

	R.Left = 3840

	TimerSHIBER_4.Enabled = True

	TimerPP_4.Enabled = True

	If imc.Left >= 5250 Then

	TimerPOZIMC.Enabled = False

	ZR.Visible = False

	ZR.Left = 3000

	ZRIMC.Left = 5000

	ZRIMC.Top = 3000

	imc.Visible = False

	TimerZRIMC_4.Enabled = True

	End If

	End Sub

	

	Private Sub TimerPOZIMC2_Timer()

	imc2.Left = imc2.Left + 50

	imc.Visible = True

	imc.Left = 4800

	If imc2.Left >= 6360 Then

	TimerPOZIMC2.Enabled = False

	imc2.Visible = False

	TimerPIMC2_4.Enabled = True

	ZRIMC.Left = 5000

	ZRIMC.Visible = False

	End If

	End Sub

	

	Private Sub TimerPOZR_Timer()

	R.Left = R.Left - 30

	If R.Left <= 3500 Then

	TimerPOZR.Enabled = False

	R.Visible = False

	ZR.Left = 3000

	ZR.Top = 3000

	PPZ.Visible = False

	PPZ.Left = 2600

	TimerZR_4.Enabled = True

	End If

	End Sub

	

	Private Sub TimerPP_2_Timer()

	pp.Left = pp.Left + 50

	If pp.Left >= 2600 Then

	TimerPP_2.Enabled = False

	PPZ.Visible = True

	TimerPPZ_2.Enabled = True

	End If

	End Sub

	Private Sub TimerPP_3_Timer()

	pp.Left = pp.Left + 50

	If pp.Left >= 2600 Then

	TimerPP_3.Enabled = False

	PPZ.Visible = True

	TimerPPZ_3.Enabled = True

	R.Visible = True

	imc.Visible = True

	imc2.Visible = True

	End If

	End Sub

	

	Private Sub TimerPP_4_Timer()

	pp.Left = pp.Left + 50

	If pp.Left >= 2600 Then

	TimerPP_4.Enabled = False

	PPZ.Visible = True

	TimerPPZ_4.Enabled = True

	End If

	End Sub

	

	Private Sub TimerPP_obr_Timer()

	pp.Left = pp.Left - 50

	If pp.Left <= 1320 Then

	TimerPP_obr.Enabled = False

	pp.Visible = True

	End If

	End Sub

	

	Private Sub Timerpp_Timer()

	pp.Left = pp.Left + 50

	If pp.Left >= 2600 Then

	Timerpp.Enabled = False

	TimerPP_obr.Enabled = True

	pp.Visible = False

	PPZ.Visible = True

	TimerPPZ.Enabled = True

	End If

	End Sub

	

	Private Sub TimerPPZ_2_Timer()

	PPZ.Left = PPZ.Left + 30

	If PPZ.Left > 3480 Then

	ZR.Visible = True

	R.Visible = False

	TimerZR_2.Enabled = True

	TimerPPZ_2.Enabled = False

	PPZ.Left = 2600

	PPZ.Visible = False

	ZR.Left = 3480

	

	ZR.Top = 3000

	End If

	End Sub

	

	Private Sub TimerPPZ_3_Timer()

	PPZ.Left = PPZ.Left + 100

	If PPZ.Left >= 5520 Then

	TimerPPZ_3.Enabled = False

	PPZ.Visible = False

	PPZ.Left = 2600

	TimerSHIBER_3.Enabled = True

	TimerPP_3.Enabled = True

	R.Visible = False

	imc.Visible = False

	imc2.Visible = False

	Timerpimc2.Enabled = True

	End If

	End Sub

	

	Private Sub TimerPPZ_4_Timer()

	PPZ.Left = PPZ.Left + 50

	If PPZ.Left >= 3000 Then

	TimerPPZ_4.Enabled = False

	TimerPOZR.Enabled = True

	End If

	End Sub

	

	Private Sub TimerPPz_OBR_Timer()

	PPZ.Left = PPZ.Left - 30

	PPZ.Top = PPZ.Top + 30

	PPZ.Visible = False

	If PPZ.Top > 3000 Then

	PPZ.Top = 3000

	If PPZ.Left < 2640 Then

	TimerPPz_OBR.Enabled = False

	Timershiber.Enabled = True

	Timerpp.Enabled = True

	End If

	End If

	End Sub

	

	Private Sub TimerPPZ_Timer()

	PPZ.Left = PPZ.Left + 30

	If PPZ.Left > 3000 Then

	PPZ.Top = PPZ.Top - 30

	If PPZ.Left > 3530 Then

	TimerPPZ.Enabled = False

	R.Visible = False

	TimerZR.Enabled = True

	End If

	

	End If

	End Sub

	

	Private Sub Timershiber_2_OBR_Timer()

	shiber.Left = shiber.Left - 50

	pp.Visible = False

	If shiber.Left <= 0 Then

	Timershiber_2_OBR.Enabled = False

	pp.Visible = True

	pp.Left = 1320

	End If

	End Sub

	

	Private Sub TimerSHIBER_3_OBR_Timer()

	shiber.Left = shiber.Left - 50

	pp.Visible = False

	If shiber.Left <= 0 Then

	TimerSHIBER_3_OBR.Enabled = False

	pp.Visible = True

	pp.Left = 1320

	End If

	End Sub

	Private Sub TimerSHIBER_3_Timer()

	shiber.Left = shiber.Left + 50

	If shiber.Left >= 1300 Then

	TimerSHIBER_3.Enabled = False

	TimerSHIBER_3_OBR.Enabled = True

	End If

	End Sub

	

	Private Sub TimerSHIBER_4_OBR_Timer()

	shiber.Left = shiber.Left - 50

	pp.Visible = False

	If shiber.Left <= 0 Then

	TimerSHIBER_4_OBR.Enabled = False

	pp.Visible = True

	pp.Left = 1320

	End If

	End Sub

	

	Private Sub TimerSHIBER_4_Timer()

	shiber.Left = shiber.Left + 50

	If shiber.Left >= 1300 Then

	TimerSHIBER_4.Enabled = False

	TimerSHIBER_4_OBR.Enabled = True

	End If

	End Sub

	

	Private Sub Timershiber_obr_Timer()

	shiber.Left = shiber.Left - 50

	If shiber.Left <= 0 Then

	Timershiber_obr.Enabled = False

	End If

	End Sub

	

	Private Sub Timershiber_Timer()

	shiber.Left = shiber.Left + 50

	If shiber.Left >= 1300 Then

	Timershiber.Enabled = False

	Timershiber_obr.Enabled = True

	End If

	End Sub

	

	Private Sub Timershiber_2_Timer()

	shiber.Left = shiber.Left + 50

	If shiber.Left >= 1300 Then

	Timershiber_2.Enabled = False

	Timershiber_2_OBR.Enabled = True

	End If

	End Sub

	

	Private Sub Timervygr_obr_Timer()

	VYGR.Visible = False

	gotov.Visible = True

	VYGR.Left = VYGR.Left - 550

	If VYGR.Left <= 8000 Then

	Timervygr_obr.Enabled = False

	End If

	End Sub

	

	Private Sub TimerVYGR_Timer()

	VYGR.Visible = True

	VYGR.Left = VYGR.Left + 250

	If VYGR.Left >= 10000 Then

	TimerVYGR.Enabled = False

	Timervygr_obr.Enabled = True

	End If

	End Sub

	

	Private Sub TimerZR_2_Timer()

	ZR.Left = ZR.Left + 30

	ZR.Visible = True

	If ZR.Left >= 4500 Then

	TimerZR_2.Enabled = False

	R.Visible = True

	Timershiber_2.Enabled = True

	TimerPP_2.Enabled = True

	ZR.Visible = False

	

	TimerZRIMC_2.Enabled = True

	imc.Visible = False

	ZRIMC.Left = 4500

	ZRIMC.Top = 3000

	End If

	End Sub

	

	Private Sub TimerZR_4_Timer()

	ZR.Left = ZR.Left + 30

	ZR.Visible = True

	If ZR.Left >= 5000 Then

	TimerZR_4.Enabled = False

	TimerPOZIMC.Enabled = True

	End If

	End Sub

	

	Private Sub TimerZR_OBR_Timer()

	ZR.Left = ZR.Left - 50

	ZR.Top = ZR.Top - 20

	ZR.Visible = False

	R.Visible = True

	If ZR.Left <= 3500 Then

	ZR.Left = 3500

	If ZR.Top <= 2300 Then

	TimerZR_OBR.Enabled = False

	End If

	End If

	End Sub

	

	Private Sub TimerZR_Timer()

	ZR.Top = ZR.Top + 50

	ZR.Visible = True

	ZR.Left = ZR.Left + 30

	TimerPPz_OBR.Enabled = True

	If ZR.Top >= 2700 Then

	ZR.Top = 2700

	If ZR.Left >= 4500 Then

	TimerZR.Enabled = False

	imc.Visible = False

	TimerZRIMC.Enabled = True

	TimerZR_OBR.Enabled = True

	End If

	End If

	End Sub

	

	Private Sub TimerZRIMC_2_Timer()

	ZRIMC.Visible = True

	ZRIMC.Left = ZRIMC.Left + 30

	If ZRIMC.Left >= 5520 Then

	TimerZRIMC_2.Enabled = False

	

	ZRIMC.Visible = False

	ZRIMC.Left = 4500

	imc.Visible = True

	Timerpimc2.Enabled = True

	End If

	End Sub

	

	Private Sub TimerZRIMC_4_Timer()

	ZRIMC.Visible = True

	ZRIMC.Left = ZRIMC.Left + 30

	If ZRIMC.Left >= 5520 Then

	TimerZRIMC_4.Enabled = False

	TimerPOZIMC2.Enabled = True

	End If

	End Sub

	

	Private Sub TimerZrimc_obr_Timer()

	ZRIMC.Left = ZRIMC.Left - 150

	ZRIMC.Visible = False

	imc.Visible = True

	If ZRIMC.Left <= 4500 Then

	ZRIMC.Left = 4500

	ZRIMC.Top = ZRIMC.Top - 150

	If ZRIMC.Top <= 2700 Then

	TimerZrimc_obr.Enabled = False

	End If

	End If

	End Sub

	

	Private Sub TimerZRIMC_Timer()

	ZRIMC.Top = ZRIMC.Top + 50

	ZRIMC.Visible = True

	If ZRIMC.Top >= 3000 Then

	ZRIMC.Top = 3000

	ZRIMC.Left = ZRIMC.Left + 50

	If ZRIMC.Left >= 5500 Then

	TimerZRIMC.Enabled = False

	TimerZrimc_obr.Enabled = True

	Timerpimc2.Enabled = True

	End If

	End If

	End Sub