VBA-datasave-01.txt

E5071C VBA 프로그래밍

	Private Sub UserForm_Click()
	Dim FmtData As Variant, Freq As Variant
	Dim SaveData(99, 800)
	
	Dim File As String
	Dim dmy As Long
	Dim start, finish
	
	File = "2.txt"
	Open File For Output As #1
	
	SCPI.SENSe(1).SWEep.POINts = 801
	Nop = SCPI.SENSe(1).SWEep.POINts
	SCPI.DISPlay.ENABle = False
	'SCPI.DISPlay.ENABle = True
	
	ECHO "Nop=", Nop
	
	SCPI.TRIGger.SEQuence.Source = "BUS"
	
	Freq = SCPI.SENSe(1).FREQuency.DATA
	
	start = Timer
	For i = 0 To 99
	    SCPI.TRIGger.SEQuence.SINGle
	    dmy = SCPI.IEEE4882.OPC
	    FmtData = SCPI.CALCulate(1).SELected.DATA.FDATa
	    For j = 0 To Nop - 1
	        SaveData(i, j) = FmtData(2 * j)
	    Next j
	Next i
	finish = Timer
	ECHO "Elapsed Time=", finish - start
	
	For j = 0 To Nop - 1
	    Print #1, j + 1, Freq(j);
	    For i = 0 To 99
	        Print #1, SaveData(i, j);
	    Next i
	    Print #1,
	Next j
	Close #1
	
	MsgBox "Measurement Completion"
	SCPI.SYSTem.BEEPer.COMPlete.IMMediate
	
	End Sub