mnuhp6611c.frm

LDO在线测试程序

VERSION 5.00
Begin VB.Form mnuhp6611c 
   Caption         =   "HP-6611C连机测试"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   WindowState     =   2  'Maximized
   Begin VB.Label Label3 
      Caption         =   "Label3"
      Height          =   375
      Left            =   840
      TabIndex        =   2
      Top             =   2520
      Width           =   2895
   End
   Begin VB.Label Label2 
      Caption         =   "Label2"
      Height          =   495
      Left            =   840
      TabIndex        =   1
      Top             =   1680
      Width           =   2775
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   375
      Left            =   840
      TabIndex        =   0
      Top             =   840
      Width           =   1815
   End
End
Attribute VB_Name = "mnuhp6611c"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    'hp34401aopen
    'hp34401arst
    'Label2.Caption = hp34401ameasuredccurrent
    'Label3.Caption = hp34401aidn
    'DMM.WriteString ":syst:beep;:disp:text " & "'" & "MY" & "'"
    
    'keithley2400open
    'Label1.Caption = keithley2400idn
    
    'hp6611copen
    'hp6611crst
    'hp6611csetvoltage (1.3)
    'hp6611csetcurrent (0.1)
    'hp6611coutputon
    'Label1.Caption = hp6611cmeasurevoltage
    
    'keithley2400open
    'keithley2400rst
    'keithley2400setvolatge (-7.55)
    'Label1.Caption = keithley2400sensvolatge
    'keithley2400setcurrent (-0.03)
    'keithley2400outputon
    'delay 1000
    'keithley2400outputoff
End Sub