VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "SMC100A"
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 '库中成员函数的定义

Sub SignalInit(ByVal fre As Double, ByVal amp As Double)
On Error GoTo ErrHandle
    'frequency
   instrument.WriteString ":FREQuency " & CStr(fre)
   OPC
   'power
   instrument.WriteString ":POWer " & CStr(amp)
   OPC
ErrHandle:
End Sub

Sub SetStep(ByVal step As Double)
On Error GoTo ErrHandle
    If setp > 1 Or setp < 0.01 Then
        MsgBox "Input step error!", vbOKOnly + vbCritical, "Error!"
    End If
    instrument.WriteString ":POWer:STEP " + CStr(step)
ErrHandle:
End Sub

'RF on
Sub RFON()
On Error GoTo ErrHandle
    instrument.WriteString ":OUTPut:STATe ON"
ErrHandle:
End Sub
Sub RFOFF()
On Error GoTo ErrHandle
    instrument.WriteString ":OUTPut:STATe OFF"
ErrHandle:
End Sub

'以setp进行power增大或减小
Sub PowerUpOrDown(ByVal UPDown As Boolean)
On Error GoTo ErrHandle
    'protect
    If UPDown = True Then
        instrument.WriteString ":POWer UP"
    Else
        instrument.WriteString ":POWer DOWN"
    End If
ErrHandle:
End Sub

Sub FrequencySet(ByVal frex As Double)
On Error GoTo ErrHandle
    If frex < 250000# Or frex > 6000000000# Then
        MsgBox "Error!Frequency seting is wrong!", vbOKOnly + vbCritical, "Error!"
        Exit Sub
    End If
    instrument.WriteString ":FREQuency:FIXed " + CStr(frex)
ErrHandle:
End Sub
'frequency get
Function FrequencyGet() As Double
On Error GoTo ErrHandle
    instrument.WriteString ":FREQuency:FIXed?"
    FrequencyGet = instrument.ReadNumber
ErrHandle:
End Function
'功率设置
Sub PowerSet(ByVal Power As Double)
On Error GoTo ErrHandle
    If frex < -100# Or frex > 0# Then
        MsgBox "Error!Power seting is wrong!", vbOKOnly + vbCritical, "Error!"
        Exit Sub
    End If
    instrument.WriteString ":POWer:LEVel " + CStr(Power)
ErrHandle:
End Sub
'power get
Function PowerGet() As Double
On Error GoTo ErrHandle
    instrument.WriteString ":POWer:LEVel?"
    PowerGet = instrument.ReadNumber
ErrHandle:
End Function