Навигация
Программа функционирования модели (Visual Basic 6.0)
21746
знаков
5
таблиц
16
изображений
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
Похожие работы
... частота лежит вне диапазона в рабочих частотах проектируемого устройства, следовательно, влияние на работу устройства она не оказывает. 5 Выбор и обоснование технологического процесса сборки и монтажа печатных плат Методы сборки и монтажа печатных плат можно классифицировать по степени автоматизации сборочного – монтажных работ. При этом можно выделить следующие методы сборки: Ручная: Ручная ...
... мкм по подслою никеля. 3.5 Топология токопроводящего рисунка Характер проводящего рисунка во многом определяет технологичность конструкции, надежность производства печатных плат. Анализ практики производства позволяет сформулировать ряд правил для конструирования печатного рисунка. При трассировке проводников следует избегать острых углов. Во внутреннем пространстве такого угла образуется ...
... - Text Style (Текстовый стиль). В этом диалоговом окне установки такие же, как в программе Symbol Editor. 4 РАЗРАБОТАТЬ КОНТАКТНЫЕ ПЛОЩАДКИ Во всех системах автоматизированного проектирования печатных плат информация о графике контактных площадок содержится отдельно от графики корпуса компонента. Это связано с тем, что при изготовлении фотошаблона требуется обеспечить сопряжение программных ...
... сроках выполнения работ. Работы, которые выполняются для реализации автомобильной системы видео-наблюдения, занесены в таблицу 12 Таблица 12 Работы, которые выполняются для реализации автомобильной системы видеонаблюдения Количество автомобилей на дорогах стремительно увеличивается с каждым днем. В сегодняшних условиях даже опытный и аккуратный водитель не застрахован от ДТП, которое ...
0 комментариев