R3753-01.txt - 편집 역사

2020년 9월 22일 (화) 03:52에 Togotech님의 편집

2020-09-22T03:52:56Z

2020년 9월 22일 (화) 03:47에 Togotech님의 편집

2020-09-22T03:47:33Z

Togotech: 새 문서: R3753BH

 10     !채널 1,2 각가 AMPL. phase 20     GOSUB Declaration 30     GOSUB Fileopen 40     GOSUB Measure_select 50     GOSUB Network_setup 60     GOSUB Measure 70...

2020-05-07T08:18:44Z

새 문서: R3753BH <pre> 10 !채널 1,2 각가 AMPL. phase 20 GOSUB Declaration 30 GOSUB Fileopen 40 GOSUB Measure_select 50 GOSUB Network_setup 60 GOSUB Measure 70...

새 문서

[[R3753BH]]
<pre>
10 !채널 1,2 각가 AMPL. phase
20 GOSUB Declaration
30 GOSUB Fileopen
40 GOSUB Measure_select
50 GOSUB Network_setup
60 GOSUB Measure
70 GOSUB Fileclose
80 STOP
90 Declaration: !!!!!!!!!!!!!!!!
100 OPTION BASE 1
110 DIM Msg$[255]
120 DIM Form1(1201),Form2(1201) !NOP=401
130 INTEGER I
140 RETURN
150 Measure_select: !!!!!!!!!!!!!!!!
160 ASSIGN @Na TO 711
170 OUTPUT @Na;"OLDC ON" !IEEE488.1-1987 command mode가 ON된다.
180 ! ASSIGN @Na_fmt_off TO 711;FORMAT OFF,SWAP ON
190 RETURN
200 !!!!!!!디바이스 개별에 따른 초기값 세팅 !!!!!!!
210 Network_setup: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
220 OUTPUT @Na;"*IDN?"
230 ENTER @Na;Msg$
240 DISP Msg$
250 ! OUTPUT @Na;"FORM3" ! FORMAT:DATA:REAL,64
260 OUTPUT @Na;"FORM0" ! ascii
270 RETURN
280 Fileclose: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
290 ASSIGN @File TO *
300 OUTPUT @Na;"REM 0" !remote false 이 명령어를 수행해야 local 후 버튼이 동작한다.
310 ASSIGN @Na TO *
320 RETURN
330 Measure: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
340 ! OUTPUT @Na;"*OPC?"
350 ! OUTPUT @Na;"SINGLE"
360 ! ENTER @Na;Tmp
370 OUTPUT @Na;"OT1DFOR" !output trace / first wave/ data formatting
380 ! OUTPUT @Na;"OT1MFOR" !output trace / 1(~4) ch / memory formatting
390 ! ENTER @Na_fmt_off;Form(*)
400 ENTER @Na;Form1(*)
410 OUTPUT @Na;"OT2DFOR" !output trace / second wave / data formatting
420 ENTER @Na;Form2(*)
430 FOR I=1 TO 1201
440 DISP I,Form1(I),Form2(I)
450 OUTPUT @File;I,Form1(I),Form2(I)
460 NEXT I
470 RETURN
480 Fileopen: !
490 DIM Filename$[20],Dhms$[8]
500 Time$=TIME$(TIMEDATE)
510 Date$=DATE$(TIMEDATE)
520 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
530 Filename$=Dhms$&".txt"
540 CREATE Filename$,1
550 ASSIGN @File TO Filename$;FORMAT ON
560 RETURN
570 END
<pre>

@@ 43번째 줄: / 43번째 줄: @@
       K=(F_stop/F_start)^(1/(Nop-1))
       FOR I=1 TO Nop
-        Freq(I)=F_start+K^(I-1)
+        Freq(I)=F_start*K^(I-1)
       NEXT I
     CASE 1  !선형

@@ 6번째 줄: / 6번째 줄: @@
      GOSUB Measure_select
      GOSUB Network_setup
-     GOSUB Measure
+    GOSUB Network_read
-    GOSUB Fileclose
+    GOSUB Measure
-    STOP
+    GOSUB Fileclose
-Declaration:              !!!!!!!!!!!!!!!!
+    STOP
-   OPTION BASE 1
+Declaration:             !!!!!!!!!!!!!!!!
-   DIM Msg$[255]
+   OPTION BASE 1
-    DIM Form1(1201),Form2(1201)   !NOP=401
+   DIM Msg$[255]
-    INTEGER I
+    INTEGER I,Nop,F_mode
     RETURN
 Measure_select:             !!!!!!!!!!!!!!!!
@@ 28번째 줄: / 28번째 줄: @@
     OUTPUT @Na;"FORM0"  ! ascii
     RETURN
-Fileclose:             !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+Network_read:    ! 계측기 세팅값을 읽어드린다.
-   ASSIGN @File TO *
+    OUTPUT @Na;"LINFREQ?" !선형주파수 스윕 모드인가? 0=아니다.  1=그렇다.
-   OUTPUT @Na;"REM 0"  !remote false 이 명령어를 수행해야 local 후 버튼이 동작한다.
+    ENTER @Na;F_mode
-   ASSIGN @Na TO *
+    OUTPUT @Na;"STAR?"     !시작주파수
-   RETURN
+    ENTER @Na;F_start
-Measure:              !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    OUTPUT @Na;"STOP?"     !끝주파수
-  ! OUTPUT @Na;"*OPC?"
+   ENTER @Na;F_stop
-  ! OUTPUT @Na;"SINGLE"
+   OUTPUT @Na;"POIN?"     !샘플링 수
-  ! ENTER @Na;Tmp
+   ENTER @Na;Nop
-   OUTPUT @Na;"OT1DFOR"   !output trace / first wave/ data formatting
+    ALLOCATE Freq(Nop),Form1(Nop),Form2(Nop)       !NOP=max 1201
-  ! OUTPUT @Na;"OT1MFOR"   !output trace / 1(~4) ch / memory formatting
+    PRINT F_mode,F_start,F_stop,Nop
-  !  ENTER @Na_fmt_off;Form(*)
+    SELECT F_mode
-    ENTER @Na;Form1(*)
+    CASE 0  !로그
-   OUTPUT @Na;"OT2DFOR"   !output trace / second wave  / data formatting
+      K=(F_stop/F_start)^(1/(Nop-1))
-    ENTER @Na;Form2(*)
+      FOR I=1 TO Nop
-    FOR I=1 TO 1201
+        Freq(I)=F_start+K^(I-1)
-      DISP I,Form1(I),Form2(I)
+      NEXT I
-      OUTPUT @File;I,Form1(I),Form2(I)
+    CASE 1  !선형
-    NEXT I
+      F_span=F_stop-F_start
-    RETURN
+      FOR I=1 TO Nop
-Fileopen:             !
+        Freq(I)=F_start+(F_span)/(Nop-1)*(I-1)
-    DIM Filename$[20],Dhms$[8]
+      NEXT I
-    Time$=TIME$(TIMEDATE)
+    END SELECT
-    Date$=DATE$(TIMEDATE)
+   RETURN
-    Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
+Fileclose:             !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-    Filename$=Dhms$&".txt"
+   ASSIGN @File TO *
-    CREATE Filename$,1
+   OUTPUT @Na;"REM 0"  !remote false 이 명령어를 수행해야 local 후 버튼이 동작한다.
-    ASSIGN @File TO Filename$;FORMAT ON
+    ASSIGN @Na TO *
     RETURN
-    END
+Measure:              !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 <pre>