📄 mnuldoparametertest.frm
字号:
Top = 960
Width = 375
End
Begin VB.Line Line21
X1 = 1080
X2 = 1080
Y1 = 840
Y2 = 9000
End
Begin VB.Label Label20
Caption = "TEST"
Height = 255
Left = 14400
TabIndex = 27
Top = 1680
Width = 375
End
Begin VB.Line Line20
X1 = 14160
X2 = 14160
Y1 = 840
Y2 = 9000
End
Begin VB.Label Label19
Caption = "1"
Height = 255
Left = 12600
TabIndex = 26
Top = 1680
Width = 135
End
Begin VB.Label Label18
Caption = "V"
Height = 255
Left = 11640
TabIndex = 22
Top = 1680
Width = 135
End
Begin VB.Label Label17
Caption = "X 1.02"
Height = 255
Left = 10200
TabIndex = 21
Top = 1440
Width = 615
End
Begin VB.Label Label16
Caption = "X 0.98"
Height = 255
Left = 7200
TabIndex = 20
Top = 1440
Width = 615
End
Begin VB.Label Label15
Caption = "VOUT(T)"
Height = 255
Left = 8640
TabIndex = 19
Top = 1440
Width = 615
End
Begin VB.Label Label14
Caption = "Driver Voltage ="
Height = 255
Left = 240
TabIndex = 17
Top = 480
Width = 1575
End
Begin VB.Label Label13
Caption = "IOUT ="
Height = 255
Left = 4440
TabIndex = 15
Top = 1800
Width = 615
End
Begin VB.Label Label12
Caption = "VIN = "
Height = 255
Left = 4440
TabIndex = 13
Top = 1440
Width = 615
End
Begin VB.Label Label11
Caption = "VOUT(E)"
Height = 255
Left = 3000
TabIndex = 12
Top = 1680
Width = 615
End
Begin VB.Label Label10
Caption = "Output Voltage"
Height = 255
Left = 1320
TabIndex = 11
Top = 1680
Width = 1335
End
Begin VB.Label Label9
Caption = "RESULT"
Height = 255
Left = 14280
TabIndex = 10
Top = 960
Width = 615
End
Begin VB.Label Label8
Caption = "CIRCUIT"
Height = 255
Left = 12360
TabIndex = 9
Top = 960
Width = 615
End
Begin VB.Label Label7
Caption = "UNITS"
Height = 255
Left = 11520
TabIndex = 8
Top = 960
Width = 495
End
Begin VB.Label Label6
Caption = "MAX"
Height = 255
Left = 10200
TabIndex = 7
Top = 960
Width = 255
End
Begin VB.Label Label5
Caption = "TYP"
Height = 255
Left = 8760
TabIndex = 6
Top = 960
Width = 375
End
Begin VB.Label Label4
Caption = "MIN"
Height = 255
Left = 7320
TabIndex = 5
Top = 960
Width = 375
End
Begin VB.Label Label3
Caption = "CONDITIONS"
Height = 255
Left = 4800
TabIndex = 4
Top = 960
Width = 975
End
Begin VB.Label Label2
Caption = "SYMBOL"
Height = 255
Left = 3000
TabIndex = 3
Top = 960
Width = 615
End
Begin VB.Label Label1
Caption = "PARAMETER"
Height = 255
Left = 1560
TabIndex = 2
Top = 960
Width = 855
End
Begin VB.Line Line19
X1 = 13080
X2 = 13080
Y1 = 840
Y2 = 9000
End
Begin VB.Line Line18
X1 = 12240
X2 = 12240
Y1 = 840
Y2 = 9000
End
Begin VB.Line Line17
X1 = 11280
X2 = 11280
Y1 = 840
Y2 = 9000
End
Begin VB.Line Line16
X1 = 9720
X2 = 9720
Y1 = 840
Y2 = 9000
End
Begin VB.Line Line15
X1 = 8160
X2 = 8160
Y1 = 840
Y2 = 9000
End
Begin VB.Line Line14
X1 = 6840
X2 = 6840
Y1 = 840
Y2 = 9000
End
Begin VB.Line Line13
X1 = 3840
X2 = 3840
Y1 = 840
Y2 = 9000
End
Begin VB.Line Line12
X1 = 2760
X2 = 2760
Y1 = 840
Y2 = 9000
End
Begin VB.Line Line11
X1 = 240
X2 = 15000
Y1 = 1320
Y2 = 1320
End
Begin VB.Line Line10
X1 = 15000
X2 = 15000
Y1 = 840
Y2 = 9000
End
Begin VB.Line Line9
X1 = 240
X2 = 240
Y1 = 840
Y2 = 9000
End
Begin VB.Line Line8
X1 = 240
X2 = 15000
Y1 = 9000
Y2 = 9000
End
Begin VB.Line Line7
X1 = 240
X2 = 15000
Y1 = 7680
Y2 = 7680
End
Begin VB.Line Line6
X1 = 240
X2 = 15000
Y1 = 6480
Y2 = 6480
End
Begin VB.Line Line5
X1 = 240
X2 = 15000
Y1 = 5760
Y2 = 5760
End
Begin VB.Line Line4
X1 = 240
X2 = 15000
Y1 = 4080
Y2 = 4080
End
Begin VB.Line Line3
X1 = 240
X2 = 15000
Y1 = 3240
Y2 = 3240
End
Begin VB.Line Line2
X1 = 240
X2 = 15000
Y1 = 2160
Y2 = 2160
End
Begin VB.Line Line1
X1 = 240
X2 = 15000
Y1 = 840
Y2 = 840
End
Begin VB.Label title
Caption = "LDO参数测试"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6720
TabIndex = 1
Top = 120
Width = 1695
End
Begin VB.Label verlab
Caption = "Ver:1.0.0"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6840
TabIndex = 0
Top = 480
Width = 1335
End
End
Attribute VB_Name = "mnuldoparametertest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义变量
Dim outvoltagetestcheck As Boolean '输出电压测试选择
Dim maxoutcurrentestcheck As Boolean '最大输出电流测试选择
Dim loadregulationtestcheck As Boolean '负载调整率测试选择
Dim dropoutvoltagetestcheck As Boolean '压差测试选择
Dim supplycurrenttestcheck As Boolean '静耗电流测试选择
Dim lineregulationtestcheck As Boolean '线性调整率测试选择
Dim inputvoltagetestcheck As Boolean '输入电压测试选择
Dim currentlimitertestcheck As Boolean '电流极限测试选择
Dim outvoltagetestflag As Boolean '输出电压测试判断
Dim maxoutcurrentestflag As Boolean '最大输出电流测试判断
Dim loadregulationtestflag As Boolean '负载调整率测试判断
Dim dropoutvoltagetestflag As Boolean '压差测试判断
Dim supplycurrenttestflag As Boolean '静耗电流测试判断
Dim lineregulationtestflag As Boolean '线性调整率测试判断
Dim inputvoltagetestflag As Boolean '输入电压测试判断
Dim currentlimitertestflag As Boolean '电流极限测试判断
Dim alltestflag As Boolean '所有测试判断
Dim drivervoltagevalue As Single '器件电压值
Dim outputvoltagevinvalue As Single '输出电压/输入值
Dim outputvoltageioutvalue As Single '输出电压/输出电流给定值
Dim outputvolatgevoutvalue As Single '输出电压/输出实际测量值
Dim maxoutcurrentvinvalue As Single '最大输出电流/输入电压值
Dim maxoutcurrentvoutvalue As Single '最大输出电流/输出电压值
Dim maxoutcurrentioutvalue As Single '最大输出电流/输出电流实际测量值
Dim loadregulationvinvalue As Single '负载调整率/输入电压值
Dim loadregulationiinminvalue As Single '负载调整率/输入电流最小值
Dim loadregulationiinmaxvalue As Single '负载调整率/输入电流最大值
Dim dropoutvoltagevdif1vinvalue As Single '压差1/输入电压
Dim dropoutvolatgevdif1ioutvalue As Single '压差1/输出电流
Dim dropoutvaltagevdif1voutvalue As Single '压差1/输出电压
Dim dropoutvaltagevdif1vvalue As Single '压差1/压差
Dim dropoutvoltagevdif2vinvalue As Single '压差2/输入电压
Dim dropoutvolatgevdif2ioutvalue As Single '压差2/输出电流
Dim dropoutvaltagevdif2voutvalue As Single '压差2/输出电压
Dim dropoutvaltagevdif2vvalue As Single '压差2/压差
Dim supplycurrentvinvalue As Single '静耗电流/输入电压值
Dim supplycurrentioutvalue As Single '静耗电流/静耗
Dim lineregulationvinstandvalue As Single '线性调整率/输入电压标准值
Dim lineregulationvinmaxvalue As Single '线性调整率/输入电压最大值
Dim lineregulationioutvalue As Single '线性调整率/电流输出值
Dim lineregulationvalue As Single '线性调整率
Dim inputvoltageminvalue As Single '输入电压最小值
Dim inputvoltagemaxvalue As Single '输入电压最大值
Dim currentlimitervinstandvalue As Single '极限电流/输入电压标准值
Dim currentlimitervinoffvalue As Single '极限电流/输入电压偏移值
Private Sub Check1_Click()
If Check1.value Then
outvoltagetestcheck = True
Else
outvoltagetestcheck = False
Label20.ForeColor = vbBlack
End If
End Sub
Private Sub Check2_Click()
If Check2.value Then
maxoutcurrentestcheck = True
Else
maxoutcurrentestcheck = False
Label30.ForeColor = vbBlack
End If
End Sub
Private Sub Check3_Click()
If Check3.value Then
loadregulationtestcheck = True
Else
loadregulationtestcheck = False
Label37.ForeColor = vbBlack
End If
End Sub
Private Sub Check4_Click()
If Check4.value Then
dropoutvoltagetestcheck = True
Else
dropoutvoltagetestcheck = False
Label38.ForeColor = vbBlack
End If
End Sub
Private Sub Check5_Click()
If Check5.value Then
supplycurrenttestcheck = True
Else
supplycurrenttestcheck = False
Label54.ForeColor = vbBlack
End If
End Sub
Private Sub Check6_Click()
If Check6.value Then
lineregulationtestcheck = True
Else
lineregulationtestcheck = False
Label63.ForeColor = vbBlack
End If
End Sub
Private Sub Check7_Click()
If Check7.value Then
inputvoltagetestcheck = True
Else
inputvoltagetestcheck = False
Label68.ForeColor = vbBlack
End If
End Sub
Private Sub Check8_Click()
If Check8.value Then
currentlimitertestcheck = True
Else
currentlimitertestcheck = False
Label74.ForeColor = vbBlack
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -