Skip to content
This repository was archived by the owner on Jan 21, 2026. It is now read-only.

Commit fbf5ca4

Browse files
njzjznjzjz
committed
add two new functions
1 parent 20cff08 commit fbf5ca4

File tree

13 files changed

+688
-35
lines changed

13 files changed

+688
-35
lines changed

‎.gitignore‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -198,4 +198,5 @@ FakesAssemblies/
198198
#
199199
*.ini
200200
*.exe
201-
*.scc
201+
*.scc
202+
*.log

‎Chemistry.vbp‎

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,6 +16,9 @@ Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files (x86)
1616
Form=frmLogin.frm
1717
Form=frmSignUp.frm
1818
Form=FrmChangePassword.frm
19+
Form=frmpH.frm
20+
Form=frmThermodynamics.frm
21+
Form=frmGas.frm
1922
IconForm="frmMain"
2023
Startup="Sub Main"
2124
HelpFile=""
@@ -28,7 +31,7 @@ Description="Chemical Tools"
2831
CompatibleMode="0"
2932
MajorVer=2
3033
MinorVer=0
31-
RevisionVer=10
34+
RevisionVer=14
3235
AutoIncrementVer=1
3336
ServerSupportFiles=0
3437
VersionCompanyName="����ʦ����ѧ�Ŷ�һ��"

‎Chemistry.vbw‎

Lines changed: 9 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,14 +1,17 @@
1-
frmMain = 388, 158, 916, 594, C, 298, 28, 891, 616, C
2-
modCalculate = -25, 70, 902, 494, C
3-
modData = 180, -16, 1043, 526, C
1+
frmMain = 388, 158, 916, 594, , 292, 28, 885, 466, C
2+
modCalculate = 335, 73, 1359, 497,
3+
modData = 207, 26, 1070, 570, C
44
frmElement = 34, 92, 920, 532, C, 104, 104, 990, 544, C
5-
frmMass = 214, 191, 1104, 631, , 43, 123, 929, 617, C
5+
frmMass = 163, 208, 1053, 650, C, 43, 123, 929, 617, C
66
modUI = 157, 25, 1043, 461, C
77
modMain = 194, 289, 1080, 729, C
88
modExam = 40, 26, 926, 466, C
99
frmExam = 162, 158, 1093, 598, C, 133, 77, 1019, 548, C
1010
frmAbout = 104, 104, 989, 544, C, 156, 142, 1042, 596, C
11-
frmOptions = 160, 118, 1046, 558, C, 108, 6, 994, 564, C
12-
frmLogin = 445, 53, 1001, 477, , 74, 117, 600, 541, C
11+
frmOptions = 186, 137, 1072, 577, C, 108, 6, 994, 564, C
12+
frmLogin = 445, 53, 1001, 477, C, 74, 117, 600, 541, C
1313
frmSignUp = 0, 0, 527, 424, C, 499, 63, 1026, 487, C
1414
FrmChangePassword = 167, 159, 1051, 599, C, 156, 156, 1041, 596, C
15+
frmpH = 87, 66, 971, 506, C, 394, 81, 1278, 540, C
16+
frmThermodynamics = 232, 20, 1117, 460, , 191, 102, 1075, 612, C
17+
frmGas = 401, 139, 1285, 578, , 134, 16, 1018, 596, C

‎frmGas.frm‎

