locking.bas

来自「HP GPIB的VB和C语言库文件,参考范例.」· BAS 代码 · 共 48 行

'  locking.bas
Sub Main ()
   Dim dvm As Integer
   Dim strres As String * 20
   Dim actual As Long

'  Install an error handler
   On Error GoTo ErrorHandler

'  Open the multimeter session
   dvm = iopen("hpib7,16")
   Call itimeout(dvm, 10000)

'  Lock the multimeter device to prevent access from other applications
   Call ilock(dvm)

'  Take a measurement
   Call iwrite(dvm, "MEAS:VOLT:DC?" + Chr$(10), 14, 1, 0&)

'  Read the results
   Call iread(dvm, strres, 20, 0&, actual)

'  Release the multimeter device for use by others
   Call iunlock(dvm)

'  Display the results
   MsgBox "Result is " + Left$(strres, actual)

'  Close the multimeter session
   Call iclose(dvm)

'  Tell SICL to cleanup for this task
   Call siclcleanup

   End

ErrorHandler:
   '  Display the error message.
      MsgBox "*** Error : " + Error$
   '  Tell SICL to cleanup for this task
      Call siclcleanup

   End

End Sub