?? ser_dev.bas
字號:
' 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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -