hp34401.frm

自动化测量中利用远程控制agilent34401的一个例程

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3555
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5280
   LinkTopic       =   "Form1"
   ScaleHeight     =   3555
   ScaleWidth      =   5280
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command6 
      Caption         =   "Exit"
      Height          =   372
      Left            =   3960
      TabIndex        =   6
      Top             =   2880
      Width           =   1092
   End
   Begin VB.CommandButton Command5 
      Caption         =   "IDN?"
      Height          =   372
      Left            =   360
      TabIndex        =   5
      Top             =   2880
      Width           =   1092
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Resistor"
      Height          =   372
      Left            =   3960
      TabIndex        =   4
      Top             =   2400
      Width           =   1092
   End
   Begin VB.CommandButton Command3 
      Caption         =   "DC Voltage"
      Height          =   372
      Left            =   2760
      TabIndex        =   3
      Top             =   2400
      Width           =   1092
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Frequency"
      Height          =   372
      Left            =   1560
      TabIndex        =   2
      Top             =   2400
      Width           =   1092
   End
   Begin VB.CommandButton Command1 
      Caption         =   "AC Voltage"
      Height          =   372
      Left            =   360
      TabIndex        =   1
      Top             =   2400
      Width           =   1092
   End
   Begin VB.TextBox Text1 
      Height          =   1692
      Left            =   360
      TabIndex        =   0
      Text            =   "Click button to run"
      Top             =   360
      Width           =   4572
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rm As Long
Dim vi As Long
Dim result As String * 100

Private Sub Command1_Click()

' Pls set GPIB address accordingly
Call viVPrintf(vi, "meas:volt:ac? 250,0.01" & Chr(10), 0)
Call viVScanf(vi, "%t", result)
Text1.Text = result
Text1.Text = Text1.Text & "V"
End Sub

Private Sub Command2_Click()

Call viVPrintf(vi, "meas:freq? 100,0.1" & Chr(10), 0)
Call viVScanf(vi, "%t", result)
Text1.Text = result
Text1.Text = Text1.Text & "Hz"
End Sub

Private Sub Command3_Click()
Call viVPrintf(vi, "meas:volt:dc? 10,0.01" & Chr(10), 0)
Call viVScanf(vi, "%t", result)
Text1.Text = result
Text1.Text = Text1.Text & "V"
End Sub

Private Sub Command4_Click()
Call viVPrintf(vi, "meas:res?" & Chr(10), 0)
Call viVScanf(vi, "%t", result)
Text1.Text = result
Text1.Text = Text1.Text & "ohm"
End Sub

Private Sub Command5_Click()
Call viVPrintf(vi, "*rst" & Chr(10), 0)
Call viVPrintf(vi, "*cls" & Chr(10), 0)
Call viVPrintf(vi, "*idn?" & Chr(10), 0)
Call viVScanf(vi, "%t", result)
Text1.Text = result
End Sub

Private Sub Command6_Click()
Call viClose(vi)
Call viClose(rm)
End
End Sub

Private Sub Form_Load()

Call viOpenDefaultRM(rm)
Call viOpen(rm, "GPIB0::15::INSTR", O, O, vi)

End Sub