https://www.togotech.co.kr/index.php?action=history&feed=atom&title=5150-01.txt
5150-01.txt - 편집 역사
2026-04-26T11:51:02Z
이 문서의 편집 역사
MediaWiki 1.31.1
https://www.togotech.co.kr/index.php?title=5150-01.txt&diff=31494&oldid=prev
Togotech: 새 문서: LE-5150 <pre> 10 CLEAR SCREEN 20 DIM Str$[255] 30 INTEGER I,Ch,Nop,Count 40 GOSUB Fileopen 50 ASSIGN @Load TO 702 !KG LE-5150-02 load 60 T0=TIMEDATE 70...
2020-05-06T09:20:50Z
<p>새 문서: <a href="/index.php/LE-5150" class="mw-redirect" title="LE-5150" data-bs-title="LE-5150">LE-5150</a> <pre> 10 CLEAR SCREEN 20 DIM Str$[255] 30 INTEGER I,Ch,Nop,Count 40 GOSUB Fileopen 50 ASSIGN @Load TO 702 !KG LE-5150-02 load 60 T0=TIMEDATE 70...</p>
<p><b>새 문서</b></p><div>[[LE-5150]]<br />
<pre><br />
10 CLEAR SCREEN<br />
20 DIM Str$[255]<br />
30 INTEGER I,Ch,Nop,Count<br />
40 GOSUB Fileopen<br />
50 ASSIGN @Load TO 702 !KG LE-5150-02 load<br />
60 T0=TIMEDATE<br />
70 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!<br />
80 ASSIGN @Ps TO 705 !6035 500V 5A<br />
90 ! Ps_type=6035<br />
100 Ps_type=66311<br />
110 SELECT Ps_type<br />
120 CASE 6035<br />
130 OUTPUT @Ps;"VSET 50"!100V<br />
140 OUTPUT @Ps;"ISET 3.1"!3A<br />
150 CASE 66311<br />
160 OUTPUT @Ps;"VOLT 15"!max 15V<br />
170 OUTPUT @Ps;"CURR 3" !max 3A<br />
171 OUTPUT @Ps;"OUTP ON"<br />
180 END SELECT <br />
190 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<br />
200 Str$="채널1을 사용합니다."<br />
210 DIALOG "INFORMATION",Str$,Btn<br />
220 Ch=1<br />
230 Offset_volt=0<br />
240 OUTPUT @Load;"CV";Ch;",";Offset_volt;",0"<br />
250 R_max=1000 !최대 1000<br />
260 R_min=10 !최소 10<br />
270 Nop=201<br />
280 OUTPUT @File;"No., Time[s], Load R[ohm], Ps-V[V], Ps-I[A], Load V[V], Load I[V], Load P[W]"<br />
290 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<br />
300 Str$="로드에 연결하십시요."<br />
310 DIALOG "INFORMATION",Str$,Btn<br />
320 OUTPUT @Load;"LD";Ch;",1" ! LOAD ON<br />
330 OUTPUT @Load;"CR";Ch;",";R_min;",0" !첫번째 측정에 문제가 있어<br />
340 WAIT 1<br />
350 Count=0<br />
360 T0=TIMEDATE<br />
370 LOOP<br />
380 Count=Count+1<br />
390 R_step=(R_max-R_min)/(Nop-1)<br />
400 R=R_max-R_step*(Count-1)<br />
410 OUTPUT @Load;"CR";Ch;",";R;",0"<br />
420 GOSUB Ps_reading<br />
430 GOSUB Load_reading<br />
440 Power=Volt*Curr<br />
450 PRINT "No.=";Count;" Set R=";R;" V=";Volt;" I=";Curr;" P=";Power<br />
460 T=TIMEDATE-T0<br />
470 OUTPUT @File;Count,T,R,Volt_ps,Curr_ps,Volt,Curr,Power<br />
480 EXIT IF Count=Nop<br />
490 EXIT IF Curr>3<br />
500 EXIT IF Power>150<br />
510 END LOOP <br />
520 OUTPUT @Load;"LD";Ch;",0" ! LOAD OFF<br />
530 STOP<br />
540 RETURN<br />
550 Fileopen: !<br />
560 DIM Filename$[20],Dhms$[8]<br />
570 Time$=TIME$(TIMEDATE)<br />
580 Date$=DATE$(TIMEDATE)<br />
590 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]<br />
600 Filename$=Dhms$&".txt"<br />
610 CREATE Filename$,1<br />
620 ASSIGN @File TO Filename$;FORMAT ON<br />
630 RETURN<br />
640 Ps_reading: !<br />
650 SELECT Ps_type<br />
660 CASE 6035<br />
670 OUTPUT @Ps;"VOUT?" !volt<br />
680 ENTER @Ps;Readv$<br />
690 Volt_ps=VAL(Readv$[5;7])<br />
700 OUTPUT @Ps;"IOUT?" !curr<br />
710 ENTER @Ps;Readi$<br />
720 Curr_ps=VAL(Readi$[5;7])<br />
730 CASE 66311<br />
740 OUTPUT @Ps;"MEAS:VOLT?" !volt<br />
750 ENTER @Ps;Volt_ps<br />
760 OUTPUT @Ps;"MEAS:CURR?" !curr<br />
770 ENTER @Ps;Curr_ps<br />
780 END SELECT <br />
790 RETURN<br />
800 Load_reading: !<br />
810 SELECT Count<br />
820 CASE 1<br />
830 FOR I=1 TO 10<br />
840 OUTPUT @Load;"MG";Ch;",1"!volt<br />
850 ENTER @Load;Volt<br />
860 OUTPUT @Load;"MG";Ch;",2"!curr<br />
870 ENTER @Load;Curr<br />
880 NEXT I<br />
890 CASE ELSE <br />
900 OUTPUT @Load;"MG";Ch;",1"!volt<br />
910 ENTER @Load;Volt<br />
920 OUTPUT @Load;"MG";Ch;",2"!curr<br />
930 ENTER @Load;Curr<br />
940 END SELECT <br />
950 RETURN<br />
960 END<br />
</pre></div>
Togotech