📄 form1.frm
字号:
Name = "隶书"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3495
Left = 9240
TabIndex = 11
Top = 600
Width = 4335
Begin VB.TextBox Text9
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1800
TabIndex = 30
Text = "Text9"
Top = 2640
Width = 2295
End
Begin VB.TextBox Text8
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1800
TabIndex = 29
Text = "Text8"
Top = 1680
Width = 2295
End
Begin VB.TextBox Text7
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1800
TabIndex = 28
Text = "Text7"
Top = 720
Width = 2295
End
Begin VB.Label Label15
Caption = "被检表系数3"
Height = 495
Left = 120
TabIndex = 14
Top = 2760
Width = 1455
End
Begin VB.Label Label14
Caption = "被检表系数2"
Height = 375
Left = 120
TabIndex = 13
Top = 1800
Width = 1455
End
Begin VB.Label Label13
Caption = "被检表系数1"
Height = 375
Left = 120
TabIndex = 12
Top = 840
Width = 1455
End
End
Begin VB.Frame Frame2
Caption = "被测表脉冲数"
BeginProperty Font
Name = "隶书"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 3495
Left = 4920
TabIndex = 1
Top = 600
Width = 3975
Begin VB.TextBox Text6
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1560
TabIndex = 27
Text = "Text6"
Top = 2640
Width = 2055
End
Begin VB.TextBox Text5
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1560
TabIndex = 26
Text = "Text5"
Top = 1680
Width = 2055
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1560
TabIndex = 25
Text = "Text4"
Top = 720
Width = 2055
End
Begin VB.Label Label9
Caption = "被检表脉冲3"
Height = 375
Left = 120
TabIndex = 10
Top = 2760
Width = 1455
End
Begin VB.Label Label8
Caption = "被检表脉冲2"
Height = 375
Left = 120
TabIndex = 9
Top = 1800
Width = 1455
End
Begin VB.Label Label7
Caption = "被检表脉冲1"
Height = 375
Left = 120
TabIndex = 8
Top = 840
Width = 1455
End
End
Begin VB.Frame Frame1
Caption = "标准表数据"
BeginProperty Font
Name = "隶书"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 3495
Left = 480
TabIndex = 0
Top = 600
Width = 3855
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1680
TabIndex = 5
Text = "Text3"
Top = 2640
Width = 1935
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1680
TabIndex = 4
Text = "Text2"
Top = 1680
Width = 1935
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 1680
TabIndex = 3
Text = "Text1"
Top = 720
Width = 1935
End
Begin VB.Label Label3
Caption = "标准表脉冲3"
Height = 375
Left = 120
TabIndex = 7
Top = 2760
Width = 1335
End
Begin VB.Label Label2
Caption = "标准表脉冲2"
Height = 375
Left = 120
TabIndex = 6
Top = 1800
Width = 1335
End
Begin VB.Label Label1
Caption = "标准表脉冲1"
Height = 375
Left = 120
TabIndex = 2
Top = 840
Width = 1335
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public bzmc1, bzmc2, bzmc3 As Integer
Public bjmc1, bjmc2, bjmc3 As Integer
Public time_mc, time_zq As Integer
Public bjxs1, bjcs3, bjxs3 As Double
Public bzxs, sbjxs, bjxs, bjwc, bzsl, bjsl As Double
Public temp1, temp2, temp3, temp4, temp5, temp6, temp7, temp8 As Double
Private Sub Command1_Click()
'Text3.Text = Inport(&H37A)
bzmc1 = Val(Text1.Text)
bzmc2 = Val(Text2.Text)
bzmc3 = Val(Text3.Text)
bjmc1 = Val(Text4.Text)
bzxs = Val(Text10.Text)
bjxs1 = (bzxs * bjmc1) / bzmc1
temp1 = Val(bjxs1)
Text7.Text = Format(temp1, "0.000000")
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
End Sub
Private Sub Form_Load()
LicenseInfo "fangketian", 1480752
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -