50459 (Трасса сборки печатных плат), страница 2
Описание файла
Документ из архива "Трасса сборки печатных плат", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "50459"
Текст 2 страницы из документа "50459"
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