ser_dev.bas

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

'  ser_dev.bas
'  This example program takes a measurement from a DVM using a
'  SICL device session.
Sub Main ()
   Dim dvm As Integer
   Dim res As Double
   Dim argcount As Integer

   ' Open the multimeter session
   dvm = iopen("COM1,488")
   Call itimeout(dvm, 10000)

   ' Prepare the multimeter for measurements
   argcount = ivprintf(dvm, "*RST" + Chr$(10), 0&)
   argcount = ivprintf(dvm, "SYST:REM" + Chr$(10), 0&)

   ' Take a measurement
   argcount = ivprintf(dvm, "MEAS:VOLT:DC?" + Chr$(10))

   ' Read the results
   argcount = ivscanf(dvm, "%lf", res)

   ' Print the results
   MsgBox "Result is " + Format(res), MB_ICON_EXCLAMATION

   ' Close the multimeter session
   Call iclose(dvm)

'  Tell SICL to cleanup for this task
   Call siclcleanup

End Sub