Agilent Technologies InfiniiVision 6000 Series Manual de Serviço Página 875

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 934
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 874
Programming Examples 12
Agilent InfiniiVision 6000 Series Oscilloscopes Programmer's Guide 875
Private Sub CheckInstrumentErrors()
On Error GoTo ErrorHandler
Dim strErrVal As String * 200
Dim strOut As String
err = viVPrintf(vi, ":SYSTem:ERRor?" + vbLf, 0) ' Query any errors.
If (err <> VI_SUCCESS) Then HandleVISAError vi
err = viVScanf(vi, "%t", strErrVal) ' Read: Errnum,"Error String".
If (err <> VI_SUCCESS) Then HandleVISAError vi
While Val(strErrVal) <> 0 ' End if find: 0,"No Error".
strOut = strOut + "INST Error: " + strErrVal
err = viVPrintf(vi, ":SYSTem:ERRor?" + vbLf, 0) ' Request error.
If (err <> VI_SUCCESS) Then HandleVISAError vi
err = viVScanf(vi, "%t", strErrVal) ' Read error message.
If (err <> VI_SUCCESS) Then HandleVISAError vi
Wend
If Not strOut = "" Then
MsgBox strOut, vbExclamation, "INST Error Messages"
err = viFlush(vi, VI_READ_BUF)
If (err <> VI_SUCCESS) Then HandleVISAError vi
err = viFlush(vi, VI_WRITE_BUF)
If (err <> VI_SUCCESS) Then HandleVISAError vi
End If
Exit Sub
ErrorHandler:
MsgBox "*** Error :"+Error, vbExclamation
End
End Sub
Private Sub HandleVISAError(session As Long)
Dim strVisaErr As String * 200
Call viStatusDesc(session, err, strVisaErr)
MsgBox "*** VISA Error : " + strVisaErr, vbExclamation
' If the error is not a warning, close the session.
If err < VI_SUCCESS Then
If session <> 0 Then Call viClose(session)
End
End If
Vista de página 874
1 2 ... 870 871 872 873 874 875 876 877 878 879 880 ... 933 934

Comentários a estes Manuais

Sem comentários