parameter_module.bas

采样窑炉温度

Attribute VB_Name = "Parameter_Module"
Option Explicit
Public b0 As Single, b1 As Single, b2 As Single, b3 As Single, b4 As Single
Public start_T1 As Integer, start_T2 As Integer, start_T3 As Integer, start_T4 As Integer, start_T5 As Integer              '各段起始温度
Public finish_T1 As Integer, finish_T2 As Integer, finish_T3 As Integer, finish_T4 As Integer, finish_T5 As Integer         '各段结束温度
Public k0 As Single, k1 As Single, k2 As Single, k3 As Single, k4 As Single                                                  '各段斜率
Public all_Time As Integer, t0 As Integer, t1 As Integer, t2 As Integer, t3 As Integer, t4 As Integer                           '总烧成时间和各段烧成时间
Public max_Temp As Integer, Dcount As Integer
Public beishu As Single
Public Pulse_Count As Integer

Public Sub ParameterFounction()
With drawpic_form
start_T1 = Val(.k_txt(0).Text)
start_T2 = Val(.k_txt(1).Text)
start_T3 = Val(.k_txt(2).Text)
start_T4 = Val(.k_txt(3).Text)
start_T5 = Val(.k_txt(4).Text)

finish_T1 = Val(.k_txt(5).Text)
finish_T2 = Val(.k_txt(6).Text)
finish_T3 = Val(.k_txt(7).Text)
finish_T4 = Val(.k_txt(8).Text)
finish_T5 = Val(.k_txt(9).Text)

b0 = Val(.环境温度_txt.Text)
'k0 = Val(.k_txt(0).Text)
'k1 = Val(.k_txt(1).Text)
'k2 = Val(.k_txt(2).Text)
'k3 = Val(.k_txt(3).Text)
'k4 = Val(.k_txt(4).Text)
t0 = Val(.time_txt(0).Text)
t1 = Val(.time_txt(1).Text)
t2 = Val(.time_txt(2).Text)
t3 = Val(.time_txt(3).Text)
t4 = Val(.time_txt(4).Text)
all_Time = Val(.烧成周期_txt.Text)
max_Temp = Val(.最高温度_txt.Text)
Dcount = Val(.count_txt.Text)           '总段数
Select Case Dcount
  Case 1
     k0 = (finish_T1 - start_T1) / t0
  Case 2
     k0 = (finish_T1 - start_T1) / t0
     k1 = (finish_T2 - start_T2) / t1
  Case 3
     k0 = (finish_T1 - start_T1) / t0
     k1 = (finish_T2 - start_T2) / t1
     k2 = (finish_T3 - start_T3) / t2
  Case 4
     k0 = (finish_T1 - start_T1) / t0
     k1 = (finish_T2 - start_T2) / t1
     k2 = (finish_T3 - start_T3) / t2
     k3 = (finish_T4 - start_T4) / t3
   Case 5
     k0 = (finish_T1 - start_T1) / t0
     k1 = (finish_T2 - start_T2) / t1
     k2 = (finish_T3 - start_T3) / t2
     k3 = (finish_T4 - start_T4) / t3
     k4 = (finish_T5 - start_T5) / t4
   End Select
b1 = (k0 - k1) * t0 + b0
b2 = (k1 - k2) * (t1 + t0) + b1
b3 = (k2 - k3) * (t0 + t1 + t2) + b2
End With
End Sub