Лабораторная работа: Модель бензоколонки

End Sub

Private Sub Command3_Click()

End

End Sub

2. Форма frmForm2

2.1. Таблица свойств формы 2

Объект	Свойства	Установки
Форма 2	Name Enabled	Form2 False

2.2. Процедура обработки прерываний

Private Sub Form2_Load()

End Sub

3. Модули общего назначения

‘Описание констант и массивов

PublicConstTfin = 10 ‘время окончания работы

PublicConstNzMax = 40 ‘максимальное число заявок

PublicTz(Nzmax) ‘массив времени поступления заявок

PublicNob(3) AsInteger‘число обслуженных заявок в каналах

PublicTKO(3) ‘время окончания обслуживания заявок

Public TScp, Tobcp, Twmax, Tkmin, TH, TK, z, Ts

Public Snob As Long, Iz As Integer, Nz As Integer, Ir As Integer

Public Nr As Integer, J As Integer, Nkan As Integer, Jmin As Integer 180

Public Sub Model2()

‘Главный модуль

Snob = 0 ‘сумматор числа обслуженных заявок

frmForm1.Enabled = False: FrmForm1.Visible = False

frmForm2.Enabled = True: FrmForm2.Visible = True

ForIr = 1 ToNr‘начало цикла случайных реализаций