https://www.togotech.co.kr/index.php?action=history&feed=atom&title=PT301-01.BAS
PT301-01.BAS - 편집 역사
2026-07-02T21:31:44Z
이 문서의 편집 역사
MediaWiki 1.31.1
https://www.togotech.co.kr/index.php?title=PT301-01.BAS&diff=72960&oldid=prev
2024년 1월 29일 (월) 06:44에 Togotech님의 편집
2024-01-29T06:44:07Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="ko">
<td colspan="2" style="background-color: #fff; color: #222; text-align: center;">← 이전 판</td>
<td colspan="2" style="background-color: #fff; color: #222; text-align: center;">2024년 1월 29일 (월) 06:44 판</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >1번째 줄:</td>
<td colspan="2" class="diff-lineno">1번째 줄:</td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"><a href="../e-load/PT301-01.txt">(PT301-01.txt)</a> [[PT301-01.BAS]] - 이 페이지</del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><pre></div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><pre></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>10    ! mode = 1 volt, 2 time, 3 step time, 4 varistor</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>10    ! mode = 1 volt, 2 time, 3 step time, 4 varistor</div></td></tr>
</table>
Togotech
https://www.togotech.co.kr/index.php?title=PT301-01.BAS&diff=72959&oldid=prev
Togotech: 새 문서: <a href="../e-load/PT301-01.txt">(PT301-01.txt)</a> PT301-01.BAS - 이 페이지 <pre> 10 ! mode = 1 volt, 2 time, 3 step time, 4 varistor 20 ! 2024-01-29 30 CLEAR SC...
2024-01-29T06:43:06Z
<p>새 문서: <a href="../e-load/PT301-01.txt">(PT301-01.txt)</a> <a href="/index.php/PT301-01.BAS" title="PT301-01.BAS" data-bs-title="PT301-01.BAS">PT301-01.BAS</a> - 이 페이지 <pre> 10 ! mode = 1 volt, 2 time, 3 step time, 4 varistor 20 ! 2024-01-29 30 CLEAR SC...</p>
<p><b>새 문서</b></p><div><a href="../e-load/PT301-01.txt">(PT301-01.txt)</a> [[PT301-01.BAS]] - 이 페이지<br />
<br />
<pre><br />
10 ! mode = 1 volt, 2 time, 3 step time, 4 varistor<br />
20 ! 2024-01-29<br />
30 CLEAR SCREEN<br />
40 OPTION BASE 1<br />
50 GOSUB Fileopen<br />
60 GOSUB Inst_open<br />
70 GOSUB Measure<br />
80 GOSUB Inst_close<br />
90 GOSUB Fileclose<br />
100 STOP<br />
110 Measure: !<br />
120 ! OUTPUT @Pt301;""<br />
130 OUTPUT @File;"No.,Time[s],Load Curr[A],Burden Volt[V], Ripple V[mV], Noise V[mV]"<br />
140 Curr_start=0 !!!!!!!!!!!!!!!!!!!<br />
150 Curr_stop=1 !!!!!!!!!!!!!!!!!!!<br />
160 Nop=101<br />
170 Volt=Volt_start<br />
180 I=0<br />
190 GOSUB Chart_var<br />
200 GOSUB Init_chart<br />
210 T0=TIMEDATE<br />
220 LOOP<br />
230 I=I+1<br />
240 Curr_set=Curr_start+(Curr_stop-Curr_start)*(I-1)/(Nop-1)<br />
250 OUTPUT @Pt301;"A";Curr_set !!!!!!!!!!!!!!!!!!!!!!!!!!<br />
260 Time=TIMEDATE-T0<br />
270 WAIT .2 !!!!!!!!!!!!!!!!!!!!!!!!<br />
280 GOSUB Reading<br />
290 IF I=1 THEN Volt_save=Volt<br />
300 ! X(1)=Curr_set<br />
310 Y(1)=Ripp<br />
320 CONTROL @Strip;SET("POINT LOCATION":Curr_set,"VALUES":Y(*)) !!!!!!!!!!!!!!!!!!!!!!!!!!!<br />
330 PRINT "Count=";I;", T=";PROUND(Time,-2);" I=";Curr;", V=";Volt;", Ripple=";Ripp;", Noise=";Nois<br />
340 OUTPUT @File;I,Time,Curr,Volt,Ripp,Nois<br />
350 EXIT IF ABS((Volt-Volt_save)/Volt_save)*100>50 !직전 전압에 비해 50% 이상 변하면<br />
360 EXIT IF Curr>Max_curr+.1<br />
370 EXIT IF Volt>Max_volt+1<br />
380 EXIT IF Ripp>2000<br />
390 EXIT IF Nois>2000<br />
400 EXIT IF I=Nop<br />
410 Volt_save=Volt<br />
420 END LOOP <br />
430 RETURN<br />
440 Reading: !<br />
450 OUTPUT @Pt301;"M0"<br />
460 ENTER @Pt301;Curr<br />
470 OUTPUT @Pt301;"M1"<br />
480 ENTER @Pt301;Volt<br />
490 OUTPUT @Pt301;"M3"<br />
500 ENTER @Pt301;Ripp<br />
510 OUTPUT @Pt301;"M4"<br />
520 ENTER @Pt301;Nois<br />
530 RETURN<br />
540 Fileopen: !<br />
550 DIM Filename$[20],Dhms$[8]<br />
560 Time$=TIME$(TIMEDATE)<br />
570 Date$=DATE$(TIMEDATE)<br />
580 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]<br />
590 Filename$=Dhms$&".txt"<br />
600 CREATE Filename$,1<br />
610 ASSIGN @File TO Filename$;FORMAT ON<br />
620 RETURN<br />
630 Fileclose: !<br />
640 ASSIGN @File TO *<br />
650 RETURN<br />
660 Inst_close: !<br />
670 OUTPUT @Pt301;"A";0 !!!!!!!!!!!!!!!!!!!!!!!!!!<br />
680 RETURN<br />
690 Inst_open: !<br />
700 DIM Id$[25]<br />
710 ASSIGN @Pt301 TO 702<br />
720 OUTPUT @Pt301;"V" !check version<br />
730 ENTER @Pt301;Id$<br />
740 DISP Id$<br />
750 Max_volt=VAL(Id$[8;3])<br />
760 Max_curr=VAL(Id$[13;3])<br />
770 RETURN<br />
780 Chart_var: !<br />
790 X_origin=Curr_start<br />
800 X_range=Curr_stop-Curr_start<br />
810 X_axis_label$="Current [A]"<br />
820 Y_origin=0 !!!!!!!!!!!!!!!!!!!!!!!!!!!!<br />
830 Y_range=Max_volt !!!!!!!!!!!!!!!!!!!!!!!<br />
840 Y_axis_label$="Ripple [mV]" !!!!!!!!!!!!<br />
850 RETURN<br />
860 Init_chart: !<br />
870 DIM X_axis_label$[25],Y_axis_label$[25]<br />
880 INTEGER Trace_num<br />
890 INTEGER Screen_dims(1:2),Gwindow_dims(1:4)<br />
900 REAL Y(1:1)<br />
910 GESCAPE CRT,36;Screen_dims(*) ! Get screen width and height.<br />
920 !<br />
930 ! Set the dimensions of the graphics window using GESCAPE 33 so<br />
940 ! that it is centered on the screen.<br />
950 !<br />
960 Gwindow_dims(1)=Screen_dims(1)*.25 ! X of upper left.<br />
970 Gwindow_dims(2)=Screen_dims(2)*.01 ! Y of upper left.<br />
980 Gwindow_dims(3)=Screen_dims(1)*.7 ! Width.<br />
990 Gwindow_dims(4)=Screen_dims(2)*.6 ! Height.<br />
1000 GESCAPE CRT,33;Gwindow_dims(*) ! Set graphics window geometry.<br />
1010 !<br />
1020 GESCAPE CRT,35 ! Move the graphics window to the top.<br />
1030 !<br />
1040 ! Create a stripchart. Make it invisible until all changes are made.<br />
1050 !<br />
1060 ASSIGN @Strip TO WIDGET "STRIPCHART";SET("VISIBLE":0)<br />
1070 !<br />
1080 ! Set the overall attributes.<br />
1090 !<br />
1100 CONTROL @Strip;SET("TITLE":"Data Logger")<br />
1110 CONTROL @Strip;SET("MINIMUM SCROLL":2)<br />
1120 CONTROL @Strip;SET("MOVABLE":0)<br />
1130 CONTROL @Strip;SET("MAXIMIZABLE":0)<br />
1140 CONTROL @Strip;SET("X":0,"Y":0)<br />
1150 !<br />
1160 ! Size the stripchart to exactly fill the graphics window.<br />
1170 !<br />
1180 Vert_borders=26<br />
1190 Horiz_borders=8<br />
1200 Height=Gwindow_dims(4)-Vert_borders<br />
1210 Width=Gwindow_dims(3)-Horiz_borders<br />
1220 CONTROL @Strip;SET("WIDTH":Width,"HEIGHT":Height)<br />
1230 !<br />
1240 CONTROL @Strip;SET("CURRENT AXIS":"X")<br />
1250 CONTROL @Strip;SET("ORIGIN":X_origin,"RANGE":X_range)<br />
1260 CONTROL @Strip;SET("AXIS LABEL":X_axis_label$)<br />
1270 !CONTROL @Strip;SET("DIGITS":5)<br />
1280 !<br />
1290 CONTROL @Strip;SET("CURRENT AXIS":"Y")<br />
1300 CONTROL @Strip;SET("ORIGIN":Y_origin,"RANGE":Y_range)<br />
1310 CONTROL @Strip;SET("AXIS LABEL":Y_axis_label$)<br />
1320 !<br />
1330 CONTROL @Strip;SET("VISIBLE":1) ! Show the stripchart.<br />
1340 !<br />
1350 RETURN<br />
1360 END<br />
</pre></div>
Togotech