ади по визовуt Р - ремонтна бригада справила ремонтР/13 - поломка інструментальної головкіt/6 - збірка вузла зупинена , система управління виробила сигнал СТОП і сигнал виклику РБР РБ - наявність ремонтної бригади по визовуt Р - ремонтна бригада справила ремонт
4. Програма функціонування моделі (Visual Basic 6.0)
Dim i As Integerj As Integerc As IntegerSub Command1_Click () SubSub Command2_Click (). Enabled=True=0SubSub Command3_Click (). Enabled=True.Visible=FalseSubSub Command4_Click (). Enabled=True.Visible= FalseSubSub Command5_Click (). Enabled=True=1SubSub sit1_Timer () (Image5.Left gt;=720) Then.Enabled=False.Visible=True.Enabled=False.Enabled=True.Visible=FalseIfSubSub sit2_Timer () (Image5.Left gt;=3720) Then.Enabled=False.Visible=True.Enabled=False.Enabled=True.Visible=FalseIfSub
Private Sub sit3_Timer () (Image5.Left gt;=6480) Then.Enabled=False.Visible=True.Enabled=True.Enabled=FalseIfSubSub Timer1_Timer (). Visible=True.Left=Shape4.Left + 20.Left=Image5.Left + 20 (Image5.Left gt;=720 And i=0) Then.Enabled=False.Visible=True.Enabled=True.Left=840.Enabled=True
'Image6.Left=- 720
'Shape6.Left=- 500If (Image5.Left gt;=2160 And i=1) Then.Enabled=False.Visible=True.Enabled=True.Visible=0.Enabled=0If ( Image5.Left gt;=3 720 And i=2) Then.Enabled=False.Visible=True.Enabled=TrueIf (Image5.Left gt;=5 520 And i=3) Then.Enabled=False.Enabled=True.Enabled= True.Enabled=False.Visible=0If (Image5.Left gt;=6480 And i=4) Then.Enabled=False.Enabled=Truec lt; gt; 1 Then Shape4.BackColor= amp; HFF amp; If (Image5.Left gt;=7800 And i=5) Then.Enabled=False.Enabled=True.Visible=0.Enabled=FalseIf (Image5.Left gt;=9000 And i=6) Then.Enabled=False.Enabled=TrueIf (Image5.Left gt;=10320 And i=7) Then.Enabled=True.Enabled=False.Visible=FalseIf (Image5.Left gt;=Form1.Width) Then=0.Enabled=True.Left=-Image5.Width.Left=-Image5.Width + 120.BackColor= amp; HFF0000IfSubSub Timer2_Timer (). Top=Shape1.Top - 20 (Shape1.Top lt;=2 160) Then.Enabled=False.Visible=True.Enabled=True.Visible=False.Top=3000If=1SubSub Timer3_Timer (). Top=Shape2.Top - 20 (Shape2.Top lt;=2160) Then.BackColor= amp; H80FF amp;.Visible=False.Top=3000.Enabled=False.Enabled=TrueIf=2SubSub Timer4_Timer (). Top=Shape3.Top - 20 (Shape3.Top lt;=2160) Then.BackColor= amp; HC0C000.Visible=False. Top=3000.Enabled=False.Enabled=TrueIf=3SubSub Timer5_Timer (). Enabled=False.Enabled=False.Enabled=True.Visible=False=0.Enabled=False.Visible=TrueSubSub Timer6_Timer (). Enabled=False. Enabled=False.Visible=False.Enabled=False.Visible=True.Enabled=True.Visible=True=2SubSub Timer7_Timer (). Enabled=False.Enabled=False.Visible=False.Enabled=False.Visible=True.Enabled =True.Visible=True=1SubSub uezd_Timer (). Visible=True.Top=Shape5.Top + 20 (Shape5.Top gt;=3000) Then.Enabled=False.Enabled=True.Visible=False.Top=2160If= 8SubSub zader_Timer (). Enabled=False.Enabled=True
i=i + 1Sub
Список використаної літератури:
1) Контрольні завдання для курсового проектування по ІПС і атестаційних робіт бакалавра для студентів спец. 2 102 і 2103 всіх форм навчання/НГТУ; Упоряд.:. Іванов А.А, Москвичьов. А.А.
) Іванов А.А. Автоматизовані складальні системи.- НГТУ, Н. Новгород, 2000р .
) Іванов А.А., Сафронов В.В., Роботизовані складальні комплекси.- НГТУ Н.Новгород, 1995. 370c.
) Моделювання та оптимізація в інтегрованих виробничих системах., під ред. Іванова А.А., Кварталова А.Р., Москвичева А.А., Кудрявцева С.А. НГТУ, Н. Новгород, 2000р.
