Measurement Computing Personal488 rev.3.0 For DOS & Windows 3.Xi - Manual (Page 266)

II. SOFTWARE GUIDES - 10. Driver488/W31 10F. Visual Basic
Personal488 User’s Manual, Rev. 3.0 II-251
rv% = ioClear(adc)
‘Set up event handling for trapping the SRQ
Event4881.Handle = adc
Event4881.SRQ = -1
‘Enable ADC to SRQ on acquisition complete
rv% = ioOutput(adc, “M128X”)
‘Setup the ADC488:
‘100 uSec scan interval (I3)
‘No pre-trigger scans, 100 post-trigger scans (N100)
‘Continuous trigger on GET (T1)
rv% = ioOutput(adc, “I3N100T1X”)
‘Trigger the ADC488
rv% = Trigger(adc)
End Sub
Acquisition Engine Sample Program
GLOBAL.BAS Declarations
Global NL As String
Global resp As String * 255
Global StartFlag As Integer
Global Handle As Integer
Global Rng As Integer
Source Code
Sub Form_Load ()
LinkMode = 1
Chan.AddItem “1"
Chan.AddItem ”2"
Chan.AddItem “3"
Chan.AddItem ”4"
Chan.AddItem “5"
Chan.AddItem ”6"
Chan.AddItem “7"
Chan.AddItem ”8"
Chan.AddItem “9"
Chan.AddItem ”10"
Chan.AddItem “11"
Chan.AddItem ”12"
Chan.AddItem “13"
Chan.AddItem ”14"
Chan.AddItem “15"
Chan.AddItem ”16"
Chan.ListIndex = 0
Range(0).value = -1
text1.text = “”
StartFlag = 0
NL = Chr$(13) + Chr$(10)
End Sub
Sub Acquire_Click ()
Handle = OpenName(“ADC”)
Err = ioClear(Handle)
cmd$ = “C” + Str$(Chan.ListIndex + 1) + “R” + Str$(Rng) + “T0X”
Err = ioOutput(Handle, cmd$)
StartFlag = 1
End Sub
Sub CopyLink_Click ()