Keysight Technologies E3633A User Manual

3 Calibration Procedures
96 Keysight E3633A and E3634A Service Guide
Private Function SaveDate()
Dim Message As String
'calibration string enclosed in quotes
Message = "Cal:Str " & Chr(34) & Date & Chr(34)
SendSCPI power, Message
Message = SendSCPI(power, "Cal:Str?")
Range("B5").Select
ActiveCell.Value = Message
Message = SendSCPI(power, "Cal:Count?")
Range("B6").Select
ActiveCell.Value = Message
Range("B4").Select
End Function
End of program

Keysight Technologies E3633A Specifications

General

Brand	Keysight Technologies
Model	E3633A
Category	Power Supply
Language	English