📄 fomspec1.frm
字号:
VERSION 4.00
Begin VB.Form fomspec1
BorderStyle = 3 'Fixed Dialog
Caption = "Specification 5101B - 6 months"
ClientHeight = 3720
ClientLeft = 195
ClientTop = 945
ClientWidth = 5790
Height = 4125
Left = 135
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3720
ScaleWidth = 5790
ShowInTaskbar = 0 'False
Top = 600
Width = 5910
Begin TabDlg.SSTab SSTab1
Height = 3135
Left = 240
TabIndex = 0
Top = 240
Width = 5295
_version = 65536
_extentx = 9340
_extenty = 5530
_stockprops = 15
caption = "AC"
tabsperrow = 3
tab = 2
taborientation = 0
tabs = 3
style = 0
tabmaxwidth = 0
tabheight = 529
tabcaption(0) = "DC"
tab(0).controlcount= 7
tab(0).controlenabled= 0 'False
tab(0).control(0)= "Grid1"
tab(0).control(1)= "Label1"
tab(0).control(2)= "Label2"
tab(0).control(3)= "Label3"
tab(0).control(4)= "Label4"
tab(0).control(5)= "Label5"
tab(0).control(6)= "Label18"
tabcaption(1) = "OHM"
tab(1).controlcount= 4
tab(1).controlenabled= 0 'False
tab(1).control(0)= "Grid3"
tab(1).control(1)= "Label12"
tab(1).control(2)= "Label13"
tab(1).control(3)= "Label14"
tabcaption(2) = "AC"
tab(2).controlcount= 9
tab(2).controlenabled= -1 'True
tab(2).control(0)= "Grid2"
tab(2).control(1)= "Label6"
tab(2).control(2)= "Label7"
tab(2).control(3)= "Label8"
tab(2).control(4)= "Label9"
tab(2).control(5)= "Label10"
tab(2).control(6)= "Label11"
tab(2).control(7)= "Text1"
tab(2).control(8)= "Text2"
Begin VB.TextBox Text2
Appearance = 0 'Flat
Height = 285
Left = 3480
Locked = -1 'True
TabIndex = 15
Text = "50Hz - 1 kHz "
Top = 2640
Width = 1215
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Height = 285
Left = 1800
Locked = -1 'True
TabIndex = 14
Text = "50Hz - 10kHz"
Top = 2640
Width = 1335
End
Begin VB.Label Label18
Caption = $"FOMSPEC1.frx":0000
BeginProperty Font
name = "宋体"
charset = 1
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = -74640
TabIndex = 20
Top = 2520
Width = 4725
End
Begin VB.Label Label14
Caption = "注：绝对不确定度=± % of output。"
BeginProperty Font
name = "宋体"
charset = 1
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = -74520
TabIndex = 19
Top = 2280
Width = 3405
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "% of output:"
Height = 195
Left = -74280
TabIndex = 18
Top = 1320
Width = 840
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "Range:"
Height = 195
Left = -74280
TabIndex = 17
Top = 960
Width = 525
End
Begin MSGrid.Grid Grid3
Height = 975
Left = -73200
TabIndex = 16
Top = 960
Width = 2895
_version = 65536
_extentx = 5106
_extenty = 1720
_stockprops = 77
backcolor = 16777215
cols = 8
fixedrows = 0
fixedcols = 0
highlight = 0 'False
mouseicon = "FOMSPEC1.frx":0049
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "Frequency Band:"
Height = 195
Left = 300
TabIndex = 13
Top = 2640
Width = 1215
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "ACI"
Height = 195
Left = 3840
TabIndex = 12
Top = 600
Width = 255
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "ACV"
Height = 195
Left = 2160
TabIndex = 11
Top = 600
Width = 315
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "floor:"
Height = 195
Left = 1200
TabIndex = 10
Top = 1680
Width = 345
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "% of range:"
Height = 195
Left = 770
TabIndex = 9
Top = 1320
Width = 795
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "% of output:"
Height = 195
Left = 720
TabIndex = 8
Top = 960
Width = 840
End
Begin MSGrid.Grid Grid2
Height = 1335
Left = 1800
TabIndex = 7
Top = 960
Width = 2895
_version = 65536
_extentx = 5106
_extenty = 2355
_stockprops = 77
backcolor = 16777215
rows = 3
fixedrows = 0
fixedcols = 0
highlight = 0 'False
mouseicon = "FOMSPEC1.frx":0065
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "DCI"
Height = 195
Left = -71280
TabIndex = 6
Top = 600
Width = 270
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "DCV"
Height = 195
Left = -72840
TabIndex = 5
Top = 600
Width = 330
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "floor:"
Height = 195
Left = -73800
TabIndex = 4
Top = 1680
Width = 345
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "% of range:"
Height = 195
Left = -74230
TabIndex = 3
Top = 1320
Width = 795
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "% of output:"
Height = 195
Left = -74280
TabIndex = 2
Top = 960
Width = 840
End
Begin MSGrid.Grid Grid1
Height = 1335
Left = -73200
TabIndex = 1
Top = 960
Width = 2895
_version = 65536
_extentx = 5106
_extenty = 2355
_stockprops = 77
backcolor = 16777215
rows = 3
fixedrows = 0
fixedcols = 0
highlight = 0 'False
mouseicon = "FOMSPEC1.frx":0081
End
End
End
Attribute VB_Name = "fomspec1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim i, j As Integer
'dc specification ini
specdc1 = Array("0.005", "0.025")
specdc2 = Array("0.001", "0.0025")
specdc3 = Array("5μV", "0.01μA")
For j = 0 To 1
For i = 0 To 2
If i = 0 Then
specdc = specdc1
ElseIf i = 1 Then
specdc = specdc2
Else
specdc = specdc3
End If
Grid1.Row = i
Grid1.Col = j
Grid1.RowHeight(i) = 300
Grid1.ColWidth(j) = 1400
Grid1.Text = specdc(j)
Next i
Next j
'ohm specification ini
specohm1 = Array("1Ω", "10Ω", "100Ω", "1kΩ", "10kΩ", "100kΩ", "1MΩ", "10MΩ")
specohm2 = Array("0.02", "0.01", "0.005", "0.005", "0.005", "0.005", "0.01", "0.05")
For j = 0 To 7
For i = 0 To 1
If i = 0 Then
specohm = specohm1
Else
specohm = specohm2
End If
Grid3.Row = i
Grid3.Col = j
Grid3.RowHeight(i) = 300
Grid3.ColWidth(j) = 800
Grid3.Text = specohm(j)
Next i
Next j
'ac specification ini
specac1 = Array("0.05", "0.07")
specac2 = Array("0.005", "0.01")
specac3 = Array("50μV", "2μA")
For j = 0 To 1
For i = 0 To 2
If i = 0 Then
specac = specac1
ElseIf i = 1 Then
specac = specac2
Else
specac = specac3
End If
Grid2.Row = i
Grid2.Col = j
Grid2.RowHeight(i) = 300
Grid2.ColWidth(j) = 1400
Grid2.Text = specac(j)
Next i
Next j
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -