Visual Basic 2005 Sample Program
Sample program of settings and queries
'Create VISA ResourceManager object
Dim rm As New VisaComLib.ResourceManager
Dim accessMode As VisaComLib.AccessMode = VisaComLib.AccessMode.NO_LOCK
'Serial number of the programmable AC/DC power source
Dim serial As String = "0123456"
Dim timeOut As Integer = 0
Dim optionString As String = ""
'Connect with the device
Dim msg As VisaComLib.IMessage = CType( _
rm.Open("USB0::0x0D4A::12::" & serial & "::INSTR", _
accessMode, _
timeOut, _
optionString), _
VisaComLib.IMessage)
'Set the frequency as 50.0Hz, and ask the value
msg.WriteString(":FREQ 50.0;:FREQ?" & vbLf)
Console.WriteLine(msg.ReadString(256))
'Close the device
msg.Close()
Sample program of transferring ARB data
'Create VISA ResourceManager object
Dim rm As VisaComLib.ResourceManager = New VisaComLib.ResourceManager
Dim accessMode As VisaComLib.AccessMode = VisaComLib.AccessMode.NO_LOCK
'Serial number of the programmable AC/DC power source
Dim serial As String = "0123456"
Dim timeOut As Integer = 0
Dim optionString As String = ""
'Connect with the device
Dim msg As VisaComLib.IMessage = CType( _
rm.Open("USB0::0x0D4A::12::" & serial & "::INSTR", _
accessMode, _
timeOut, _
optionString), _
VisaComLib.IMessage)
'Create the waveform data
Dim buff(4095) As Integer
Dim p As Double = 2 * Math.PI / 4096
For i As Integer = 0 To 4095
buff(i) = CType(Math.Sin(p * i) * 16383, Integer)
Next
'Convert the message and the waveform data into byte data
Dim data(9000) As Byte
Dim j As Integer
Dim arbCmd As String = ":TRACe ARB1,#48192"
For j = 0 To Len(arbCmd) - 1
data(j) = Asc(Mid(arbCmd, j + 1, 1))
Next
For i As Integer = 0 To 4095
Dim b As Byte = CType(((buff(i) \ &H100&) And &HFF), Byte)
data(j) = b
j = j + 1
b = CType((buff(i) And &HFF), Byte)
data(j) = b
j = j + 1
Next
'Transfer the data
msg.Write(data, Len(arbCmd) + 8192)
'Close the device
msg.Close()