📄 drawpic_form.frm
字号:
EndProperty
ForeColor = &H000000FF&
Height = 615
Left = 2640
TabIndex = 19
Top = 960
Width = 1215
End
Begin VB.Label Label4
Caption = "输入第一段烧成曲线的时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Index = 5
Left = 8880
TabIndex = 17
Top = 2520
Width = 1215
End
Begin VB.Label Label4
Caption = "输入第二段烧成曲线的时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Index = 6
Left = 8880
TabIndex = 16
Top = 3240
Width = 1215
End
Begin VB.Label Label4
Caption = "输入第三段烧成曲线的时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Index = 7
Left = 8880
TabIndex = 15
Top = 3960
Width = 1215
End
Begin VB.Label Label4
Caption = "输入第四段烧成曲线的时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Index = 8
Left = 8880
TabIndex = 14
Top = 4680
Width = 1215
End
Begin VB.Label Label4
Caption = "输入第五段烧成曲线的时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Index = 9
Left = 8880
TabIndex = 13
Top = 5400
Width = 1215
End
Begin VB.Label Label4
Caption = "输入第五段起始温度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Index = 4
Left = 2640
TabIndex = 12
Top = 5280
Width = 1215
End
Begin VB.Label Label4
Caption = "输入第四段起始温度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Index = 3
Left = 2640
TabIndex = 11
Top = 4560
Width = 1215
End
Begin VB.Label Label4
Caption = "输入第三段起始温度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Index = 2
Left = 2640
TabIndex = 10
Top = 3840
Width = 1215
End
Begin VB.Label Label4
Caption = "输入第二段起始温度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Index = 1
Left = 2640
TabIndex = 9
Top = 3120
Width = 1215
End
Begin VB.Label Label4
Caption = "输入第一段起始温度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Index = 0
Left = 2640
TabIndex = 8
Top = 2400
Width = 1215
End
Begin VB.Label Label1
Caption = "输入最高烧成温度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 2640
TabIndex = 7
Top = 1680
Width = 1095
End
End
Attribute VB_Name = "drawpic_form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i, k As Integer
Private Sub draw_command_Click()
Call Parameter_Module.ParameterFounction
With AD_Form
.Picture1.Cls
.Picture1.AutoRedraw = True
.Picture1.Scale (-15, max_Temp + 120)-(all_Time + 30, -100)
'MsgBox (max_T + 200)
.Picture1.Line (0, 0)-(all_Time + 20, 0) '绘制时间坐标
.Picture1.Line (0, 0)-(0, max_Temp + 100) '绘制温度坐标
.Picture1.CurrentX = all_Time + 4: .Picture1.CurrentY = -25: .Picture1.Print "时间×10(min)"
.Picture1.CurrentX = -10: .Picture1.CurrentY = max_Temp + 100: .Picture1.Print "温度℃"
For i = 5 To all_Time Step 5
k = k + 1
If k Mod 2 = 0 Then
.Picture1.CurrentX = i: .Picture1.CurrentY = 10: .Picture1.Line -(i, 0)
.Picture1.CurrentX = i - 5: .Picture1.CurrentY = -25: .Picture1.Print i / 10
End If
Next i
For i = 50 To max_Temp Step 50
.Picture1.CurrentX = 2: .Picture1.CurrentY = i: .Picture1.Line -(0, i)
'.Picture1.ForeColor = RGB(255, 0, 0)
.Picture1.CurrentX = -10: .Picture1.CurrentY = i + 15: .Picture1.Print i
Next i
'b0 = 25
'b1 = (k0 - k1) * t0 + b0
'b2 = (k1 - k2) * (t1 + t0) + b1
' b3 = (k2 - k3) * (t0 + t1 + t2) + b2
Select Case Dcount
Case 1
.Picture1.Line (0, b0)-(t0, k0 * t0 + b0)
Case 2
.Picture1.Line (0, b0)-(t0, k0 * t0 + b0)
If k1 = 0 Then
.Picture1.Line (t0, k0 * t0 + b0)-(t0 + t1, k0 * t0 + b0)
Else
.Picture1.Line (t0, k0 * t0 + b0)-(t0 + t1, k1 * (t0 + t1) + b1)
End If
Case 3
.Picture1.Line (0, b0)-(t0, k0 * t0 + b0)
If k1 = 0 Then
.Picture1.Line (t0, k0 * t0 + b0)-(t0 + t1, k0 * t0 + b0)
Else
.Picture1.Line (t0, k0 * t0 + b0)-(t0 + t1, k1 * (t0 + t1) + b1)
End If
If k2 = 0 Then
.Picture1.Line (t0 + t1, k1 * (t0 + t1) + b1)-(t0 + t1 + t2, k1 * (t0 + t1) + b1)
Else
.Picture1.Line (t0 + t1, k1 * (t0 + t1) + b1)-(t0 + t1 + t2, k2 * (t0 + t1 + t2) + b2)
End If
Case 4
.Picture1.Line (0, b0)-(t0, k0 * t0 + b0) '第一段升温曲线
If k1 = 0 Then
.Picture1.Line (t0, k0 * t0 + b0)-(t0 + t1, k0 * t0 + b0)
Else
.Picture1.Line (t0, k0 * t0 + b0)-(t0 + t1, k1 * (t0 + t1) + b1) '第二段升温曲线
End If
If k2 = 0 Then
.Picture1.Line (t0 + t1, k1 * (t0 + t1) + b1)-(t0 + t1 + t2, k1 * (t0 + t1) + b1)
Else
.Picture1.Line (t0 + t1, k1 * (t0 + t1) + b1)-(t0 + t1 + t2, k2 * (t0 + t1 + t2) + b2)
End If
'.Picture1.Line (t0 + t1, k1 * (t0 + t1) + b1)-(t0 + t1 + t2, k2 * (t0 + t1 + t2) + b2) '第三段升温曲线
If k3 = 0 Then
.Picture1.Line (t0 + t1 + t2, k2 * (t0 + t1 + t2) + b2)-(t0 + t1 + t2 + t3, k2 * (t0 + t1 + t2) + b2)
Else
.Picture1.Line (t0 + t1 + t2, k2 * (t0 + t1 + t2) + b2)-(t0 + t1 + t2 + t3, k3 * (t0 + t1 + t2 + t3) + b3) '第四段升温曲线
End If
Case 5
.Picture1.Line (0, b0)-(t0, k0 * t0 + b0)
If k1 = 0 Then
.Picture1.Line (t0, k0 * t0 + b0)-(t0 + t1, k0 * t0 + b0)
Else
.Picture1.Line (t0, k0 * t0 + b0)-(t0 + t1, k1 * (t0 + t1) + b1)
End If
If k2 = 0 Then
.Picture1.Line (t0 + t1, k1 * (t0 + t1) + b1)-(t0 + t1 + t2, k1 * (t0 + t1) + b1)
Else
.Picture1.Line (t0 + t1, k1 * (t0 + t1) + b1)-(t0 + t1 + t2, k2 * (t0 + t1 + t2) + b2)
End If
If k3 = 0 Then
.Picture1.Line (t0 + t1 + t2, k2 * (t0 + t1 + t2) + b2)-(t0 + t1 + t2 + t3, k2 * (t0 + t1 + t2) + b2)
End If
' MsgBox (k2 * (t0 + t1 + t2) + (k1 - k2) * (t1 + t0) + (k0 - k1) * t0 + b0)
End Select
End With
End Sub
Private Sub return_command_Click()
AD_Form.Show
'Picture_Form.Show
drawpic_form.Visible = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -