errhand.bas

HP GPIB的VB和C语言库文件,参考范例.

'  errhand.bas
Sub Main ()
   Dim dvm As Integer
   Dim res As Double

   On Error GoTo ErrorHandler

   dvm = iopen("hpib7,16")
   Call itimeout(dvm, 10000)
   argcount = ivprintf(dvm, "MEAS:VOLT:DC?" + Chr$(10))
   argcount = ivscanf(dvm, "%lf", res)
   MsgBox "Result is " + Format(res)
   iclose (dvm)

   ' Tell SICL to cleanup for this task
   Call siclcleanup
   End

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