Skip to content

Commit

Permalink
add two new functions
Browse files Browse the repository at this point in the history
  • Loading branch information
@njzjz
njzjz committed May 26, 2016
1 parent 20cff08 commit fbf5ca4
Show file tree
Hide file tree
Showing 13 changed files with 688 additions and 35 deletions.
3 changes: 2 additions & 1 deletion .gitignore
View file
Original file line number Diff line number Diff line change
Expand Up @@ -198,4 +198,5 @@ FakesAssemblies/
#
*.ini
*.exe
*.scc
*.scc
*.log
5 changes: 4 additions & 1 deletion Chemistry.vbp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -16,6 +16,9 @@ Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files (x86)
Form=frmLogin.frm
Form=frmSignUp.frm
Form=FrmChangePassword.frm
Form=frmpH.frm
Form=frmThermodynamics.frm
Form=frmGas.frm
IconForm="frmMain"
Startup="Sub Main"
HelpFile=""
Expand All @@ -28,7 +31,7 @@ Description="Chemical Tools"
CompatibleMode="0"
MajorVer=2
MinorVer=0
RevisionVer=10
RevisionVer=14
AutoIncrementVer=1
ServerSupportFiles=0
VersionCompanyName="����ʦ����ѧ�Ŷ�һ��"
Expand Down
15 changes: 9 additions & 6 deletions Chemistry.vbw
View file
Original file line number Diff line number Diff line change
@@ -1,14 +1,17 @@
frmMain = 388, 158, 916, 594, C, 298, 28, 891, 616, C
modCalculate = -25, 70, 902, 494, C
modData = 180, -16, 1043, 526, C
frmMain = 388, 158, 916, 594, , 292, 28, 885, 466, C
modCalculate = 335, 73, 1359, 497,
modData = 207, 26, 1070, 570, C
frmElement = 34, 92, 920, 532, C, 104, 104, 990, 544, C
frmMass = 214, 191, 1104, 631, , 43, 123, 929, 617, C
frmMass = 163, 208, 1053, 650, C, 43, 123, 929, 617, C
modUI = 157, 25, 1043, 461, C
modMain = 194, 289, 1080, 729, C
modExam = 40, 26, 926, 466, C
frmExam = 162, 158, 1093, 598, C, 133, 77, 1019, 548, C
frmAbout = 104, 104, 989, 544, C, 156, 142, 1042, 596, C
frmOptions = 160, 118, 1046, 558, C, 108, 6, 994, 564, C
frmLogin = 445, 53, 1001, 477, , 74, 117, 600, 541, C
frmOptions = 186, 137, 1072, 577, C, 108, 6, 994, 564, C
frmLogin = 445, 53, 1001, 477, C, 74, 117, 600, 541, C
frmSignUp = 0, 0, 527, 424, C, 499, 63, 1026, 487, C
FrmChangePassword = 167, 159, 1051, 599, C, 156, 156, 1041, 596, C
frmpH = 87, 66, 971, 506, C, 394, 81, 1278, 540, C
frmThermodynamics = 232, 20, 1117, 460, , 191, 102, 1075, 612, C
frmGas = 401, 139, 1285, 578, , 134, 16, 1018, 596, C
253 changes: 253 additions & 0 deletions frmGas.frm
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,253 @@
VERSION 5.00
Begin VB.Form frmGas
BackColor = &H00C0FFFF&
BorderStyle = 0 'None
Caption = "气体计算器 Designed by 团队一号"
ClientHeight = 5505
ClientLeft = 0
ClientTop = 0
ClientWidth = 5760
Icon = "frmGas.frx":0000
LinkTopic = "Form1"
ScaleHeight = 5505
ScaleWidth = 5760
StartUpPosition = 1 '所有者中心
Begin VB.OptionButton opnT
BackColor = &H00C0FFFF&
Height = 375
Left = 120
TabIndex = 7
Top = 4080
Width = 375
End
Begin VB.OptionButton opnn
BackColor = &H00C0FFFF&
Height = 375
Left = 120
TabIndex = 6
Top = 3480
Width = 375
End
Begin VB.OptionButton opnV
BackColor = &H00C0FFFF&
Height = 375
Left = 120
TabIndex = 5
Top = 2880
Width = 375
End
Begin VB.OptionButton opnp
BackColor = &H00C0FFFF&
Height = 375
Left = 120
TabIndex = 4
Top = 2280
Value = -1 'True
Width = 375
End
Begin VB.TextBox texT
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 495
Left = 1920
TabIndex = 3
Top = 4080
Width = 3495
End
Begin VB.TextBox texn
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 495
Left = 1920
TabIndex = 2
Top = 3480
Width = 3495
End
Begin VB.TextBox texp
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 495
Left = 1920
TabIndex = 0
Top = 2280
Width = 3495
End
Begin VB.CommandButton cmdpH
Caption = "勾选需要计算的量，并点击计算！"
Default = -1 'True
Height = 495
Left = 240
TabIndex = 8
Top = 4800
Width = 5055
End
Begin VB.TextBox texV
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 495
Left = 1920
TabIndex = 1
Top = 2880
Width = 3495
End
Begin VB.Label lblT
BackStyle = 0 'Transparent
Caption = "温度T"
BeginProperty Font
Name = "微软雅黑"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 12
Top = 4080
Width = 1215
End
Begin VB.Label lbln
BackStyle = 0 'Transparent
Caption = "物质的量n"
BeginProperty Font
Name = "微软雅黑"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 11
Top = 3480
Width = 1455
End
Begin VB.Label lblp
BackStyle = 0 'Transparent
Caption = "压强p"
BeginProperty Font
Name = "微软雅黑"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 10
Top = 2280
Width = 855
End
Begin VB.Label lblV
BackStyle = 0 'Transparent
Caption = "体积V"
BeginProperty Font
Name = "微软雅黑"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 9
Top = 2880
Width = 855
End
Begin VB.Image imgClose
Height = 450
Left = 5280
Picture = "frmGas.frx":1B692
Stretch = -1 'True
Top = 0
Width = 450
End
Begin VB.Image imgTitle
Appearance = 0 'Flat
Height = 2145
Left = -600
Picture = "frmGas.frx":1CB86
Stretch = -1 'True
Top = 0
Width = 7335
End
End
Attribute VB_Name = "frmGas"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCopy_Click()
UICopy (texpHOut)
End Sub

Private Sub cmdpH_Click()
Dim p As Double, v As Double, n As Double, T As Double
p = Val(texp)
v = Val(texV)
n = Val(texn)
T = Val(texT)
If opnp Then
texp = calGasp(v, n, T)
ElseIf opnV Then
texV = calGasV(p, n, T)
ElseIf opnn Then
texn = calGasn(p, v, T)
Else
texT = calGasT(p, v, n)
End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

Private Sub imgClose_Click()
Unload Me
End Sub

Private Sub imgTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
Binary file added frmGas.frx
View file
Binary file not shown.
2 changes: 1 addition & 1 deletion frmSignUp.frm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -26,7 +26,7 @@ Begin VB.Form frmSignUp
End
Begin VB.CheckBox chkAgree
BackColor = &H00C0FFFF&
Caption = "我同意遵守《用户使用条款》。"
Caption = "我同意遵守国家有关法律法规。"
BeginProperty Font
Name = "微软雅黑"
Size = 12
Expand Down
Loading

0 comments on commit fbf5ca4

Please sign in to comment.