https://www.togotech.co.kr/index.php?action=history&feed=atom&title=6842a-ibw.txt
6842a-ibw.txt - 편집 역사
2026-04-26T20:28:26Z
이 문서의 편집 역사
MediaWiki 1.31.1
https://www.togotech.co.kr/index.php?title=6842a-ibw.txt&diff=35402&oldid=prev
Togotech: 새 문서: HP 6842A <pre> 1 ! 6842a-ibw.txt 10 ! 2019-03-22 20 ! 2020-09-08 트랜스포머 전압비 측정 30 ! 1 = 6842A 전압에 따라, 스스로 전류측정 40 !...
2020-09-08T08:45:41Z
<p>새 문서: <a href="/index.php/HP_6842A" class="mw-redirect" title="HP 6842A" data-bs-title="HP_6842A">HP 6842A</a> <pre> 1 ! 6842a-ibw.txt 10 ! 2019-03-22 20 ! 2020-09-08 트랜스포머 전압비 측정 30 ! 1 = 6842A 전압에 따라, 스스로 전류측정 40 !...</p>
<p><b>새 문서</b></p><div>[[HP 6842A]]<br />
<pre><br />
1 ! 6842a-ibw.txt<br />
10 ! 2019-03-22<br />
20 ! 2020-09-08 트랜스포머 전압비 측정<br />
30 ! 1 = 6842A 전압에 따라, 스스로 전류측정<br />
40 ! 2 = 6842A 전압인가, 3458A 2차측 전압측정<br />
50 ! 3 = 6842A 전압인가, 8842(add 03) 1차측 전류측정, 8842(add 02) 2차측 전압측정<br />
60 OPTION BASE 1<br />
70 ASSIGN @Ps TO 705<br />
80 ASSIGN @Dmm TO 722<br />
90 GOSUB Fileopen<br />
100 GOSUB Measure<br />
110 GOSUB Fileclose<br />
120 STOP<br />
130 Measure: !<br />
140 INTEGER I,V_start,V_stop<br />
150 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<br />
160 Type=2 !1=자체에서 v,i측정 2=v인가 3458로 전압측정(트랜스측정)<br />
170 V_start=1 !정수 !!!!!!<br />
180 V_stop=110 !110 또는 220 까지 정수 !!!!!!<br />
190 Curr_limit=1 !흐르는 최대 전류 !!!!!!!!!!!!!!! 주의<br />
200 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<br />
210 Y_max=12 ! 그래프에서 Y축 최대<br />
220 ALLOCATE Yarray(V_stop),Xarray(V_stop)<br />
230 DIM Id$[50]<br />
240 OUTPUT @Ps;"*IDN?"<br />
250 ENTER @Ps;Id$<br />
260 DISP Id$<br />
270 OUTPUT @Ps;"VOLT 0"<br />
280 OUTPUT @Ps;"VOLT:PROT 221" !sets the overvoltage protection (OVP) level of the ac source<br />
290 OUTPUT @Ps;"CURR:LEV ";Curr_limit ! Sets the rms current limit<br />
300 OUTPUT @Ps;"CURR:PROT:STAT ON" ! enables the overcurrent (OC) protection function<br />
310 OUTPUT @Ps;"OUTP ON"<br />
320 SELECT Type<br />
330 CASE 1<br />
340 OUTPUT @File;"No.,Time[s],Volt[V],Curr[A],Apparent Power[VA],Real Power[W], Power Factor"<br />
350 CASE 2<br />
360 OUTPUT @File;"No.,Time[s],Vset[V],Vmeas[V],Vratio"<br />
370 END SELECT <br />
380 GOSUB Chart_var<br />
390 GOSUB Init_chart<br />
400 T0=TIMEDATE<br />
410 FOR I=V_start TO V_stop<br />
420 T=TIMEDATE-T0<br />
430 OUTPUT @Ps;"VOLT ";I<br />
440 SELECT Type<br />
450 CASE 1<br />
460 GOSUB Reading_ps<br />
470 Pf=W/Va<br />
480 PRINT I,T,Vset,Curr,Va,W,Pf<br />
490 OUTPUT @File;I,T,Vset,Curr,Va,W,Pf<br />
500 CASE 2<br />
510 GOSUB Reading_ps<br />
520 GOSUB Reading_dmm<br />
530 PRINT I,T,Vset,Vmeas,Vmeas/Vset<br />
540 OUTPUT @File;I,T,Vset,Vmeas,Vmeas/Vset<br />
550 END SELECT <br />
560 IF Vmeas>Y_max THEN Y_max=Vmeas<br />
570 Xarray(I)=Vset<br />
580 Yarray(I)=Vmeas<br />
590 Y(1)=Vmeas<br />
600 CONTROL @Strip;SET("POINT LOCATION":Xarray(I),"VALUES":Y(*))<br />
610 NEXT I<br />
620 OUTPUT @Ps;"OUTP OFF"<br />
630 GOSUB Fileclose<br />
640 RETURN<br />
650 Reading_ps: !<br />
660 OUTPUT @Ps;"MEASure:VOLTage:AC?"<br />
670 ENTER @Ps;Vset<br />
680 OUTPUT @Ps;"MEASure:CURRent:AC?"<br />
690 ENTER @Ps;Curr<br />
700 OUTPUT @Ps;"MEASure:POWer:AC:APParent?"<br />
710 ENTER @Ps;Va<br />
720 OUTPUT @Ps;"MEASure:POWer:AC:REAL?"<br />
730 ENTER @Ps;W<br />
740 RETURN<br />
750 Reading_dmm: !<br />
760 OUTPUT @Dmm;"TRIG SGL"<br />
770 ENTER @Dmm;Vmeas<br />
780 RETURN<br />
790 Fileopen: !<br />
800 DIM Filename$[20],Dhms$[8]<br />
810 Time$=TIME$(TIMEDATE)<br />
820 Date$=DATE$(TIMEDATE)<br />
830 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]<br />
840 Filename$=Dhms$&".txt"<br />
850 CREATE Filename$,1<br />
860 ASSIGN @File TO Filename$;FORMAT ON<br />
870 RETURN<br />
880 Fileclose: !<br />
890 ASSIGN @File TO *<br />
900 RETURN<br />
910 Chart_var: !<br />
920 X_origin=V_start<br />
930 X_range=V_stop-V_start<br />
940 X_axis_label$="1st Volt[V]"<br />
950 Y_origin=0<br />
960 Y_range=Y_max<br />
970 Y_axis_label$="2nd Volt[V]"<br />
980 RETURN<br />
990 Init_chart: !<br />
1000 DIM X_axis_label$[25],Y_axis_label$[25]<br />
1010 INTEGER Trace_num<br />
1020 INTEGER Screen_dims(1:2),Gwindow_dims(1:4)<br />
1030 REAL Y(1:1) !챠트가 하나<br />
1040 GESCAPE CRT,36;Screen_dims(*) ! Get screen width and height.<br />
1050 !<br />
1060 ! Set the dimensions of the graphics window using GESCAPE 33 so<br />
1070 ! that it is centered on the screen.<br />
1080 !<br />
1090 Gwindow_dims(1)=Screen_dims(1)*.25 ! X of upper left.<br />
1100 Gwindow_dims(2)=Screen_dims(2)*.2 ! Y of upper left.<br />
1110 Gwindow_dims(3)=Screen_dims(1)*.7 ! Width.<br />
1120 Gwindow_dims(4)=Screen_dims(2)*.6 ! Height.<br />
1130 GESCAPE CRT,33;Gwindow_dims(*) ! Set graphics window geometry.<br />
1140 !<br />
1150 GESCAPE CRT,35 ! Move the graphics window to the top.<br />
1160 !<br />
1170 ! Create a stripchart. Make it invisible until all changes are made.<br />
1180 !<br />
1190 ASSIGN @Strip TO WIDGET "STRIPCHART";SET("VISIBLE":0)<br />
1200 !<br />
1210 ! Set the overall attributes.<br />
1220 !<br />
1230 CONTROL @Strip;SET("TITLE":"Data Logger")<br />
1240 CONTROL @Strip;SET("MINIMUM SCROLL":2)<br />
1250 CONTROL @Strip;SET("MOVABLE":0)<br />
1260 CONTROL @Strip;SET("MAXIMIZABLE":0)<br />
1270 CONTROL @Strip;SET("X":0,"Y":0)<br />
1280 !<br />
1290 ! Size the stripchart to exactly fill the graphics window.<br />
1300 !<br />
1310 Vert_borders=26<br />
1320 Horiz_borders=8<br />
1330 Height=Gwindow_dims(4)-Vert_borders<br />
1340 Width=Gwindow_dims(3)-Horiz_borders<br />
1350 CONTROL @Strip;SET("WIDTH":Width,"HEIGHT":Height)<br />
1360 !<br />
1370 CONTROL @Strip;SET("CURRENT AXIS":"X")<br />
1380 CONTROL @Strip;SET("ORIGIN":X_origin,"RANGE":X_range)<br />
1390 CONTROL @Strip;SET("AXIS LABEL":X_axis_label$)<br />
1400 !CONTROL @Strip;SET("DIGITS":5)<br />
1410 !<br />
1420 CONTROL @Strip;SET("CURRENT AXIS":"Y")<br />
1430 CONTROL @Strip;SET("ORIGIN":Y_origin,"RANGE":Y_range)<br />
1440 CONTROL @Strip;SET("AXIS LABEL":Y_axis_label$)<br />
1450 !<br />
1460 CONTROL @Strip;SET("VISIBLE":1) ! Show the stripchart.<br />
1470 !<br />
1480 RETURN<br />
1490 END<br />
</pre></div>
Togotech