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

  • Scaricare
  • Aggiungi ai miei manuali
  • Stampa
  • Pagina
    / 970
  • Indice
  • SEGNALIBRI
  • Valutato. / 5. Basato su recensioni clienti
Vedere la pagina 912
Programming Examples 37
Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide 913
' Close output file.
Close hFile ' Close file.
MsgBox "Waveform format BYTE data written to"+_
"c:\scope\data\waveform_data.csv."
End Sub
Private Sub DoCommand(command As String)
err = viVPrintf(vi, command + vbLf, 0)
If (err <> VI_SUCCESS) Then HandleVISAError vi
CheckInstrumentErrors
End Sub
Private Function DoCommandIEEEBlock(command As String, _
lngBlockSize As Long)
retCount = lngBlockSize
Dim strCommandAndLength As String
strCommandAndLength = command + " %#" + _
Format(lngBlockSize) + "b"
err = viVPrintf(vi, strCommandAndLength + vbLf, paramsArray(1))
If (err <> VI_SUCCESS) Then HandleVISAError vi
DoCommandIEEEBlock = retCount
CheckInstrumentErrors
End Function
Private Function DoQueryString(query As String) As String
Dim strResult As String * 200
err = viVPrintf(vi, query + vbLf, 0)
If (err <> VI_SUCCESS) Then HandleVISAError vi
err = viVScanf(vi, "%t", strResult)
If (err <> VI_SUCCESS) Then HandleVISAError vi
DoQueryString = strResult
CheckInstrumentErrors
End Function
Private Function DoQueryNumber(query As String) As Variant
Dim dblResult As Double
err = viVPrintf(vi, query + vbLf, 0)
If (err <> VI_SUCCESS) Then HandleVISAError vi
Vedere la pagina 912
1 2 ... 908 909 910 911 912 913 914 915 916 917 918 ... 969 970

Commenti su questo manuale

Nessun commento