Measurement-computing Personal488 rev.3.0 For DOS & Windows 3.Xi Instrukcja Użytkownika Pobierz pdf (Strona 266)

100

101

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 ()

1 2 ... 261 262 263 264 265 266 267 268 269 270 271 ... 399 400

Komentarze do niniejszej Instrukcji

Brak uwag

Measurement-computing Personal488 rev.3.0 For DOS & Windows 3.Xi Instrukcja Użytkownika Strona 266

Komentarze do niniejszej Instrukcji

Powiązane produkty i podręczniki dla Sprzęt komputerowy Measurement-computing Personal488 rev.3.0 For DOS & Windows 3.Xi