一秒毎に温度を計測して、7セグメントLEDに表示しています。
温度センサーは回路の左端にあります。そこを指で暖めると反応して数値が上昇します。
ご参考に、回路図とプログラムを添付します。
かわいいケースに仕込んで使ってみようと思います。
以下がIchigoJamのプログラムになります。
メモリ確保のため、７セグLEDの表示ヶ所を前回から見直して改善しています。
10 'デジタルｵﾝﾄﾞｹｲ
20 '(C) 2015 Tane.
30 'SCK(CLOCK) :: OUT 1
40 'SI(SERIAL DATA) :: OUT 2
50 'RCK(RATCH) :: OUT 3
60 [0]=252 '0 0b11111100=252
70 [1]=96 '1 0b01100000=96
80 [2]=218 '2 0b11011010=218
90 [3]=242 '3 0b11110010=242
100 [4]=102 '4 0b01100110=102
110 [5]=182 '5 0b10110110=182
120 [6]=190 '6 0b10111110=190
130 [7]=224 '7 0b11100000=224
140 [8]=254 '8 0b11111110=254
150 [9]=246 '9 0b11110110=246
160 A=ANA()*33/102-50 'ﾀﾀﾞｼｸﾊ1023ﾃﾞﾜﾙ
170 D=A/10:E=A%10
180 ?A
190 S=[D]:T=[E]:GOSUB 1000:WAIT 60
200 GOTO 160
210 END
1000 LED 1
1010 J=0
1020 OUT 2,(T>>J)&1 '1ﾉｸﾗｲﾃﾞｰﾀ ﾉ J ﾊﾞﾝﾒ ﾉ Bit ｦ ｼｭﾂﾘｮｸ
1030 OUT 1,1:OUT 1,0
1040 J=J+1:IF J<8 GOTO 1020
1050 J=0
1060 OUT 2,(S>>J)&1 '10ﾉｸﾗｲﾃﾞｰﾀ ﾉ J ﾊﾞﾝﾒ ﾉ Bit ｦ ｼｭﾂﾘｮｸ
1070 OUT 1,1:OUT 1,0
1080 J=J+1:IF J<8 GOTO 1060
1090 OUT 3,1:OUT 3,0
1110 LED 0
1120 RETURN