Lines changed: 253 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,253 @@
1+
VERSION 5.00
2+
Begin VB.Form frmGas
3+
BackColor = &H00C0FFFF&
4+
BorderStyle = 0 'None
5+
Caption = "气体计算器 Designed by 团队一号"
6+
ClientHeight = 5505
7+
ClientLeft = 0
8+
ClientTop = 0
9+
ClientWidth = 5760
10+
Icon = "frmGas.frx":0000
11+
LinkTopic = "Form1"
12+
ScaleHeight = 5505
13+
ScaleWidth = 5760
14+
StartUpPosition = 1 '所有者中心
15+
Begin VB.OptionButton opnT
16+
BackColor = &H00C0FFFF&
17+
Height = 375
18+
Left = 120
19+
TabIndex = 7
20+
Top = 4080
21+
Width = 375
22+
End
23+
Begin VB.OptionButton opnn
24+
BackColor = &H00C0FFFF&
25+
Height = 375
26+
Left = 120
27+
TabIndex = 6
28+
Top = 3480
29+
Width = 375
30+
End
31+
Begin VB.OptionButton opnV
32+
BackColor = &H00C0FFFF&
33+
Height = 375
34+
Left = 120
35+
TabIndex = 5
36+
Top = 2880
37+
Width = 375
38+
End
39+
Begin VB.OptionButton opnp
40+
BackColor = &H00C0FFFF&
41+
Height = 375
42+
Left = 120
43+
TabIndex = 4
44+
Top = 2280
45+
Value = -1 'True
46+
Width = 375
47+
End
48+
Begin VB.TextBox texT
49+
BeginProperty Font
50+
Name = "宋体"
51+
Size = 12
52+
Charset = 134
53+
Weight = 400
54+
Underline = 0 'False
55+
Italic = 0 'False
56+
Strikethrough = 0 'False
57+
EndProperty
58+
ForeColor = &H00000000&
59+
Height = 495
60+
Left = 1920
61+
TabIndex = 3
62+
Top = 4080
63+
Width = 3495
64+
End
65+
Begin VB.TextBox texn
66+
BeginProperty Font
67+
Name = "宋体"
68+
Size = 12
69+
Charset = 134
70+
Weight = 400
71+
Underline = 0 'False
72+
Italic = 0 'False
73+
Strikethrough = 0 'False
74+
EndProperty
75+
ForeColor = &H00000000&
76+
Height = 495
77+
Left = 1920
78+
TabIndex = 2
79+
Top = 3480
80+
Width = 3495
81+
End
82+
Begin VB.TextBox texp
83+
BeginProperty Font
84+
Name = "宋体"
85+
Size = 12
86+
Charset = 134
87+
Weight = 400
88+
Underline = 0 'False
89+
Italic = 0 'False
90+
Strikethrough = 0 'False
91+
EndProperty
92+
ForeColor = &H00000000&
93+
Height = 495
94+
Left = 1920
95+
TabIndex = 0
96+
Top = 2280
97+
Width = 3495
98+
End
99+
Begin VB.CommandButton cmdpH
100+
Caption = "勾选需要计算的量，并点击计算！"
101+
Default = -1 'True
102+
Height = 495
103+
Left = 240
104+
TabIndex = 8
105+
Top = 4800
106+
Width = 5055
107+
End
108+
Begin VB.TextBox texV
109+
BeginProperty Font
110+
Name = "宋体"
111+
Size = 12
112+
Charset = 134
113+
Weight = 400
114+
Underline = 0 'False
115+
Italic = 0 'False
116+
Strikethrough = 0 'False
117+
EndProperty
118+
ForeColor = &H00000000&
119+
Height = 495
120+
Left = 1920
121+
TabIndex = 1
122+
Top = 2880
123+
Width = 3495
124+
End
125+
Begin VB.Label lblT
126+
BackStyle = 0 'Transparent
127+
Caption = "温度T"
128+
BeginProperty Font
129+
Name = "微软雅黑"
130+
Size = 15
131+
Charset = 134
132+
Weight = 400
133+
Underline = 0 'False
134+
Italic = 0 'False
135+
Strikethrough = 0 'False
136+
EndProperty
137+
Height = 495
138+
Left = 480
139+
TabIndex = 12
140+
Top = 4080
141+
Width = 1215
142+
End
143+
Begin VB.Label lbln
144+
BackStyle = 0 'Transparent
145+
Caption = "物质的量n"
146+
BeginProperty Font
147+
Name = "微软雅黑"
148+
Size = 15
149+
Charset = 134
150+
Weight = 400
151+
Underline = 0 'False
152+
Italic = 0 'False
153+
Strikethrough = 0 'False
154+
EndProperty
155+
Height = 495
156+
Left = 480
157+
TabIndex = 11
158+
Top = 3480
159+
Width = 1455
160+
End
161+
Begin VB.Label lblp
162+
BackStyle = 0 'Transparent
163+
Caption = "压强p"
164+
BeginProperty Font
165+
Name = "微软雅黑"
166+
Size = 15
167+
Charset = 134
168+
Weight = 400
169+
Underline = 0 'False
170+
Italic = 0 'False
171+
Strikethrough = 0 'False
172+
EndProperty
173+
Height = 495
174+
Left = 480
175+
TabIndex = 10
176+
Top = 2280
177+
Width = 855
178+
End
179+
Begin VB.Label lblV
180+
BackStyle = 0 'Transparent
181+
Caption = "体积V"
182+
BeginProperty Font
183+
Name = "微软雅黑"
184+
Size = 15
185+
Charset = 134
186+
Weight = 400
187+
Underline = 0 'False
188+
Italic = 0 'False
189+
Strikethrough = 0 'False
190+
EndProperty
191+
Height = 495
192+
Left = 480
193+
TabIndex = 9
194+
Top = 2880
195+
Width = 855
196+
End
197+
Begin VB.Image imgClose
198+
Height = 450
199+
Left = 5280
200+
Picture = "frmGas.frx":1B692
201+
Stretch = -1 'True
202+
Top = 0
203+
Width = 450
204+
End
205+
Begin VB.Image imgTitle
206+
Appearance = 0 'Flat
207+
Height = 2145
208+
Left = -600
209+
Picture = "frmGas.frx":1CB86
210+
Stretch = -1 'True
211+
Top = 0
212+
Width = 7335
213+
End
214+
End
215+
Attribute VB_Name = "frmGas"
216+
Attribute VB_GlobalNameSpace = False
217+
Attribute VB_Creatable = False
218+
Attribute VB_PredeclaredId = True
219+
Attribute VB_Exposed = False
220+
Private Sub cmdCopy_Click()
221+
UICopy (texpHOut)
222+
End Sub
223+
224+
Private Sub cmdpH_Click()
225+
Dim p As Double, v As Double, n As Double, T As Double
226+
p = Val(texp)
227+
v = Val(texV)
228+
n = Val(texn)
229+
T = Val(texT)
230+
If opnp Then
231+
texp = calGasp(v, n, T)
232+
ElseIf opnV Then
233+
texV = calGasV(p, n, T)
234+
ElseIf opnn Then
235+
texn = calGasn(p, v, T)
236+
Else
237+
texT = calGasT(p, v, n)
238+
End If
239+
End Sub
240+
241+
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
242+
ReleaseCapture
243+
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
244+
End Sub
245+
246+
Private Sub imgClose_Click()
247+
Unload Me
248+
End Sub
249+
250+
Private Sub imgTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
251+
ReleaseCapture
252+
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
253+
End Sub

‎frmGas.frx‎

161 KB
Binary file not shown.

‎frmSignUp.frm‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@ Begin VB.Form frmSignUp
2626
End
2727
Begin VB.CheckBox chkAgree
2828
BackColor = &H00C0FFFF&
29-
Caption = "我同意遵守《用户使用条款》。"
29+
Caption = "我同意遵守国家有关法律法规。"
3030
BeginProperty Font
3131
Name = "微软雅黑"
3232
Size = 12

0 commit comments

Comments
 (0)