Agilent Technologies InfiniiVision 6000 Series Instrukcja Obsługi Strona 873

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 934
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 872
Programming Examples 12
Agilent InfiniiVision 6000 Series Oscilloscopes Programmer's Guide 873
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
err = viVScanf(vi, "%lf" + vbLf, VarPtr(dblResult))
If (err <> VI_SUCCESS) Then HandleVISAError vi
DoQueryNumber = dblResult
CheckInstrumentErrors
End Function
Przeglądanie stron 872
1 2 ... 868 869 870 871 872 873 874 875 876 877 878 ... 933 934

Komentarze do niniejszej Instrukcji

Brak uwag