Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manuale di Servizio Scaricare il pdf (Pagina 857)

100

101

Synchronizing Acquisitions 35

Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide 857

' Save *ESE (Standard Event Status Enable register) mask

' (so it can be restored later).

Dim varInitialESE As Variant

myScope.WriteString "*ESE?"

varInitialESE = myScope.ReadNumber

' Set *ESE mask to allow only OPC (Operation Complete) bit.

myScope.WriteString "*ESE " + CStr(CInt("&H01"))

' Acquire using :DIGitize. Set up OPC bit to be set when the

' operation is complete.

' -----------------------------------------------------------------

myScope.WriteString ":DIGitize"

myScope.WriteString "*OPC"

' Assume the oscilloscope will trigger, if not put a check here.

' Wait until OPC becomes true (bit 5 of Status Byte register, STB,

' from Standard Event Status register, ESR, is set). STB can be

' read during :DIGitize without generating a timeout.

Sleep 4000 ' Poll more often than the timeout setting.

varQueryResult = myScope.IO.ReadSTB

Loop While (varQueryResult And &H20) = 0

' Clear ESR and restore previously saved *ESE mask.

myScope.WriteString "*ESR?" ' Clear ESR by reading it.

varQueryResult = myScope.ReadNumber

myScope.WriteString "*ESE " + CStr(varInitialESE)

' Get results.

' -----------------------------------------------------------------

myScope.WriteString ":WAVeform:COUNt?"

varQueryResult = myScope.ReadNumber

Debug.Print "Averaged waveforms: " + CStr(varQueryResult)

myScope.WriteString ":MEASure:RISetime"

myScope.WriteString ":MEASure:RISetime?"

varQueryResult = myScope.ReadNumber ' Read risetime.

Debug.Print "Risetime: " + _

FormatNumber(varQueryResult * 1000000000, 1) + " ns"

Exit Sub

VisaComError:

MsgBox "VISA COM Error:" + vbCrLf + Err.Description

End Sub

1 2 ... 852 853 854 855 856 857 858 859 860 861 862 ... 969 970

Commenti su questo manuale

Nessun commento

Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manuale di Servizio Pagina 857

Commenti su questo manuale

Prodotti e manuali riguardandi Misurazione, test & controllo Agilent Technologies InfiniiVision 3000 DSO-X 3054A