Курсовая Трасса сборки печатных плат
Работа добавлена на сайт bukvasha.net: 2015-10-25Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
от 25%
договор
Автоматизировать процесс установки радиоэлементов на печатную плату (ПП)
Состав задания
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
Размещено на Allbest.ru