"E5071C VBA 프로그래밍"의 두 판 사이의 차이

2024년 7월 3일 (수) 08:43 판

E5071C VBA 프로그래밍

전자부품
1. 계측기
  1. 네트워크분석기
    1. E5071C 네트워크분석기
      1. E5071C GPIB 프로그래밍
        
        E5071C VBA 프로그래밍 - 이 페이지
내부 VBA 프로그램에서. COM object를 사용한다.
1. VBA = Visual Basic for Application
2. VBA Programmer's Guide
  1. E5070A/E5071A, 2002/04, 2nd edition - 485p
  2. E5071B, 2007/06, 9th edition, firmware A.08.10 기준 - 813p
3. 화면
  - VBA 화면
  - IFBW=10kHz NOP=801 100번 측정하여 데이터 읽는데 약 9.7초
4. Fixture simulator
  1. Turns on/off fixture simulator function
    1. SCPI.CALCulate(1).FSIMulator.STATe = True
  2. Matching circuit embedding function
    1. On/Off: SCPI.CALCulate(1).FSIMulator.SENDed.PMCircuit.STATe = True
    2. Circuit type: SCPI.CALCulate(1).FSIMulator.SENDed.PMCircuit.PORT(1).TYPE = "slpc"
      1. NONE: no-circuit
      2. SLPC: series L and shunt C
      3. PCSL: shunt C and series L
      4. PLSC: shunt L and series C
      5. SCPL: series C and shunt L
      6. PLPC: shunt L and shunt C
      7. USER: user-defined circuit
    3. Circuit constant:
      1. C: SCPI.CALCulate(1).FSIMulator.SENDed.PMCircuit.PORT(1).PARameters.C = 12E-12
      2. G: SCPI.CALCulate(1).FSIMulator.SENDed.PMCircuit.PORT(1).PARameters.G = 12E-12
      3. L: SCPI.CALCulate(1).FSIMulator.SENDed.PMCircuit.PORT(1).PARameters.L = 12E-12
      4. R: SCPI.CALCulate(1).FSIMulator.SENDed.PMCircuit.PORT(1).PARameters.R = 12E-12
5. 예제-1
6. reset 상태에서 S21 750MHz~1250MHz Nop=801 IFBW=70kHz 100번 스윕하는데 23.64초
  1. 데이터 전송포함하면 23.82초
  2. 화면 업데이트 하지 않으면 3.1초
  3. 100회 측정데이터를 배열로 처리하는데 3.2초
7. IFBW=10kHz이면 약 9,6sec
8. IFBW=100kHz이면 약 2,7sec

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