VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "U2002A"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'仪器初始化
Private rm As VisaComLib.ResourceManager
Private instrument As VisaComLib.FormattedIO488 '库中成员函数的定义

Private OpenFlag1 As Boolean                    '是否已打开仪器2

Private Sub Class_Initialize()
    OpenFlag1 = False
End Sub

'open instrument and close RF
Function OpenSource(Name As String) As Boolean
On Error GoTo aa
    Set rm = New VisaComLib.ResourceManager
    Set instrument = New VisaComLib.FormattedIO488
    Set instrument.IO = rm.Open(Name)
    instrument.IO.Timeout = 30000
    instrument.IO.TerminationCharacterEnabled = True
    instrument.WriteString "INITiate:CONTinuous OFF"
    SetFlag Name, True
    OpenSource = True
    Exit Function
aa:
    MsgBox Name & "未打开！", vbCritical, "连接错误"
    SetFlag Name, False
    OpenSource = False
End Function

Sub SetFlag(ByVal Name As String, ByVal Val As Boolean)
    If Name = "PS" Then
        OpenFlag1 = Val
    End If
End Sub

Function OpenFlag(ByVal Name As String) As Boolean
    If Name = "SA" Then
        OpenFlag = OpenFlag1
    End If
End Function

Function FetchData()
On Error GoTo ErrHandle
    instrument.WriteString "UNIT:POW DBM"   '单位设置
    
    instrument.WriteString "Form Ascii"     '输出数据类型设置
    
    instrument.WriteString "INIT:CONT ON"   '模式设置

    instrument.WriteString "FETC?"          '取值

    FetchData = instrument.ReadString       '读
ErrHandle:
End Function