https://www.togotech.co.kr/index.php?action=history&feed=atom&title=6612c-bas.txt
6612c-bas.txt - 편집 역사
2026-04-26T19:21:46Z
이 문서의 편집 역사
MediaWiki 1.31.1
https://www.togotech.co.kr/index.php?title=6612c-bas.txt&diff=34388&oldid=prev
Togotech: 새 문서: 6612C <pre> 10 ! 2018-12-18 measure1 = 충전시 전압 측정(배터리 내부 저항이 낮아 반드시 4-wire) 20 ! 2019-06-20 measure2 = 전류에 따른 8842로...
2020-08-10T01:16:54Z
<p>새 문서: <a href="/index.php/6612C" class="mw-redirect" title="6612C" data-bs-title="6612C">6612C</a> <pre> 10 ! 2018-12-18 measure1 = 충전시 전압 측정(배터리 내부 저항이 낮아 반드시 4-wire) 20 ! 2019-06-20 measure2 = 전류에 따른 8842로...</p>
<p><b>새 문서</b></p><div>[[6612C]]<br />
<pre><br />
10 ! 2018-12-18 measure1 = 충전시 전압 측정(배터리 내부 저항이 낮아 반드시 4-wire)<br />
20 ! 2019-06-20 measure2 = 전류에 따른 8842로 전압 전류측정<br />
30 ! 2019-06-26 measure3 = 전압 전류 측정<br />
40 ! 2020-08-11 measure31 = 전압 전류 차이 측정<br />
50 ! 2019-06-26 measure4 = V-I 측정<br />
60 OPTION BASE 1<br />
70 ASSIGN @Ps6612c TO 701 !오븐도 701이다. 오븐은 보통 켜져 있다. 주의<br />
80 GOSUB Fileopen<br />
90 GOSUB Measure31<br />
100 GOSUB Fileclose<br />
110 STOP<br />
120 Measure2: !<br />
130 ASSIGN @Dmmv TO 702 !<br />
140 ASSIGN @Dmmi TO 703<br />
150 Set_volt_max=20 !<br />
160 Set_curr_max=.05 !6612C max 2A<br />
170 Nop=201<br />
180 Set_time=100 ! x축 그래프 최대 시간 초<br />
190 OUTPUT @Ps6612c;"VOLT ";Set_volt_max!charge<br />
200 OUTPUT @Ps6612c;"CURR ";0<br />
210 OUTPUT @Ps6612c;"OUTP ON"<br />
220 OUTPUT @File;"No.,Time[s],Volt[V],Curr[A]"<br />
230 T0=TIMEDATE<br />
240 I=0<br />
250 GOSUB Chart_var<br />
260 GOSUB Init_chart<br />
270 FOR I=1 TO Nop<br />
280 Time=(TIMEDATE-T0)<br />
290 Set_curr=Set_curr_max/Nop*(I)<br />
300 OUTPUT @Ps6612c;"CURR ";Set_curr<br />
310 GOSUB Reading2<br />
320 Y(1)=Volt<br />
330 Y(2)=Curr<br />
340 CONTROL @Strip;SET("POINT LOCATION":Time,"VALUES":Y(*))<br />
350 PRINT "I=";I;", T=";Time;", V=";Volt;", I=";Curr<br />
360 OUTPUT @File;I,Time,Volt,Curr<br />
370 WAIT .01<br />
380 BEEP<br />
390 NEXT I<br />
400 OUTPUT @Ps6612c;"OUTP OFF"<br />
410 RETURN<br />
420 Measure3: !<br />
430 OUTPUT @Ps6612c;"VOLT 3"<br />
440 OUTPUT @Ps6612c;"CURR 1"<br />
450 OUTPUT @Ps6612c;"OUTP ON"<br />
460 OUTPUT @File;"No.,Time[s],Volt[V],Curr[A]"<br />
470 T0=TIMEDATE<br />
480 I=0<br />
490 LOOP<br />
500 Time=TIMEDATE-T0<br />
510 I=I+1<br />
520 GOSUB Reading1<br />
530 ! PRINT "I=";I;", T=";Time;", V=";Volt;", I=";Curr<br />
540 OUTPUT @File;I,Time,Volt,Curr<br />
550 EXIT IF Time>600<br />
560 END LOOP <br />
570 OUTPUT @Ps6612c;"OUTP OFF"<br />
580 RETURN<br />
590 Measure31: !<br />
600 OUTPUT @Ps6612c;"VOLT 3"<br />
610 OUTPUT @Ps6612c;"CURR 0.01"<br />
620 OUTPUT @Ps6612c;"OUTP ON"<br />
630 OUTPUT @File;"No.,Time[s],Volt[V],Curr[A]"<br />
640 T0=TIMEDATE<br />
650 I=0<br />
660 Pre_volt=0<br />
670 Pre_curr=0<br />
680 LOOP<br />
690 GOSUB Reading1<br />
700 Diff_v=ABS(Volt-Pre_volt)/Volt*100 !전압차이를 %<br />
710 Diff_i=ABS(Curr-Pre_curr)/Curr*100 !전류차이를 %<br />
720 IF (Diff_v>.1) OR (Diff_i>.1) THEN !전압이 0.1% 차이 또는 전류가 0.1% 차이가 발생되면<br />
730 Time=TIMEDATE-T0<br />
740 BEEP<br />
750 I=I+1<br />
760 DISP I<br />
770 ! PRINT "I=";I;", T=";Time;", V=";Volt;", I=";Curr<br />
780 OUTPUT @File;I,Time,Volt,Curr<br />
790 Pre_volt=Volt<br />
800 Pre_curr=Curr<br />
810 END IF <br />
820 EXIT IF Time>1200<br />
830 END LOOP <br />
840 OUTPUT @Ps6612c;"OUTP OFF"<br />
850 RETURN<br />
860 Measure4: !<br />
870 OUTPUT @Ps6612c;"CURR 1"<br />
880 OUTPUT @Ps6612c;"OUTP ON"<br />
890 OUTPUT @File;"No.,Time[s],Volt[V],Curr[A]"<br />
900 T0=TIMEDATE<br />
910 I=0<br />
920 FOR Volt=0 TO 12 STEP .1<br />
930 I=I+1<br />
940 WAIT .1<br />
950 Time=TIMEDATE-T0<br />
960 OUTPUT @Ps6612c;"VOLT ";Volt<br />
970 GOSUB Reading1<br />
980 PRINT "I=";I;", T=";Time;", V=";Volt;", I=";Curr<br />
990 OUTPUT @File;I,Time,Volt,Curr<br />
1000 NEXT Volt<br />
1010 OUTPUT @Ps6612c;"OUTP OFF"<br />
1020 RETURN<br />
1030 Measure1: !<br />
1040 Set_volt_max=4.2 !9 !1.5V x 6ea<br />
1050 Set_volt_min=3.2 !5.4 !0.9V x 6ea<br />
1060 Set_current=1<br />
1070 Set_time=6 ! x축 그래프 최대 시간 hours<br />
1080 OUTPUT @Ps6612c;"VOLT ";Set_volt_max !charge<br />
1090 OUTPUT @Ps6612c;"CURR ";Set_current<br />
1100 OUTPUT @File;"No.,Time[h],Volt[V],Curr[A]"<br />
1110 I=0<br />
1120 GOSUB Chart_var<br />
1130 GOSUB Init_chart<br />
1140 Pre_volt=0<br />
1150 Pre_curr=0<br />
1160 T0=TIMEDATE<br />
1170 OUTPUT @Ps6612c;"OUTP ON"<br />
1180 LOOP<br />
1190 Time=(TIMEDATE-T0)/3600. !초를 시로<br />
1200 GOSUB Reading1<br />
1210 Diff_v=ABS(Volt-Pre_volt)/Volt*100 !전압차이를 %<br />
1220 Diff_i=ABS(Curr-Pre_curr)/Curr*100 !전류차이를 %<br />
1230 IF (Diff_v>.5) OR (Diff_i>.5) THEN !전압이 0.1% 차이 또는 전류가 0.1% 차이가 발생되면<br />
1240 BEEP<br />
1250 I=I+1<br />
1260 !Y(1)=LOG(Volt)/LOG(10)<br />
1270 Y(1)=Volt<br />
1280 Y(2)=(Set_volt_max-Set_volt_min)/Set_current*Curr+Set_volt_min<br />
1290 CONTROL @Strip;SET("POINT LOCATION":Time,"VALUES":Y(*))<br />
1300 PRINT "Count=";I;", T=";DROUND(Time,3);", V=";DROUND(Volt,3);", I=";DROUND(Curr,3)<br />
1310 OUTPUT @File;I,Time,Volt,Curr<br />
1320 Pre_volt=Volt<br />
1330 Pre_curr=Curr<br />
1340 ! WAIT 1<br />
1350 END IF <br />
1360 EXIT IF Time>Set_time<br />
1370 EXIT IF Curr<.1 !전류가 0.1A 이하이면 중단<br />
1380 ! EXIT IF Curr<Set_current*.1<br />
1390 END LOOP <br />
1400 OUTPUT @Ps6612c;"OUTP OFF"<br />
1410 RETURN<br />
1420 Reading1: !<br />
1430 OUTPUT @Ps6612c;"MEAS:VOLT?"<br />
1440 ENTER @Ps6612c;Volt<br />
1450 !Volt=DROUND(Volt,5) !유효자리수 5자리로<br />
1460 OUTPUT @Ps6612c;"MEAS:CURR?"<br />
1470 ENTER @Ps6612c;Curr<br />
1480 !Curr=DROUND(Curr,5) !유효자리수 5자리로<br />
1490 RETURN<br />
1500 Reading2: !<br />
1510 ENTER @Dmmv;Volt<br />
1520 ENTER @Dmmi;Curr<br />
1530 RETURN<br />
1540 Fileopen: !<br />
1550 DIM Filename$[20],Dhms$[8]<br />
1560 Time$=TIME$(TIMEDATE)<br />
1570 Date$=DATE$(TIMEDATE)<br />
1580 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]<br />
1590 Filename$=Dhms$&".txt"<br />
1600 CREATE Filename$,1<br />
1610 ASSIGN @File TO Filename$;FORMAT ON<br />
1620 RETURN<br />
1630 Fileclose:!<br />
1640 ASSIGN @File TO *<br />
1650 RETURN<br />
1660 Chart_var: !<br />
1670 X_origin=0<br />
1680 X_range=Set_time<br />
1690 X_axis_label$="Time [hour]"<br />
1700 Y_origin=Set_volt_min<br />
1710 Y_range=(Set_volt_max-Set_volt_min)<br />
1720 Y_axis_label$="Volt [V]"<br />
1730 RETURN<br />
1740 Init_chart: !<br />
1750 DIM X_axis_label$[25],Y_axis_label$[25]<br />
1760 INTEGER Trace_num<br />
1770 INTEGER Screen_dims(1:2),Gwindow_dims(1:4)<br />
1780 REAL Y(1:2) !Y(1) 전압 (2) 전류<br />
1790 GESCAPE CRT,36;Screen_dims(*) ! Get screen width and height.<br />
1800 !<br />
1810 ! Set the dimensions of the graphics window using GESCAPE 33 so<br />
1820 ! that it is centered on the screen.<br />
1830 !<br />
1840 Gwindow_dims(1)=Screen_dims(1)*.25 ! X of upper left.<br />
1850 Gwindow_dims(2)=Screen_dims(2)*.2 ! Y of upper left.<br />
1860 Gwindow_dims(3)=Screen_dims(1)*.7 ! Width.<br />
1870 Gwindow_dims(4)=Screen_dims(2)*.6 ! Height.<br />
1880 GESCAPE CRT,33;Gwindow_dims(*) ! Set graphics window geometry.<br />
1890 !<br />
1900 GESCAPE CRT,35 ! Move the graphics window to the top.<br />
1910 !<br />
1920 ! Create a stripchart. Make it invisible until all changes are made.<br />
1930 !<br />
1940 ASSIGN @Strip TO WIDGET "STRIPCHART";SET("VISIBLE":0)<br />
1950 !<br />
1960 ! Set the overall attributes.<br />
1970 !<br />
1980 CONTROL @Strip;SET("TITLE":"Data Logger")<br />
1990 CONTROL @Strip;SET("MINIMUM SCROLL":2)<br />
2000 CONTROL @Strip;SET("MOVABLE":0)<br />
2010 CONTROL @Strip;SET("MAXIMIZABLE":0)<br />
2020 CONTROL @Strip;SET("X":0,"Y":0)<br />
2030 !<br />
2040 ! Size the stripchart to exactly fill the graphics window.<br />
2050 !<br />
2060 Vert_borders=26<br />
2070 Horiz_borders=8<br />
2080 Height=Gwindow_dims(4)-Vert_borders<br />
2090 Width=Gwindow_dims(3)-Horiz_borders<br />
2100 CONTROL @Strip;SET("WIDTH":Width,"HEIGHT":Height)<br />
2110 !<br />
2120 CONTROL @Strip;SET("CURRENT AXIS":"X")<br />
2130 CONTROL @Strip;SET("ORIGIN":X_origin,"RANGE":X_range)<br />
2140 CONTROL @Strip;SET("AXIS LABEL":X_axis_label$)<br />
2150 !CONTROL @Strip;SET("DIGITS":5)<br />
2160 !<br />
2170 CONTROL @Strip;SET("CURRENT AXIS":"Y")<br />
2180 CONTROL @Strip;SET("ORIGIN":Y_origin,"RANGE":Y_range)<br />
2190 CONTROL @Strip;SET("AXIS LABEL":Y_axis_label$)<br />
2200 !<br />
2210 CONTROL @Strip;SET("VISIBLE":1) ! Show the stripchart.<br />
2220 !<br />
2230 RETURN<br />
2240 END<br />
</pre></div>
Togotech