Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manual de servicio Pagina 358

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 970
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 357
358 Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide
19 :MEASure Commands
ValueColumnArray(5) = "Std_Dev"
ValueColumnArray(6) = "Count"
Dim ValueColumn As Variant
For Each ResultType In ResultsTypeArray
myScope.WriteString ":MEASure:STATistics " + ResultType
' Get the statistics results.
Dim intCounter As Integer
intCounter = 0
myScope.WriteString ":MEASure:RESults?"
ResultsList() = myScope.ReadList
For Each Measurement In MeasurementArray
If ResultType = "ON" Then ' All statistics.
For Each ValueColumn In ValueColumnArray
If VarType(ResultsList(intCounter)) <> vbString Then
Debug.Print "Measure statistics result CH1,"+_
Measurement + ", "; ValueColumn + ": " + _
FormatNumber(ResultsList(intCounter), 4)
Else ' Result is a string (e.g., measurement label).
Debug.Print "Measure statistics result CH1,"+_
Measurement + ", "; ValueColumn + ": " + _
ResultsList(intCounter)
End If
intCounter = intCounter + 1
Next
Else ' Specific statistic (e.g., Current, Max, Min, etc.).
Debug.Print "Measure statistics result CH1, " + _
Measurement + ", "; ResultType + ":"+_
FormatNumber(ResultsList(intCounter), 4)
intCounter = intCounter + 1
End If
Next
Next
Exit Sub
VisaComError:
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
End Sub
Vista de pagina 357
1 2 ... 353 354 355 356 357 358 359 360 361 362 363 ... 969 970

Comentarios a estos manuales

Sin comentarios