https://www.togotech.co.kr/index.php?action=history&feed=atom&title=Ta720-1.bas
Ta720-1.bas - 편집 역사
2026-04-26T15:06:28Z
이 문서의 편집 역사
MediaWiki 1.31.1
https://www.togotech.co.kr/index.php?title=Ta720-1.bas&diff=29587&oldid=prev
Togotech: 새 문서: TA720 <pre> 10 ! 2020-02-15 최초 작성 20 CLEAR SCREEN 30 OPTION BASE 1 40 DIM A$[155],Id$[23] 50 ASSIGN @Ta720 TO 705 ! 60 OUTPUT @Ta720;"*CLS"...
2020-02-15T04:07:39Z
<p>새 문서: <a href="/index.php/TA720" class="mw-redirect" title="TA720" data-bs-title="TA720">TA720</a> <pre> 10 ! 2020-02-15 최초 작성 20 CLEAR SCREEN 30 OPTION BASE 1 40 DIM A$[155],Id$[23] 50 ASSIGN @Ta720 TO 705 ! 60 OUTPUT @Ta720;"*CLS"...</p>
<p><b>새 문서</b></p><div>[[TA720]]<br />
<br />
<pre><br />
10 ! 2020-02-15 최초 작성<br />
20 CLEAR SCREEN<br />
30 OPTION BASE 1<br />
40 DIM A$[155],Id$[23]<br />
50 ASSIGN @Ta720 TO 705 !<br />
60 OUTPUT @Ta720;"*CLS" !clear<br />
70 OUTPUT @Ta720;"*IDN?" !YOKOGAWA,704510,0,F1.01 !23자,제조회사 모델 S/N(항상0) 펌웨어<br />
80 ENTER @Ta720;Id$<br />
90 DISP Id$<br />
100 OUTPUT @Ta720;"CALC:PAR:AVER ON"<br />
110 OUTPUT @Ta720;"CALC:PAR:SDEV ON"<br />
120 OUTPUT @Ta720;"CALC:PAR:FLUT ON"<br />
130 OUTPUT @Ta720;"CALC:PAR:PTOP ON"<br />
140 ! OUTPUT @Ta720;"COMM:HEAD OFF" !응답 데이터에 헤더를 사용한다 하지 않는다.<br />
150 GOSUB Fileopen<br />
160 GOSUB Measure<br />
170 GOSUB Fileclose<br />
180 STOP<br />
190 Measure: !<br />
200 Set_time=3600 ! x축 그래프 최대 시간 [초]<br />
210 OUTPUT @File;"No.,Time[s],Avg[s],P2P[s],Std[s],CV[%],Nop"<br />
220 Count=0<br />
230 GOSUB Chart_var<br />
240 GOSUB Init_chart<br />
250 T0=TIMEDATE<br />
260 LOOP<br />
270 Time=(TIMEDATE-T0)<br />
280 GOSUB Reading<br />
290 Count=Count+1<br />
300 Y(1)=Avg<br />
310 Y(2)=Std<br />
320 CONTROL @Strip;SET("POINT LOCATION":Time,"VALUES":Y(*))<br />
330 PRINT "Count=";Count;", T=";PROUND(Time,-3);", Avg=";Avg;", Std=";Std;", CV=";Cv<br />
340 OUTPUT @File;Count,Time,Avg,P2p,Std,Cv,Nop<br />
350 EXIT IF Time>Set_time<br />
360 END LOOP <br />
370 RETURN<br />
380 Reading: ! 이 계측기는 한 명령이 끝날 때까지 다음 명령을 기다리는 기술을 사용해야 한다.<br />
390 OUTPUT @Ta720;"SST" !single<br />
410 LOOP !이 명령어를 수행하면 화면 업데이트가 안된다.<br />
420 OUTPUT @Ta720;"STAT:COND?"<br />
430 ENTER @Ta720;Bit<br />
440 EXIT IF Bit=1<br />
450 END LOOP <br />
460 WAIT .1 !화면 업데이트를 하는 시간<br />
470 OUTPUT @Ta720;"CALC:AVER?" !avg<br />
480 ENTER @Ta720;A$<br />
490 Avg=VAL(A$)<br />
500 OUTPUT @Ta720;"CALC:PTOP?" !p2p<br />
510 ENTER @Ta720;A$<br />
520 P2p=VAL(A$)<br />
530 OUTPUT @Ta720;"CALC:SDEV?" !sigma<br />
540 ENTER @Ta720;A$<br />
550 Std=VAL(A$)<br />
560 OUTPUT @Ta720;"CALC:FLUT?" !sigma/avg<br />
570 ENTER @Ta720;A$<br />
580 Cv=VAL(A$)<br />
590 OUTPUT @Ta720;"CALC:SNUM?" !<br />
600 ENTER @Ta720;A$<br />
610 Nop=VAL(A$)<br />
620 RETURN<br />
630 Fileopen: !<br />
640 DIM Filename$[20],Dhms$[8]<br />
650 Time$=TIME$(TIMEDATE)<br />
660 Date$=DATE$(TIMEDATE)<br />
670 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]<br />
680 Filename$=Dhms$&".txt"<br />
690 CREATE Filename$,1<br />
700 ASSIGN @File TO Filename$;FORMAT ON<br />
710 RETURN<br />
720 Fileclose: !<br />
730 ASSIGN @File TO *<br />
740 RETURN<br />
750 Chart_var: !<br />
760 X_origin=0<br />
770 X_range=500<br />
780 X_axis_label$="Sampling Count"<br />
790 Y_origin=(1/1.E+7)-1.E-11<br />
800 Y_range=2.E-11<br />
810 Y_axis_label$="%"<br />
820 RETURN<br />
830 Init_chart: !<br />
840 DIM X_axis_label$[25],Y_axis_label$[25]<br />
850 INTEGER Trace_num<br />
860 INTEGER Screen_dims(1:2),Gwindow_dims(1:4)<br />
870 REAL Y(1:2) !Y(1) avg (2) sigma/avg<br />
880 GESCAPE CRT,36;Screen_dims(*) ! Get screen width and height.<br />
890 !<br />
900 ! Set the dimensions of the graphics window using GESCAPE 33 so<br />
910 ! that it is centered on the screen.<br />
920 !<br />
930 Gwindow_dims(1)=Screen_dims(1)*.25 ! X of upper left.<br />
940 Gwindow_dims(2)=Screen_dims(2)*.2 ! Y of upper left.<br />
950 Gwindow_dims(3)=Screen_dims(1)*.7 ! Width.<br />
960 Gwindow_dims(4)=Screen_dims(2)*.6 ! Height.<br />
970 GESCAPE CRT,33;Gwindow_dims(*) ! Set graphics window geometry.<br />
980 !<br />
990 GESCAPE CRT,35 ! Move the graphics window to the top.<br />
1000 !<br />
1010 ! Create a stripchart. Make it invisible until all changes are made.<br />
1020 !<br />
1030 ASSIGN @Strip TO WIDGET "STRIPCHART";SET("VISIBLE":0)<br />
1040 !<br />
1050 ! Set the overall attributes.<br />
1060 !<br />
1070 CONTROL @Strip;SET("TITLE":"Data Logger")<br />
1080 CONTROL @Strip;SET("MINIMUM SCROLL":2)<br />
1090 CONTROL @Strip;SET("MOVABLE":0)<br />
1100 CONTROL @Strip;SET("MAXIMIZABLE":0)<br />
1110 CONTROL @Strip;SET("X":0,"Y":0)<br />
1120 !<br />
1130 ! Size the stripchart to exactly fill the graphics window.<br />
1140 !<br />
1150 Vert_borders=26<br />
1160 Horiz_borders=8<br />
1170 Height=Gwindow_dims(4)-Vert_borders<br />
1180 Width=Gwindow_dims(3)-Horiz_borders<br />
1190 CONTROL @Strip;SET("WIDTH":Width,"HEIGHT":Height)<br />
1200 !<br />
1210 CONTROL @Strip;SET("CURRENT AXIS":"X")<br />
1220 CONTROL @Strip;SET("ORIGIN":X_origin,"RANGE":X_range)<br />
1230 CONTROL @Strip;SET("AXIS LABEL":X_axis_label$)<br />
1240 !CONTROL @Strip;SET("DIGITS":5)<br />
1250 !<br />
1260 CONTROL @Strip;SET("CURRENT AXIS":"Y")<br />
1270 CONTROL @Strip;SET("ORIGIN":Y_origin,"RANGE":Y_range)<br />
1280 CONTROL @Strip;SET("AXIS LABEL":Y_axis_label$)<br />
1290 !<br />
1300 CONTROL @Strip;SET("VISIBLE":1) ! Show the stripchart.<br />
1310 !<br />
1320 RETURN<br />
1330 END<br />
</pre></div>
Togotech