Kikusui BIM1000 Series, Руководство пользователя

Страница: 79 / 94

BIM1000 Series
User’s Manual
79
Remote Control | Using Visual Basic 2017
Sample program
Imports Ivi.Visa.Interop
Public Class Form1
Dim rm As ResourceManager
Dim msg As IMessage
Sub Form1_Load( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles MyBase .Load
rm = CreateObject( "VISA.GlobalRM" )
msg = rm.Open( "USB0::0x0B3E::0x1056::00000001::INSTR" , AccessMode .NO_LOCK, 0, "" )
'Version using a VISA alias
'msg = rm.Open("MYDEV1", AccessMode.NO_LOCK, 0, "")
msg.TerminationCharacterEnabled = True
End Sub
'Query the ID
Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.Click
msg.WriteString( "*IDN?" & vbLf)
TextBox1.Text = msg.ReadString(256)
End Sub
‘Set measurement conditions
Private Sub Button2_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button2.Click
msg.WriteString( ”AUT 1” & vbLf)
msg.WriteString( ”INIT:CONT 0” & vbLf)
msg.WriteString( ”TRIG:SOUR INT” & vbLf)
msg.WriteString( ”DATA:FORM RES,VOLT” & vbLf)
End Sub
‘Measure
Private Sub Button3_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button3.Click
msg.WriteString( ”READ?” & vbLf)
TextBox1.Text = msg.ReadString(256)
End Sub
Private Sub Form1_Disposed( ByVal sender As Object , ByVal e As System. EventArgs ) Handles Me.Disposed
msg.Close()
End Sub
End Class