?? 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參數(shù)測試"
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 '負載調(diào)整率測試選擇
Dim dropoutvoltagetestcheck As Boolean '壓差測試選擇
Dim supplycurrenttestcheck As Boolean '靜耗電流測試選擇
Dim lineregulationtestcheck As Boolean '線性調(diào)整率測試選擇
Dim inputvoltagetestcheck As Boolean '輸入電壓測試選擇
Dim currentlimitertestcheck As Boolean '電流極限測試選擇
Dim outvoltagetestflag As Boolean '輸出電壓測試判斷
Dim maxoutcurrentestflag As Boolean '最大輸出電流測試判斷
Dim loadregulationtestflag As Boolean '負載調(diào)整率測試判斷
Dim dropoutvoltagetestflag As Boolean '壓差測試判斷
Dim supplycurrenttestflag As Boolean '靜耗電流測試判斷
Dim lineregulationtestflag As Boolean '線性調(diào)整率測試判斷
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 '負載調(diào)整率/輸入電壓值
Dim loadregulationiinminvalue As Single '負載調(diào)整率/輸入電流最小值
Dim loadregulationiinmaxvalue As Single '負載調(diào)整率/輸入電流最大值
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 '線性調(diào)整率/輸入電壓標準值
Dim lineregulationvinmaxvalue As Single '線性調(diào)整率/輸入電壓最大值
Dim lineregulationioutvalue As Single '線性調(diào)整率/電流輸出值
Dim lineregulationvalue As Single '線性調(diào)整率
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 + -