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