?? form2.frm
字號:
VERSION 5.00
Begin VB.Form Form2
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
Caption = "純流體程序計算"
ClientHeight = 3210
ClientLeft = 60
ClientTop = 345
ClientWidth = 4230
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3210
ScaleWidth = 4230
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command2
BackColor = &H00FFC0C0&
Caption = "返回"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Index = 0
Left = 3120
Style = 1 'Graphical
TabIndex = 7
Top = 2640
Width = 975
End
Begin VB.CommandButton Command1
BackColor = &H00FFC0C0&
Caption = "確定"
Default = -1 'True
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 1800
Style = 1 'Graphical
TabIndex = 6
Top = 2640
Width = 1095
End
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
Caption = "請選擇已知數據"
BeginProperty Font
Name = "楷體_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1575
Left = 1800
TabIndex = 2
Top = 720
Width = 2175
Begin VB.OptionButton Option3
BackColor = &H00C0C0C0&
Caption = "已知P與T"
Height = 255
Left = 480
TabIndex = 5
Top = 1200
Width = 1215
End
Begin VB.OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "已知P與V"
Height = 375
Left = 480
TabIndex = 4
Top = 720
Width = 1455
End
Begin VB.OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "已知V與T"
Height = 255
Left = 480
TabIndex = 3
Top = 360
Width = 1575
End
End
Begin VB.ComboBox Combo1
BackColor = &H80000018&
Height = 300
Left = 240
TabIndex = 1
Top = 1320
Width = 1335
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "物質及已知數據的選擇"
BeginProperty Font
Name = "黑體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 600
TabIndex = 8
Top = 120
Width = 2850
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "請選擇要計 算的物質"
BeginProperty Font
Name = "楷體_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 0
Top = 720
Width = 1215
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Form2.Combo1.Text = "" Or (Form2.Option1 = False And Form2.Option2 = False And Form2.Option3 = False) Then
MsgBox "對不起你還未正確選擇！", vbOKCancel + 48, "程序"
Else
If Form2.Option1.Value = True Then
Do While 1
V = Val(InputBox("請輸入體積" + Chr(13) + Chr(10) + "單位(m3/mol)", "數據輸入"))
If V <= 0 Then
MsgBox "對不起體積應當大于0！" + Chr(13) + Chr(10) + "請重新輸入！", vbOKCancel + 48, "程序"
Else
Exit Do
End If
Loop
Do While 1
t = Val(InputBox("請輸入溫度" + Chr(13) + Chr(10) + "單位(K)", "數據輸入"))
If t <= 0 Then
MsgBox "對不起溫度應當大于0！" + Chr(13) + Chr(10) + "請重新輸入！", vbOKCancel + 48, "程序"
Else
Exit Do
End If
Loop
STR3 = "已知條件：" + "體積：" + Str(V) + "m3/mol" + Chr(13) + Chr(10) + " " + " 溫度：" + Str(t) + "K"
End If
If Form2.Option2.Value = True Then
Do While 1
P = Val(InputBox("請輸入壓強" + Chr(13) + Chr(10) + "單位(Pa)", "數據輸入"))
If P <= 0 Then
MsgBox "對不起壓強應當大于0！" + Chr(13) + Chr(10) + "請重新輸入！", vbOKCancel + 48, "程序"
Else
Exit Do
End If
Loop
Do While 1
V = Val(InputBox("請輸入體積" + Chr(13) + Chr(10) + "單位(m3/mol)", "數據輸入"))
If V <= 0 Then
MsgBox "對不起體積應當大于0！" + Chr(13) + Chr(10) + "請重新輸入！", vbOKCancel + 48, "程序"
Else
Exit Do
End If
Loop
STR3 = "已知條件：" + "壓強：" + Str(P) + "Pa" + Chr(13) + Chr(10) + " " + " 體積：" + Str(V) + "m3/mol"
End If
If Form2.Option3.Value = True Then
Do While 1
P = Val(InputBox("請輸入壓強" + Chr(13) + Chr(10) + "單位(Pa)", "數據輸入"))
If P <= 0 Then
MsgBox "對不起壓強應當大于0！" + Chr(13) + Chr(10) + "請重新輸入！", vbOKCancel + 48, "程序"
Else
Exit Do
End If
Loop
Do While 1
t = Val(InputBox("請輸入溫度" + Chr(13) + Chr(10) + "單位(K)", "數據輸入"))
If t <= 0 Then
MsgBox "對不起溫度應當大于0！" + Chr(13) + Chr(10) + "請重新輸入！", vbOKCancel + 48, "程序"
Else
Exit Do
End If
Loop
STR3 = "已知條件：" + "壓強：" + Str(P) + "Pa" + Chr(13) + Chr(10) + " " + " 溫度：" + Str(t) + "K"
End If
'建立索引
'Set autb = myData.TableDefs("物性參數數據")
'Set wuidx = autb.CreateIndex("物質中文名")
'wuidx.Primary = True '主索引
'wuidx.Unique = True
'Set wuidxfld = wuidx.CreateField("物質中文名")
' 添加到各集合對象中
'wuidx.Fields.Append wuidxfld
'autb.Indexes.Append wuidx
'myData.TableDefs.Append autb
myRecord.Index = "物質中文名"
myRecord.Seek "=", Combo1.Text
Pc1 = myRecord.Fields("臨界壓力Pc").Value
Tc1 = myRecord.Fields("臨界溫度Tc").Value
Vc1 = myRecord.Fields("臨界體積Vc").Value
Zc1 = myRecord.Fields("臨界壓縮因子Zc").Value
w1 = myRecord.Fields("偏心因子wc").Value
Form2.Hide
Form3.Show
End If
End Sub
Private Sub Command2_Click(Index As Integer)
Unload Me
Form1.Show
End Sub
Private Sub Form_Load()
Set myWork = DBEngine.Workspaces(0)
Set myData = myWork.OpenDatabase(App.Path & "\物質參數.mdb", , ";")
Set myRecord = myData.OpenRecordset("物性參數數據")
Combo1.Clear
Do While myRecord.EOF = False
Combo1.AddItem myRecord.Fields("物質中文名").Value
myRecord.MoveNext
Loop
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -