Ibw7440-01.txt

Togotech (토론 | 기여)님의 2023년 5월 12일 (금) 11:49 판
(차이) ← 이전 판 | 최신판 (차이) | 다음 판 → (차이)

Extech 7440

10     CLEAR SCREEN
20     DIM A$[40],A1$[20],A2$[20]
30     INTEGER Count
40     INTEGER Volt_start,Volt_stop,Volt_step,Volt_set
50     ASSIGN @With TO 710
60     GOSUB Fileopen
70     OUTPUT @With;"FD"       !DCW function
80     OUTPUT @With;"SL 0.5"   !ramp time 0.4~999.9 s
90     OUTPUT @With;"SM 2.0"   !dwell time 0, 0.3~999.9 s
100    OUTPUT @With;"SK 0.0"   !LO-limit 0.0~999.9 uA
110    OUTPUT @With;"SJ 2000"  !HI-limit 0  ~3500 uA
120    WAIT 1
130    OUTPUT @File;"No.,Time[s],Volt[kV],Curr[uA]"
140    Count=0
150    Volt_start=3000
160    Volt_stop=4500
170    Volt_step=10
180    T0=TIMEDATE
190    LOOP
200      Count=Count+1
210      Volt_set=Volt_start+(Count-1)*Volt_step
220      OUTPUT @With;"SI";Volt_set
230      OUTPUT @With;"FA"
231      WAIT 3
240      OUTPUT @With;"?K"
260      ENTER @With;A$
270      A1$=A$[1,20]
280      A2$=A$[21,40]
290      Volt_unit$=A2$[11,12]  !kV
300      Volt_str$=A2$[7,10]    !x.xx
310      Curr_unit$=A2$[19,20]  !uV
320      Curr_str$=A2$[14,18]   ! xxxx
330      Volt=VAL(Volt_str$)               !kV
340      Curr=VAL(Curr_str$)               !uA
350   !  NUM(A$[39,39])=230     !그리스문자 micro로 나온다.
360      T=TIMEDATE-T0
370      OUTPUT @File;Count,T,Volt,Curr
380      PRINT "No.=";Count;" ,V=";Volt;"kV, I=";Curr;"uA"
390    EXIT IF Volt_set=Volt_stop
400    END LOOP 
410    GOSUB Fileclose
420    STOP
430 Fileopen:  !
440    DIM Filename$[20],Dhms$[8]
450    Time$=TIME$(TIMEDATE)
460    Date$=DATE$(TIMEDATE)
470    Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
480    Filename$=Dhms$&".txt"
490    CREATE Filename$,1
500    ASSIGN @File TO Filename$;FORMAT ON
510    RETURN
520 Fileclose: !
530    ASSIGN @File TO *
540    RETURN
550    END