Agilent Technologies 2000 X-Series Manuel de service télécharger pdf (Page 364)

100

101

364 Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide

20 :MEASure Commands

Return Format <value><NL>

<value> ::= time in seconds of the specified transition in NR3 format

:MEASure:TEDGe

Code

' Make a delay measurement between channel 1 and 2.

Dim dblChan1Edge1 As Double

Dim dblChan2Edge1 As Double

Dim dblChan1Edge2 As Double

Dim dblDelay As Double

Dim dblPeriod As Double

Dim dblPhase As Double

' Query time at 1st rising edge on ch1.

myScope.WriteString ":MEASURE:TEDGE? +1, CHAN1"

' Read time at edge 1 on ch 1.

dblChan1Edge1 = myScope.ReadNumber

' Query time at 1st rising edge on ch2.

myScope.WriteString ":MEASURE:TEDGE? +1, CHAN2"

' Read time at edge 1 on ch 2.

dblChan2Edge1 = myScope.ReadNumber

' Calculate delay time between ch1 and ch2.

dblDelay = dblChan2Edge1 - dblChan1Edge1

' Write calculated delay time to screen.

MsgBox "Delay = " + vbCrLf + CStr(dblDelay)

' Make a phase difference measurement between channel 1 and 2.

' Query time at 1st rising edge on ch1.

myScope.WriteString ":MEASURE:TEDGE? +2, CHAN1"

' Read time at edge 2 on ch 1.

dblChan1Edge2 = myScope.ReadNumber

' Calculate period of ch 1.

dblPeriod = dblChan1Edge2 - dblChan1Edge1

' Calculate phase difference between ch1 and ch2.

dblPhase = (dblDelay / dblPeriod) * 360

MsgBox "Phase = " + vbCrLf + CStr(dblPhase)

See complete example programs at: Chapter 38, “Programming Examples,”

starting on page 799

See Also • "Introduction to :MEASure Commands" on page 340

• ":MEASure:TVALue" on page 365

• ":MEASure:VTIMe" on page 374

NOTE

This query is not available if the source is FFT (Fast Fourier Transform).

1 2 ... 359 360 361 362 363 364 365 366 367 368 369 ... 929 930

Commentaires sur ces manuels

Pas de commentaire

Agilent Technologies 2000 X-Series Manuel de service Page 364

Commentaires sur ces manuels

Produits connexes et manuels pour Multimètres Agilent Technologies 2000 X-Series