Курсовая работа: Регулировочный участок цеха

Kobs = Kobs + 1

ap = ap + 1

List2.AddItem (Str(Kobs) + " агрегат - " + Str(TobsP))

GoTo 5

End If

End If

40: List1.AddItem ("Всего поступило агрегатов = " + Str(K))

List1.AddItem ("Кол-во агрегатов прошедшие регулировку = " + Str(Kobs))

List1.AddItem ("Кол-во агрегатов прошедшие полную регулировку = " + Str(ap))

List1.AddItem ("Кол-во агрегатов оставшиеся в накопителе для полной регулировки = " + Str(m))

List1.AddItem ("Кол-во агрегатов прошедшие 1-ю и 2-ю регулировку = " + Str(a2))

List1.AddItem ("Кол-во агрегатов оставшиеся в накопителе для 2-й регулировки = " + Str(n))

List1.AddItem ("Вероятность отказа в первичной регулировке = " + Str(Kotk / K))

List1.AddItem ("Загрузка накопителя агрегатами нуждающиеся в полной регулировке = " + Str(LP / Kotk))

List1.AddItem ("Коэффициент простоя системы = " + Str((Tnezan1 + Tnezan2 + TnezanP) / Tmod))

End Sub

Private Sub Command2_Click()

Dim Tau_obs_1ya_regul As Integer, Tau_obs_2ya_regul As Integer

Dim Tau_postupleniya As Integer

Dim Toch1(200) As Double

Dim Toch2(200) As Double

Dim Tobs1 As Currency, Tobs2 As Currency

Picture1.Picture = LoadPicture(App.Path & "\2-yachast.jpg")

List1.Clear

List2.Clear

Vmestimost = -2

1: Vmestimost = Vmestimost + 2

x = 0.5

Tau_postupleniya = Val(Text1.Text)