Programming Examples
39
Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide
1193
Debug.Print "Acquisition type: HRESolution"
End If
Debug.Print "Waveform points: " + _
FormatNumber(lngPoints, 0)
Debug.Print "Waveform average count: " + _
FormatNumber(lngCount, 0)
Debug.Print "Waveform X increment: " + _
Format(dblXIncrement, "Scientific")
Debug.Print "Waveform X origin: " + _
Format(dblXOrigin, "Scientific")
Debug.Print "Waveform X reference: " + _
FormatNumber(lngXReference, 0)
Debug.Print "Waveform Y increment: " + _
Format(sngYIncrement, "Scientific")
Debug.Print "Waveform Y origin: " + _
FormatNumber(sngYOrigin, 0)
Debug.Print "Waveform Y reference: " + _
FormatNumber(lngYReference, 0)
' Get the waveform data
Dim lngNumBytes As Long
lngNumBytes = DoQueryIEEEBlock_Bytes(":WAVeform:DATA?")
Debug.Print "Number of data values: " + _
CStr(lngNumBytes - CInt(Chr(byteArray(1))) - 2)
' Set up output file:
strPath = "c:\scope\data\waveform_data.csv"
' Open file for output.
Open strPath For Output Access Write Lock Write As hFile
' Output waveform data in CSV format.
Dim lngDataValue As Long
' Skip past header.
For lngI = CInt(Chr(byteArray(1))) + 2 To lngNumBytes - 2
lngDataValue = CLng(byteArray(lngI))
' Write time value, voltage value.
Print #hFile, _
FormatNumber(dblX (lngI * dblXIncrement), 9) + _
", " + _
FormatNumber(((lngDataValue - lngYReference) * _
sngYIncrement) + sngYOrigin)
Next lngI
' Close output file.
Close hFile
' Close file.
Содержание InfiniiVision 3000 X-Series
Страница 1: ...s1 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide...
Страница 30: ...30 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide...
Страница 54: ...54 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 2 Setting Up...
Страница 68: ...68 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 3 Getting Started...
Страница 152: ...152 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 4 Commands Quick Reference...
Страница 218: ...218 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 6 Root Commands...
Страница 242: ...242 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 8 BUS n Commands...
Страница 280: ...280 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 11 DEMO Commands...
Страница 288: ...288 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 12 DIGital d Commands...
Страница 306: ...306 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 14 EXTernal Trigger Commands...
Страница 340: ...340 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 15 FUNCtion Commands...
Страница 358: ...358 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 16 HARDcopy Commands...
Страница 378: ...378 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 18 MARKer Commands...
Страница 446: ...446 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 19 MEASure Commands...
Страница 466: ...466 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 20 MEASure Power Commands...
Страница 502: ...502 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 22 POD Commands POD1 DISP 0 THR 1 40E 00...
Страница 564: ...564 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 23 POWer Commands...
Страница 842: ...842 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 29 TIMebase Commands...
Страница 1046: ...1046 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 34 Obsolete and Discontinued Commands...
Страница 1054: ...1054 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 35 Error Messages...
Страница 1076: ...1076 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 36 Status Reporting...
Страница 1086: ...1086 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 37 Synchronizing Acquisitions...
Страница 1216: ...1216 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 39 Programming Examples...
Страница 1231: ...Index Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 1231 zoomed window horizontal scale 841...
Страница 1232: ...1232 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide Index...