ADCMT 6241A - Page 232

6241A/6242 DC Voltage Current Source/Monitor Operation Manual
6.8.2 Programming Examples with USB
6-50
ret = ausb_close(id)
If ret <> OK Then
MsgBox "Device Close Error", vbExclamation
End If
ret = ausb_end()
If ret <> OK Then
MsgBox "USB End Error", vbExclamation
End If
End Sub
’ Subroutine
Private Sub ausbrd(id As Long, dt As String)
’ Receive data subroutine
Dim ret As Long ’ Declares the driver return value variable.
Dim siz As Long
ret = ausb_read(id, dt, 50, siz) ’ Receive data
If ret = OK Then
dt = Left$(dt, siz - 1)
Else
ret = ausb_clear(id) ’ Clear device
MsgBox "Receive Error", vbExclamation
GoTo err_exit
End If
Exit Sub
err_exit:
ret = ausb_close(id)
If ret <> OK Then
MsgBox "Device Close Error", vbExclamation
End If
ret = ausb_end()
If ret <> OK Then
MsgBox "USB End Error", vbExclamation
End If
End Sub
(Output example)
DI +1.00000E-03
DI +2.00000E-03
DI -2.00000E-03
DIU+3.00000E-03
DV +2.00000E+00