'	PIC-BASIC でＰＳＤを使う
'
DIM vcc		AS WORD
DIM cnt 	AS WORD
DIM cin(5)	AS WORD
DIM vmax 	AS WORD
DIM vmin 	AS WORD
DIM v		AS WORD
DIM vH		AS WORD
DIM vL		AS WORD
DIM i		AS LONG
DIM idxMax	AS LONG
DIM idxMin	AS LONG

vcc = 455

INITLCD
WHILE 1
    ' --------------------５回計測
    FOR i = 0 TO 4
        ADC 0,0,cin(i)
        SLEEP 60
    NEXT i
    ' --------------------最大/最小を除外
    vmax = cin(0) : idxMax = 0
    vmin = cin(0) : idxMin = 0

    FOR i = 1 TO 4
        IF  vmax > cin(i) THEN
            idxMax = i
            vmax = cin(i)
        ENDIF
        IF  vmin > cin(i) THEN
            idxMin = i
            vmin = cin(i)
        ENDIF
    NEXT i
    ' --------------------集計
    cin(idxMax) = 0
    cin(idxMin) = 0
    cnt = cin(0) + cin(1) + cin(2) + cin(3) + cin(4)
    ' --------------------平均を算出
    IF  idxMax = idxMin THEN
        cnt = cnt / 4
    ELSE
        cnt = cnt / 3
    ENDIF

    GOSUB LCDOUT
    SLEEP 500
WEND
END

LCDOUT:
    ' --------------------測定値から電圧算出
    v  = ( cnt * vcc ) / 1023
    vH = ( v /   100)
    vL = ( v MOD 100)
    ' --------------------ＬＣＤに表示
    SETPOS 0, 0
    IF  vL < 10 THEN
        PUTLCD "ch0=",cnt,"  ", vH ,".0", vL, " V  "
    ELSE
        PUTLCD "ch0=",cnt,"  ", vH ,".",  vL, " V  "
    ENDIF
    RETURN