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

Приложение

Листинг программы

Private Sub Command1_Click()

Dim Tau_obs_1ya_regul As Integer, Tau_obs_2ya_regul As Integer, Tau_obs_polnaya_regul As Integer

Dim Tau_postupleniya As Integer

Dim Toch2(200) As Double

Dim TochP(200) As Double

Dim Tsis1 As Double, Tsis2 As Double, TsisP As Double

Dim Tobs1 As Currency, Tobs2 As Currency, TobsP As Currency

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

List1.Clear

List2.Clear

x = 0.5

Tau_postupleniya = Val(Text1.Text)

Tau_obs_1ya_regul = Val(Text2.Text)

Tau_obs_2ya_regul = Val(Text3.Text)

Tau_obs_polnaya_regul = Val(Text4.Text)

Tmod = 6000

K = 0

Kobs = 0

Kotk = 0

Tsis1 = 0: Tsis2 = 0: TsisP = 0

Tpost = 0

Tosv1 = 0: Tosv2 = 0: TosvP = 0

Toj2 = 0: TojP = 0

Tnezan1 = 0: Tnezan2 = 0: TnezanP = 0

n = 0

m = 0

ap = 0