Kikusui TOS5050A - Sample Program

7-10 TOS5051A/5050A
STOP
Stops the test.
Response
Returns OK.
7.7 Sample Program
Below is a sample program using VBA.
Private Sub CommandButton1_Click()
KiUniDrv1.Connect "ASRL1"
KiUniDrv1.SetString "REMOTE"
TextBox2.Text = KiUniDrv1.GetString
KiUniDrv1.SetString "TMODE 0"
TextBox2.Text = KiUniDrv1.GetString
KiUniDrv1.SetString "START"
TextBox2.Text = KiUniDrv1.GetString
Call Sleep(1000)
KiUniDrv1.SetString "STOP"
TextBox2.Text = KiUniDrv1.GetString
KiUniDrv1.SetString "MEASURE?"
TextBox1.Text = KiUniDrv1.GetString
Cells(2, 5) = TextBox1.Text
KiUniDrv1.SetString "LOCAL"
TextBox2.Text = KiUniDrv1.GetString
KiUniDrv1.Disconnect
End Sub
The sample program is created using the following tools.
• Kikusui Universal Instrument Driver V1.5
• Microsoft Visual Basic 6.0
• Microsoft (R) Excel 2000