Caption = jSub.Caption = "гідратів немає" If
Next jSub
: "дені некорретние дані!"
вичісленіе.Enabled = TrueSubSub очістка_Click ()
Rem Видалення всіх даних.
вичісленіе.Enabled = True
Label5.Caption = "". Caption = "". Clear.Clear.Clear.ClearSubПечать даннихSub печать_Click (). PrintFormSub
Додаток Б
Гідравлічний і тепловий розрахунок шлейфів, розрахунок кількості інгібітора
Private Px As Currency, Tx As Currency, Tg As Currency, ww As IntegerSub вичісленіе_Click ()
расчет.Enabled = True = Val (Text1 (0). Text) = Val (Text1 (1). Text) = Val (Text1 (2). Text) = Val (Text1 (3). Text) = Val (Text1 (4). Text) = Val (Text1 (5). Text) = Val (Text1 (6). Text) = Val (Text1 (7). Text) = Val (Text1 (8). Text) = Val (Text1 (9). Text) = Val (Text1 (10). Text) Error GoTo 111Построеніе таблиці .. Font.Bold = True "x, м"; "Px, МПа"; "Tx, K"; " ; Тг, K "
Print "******************************************** ********** "Обчислення тиску і температури по довжині шлейфу.
Ld = 0.009407/(Dvn ^ 0.333) = 262.3 * K * Dn * 1000/(Q * Rg * C * 1000000) = Toc + (Ty - Toc) * (1 - Exp (-a * L * 0.001 ))/(a ​​* L * 0.001) = Sqr ((Py ^ 2) - ((Q ^ 2) * Ld * Rg * Ts * z * L * 0.001)/(10.23 * (10 ^ (-12)) * ((Dvn * 1000) ^ 5))) ) = (2/3) * (Py + (Pk ^ 2)/(Py + Pk)). Font.Bold = FalseL> 12000 Then = 1000L> 7000 Then = 500L> 3600 Then = 300 = 200Ifw = 0 To L Step ww = Sqr ((Py ^ 2) - ((Py ^ 2) - (Pk ^ 2)) * w/L) = Toc + (Ty - Toc) * Exp (-a * w * 0.001) - 2.5 * ((Py ^ 2) - (Pk ^ 2)) * (1 - Exp (-a * w * 0.001))/(2 * a * L * 0.001 * Ps) = (19.9 * (1 + 0.434 * Log (Px)) - 26.5) + 273.15 ""; w; "", Px; "", Tx; "", Tg "************************************************ ****** "w
Rem Визначення місця початку гідратоутворення.
For www = 0 To L = Sqr ((Py ^ 2) - ((Py ^ 2) - (Pk ^ 2)) * www/L) = Toc + (Ty - Toc) * Exp (-a * www * 0.001) - 2.5 * ((Py ^ 2) - (Pk ^ 2)) * (1 - Exp (-a * www * 0.001))/(2 * a * L * 0.001 * Ps) = (19.9 * (1 + 0.434 * Log (Px)) - 26.5) + 273.15Tx <= Tg Then.Caption = wwwSubIf
Next Caption = "Гідратів немає"
расчет.Enabled = FalseSub
:
MsgBox "Введені некоректні дані!". Cls
расчет.Enabled = FalseSubSub очістка_Click ()
Rem Видалення даних і результатів.
Form1.Cls.Caption = ""
расчет.Enabled = FalseSubSub виход_Click () SubПечать даннихSub печать_Click ()
Form1.PrintFormSubОткритіе форми для розрахунку кількості інгібітора
Private Sub расчет_Click (). Hide
Form2.ShowSubПостроеніе форми і введення даних для розрахунку кількості інгібітора
Private Qs As CurrencySub виход_Click () SubSub назад_Click (). Hide.ShowSubSub печать_Click (). PrintFormSubSub расчет_Click () = Val (Form1.Text1 (0). Text) = Val (Form1.Text1 (1). Text) = Val (Form1.Text1 (2). Text) = Val (Form1.Text1 (3). Text) = Val (Form1.T...
