9-6
PEM-340
Operation Manual
9-4. Sample Programs
Sample program written by Microsoft Visual Basic Ver6.0.
■
9-4-1 GP-IB sample program
Private Const BDIndx = 0 ' GP-IB board number
Private Const pad = 1 ' Primary GP-IB address
Private Const sad = 0 ' Secondary GP-IB address
Private Const eot = 0 ' EOI mode
Private Const eos = 0 ' EOS Character
Private ud As Integer ' Unit descriptor
Private listen As Integer ' Device indicator
Private gpib_dl As String ' Delimiter
Private ans As String 30 ' Load buffer
Private Sub GPIB_Sample ( )
Dim wav As Long
Call SendIFC (BDIndx) '
Reset GP-IB by sending IFC command
Call ibdev (BDIndx, pad, sad, T10s, eot, eos, ud)
' Open and initialize the device
Call ibln (ud, pad, sad, listen) '
Check for device presence on the bus
gpib_dl = Chr$ (&HD) & Chr$ (&HA) ' Set Cr/Lf as delimiter
Call ibwrt(ud, ”PE” & gpib_dl) ' Set output variable to PER
Call ibrd (ud, ans) ' Read out PER
End Sub
To Next Page
Loading...
