Keysight E4990A - Page 306

E4990A Help
296
ComboBox1.ListIndex = 0
TextBox1.Text = "D:\TempFile"
End Sub
Capturing Screen Into PC
•
Overview
• Sample Program in Excel VBA
Other topics about Saving/Recalling a Measurement Result
Overview
The program listed in the below section is written in VISA-COM with Excel
VBA. It can be executed from the external PC controller. The program
demonstrates how to capture screen into PC.
Capturing Screen Into PC Sample Program in Excel VBA
Sub ScreenCapture()
'*** The variables of the resource manager and the instrument I/O are declared.
Dim ImgData() As Byte
Dim FilAnalyzerme As String
Dim ioMgr As VisaComLib.ResourceManager
Dim Analyzer As VisaComLib.FormattedIO488
'*** The memory area of the resource manager and the instrument I/O are acquired.
Set ioMgr = New VisaComLib.ResourceManager
Set Analyzer = New VisaComLib.FormattedIO488
'*** Open the instrument.
Set Analyzer.IO = ioMgr.Open("GPIB0::17::INSTR")
Analyzer.IO.timeout = 10000
FilAnalyzerme = Range("B7").Value
Analyzer.WriteString ":HCOP:SDUM:DATA:FORM PNG", True
Analyzer.WriteString ":HCOP:SDUM:DATA?", True
ImgData = Analyzer.ReadIEEEBlock(BinaryType_UI1, False, True)
Open FilAnalyzerme For Binary As #1
Put #1, , ImgData()