Measurement-computing Personal488 rev.3.0 For DOS & Windows 3.Xi Manual do Utilizador descarregar pdf (Página 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

Comentários a estes Manuais

Sem comentários

Measurement-computing Personal488 rev.3.0 For DOS & Windows 3.Xi Manual do Utilizador Página 266

Comentários a estes Manuais

Manuais e produtos relacionados com Hardware Measurement-computing Personal488 rev.3.0 For DOS & Windows 3.Xi