Agilent Technologies Portable Generator Agilent Technologies Portable Generator User Manual

0

Out of 0 Ratings

Owner's of the Agilent Technologies Portable Generator Agilent Technologies Portable Generator gave it a score of 0 out of 5. Here's how the scores stacked up:

  • Reliability

    0 out of 5

  • Durability

    0 out of 5

  • Maintenance

    0 out of 5

  • Performance

    0 out of 5

  • Ease of Use

    0 out of 5
of 136
 
Chapter 3 Calibration Procedures
An Example program of Excel 97 for Calibration
78
Private Function InitializeDevice()
SendSCPI power, "*Cls"
SendSCPI DMM, "*Rst" 'Set power-on condition for DMM
SendSCPI power, "*Rst" 'Set power-on condition for power supply
End Function
Private Function CheckError(Error As Long, Message As String) As Boolean
If Error < VI_SUCCESS Then
ActiveCell.Value = Message
CheckError = False 'Exit Calibration
Else
CheckError = True
End If
End Function
Private Function ClosePort()
Dim Error As Long
Error = viClose(power)
Error = viClose(id_power)
Error = viClose(DMM)
Error = viClose(id_DMM)
End Function
Private Function EnableOVPandOCP(bEnable As Boolean)
If bEnable Then
SendSCPI power, "Volt:Prot:Stat On"
SendSCPI power, "Curr:Prot:Stat On"
Else
SendSCPI power, "Volt:Prot:Stat Off"
SendSCPI power, "Curr:Prot:Stat Off"
End If
End Function
'This routine send a SCPI command string to the GPIB port.
'If the command contains a question mark, the response is read, and returned
Private Function SendSCPI(device As Long, command As String) As String
Dim commandString As String
Dim ReturnString As String
Dim crlfpos As Integer
Dim ReadBuffer As String * 512
Dim actual As Long
Dim Error As Long
commandString = command & Chr$(10)
Continued on next page

   Find Your Products By Category