📄 form1.frm
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4455
ClientLeft = 60
ClientTop = 450
ClientWidth = 4620
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 4455
ScaleWidth = 4620
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdRight
Caption = "◆"
Height = 375
Left = 480
TabIndex = 7
Top = 3720
Width = 1095
End
Begin VB.TextBox Text1
Height = 495
Left = 240
TabIndex = 6
Text = "Text1"
Top = 1080
Width = 735
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 600
Top = 3240
End
Begin VB.CommandButton cmdPower
Caption = "POWER"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3240
TabIndex = 5
Top = 2520
Width = 1215
End
Begin RichTextLib.RichTextBox RichTextBox1
Height = 1815
Left = 1080
TabIndex = 4
Top = 360
Width = 2415
_ExtentX = 4260
_ExtentY = 3201
_Version = 393217
TextRTF = $"Form1.frx":0000
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton cmdDown
Caption = "▼"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 3
Top = 3720
Width = 975
End
Begin VB.CommandButton cmdUp
Caption = "▲"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1920
TabIndex = 2
Top = 3720
Width = 975
End
Begin VB.CommandButton cmdBack
Caption = "NO"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1680
TabIndex = 1
Top = 2520
Width = 1215
End
Begin VB.CommandButton cmdGoon
Caption = "YES"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 0
Top = 2520
Width = 1095
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim menu As Boolean
Dim DataMup As Integer, DataMdown As Integer, DataMOK As Integer
Dim menuUp As Integer, menuDown As Integer, menuRow As Integer, menuOk As Integer
Dim bdUp As Integer, bdDown As Integer, bdOk As Integer
Dim bdmxUp As Integer, bdmxDown As Integer, bdmxOk As Integer
Dim bdj As Integer, bdk As Integer
Private Sub cmdBack_Click()
If menu = True Then
If menuRow = 1 And (menuOk = 1 Or menuOk = 2 Or menuOk = 3 Or menuOk = 4 Or menuOk = 5) Then
RichTextBox1.Text = " " & Chr(13) & " 中国水产" & Chr(13) & Date & " " & Time & Chr(13) & ""
menuRow = 0
menuUp = 0
menuDown = 0
menu = False
Exit Sub
End If
If menuRow = 2 And (DataMOK = 1 Or DataMOK = 2 Or DataMOK = 3 Or DataMOK = 4 Or DataMOK = 5 Or DataMOK = 6 Or DataMOK = 7 Or DataMOK = 8 Or DataMOK = 9 Or DataMOK = 10 Or DataMOK = 11 Or DataMOK = 12 Or DataMOK = 13) Then
RichTextBox1.Text = " " & Chr(13) & " 数据测量"
menuRow = 1
DataMdown = 0
DataMup = 0
DataMOK = 0
Exit Sub
End If
If menuRow = 2 And (bdOk = 1 Or bdOk = 2 Or bdOk = 3 Or bdOk = 4 Or bdOk = 50 Or bdOk = 60 Or bdOk = 70 Or bdOk = 80 Or bdOk = 90 Or bdOk = 100 Or bdOk = 110 Or bdOk = 120 Or bdOk = 130) Then
RichTextBox1.Text = " " & Chr(13) & " 仪器标定"
menuRow = 1
bdDown = 0
bdUp = 0
bdOk = 0
Exit Sub
End If
If menuRow = 3 And (bdOk = 50 Or bdOk = 60 Or bdOk = 70 Or bdOk = 80 Or bdOk = 90 Or bdOk = 100 Or bdOk = 110 Or bdOk = 120 Or bdOk = 130) Then
menuRow = 2
Select Case bdj
Case 5
RichTextBox1.Text = " " & Chr(13) & " H2S标定"
Case 6
RichTextBox1.Text = " " & Chr(13) & " N3H标定"
Case 7
RichTextBox1.Text = " " & Chr(13) & " 磷标定"
Case 8
RichTextBox1.Text = " " & Chr(13) & " 氰化物标定"
Case 9
RichTextBox1.Text = " " & Chr(13) & " 氟化物标定"
Case 10
RichTextBox1.Text = " " & Chr(13) & " 锌标定"
Case 11
RichTextBox1.Text = " " & Chr(13) & " 亚硝酸盐标定"
Case 12
RichTextBox1.Text = " " & Chr(13) & " 硝酸盐标定"
Case 13
RichTextBox1.Text = " " & Chr(13) & " 铜标定"
End Select
bdj = 0
bdk = 0
bdmxUp = 0
bdmxDown = 0
Exit Sub
End If
End If
End Sub
Private Sub cmdDown_Click()
If menu = True Then
If menuRow = 1 And DataMdown = 0 Then
Text1.Text = menuDown
Select Case menuDown
Case 1
RichTextBox1.Text = " " & Chr(13) & " 数据测量"
menuOk = 1
menuUp = 5
menuDown = menuDown + 1
Case 2
RichTextBox1.Text = " " & Chr(13) & " 数据查阅"
menuOk = 2
menuUp = menuDown - 1
menuDown = menuDown + 1
Case 3
RichTextBox1.Text = " " & Chr(13) & " 仪器标定"
menuOk = 3
menuUp = menuDown - 1
menuDown = menuDown + 1
Case 4
RichTextBox1.Text = " " & Chr(13) & " 时间调整"
menuOk = 4
menuUp = menuDown - 1
menuDown = menuDown + 1
Case 5
RichTextBox1.Text = " " & Chr(13) & " 数据通讯"
menuOk = 5
menuUp = 4
menuDown = 1
End Select
End If
'测量
DataMdownsub
bdDownsub
bdj = bdmxDown \ 10
bdk = bdmxDown Mod 10
If menuRow = 3 And menuOk = 3 Then
If bdk = 0 Then
RichTextBox1.Text = " " & Chr(13) & " 存水标定"
bdmxOk = 1
bdmxUp = bdmxDown + 3
bdmxDown = bdmxDown + 1
End If
If bdk = 1 Then
RichTextBox1.Text = " " & Chr(13) & " 标定0.2溶液"
bdmxOk = 2
bdmxUp = bdmxDown - 1
bdmxDown = bdmxDown + 1
End If
If bdk = 2 Then
RichTextBox1.Text = " " & Chr(13) & " 标定0.6溶液"
bdmxOk = 3
bdmxUp = bdmxDown - 1
bdmxDown = bdmxDown + 1
End If
If bdk = 3 Then
RichTextBox1.Text = " " & Chr(13) & " 标定1.0溶液"
bdmxOk = 4
bdmxUp = bdmxDown - 1
bdmxDown = bdmxDown - 3
End If
End If
End If
End Sub
Private Sub bdDownsub()
If menuRow = 2 And menuOk = 3 Then
Text1.Text = bdDown
Select Case bdDown
Case 2
RichTextBox1.Text = " " & Chr(13) & " PH标定"
bdOk = 2
bdUp = 130
bdDown = 3
Case 3
RichTextBox1.Text = " " & Chr(13) & " 盐份标定"
bdOk = 3
bdUp = 2
bdDown = 4
Case 4
RichTextBox1.Text = " " & Chr(13) & " 含氧标定"
bdOk = 4
bdUp = 3
bdDown = 50
Case 50
RichTextBox1.Text = " " & Chr(13) & " H2S标定"
bdOk = 50
bdUp = 4
bdDown = 60
Case 60
RichTextBox1.Text = " " & Chr(13) & " N3H标定"
bdOk = 60
bdUp = 50
bdDown = 70
Case 70
RichTextBox1.Text = " " & Chr(13) & " 磷标定"
bdOk = 70
bdUp = 60
bdDown = 80
Case 80
RichTextBox1.Text = " " & Chr(13) & " 氰化物标定"
bdOk = 80
bdUp = 70
bdDown = 90
Case 90
RichTextBox1.Text = " " & Chr(13) & " 氟化物标定"
bdOk = 90
bdUp = 80
bdDown = 100
Case 100
RichTextBox1.Text = " " & Chr(13) & " 锌标定"
bdOk = 100
bdUp = 90
bdDown = 110
Case 110
RichTextBox1.Text = " " & Chr(13) & " 亚硝酸盐标定"
bdOk = 110
bdUp = 100
bdDown = 120
Case 120
RichTextBox1.Text = " " & Chr(13) & " 硝酸盐标定"
bdOk = 120
bdUp = 110
bdDown = 130
Case 130
RichTextBox1.Text = " " & Chr(13) & " 铜标定"
bdOk = 130
bdUp = 120
bdDown = 2
End Select
End If
End Sub
Private Sub DataMdownsub()
If menuRow = 2 And menuOk = 1 Then
Text1.Text = DataMdown
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -