E5071C GPIB 프로그래밍 - 편집 역사

2024년 7월 2일 (화) 11:17에 Togotech님의 편집

2024-07-02T11:17:36Z

2024년 6월 13일 (목) 10:50에 Togotech님의 편집

2024-06-13T10:50:23Z

2024년 6월 13일 (목) 10:48에 Togotech님의 편집

2024-06-13T10:48:14Z

2024년 6월 13일 (목) 10:46에 Togotech님의 편집

2024-06-13T10:46:56Z

2024년 6월 13일 (목) 10:45에 Togotech님의 편집

2024-06-13T10:45:42Z

2022년 5월 27일 (금) 02:03에 Togotech님의 편집

2022-05-27T02:03:18Z

2022년 5월 27일 (금) 01:56에 Togotech님의 편집

2022-05-27T01:56:36Z

Togotech: 새 문서: E5071C GPIB 프로그래밍

전자부품

계측기

네트워크분석기

E5071C 네트워크분석기

E5071C GPIB 프로...

2022-05-09T08:13:43Z

새 문서: E5071C GPIB 프로그래밍 <ol> <li> 전자부품 <ol> <li>계측기 <ol> <li> 네트워크분석기 <ol> <li> E5071C 네트워크분석기 <ol> <li> E5071C GPIB 프로...

새 문서

E5071C GPIB 프로그래밍
<ol>
<li> [[전자부품]]
<ol>
<li>계측기
<ol>
<li> [[네트워크분석기]]
<ol>
<li> [[E5071C]] 네트워크분석기
<ol>
<li> [[E5071C GPIB 프로그래밍]] - 이 페이지
</ol>
</ol>
</ol>
</ol>
<li>*IDN?
<li>*OPC?
<li>:TRIG:SING
<ol>
<li>*OPC?
</ol>
<li>marker
<ol>
<li>:CALC{1-9}:MARK{1-10}:Y?
<li>:CALC{1-9}:MARK{1-10}:X
</ol>
<li>stimulus
<ol>
<li>:SENS{1-9}:FREQ:SPAN
<li>:SENS{1-9}:FREQ:STAR
<li>:SENS{1-9}:FREQ:STOP
</ol>
<li>sweep setup
<ol>
<li>Points :SENS{1-9}:SWE:POIN
<li>Power :SOUR{1-9}:POW
</ol>
</ol>

@@ 10번째 줄: / 10번째 줄: @@
 <ol>
 <li> [[E5071C GPIB 프로그래밍]] - 이 페이지
 </ol>
 </ol>
@@ 106번째 줄: / 109번째 줄: @@
 </ol>
 </ol>
 </ol>
 </ol>

@@ 117번째 줄: / 117번째 줄: @@
 </gallery>
 <li>예제-1
-<ol>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
+<ol>
 </ol>
 <li>reset 상태에서 S21 750MHz~1250MHz Nop=801 IFBW=70kHz 100번 스윕하는데 23.64초

@@ 117번째 줄: / 117번째 줄: @@
 </gallery>
 <li>예제-1
-<ol>Private Sub UserForm_Click()Dim FmtData As Variant, Freq As VariantDim SaveData(99, 800)Dim File As StringDim dmy As LongDim start, finishFile = "2.txt"Open File For Output As #1SCPI.SENSe(1).SWEep.POINts = 801Nop = SCPI.SENSe(1).SWEep.POINtsSCPI.DISPlay.ENABle = False'SCPI.DISPlay.ENABle = TrueECHO "Nop=", NopSCPI.TRIGger.SEQuence.Source = "BUS"Freq = SCPI.SENSe(1).FREQuency.DATAstart = TimerFor 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 jNext ifinish = TimerECHO "Elapsed Time=", finish - startFor 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 jClose #1MsgBox "Measurement Completion"SCPI.SYSTem.BEEPer.COMPlete.IMMediateEnd Sub
+<ol>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
 </ol>
 <li>reset 상태에서 S21 750MHz~1250MHz Nop=801 IFBW=70kHz 100번 스윕하는데 23.64초

@@ 116번째 줄: / 116번째 줄: @@
 image:e5071c01_vba01_002.png | IFBW=10kHz NOP=801 100번 측정하여 데이터 읽는데 약 9.7초
 </gallery>
-<li>예제-1Private Sub UserForm_Click()Dim FmtData As Variant, Freq As VariantDim SaveData(99, 800)Dim File As StringDim dmy As LongDim start, finishFile = "2.txt"Open File For Output As #1SCPI.SENSe(1).SWEep.POINts = 801Nop = SCPI.SENSe(1).SWEep.POINtsSCPI.DISPlay.ENABle = False'SCPI.DISPlay.ENABle = TrueECHO "Nop=", NopSCPI.TRIGger.SEQuence.Source = "BUS"Freq = SCPI.SENSe(1).FREQuency.DATAstart = TimerFor 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 jNext ifinish = TimerECHO "Elapsed Time=", finish - startFor 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 jClose #1MsgBox "Measurement Completion"SCPI.SYSTem.BEEPer.COMPlete.IMMediateEnd Sub
+<li>예제-1
 <li>reset 상태에서 S21 750MHz~1250MHz Nop=801 IFBW=70kHz 100번 스윕하는데 23.64초
 <ol>

@@ 13번째 줄: / 13번째 줄: @@
 </ol>
 </ol>
 </ol>
 <li>샘플 프로그램
@@ 52번째 줄: / 58번째 줄: @@
 <li>Power :SOUR{1-9}:POW
 </ol>
 </ol>
 </ol>

@@ 18번째 줄: / 18번째 줄: @@
 <li>2022/05/27 DUT가 있으면 측정한다.
 <ol>
-<li> [[e5071c-01.bas]]
+<li> [[e5071c01.bas]]
 </ol>
 </ol>

@@ 14번째 줄: / 14번째 줄: @@
 </ol>
 </ol>
 <li>*IDN?
 <li>*OPC?
@@ 24번째 줄: / 33번째 줄: @@
 <li>:CALC{1-9}:MARK{1-10}:Y?
 <li>:CALC{1-9}:MARK{1-10}:X
 </ol>
 <li>stimulus
@@ 35번째 줄: / 51번째 줄: @@
 <li>Points :SENS{1-9}:SWE:POIN
 <li>Power :SOUR{1-9}:POW
 </ol>
 </ol>