４.そのほかの応用プログラム

計測した温度をリアルタイムにグラフ表示します

1 ‘ｵﾝﾄ゙_ｸ゙ﾗﾌ by NEXTDAY
10 CLS
20 A=ANA(2)
30 V=A*32/10
40 T=(V-610)/10
50 FOR Y=0 TO 20
51 C=30-Y
53 LOCATE 0,Y
54 PRINT C,CHR$(T>=C) ‘T<0 :0
55 NEXT
56 PRINT “———————–“
60 PRINT ” “;T;”゚C”
70 WAIT 60
80 GOTO 20

---

計測した温度と紫外線強度をリアルタイムにグラフ表示します

1 ‘ｵﾝﾄﾞ+ｼｶﾞｲｾﾝ_ｸﾞﾗﾌ by NEXTDAY
10 CLS:OUT4,-1
20 A=ANA(2):U=(ANA(8)-310)/33
30 V=A*32/10
40 T=(V-610)/10
50 FOR Y=0 TO 20
51 C=30-Y
53 LOCATE 0,Y
54 ? C,CHR$(T>=C),” “,CHR$(U>=C/4) ,C/4
55 NEXT
56 PRINT “———————-“
60 PRINT ” “;T;”ﾟC “;”UV”;U
70 WAIT 60
80 GOTO 20

---

5回測定した温度と、その平均をグラフ表示します

・温度（5回測定の平均）
1 ‘IchigoTemp(MPC9700) by NEXTDAY
10 CLS:CLV:CLT
15 INPUT “Max(30-40) :”,Q
20 [5]=[4]:[4]=[3]:[3]=[2]:[2]=[1]
22 A=ANA(2)
30 V=A*32/10
40 T=(V-610)/10
42 [1]=T
45 T=([1]+[2]+[3]+[4]+[5])/5
50 FOR Y=0 TO 20
51 C=Q-Y
53 LOCATE 0,Y
54 ? C,CHR$([1]>=C),” “;CHR$([2]>=C),” “;CHR$([3]>=C),” “;CHR$([4]>=C),” “ ;CHR$([5]>=C)
55 NEXT
56 PRINT “———————–“
60 PRINT ” “;[1],[2],[3],[4],[5];”゚C AVR=”;T;” “;TICK()/60;”sec”
70 WAIT 60
80 GOTO 20

---

---

この教材のプログラムは、福野氏が公開してくれたソースコードを元に修正を加えて再利用させていただきました。
2018-07-28 成層圏では地上より日焼けする？しない？
2018-08-08 IchigoJamでとことん計測！

この教材は「Creative Commons — CC BY-SA 4.0」の下に提供されています。

---