| 温度計 温度表示のみ ２個表示
Dim cnt As Word
Dim cns As Word
Dim temp As Word
Dim temo As Word
Dim vcc As Word
Dim v As Word
Dim s As Word
Dim mlt As Word
vcc = 460 '４．６V電源電圧を１００倍しておく
mlt = 101
Initlcd
Clearlcd
While 1 '指定条件の間 繰り返し
Adc 5,0,cnt
Adc 6,0,cns
v = (cnt * vcc)/1023
s = (cns * vcc)/1023
temp = (v * 100) / mlt
temo = (s * 100) / mlt
Setpos 0,0 '液晶のカーソール位置変換
液晶のカーソール位置変換
Putlcd "ｵﾝﾄﾞ=" ,(temo / 10)
Putlcd "."
Putlcd (temp Mod 10),"C", chr$(&hDF)
>Setpos 0,1 液晶のカーソール位置変換
Putlcd "ｵﾝﾄﾞ=" ,(temo / 10)
Putlcd "."
Putlcd (temo Mod 10),"C", chr$(&hDF)
Sleep 1000 まち時間
Wend '指定条件の間 繰り返し
|
作ったプログラムはフラッシュＲＯＭに記録されます、プログラムの書き換えは１０００回程度可能です。
WIN98搭載パソコン
PIC-BASICはPIC16F877で動作するBASICインタプリタです
温度センサー 
２回路入りオペアンプです、今回温度センサーが２個ですが増設するなら４回路入りなどがお勧めです
Ｒ1が1ＫΩでＲ2が9.1ＫΩです、9.1Ｋが無い場合適当に抵抗を２〜３個足して9.1Ｋにするといいです
