概要
０６P型９V電池を使うことが時折あり、１回毎に捨てるのはモッタイナイと常々思っていた。そこで同じタイプの充電池を使ってみたい考えたが安価な充電器は出回っていない。自作してみることにした。
製作時に考えていたことなど；
１） 充電池は秋月で500円販売されている006P型ニッケル水素充電池ＧＰ２０Ｒ８Ｈ（ラベルＧＰ２００， ８．４Ｖ、２００ｍAH）を使う。データシートもあって便利。
２） 原則、１００−２００ｍA位を流す急速充電モードで充電する。
３） 充電の終了は充電された電池の電圧を測定して行う。
４） 安全のために、電池のケースが一定の温度以上になると充電を強制終了させる温度センサと、電源を入れてから一定時間で充電を強制終了させるタイマを備える。
５） トリクル充電モード（２次電池の自然放電を防ぐ目的の細流充電：２０ｍＡ位）も加える。
６） 以上の目的達成のために１２Ｆ６８３と１２Ｆ６７５（タイマ用）の２個のマイクロコントローラを使う。
回路
電源にACアダプタを使い、三端子レギュレータLM317で充電池を充電させるためのDC13−１５Vをつくり、更に２個のPICに供給するDC５Vを小容量三端子レギュレータXC6202P502PRをLM317につないででつくっている。フォトMOSリレーが充電池への電流供給をON/OFFする（最大で３５０ｍA位流せるようだ）。超小型リレーは充電しようとする充電池の電圧が一定以下の場合豆電球と抵抗を使って放電させるために使われている。最大で５８０ｍＡ位流れる。温度センサはその上に乗せた充電池のケース温度を検知して予め設定した一定温度以上になると充電を停止させ、トリクル充電モードに入り１２F683のPin２に接続させた点滅LEDを点灯させる。１２F675は安全タイマでシステムの電源を入れてから予め設定した一定時間（０．５、１、１．５、２、３、１０時間）を経過すると１２F683のリセットピンをGNDに落として１２F683の動作を停止させる。充放電の途中で電池電圧を何度も測定する必要がある。電池電圧が１０Vを超えるため固定抵抗と可変抵抗を使った分圧器で５V以下になるように調節し１２F863のGP0より取り込んでいる。フォトMOSリレーと超小型リレーにそれぞれ使われている逆流防止ダイオードは絶対必要。
実験ボード： 充電中は電池GP200をその右手に見える小さい黒色の温度センサ（電子工作３９参照）上に載せる。 その右手に安全タイマ役の１２F675や設定した時間を表示する小さいLED1-3が見える。現在２時間設定を示す２つ目が点灯中（右手最上部）。ボードのほぼ真ん中に１２F6８３、その直ぐ左手に白いフォトMOSリレーが見える。下方右手に超小型リレー、そしてその左手に電池の放電に使う豆電球が見える。豆電球にさらにセメント抵抗（１６W、５W）などを追加すると放電が早まる。
充電方法
１） NiMH充電池GP200のデータシート（秋月HP）によると急速充電モードとして１００−２００ｍAでの充電を勧めている。フル充電直後の電池電圧は１０−１０．５V位。したがって、充電開始後時々充電を止めて（充電１２０秒間に対し２０秒間充電を止めてから）電池電圧を測定し、測定値がフル充電電圧に達したら充電を停止させ、トリクル充電モードに入る。フル充電に近づくと電池の温度が上がってくる。何らかの理由でフル充電電圧に達っしても充電が続く場合電池が高温になって危険なので温度を検知して充電を停止させる必要がある。温度センサがその役割を果たす。その温度設定はVR（２００K）で行う。通常４０−４５°C位（１２５−１２９ＫW）に設定する。さらに、この温度センサが働かない場合に備え外付けの１２F675を使ったタイマで１２F683の動作を完全に停止させてしまう。タイマの時間調整は１２F675のPin７（GP0）につながっている分圧器の１０KのVRｔで行う。
２） ほぼ使いきった充電池GP200の電圧が８V位以下だと、自動的に放電モードで豆電球（１２V, ０．１１A、,それにセメント抵抗など）を２−３分間点灯し続け、電池電圧がある一定電圧以下に達すると自動検知して充電モードに入る。最初は２００（電流制限抵抗４．７W １／２Ｗ）−１５０ｍA（電流制限抵抗１０W １／２Ｗ）位流れ、充電が進むと電流量が次第に低下してくる。充電と電池電圧測定を繰り返し行い、そして設定したフル充電電圧に達したらトリクル充電モードに入る。一方、充電する充電池の電圧が８V位以上だと放電モードには入らず即充電モードに入り上記と同じ行程を歩む。
３） タイマの時間設定： １２F675のタイマの時間設定はVRｔ、LED1-3および電源スイッチ（SW）で行う。１２F675のポートピンが３本しか残っていないので設定にはちょっとしたコツが要る。例えば、１時間３０分を設定する場合、VRｔを０から時計回りに少し回して電源SWを入れる、どのLEDも点灯しなければ電源SWを切り、また、VRｔを少し進めては電源SWを入れ１時間を表すLED1が点灯するまで繰り返す。同様にして2時間を表すLED2が点灯する位置を見つけ、少し逆にVRｔを回して電源SWを入れてどのLEDも点灯しなければそこが１時間３０分の設定位置である。また１０時間に設定したければVRｔの回転と電源SWのON/OFFでLED3の点灯する位置を見つけ、VRｔを更に進めてLED3が点灯しなくなる位置が１０時間の設定位置になる。
タイマの設定時間とLEDの点灯時間の関係
|
設定時間 |
３０分 |
１時間 |
１時間３０分 |
２時間 |
３時間 |
１０時間 |
|
LEDの点灯 |
なし |
LED1 |
なし |
LED2 |
LED3 |
なし |
結果など
１） 充電池の特性と思えるが、充電直後の電圧は時間とともに低下しなかなか安定しない。
２） NiMH充電池GP200の容量は２００ｍAHとされているの１５０−２００ｍＡで充電すれば１−２時間でフル充電が出来る。フル充電後しばらく放置すると電池電圧が９．７Vほどで落ち着く。
３） １２F683のリセットピンをGNDに落とす（１２F675の接続ピンをLにする）と１２F683の動作が停止するというのは新しい発見であった。これでPICを使った外付けタイマが簡単に出来る。
４） １２F683のポートに取込める最大電圧はDC５Vなので、電池電圧（８−１２V）を分圧器で１／３に下げて読込ませることにした。
充電池電圧（V）をVbat、Vbatに対応するビット数（５V->１０２３）をBit noとすると、充電池電圧とビット数の間には次の関係がある。
ビット数（Bit no）＝（Vbat／３）X１０２３／５＝Vbat
X 68.2
充電池電圧（Vbat）とビット数（Bit no）の関係 （５Vは１０２３に対応）
|
Vbat |
8.0 |
8.2 |
8.4 |
8.6 |
8.8 |
9.0 |
9.2 |
9.4 |
9.6 |
9.8 |
10.0 |
10.3 |
10.7 |
11.0 |
11.5 |
12.0 |
|
Vbat/3 |
2,67 |
2,73 |
2,80 |
2,87 |
2,93 |
3.0 |
3.07 |
3.13 |
3.20 |
3.27 |
3.33 |
3.43 |
3.57 |
3.67 |
3.83 |
4.0 |
|
Bit no, |
546 |
559 |
573 |
587 |
600 |
614 |
627 |
641 |
655 |
668 |
682 |
702 |
730 |
750 |
784 |
818 |
この表の値を充放電の開始や停止の限界値として使う。例えばプログラムの中でIf Vin>600 Then Charging のように使う。ここで６００は電池電圧８．８Vに相当する。
分圧器の調整法： LM317の３KのVRを調節して分圧器にDC１２．０Vを供給し、分圧器の１０KのVRを調節して１２F683のGP0に４・０Vが入るようにする。
５） トリクル充電モードとは無負荷の下で２０ｍＡ位流して充電池電圧が自然放電で次第に低下するのを防ぐ目的の充電モードである。今回、これをＰＩＣBasic ＰｒｏのソフトウエアＰＷＭ命令を使って達成する。つまりフォトMOSリレーをＯＮ／ＯＦＦさせて充電電流を流す時間を全体の２０％（Ｄｕty比）に調整し、充電終了時に流れている１００ｍＡ前後の電流を実質５分の１の２０ｍＡ位に低下させて充電しようとするものである。下図のように細い方形波の部分が電池に充電される。設定した安全タイマが動作するまでこの充電は続く （（２５５／１２６７）ｘ１００＝２０％）。
６） 何度も充電を繰り返したGP200電池に比べ、新しいGP200電池の充電には２倍ぐらい時間がかかった。なかなか電圧が上がらないためである。
７） NiMH電池の充電法が少し分かってきた。いろいろ他のタイプの充電池に応用で出来そう。
８） 材料費の合計は一番高いGP200電池５００円を含め１５００円弱ほど。
プログラム
以下に示すように、充放電コントロール用１２F683と外付け安全タイマ用１２F675のプログラムがそれぞれ必要になる。
１）
12F683用のプログラム（充放電コントロール）
充電する充電池を接続すると、先ずその電圧を測定し、一定以下だと超小型リレーをONにして放電させ、低下した電圧がある一定値に達したら、そのリレーをOFFにし、フォトMOSリレーをONにし充電モードに入る。６０秒間充電して温度センサをチェックしまた６０秒間充電して温度センサをチェック、その後電圧を安定させため２０秒間待って電池電圧を測る。その値がフル充電値（例えば１０．２V）に達していればトリクル充電モードに入る。もし、達していなければ上記の合計１２０秒間充電し２０秒間待って電圧測定のプロセスをフル充電値に達するまで繰り返し、トリクル充電モードに入る。なお途中に入れた温度センサチェックは電池の過熱を防止するためのものである。もし、このチェックに引っかかると点滅LEDを点灯させながらトリクル充電モードに入る。トリクル充電モードは安全タイマが１２Ｆ６８３を停止させるまでまで続く。 <<追記>>トリクル充電中に電池が過熱したら12F683の動作を止める機能を追加した（２０１０．８．１２）。
'********* プログラム ************
'06P9VCahrger683Ｔｒ1.bas – 2010.8.12 Trickle Ｃｈａｒｇｅ function added. Works OK!
'12F683 with internal clock 4MHz
'Software PWM command used
'******** ピン接続 ************
'Pin 1: Vdd (5V)
'Pin 8: Vss (GND)
'Pin 2: GPIO.5: output - driving flashing LED (overheating)
'Pin 3: GPIO.4: input - from Temp sensor
'Pin 4: GPIO.3: input - internal reset via R=10K
'Pin 5: GPIO.2: output - driving photo MOS relay
'Pin 6: GPIO.1: output - driving mechanical relay
'Pin 7: GPIO.0: input - from Divider for 06P battery's voltage
'******** プログラム本体 ********
Define ADC_BITS 10 '10-bit ADC used 以下の１０行はADCを使うための設定
Define ADC_CLOCK 3 'Internal clock used ?
Define ADC_SAMPLEUS 50 'Sample timing
ADCON0=%10000011
'=131 (decimal) 'bit7=1(right justified),bit6=0(volt refer-Vdd), ADCの基準電圧はVdd（５．０V）を使っている
'bit5-4=0(unimplemented),bit3-2=00(channel0-An0),
'bit1=1(starts right away),bit0=1(on operation)
ANSEL=%00010001 'sets Fosc/8 and GPIO.0 as ANS0 input
'bit7=0(unimplemented),bit6-4=001 (Fosc/8),
'bit3-2-1=0(Digtal I/O pins),bit0=1(Analog input)
TRISIO=%011001
CMCON0=7 'turns off comparator function 12F683の場合CMCONではないことに注意
BatteryVolt var GPIO.0
PhotoRelay var GPIO.2
MechaRelay var GPIO.1
TempSensor var GPIO.4
BattOverheat var GPIO.5
Vin var word 'ADC storage
PhotoRelay=0 'No activation of PhotoRelay
MechaRelay=0 'No activation of MechaRelay
BattOverheat=0
Adcin 0, Vin 'Read ADC ch-0 and save in Vin (range 0-1024) 充電池の電圧チェック
Pause 5
If Vin>600 Then Charging '8.8V 放電するか充電するかを決める
Discharging: 'Lamp -> ON or Resistor -> ON 以下が放電プロセス ― １２０秒間放電させ１０秒間待って電圧測定
PhotoRelay=0 'PhotoRelay -> OFF フォトMOSリレーをＯＦＦにする
MechaRelay=1 'MechaRelay -> ON 超小型リレーをＯＮにする
Pause 60000 '60 sec
Pause 60000 '60 sec
MechaRelay=0 'MechaRelay -> OFF
Pause 10000 '10 sec
Adcin 0, Vin
Pause 5
If Vin>570 Then Discharging '8.4V ? ここで放電によって低下した電圧を再びチェック
Goto Charging
Charging: ‘以下が充電プロセス − 原則１２０秒間充電させ２０秒間待って電圧測定。途中に温度センサチェックが入る
TempSensor=0
MechaRelay=0 'MechaRelay -> OFF
PhotoRelay=1 'PhotoRelay -> ON
Pause 60000 '60 sec
If TempSensor=1 Then Overheated 'Overheating check 温度センサチェック。もし、TempSensor=1なら電池が過熱しているので点滅LEDを点灯させ充電終了
Pause 60000 '60 sec
If TempSensor=1 Then Overheated
PhotoRelay=0
Pause 20000 '20 sec
Adcin 0, Vin ‘ｃｈ０よりアナログデータを取り込む
Pause 5
If Vin>730 Then FullyCharged '10.5V ? - 3.57V at GP0 このビット数の設定は微妙。大き過ぎると中々FullyChargedに飛ばない。逆だと充電不足になりそう。
Goto Charging
Overheated:
PhotoRelay=0 'PhotoRelay -> OFF
BattOverheat=1 'Flash LED lights up. 点滅LEDを点灯させる
Goto Trickle
FullyCharged:
BattOverheat=1 'Flash LED lights up.
Goto Trickle
Trickle: 'Trickle charging continues until 12F683 stops working by Timer or Temp sensor ->ON ‘ここからトリクル充電モード。安全タイマや温度センサが動作して12F683を止めるまでトリクル充電は続く。
PhotoRelay=1 'PhotoRelay -> ON
PWM GPIO.2, 255, 50 'Duty ratio=20% この２行のソフトウエアＰＷＭの設定でＰＷＭ充電を行う。大変便利なコマンドである
PWM GPIO.2, 0, 200
if TempSensor=1 Then Goto Jump ‘'Overheating check while trickle charging トリクル充電中に電池が過熱したらＪｕｍｐに飛んで12F683の動作を止める
Goto Trickle
Jump:
BattOverheat=0 'Flash LED ->OFF
End
'******** プログラムの終了 ********
'Note:
'melabs U2 Programmer's
configurations １２F683:
'FOSC – INTOSCIO; WDTE - Enable; Power-up Timer - Disable
'MCLRpin – Reset ; BODEN - Enable; Internal External Switvh Over – Enable, Fail-Safe Clock Monitor – Enable, CD - Disable;Dtata EPPROM - Disable.
２） 12F675用のプログラム （外付け安全タイマ）
何らかの理由で充放電のプロセスが暴走したような場合、予めタイマで１定時間（０．５、１、１．５、２、３、１０時間）経ったら充放電のプロセスを強制終了させることが出来ると安心である。このプログラムはその目的を果たす。LED1-3を参照しながらVRｔを調節してタイマ時間を設定しておく。その設定時間が終了するとGP2（Pin５）が“L”にされ、同じGP2につながれた１２F683のGP３（リセット）が“L”になり１２F683の動作は完全に停止する。同時に点滅LEDが点灯し充放電プロセスがタイマによって強制終了させられたことを知らせてくれる。
'********* プログラム ************
'06P9VCahrger675Timer1.bas - 2010.8.1
'12F629 with internal clock 4MHz
'Safety Timer (0.5-10 hours) for 06P9VCahrger
'******** ピン接続 ************
'Pin 1: Vdd (5V)
'Pin 8: Vss (GND)
'Pin 4: GPIO.3: input - internal reset via R=10K
'Pin 5: GPIO.2: input - grounding of Pin 4 (GPIO.3) of 12F683
'Pin 7: GPIO.0: input - from Divider for Timer adjustment
'Pin 6: GPIO.1: ouput - LED1 (Setup time indicator)
'Pin 3: GPIO.4: ouput - LED2 (Setup time indicator)
'Pin 2: GPIO.5: ouput - LED3 (Setup time indicator)
'******** プログラム本体 ********
Define ADC_BITS 10 '10-bit ADC used 以下の１０行はADCを使うための設定
Define ADC_CLOCK 3 'Internal clock used ?
Define ADC_SAMPLEUS 50 'Sample timing
ADCON0=%10000011
'=131 (decimal) 'bit7=1(right justified),bit6=0(volt refer-Vdd), ADCの基準電圧はVdd（５．０V）を使っている
'bit5-4=0(unimplemented),bit3-2=00(channel0-An0),
'bit1=1(starts right away),bit0=1(on operation)
ANSEL=%00010001 'sets Fosc/8 and GPIO.0 as ANS0 input
'bit7=0(unimplemented),bit6-4=001 (Fosc/8),
'bit3-2-1=0(Digtal I/O pins),bit0=1(Analog input)
TRISIO=%001101
CMCON=7 'turns off comparator function １２F675の場合CMCON０ではないことに注意 （１２F6８3との違い）
Vin var word 'ADC storage
TimerOut var GPIO.2
OneHour var GPIO.1
TwoHour var GPIO.4
ThreeHour var GPIO.5
n var byte 'counter
OneHour=0
TwoHour=0
ThreeHour=0
Adcin 0, Vin 'Read ADC ch-0 and save in Vin (range 0-1024) Vinput=0-2.5V ここでVRｔで設定した電圧０−２．５Vを読込む。値によって６通りの時間に分岐する
Pause 5
if (Vin>0) and (Vin=<100) Then Halfhour '6 selectable timer, 30 min ３０分
if (Vin>100) and (Vin=<200) Then Hour1 ‘１時間
if (Vin>200) and (Vin=<300) Then Hourandhalf '1 hour and 30 min ‘１時間３０分
if (Vin>300) and (Vin=<400) Then Hour2 ‘２時間
if (Vin>400) and (Vin=<450) Then Hour3 ‘３時間
If Vin>450 Then Hour10 ‘１０時間
Halfhour: ‘３０分タイマ
High TimerOut
For n=1 to 34 '0.5 hour timer - 34 gives accurate 30 min., experimentally decided Pauseコマンドの不正確さのためか３４にしないと３０分にならなかった
Pause 60000 '60 sec
Next n
Low TimerOut
Goto Timeout
Hour1: ‘１時間タイマ
High OneHour ‘LED1が点灯する
High TimerOut
For n=1 to 68 ‘Pauseコマンドの不正確さのためか６８にしないと１時間にならなかった
Pause 60000 '60 sec
Next n
Low TimerOut ‘１２F683のリセットピンをLにし動作を停止させる。
Goto Timeout
Hourandhalf: ‘１時間３０分タイマ
High TimerOut
For n=1 to 102
Pause 60000 '60 sec
Next n
Low TimerOut
Goto Timeout
Hour2: ‘２時間タイマ
High TwoHour ‘LED２が点灯する
High TimerOut
For n=1 to 136
Pause 60000 '60 sec
Next n
Low TimerOut
Goto Timeout
Hour3: ‘３時間タイマ
High ThreeHour ‘LED３が点灯する
High TimerOut
For n=1 to 204
Pause 60000 '60 sec
Next n
Low TimerOut
Goto Timeout
Hour10: ‘１０時間タイマ
High TimerOut
For n=1 to 673
Pause 60000 '60 sec
Next n
Low TimerOut
Goto Timeout
Timeout:
End
'******** プログラムの終了 ********
'Note:
''melabs U2 Programmer's configurations - 12F675:
'FOSC - INTOSC; WDTE - Enabled; PWRTE – Disabled
'MCLR - Reset ; BODEN – Enabled;
CP – Not Protected; CPD - Not Protected
実用機の製作 （２０１０．８．１０）
上記の実験で得たデータをもとに実用機を製作した。回路を一部変更したことと、安全タイマのＶＲｔによる設定温度を５段階（１、２、３、５、１０時間）にし、２、３、５時間だけがＬＥＤ１−３で表示される（ポートが足りないため）。したがって、ＶＲｔを回して２時間のＬＥＤ１が点灯した状態で逆方向に回しどのＬＥＤも点灯しなところが１時間である。また、５時間のＬＥＤ３が点灯した状態から更に回転させてどのＬＥＤも点灯しなところが１０時間である。
回路
前のプロトタイプ機より変えた点は４個所。すなわち１２Ｆ675に接続するＬＥＤ１−３を吸い込み方式に変えた（ピンをＬにすると点灯）。温度センサの温度設定抵抗を固定抵抗１３３ＫW（５０°Ｃ）にした。三端子レギュレータを通常の７８０５に変えた。もう一個所、セメント抵抗を除いて放電は電球のみで行うようにした（目視出来るのが良い）。
基板に組み上げたＧＰ２00専用充放電実用機。電球は放電用。右手は説明用のラベルを貼り付けたもの。
電池ケースの下に温度センサが組み込んでありセットすると接触する
急速放電ケーブル： 電球が消えるまで待って５−１０分で電池を放電出来る
使用法
１） 充電する電池をケースの（＋／−）ソケットに差し込む。電池の底面がケース下の温度センサに完全に接触していることを確認する。
２） 電源スイッチをＯＮ／ＯＦＦさせながらＶＲｔを回して安全タイマの時間を設定する。
３） 安全タイマの時間は最低２時間に設定する。フル充電後は自動的にトリクル充電モードに変わって残りの設定時間をこなす。時間がくると１２Ｆ６７５わきの点滅ＬＥＤが明るく点灯する。
４） 充電を終了した電池は外して上部の（＋／−）端子をビニールテープで覆っておく。
タイマの設定時間とLEDの点灯時間の関係
|
設定時間 |
１時間 |
２時間 |
３時間 |
５時間 |
１０時間 |
|
LEDの点灯 |
なし |
LED1 |
LED2 |
LED3 |
なし |
結果など
１） 全部品を基板（１３８ｘ９５ｍｍ）にきれいに組込めた。
２） うまく動作することを確認した。電池の容量が２００ｍＡｈなので、使用済みの状態から２時間以内でフル充電が出来る。
３） フル充電直後の電圧は１０Ｖ以上に達するが、徐々に低下し１０時間後で９．７Ｖ位になる。公称電圧は８．４Ｖである。電池には“標準充電は２０ｍＡで１６時間”と書いてある。
４） 途中使用した超小型リレーが動作不良であることを発見した。メカニカルなものは壊れやすい。
５） 実験目的で電池を急速に放電させるには、電球（１２Ｖ ０．１１Ａ）とセメント抵抗（１６W ５Ｗ）を使った放電ケーブルを用いる。フル充電状態の電池を５−１０分程度で放電できる。
６） 別の種類の０６ＰタイプNiMH電池を充電する場合は、電池の充放電特性を調べ プログラム中のIf Vin>730 Then FullyCharged の730等の値を適当に変える必要がある。
７） 本格的にＰＷＭの充電方式を使えばシステムをもっと単純化出来るかも知れない。
８） 得られた情報を他のタイプのNiMH電池の充放電装置の開発につなげたい。
９） 割り込み等を使いＰＩＣを１個ですべて処理できるようにしたい。
１０） Web上には“抵抗１本で充電する”などという荒業もあるようだが検討に値するかも。
１１） 材料費の合計は１５００円ほど。
１２） 結構面白いプロジェクトだった。奥が深い。とにかくユニークでないと。
１３） トリクル充電中に電池が過熱することが懸念されたので、過熱したら１２Ｆ６８３の動作を停止させるようにプログラムを改良した。安全タイマとは干渉しない（２０１０．８．１２追加）。
プログラム
以下に示すように、充放電コントロール用１２F683と外付け安全タイマ用１２F675のプログラムがそれぞれ必要になる。
１）12F683用のプログラム（充放電コントロール）
前のプロトタイプ機のもの06P9VCahrger683Ｔｒ1.bas を使う。 このプログラムにはトリクル充電中に電池が過熱したら12F683の動作を止める機能を追加してある（２０１０．８．１２）。この機能は安全タイマの動作には干渉しない。
２）
１2F675用のプログラム （外付け安全タイマ）
TRISIOとタイマ設定時間の部分を変更した。
'********* プログラム ************
'06P9VCahrger675Timer1Tr.bas - 2010.8.8
'12F675 with internal clock 4MHz
'Safety Timer (１,2,3,5,10 hours) for 06P9VCahrger
'******** ピン接続 ************
'Pin 1: Vdd (5V)
'Pin 8: Vss (GND)
'Pin 5: GPIO.2: input - grounding of Pin 4 (GPIO.3) of 12F683
'Pin 7: GPIO.0: input - from Divider for Timer adjustment
'Pin 6: GPIO.1: input - LED1 (Setup time indicator)
'Pin 4: GPIO.3: input - to 5V via 10k
'Pin 3: GPIO.4: input - LED3 (Setup time indicator)
'Pin 2: GPIO.5: input - LED4 (Setup time indicator)
'******** プログラム本体 ********
Define ADC_BITS 10 '10-bit ADC used
Define ADC_CLOCK 3 'Internal clock used ?
Define ADC_SAMPLEUS 50 'Sample timing
ADCON0=%10000011
'=131 (decimal) 'bit7=1(right justified),bit6=0(volt refer-Vdd),
'bit5-4=0(unimplemented),bit3-2=00(channel0-An0),
'bit1=1(starts right away),bit0=1(on operation)
ANSEL=%00010001 'sets Fosc/8 and GPIO.0 as ANS0 input
'bit7=0(unimplemented),bit6-4=001 (Fosc/8),
'bit3-2-1=0(Digtal I/O pins),bit0=1(Analog input)
TRISIO=%111111
CMCON=7
Vin var word 'ADC storage
TimerOut var GPIO.2
TwoHour var GPIO.1
ThreeHour var GPIO.4
FiveHour var GPIO.5
n var byte
'counter
TwoHour=1
ThreeHour=1
FiveHour=1
Adcin 0, Vin 'Read ADC ch-0 and save in Vin (range 0-1024) Vinput=0-2.5V
Pause 5
if (Vin>0) and (Vin=<100) Then Hour1 '5 selectable timer, 1 hour
if (Vin>100) and (Vin=<200) Then Hour2
if (Vin>200) and (Vin=<300) Then Hour3
if (Vin>300) and (Vin=<400) Then Hour5
If Vin>400 Then Hour10
Hour1: ‘1-hour timer ピン不足のためＬＥＤ表示はない
High TimerOut
For n=1 to 68
Pause 60000 '60 sec
Next n
Low TimerOut
Goto Timeout
Hour2:
Low TwoHour ‘2-hour LED1表示
High TimerOut
For n=1 to 136
Pause 60000
'60 sec
Next n
Low TimerOut
Goto Timeout
Hour3:
Low ThreeHour ‘LED2表示
High TimerOut
For n=1 to 204
Pause 60000 '60 sec
Next n
Low TimerOut
Goto Timeout
Hour5:
Low FiveHour ‘LED3表示
High TimerOut
For n=1 to 340
Pause 60000 '60 sec
Next n
Low TimerOut
Goto Timeout
Hour10: ‘10-hour timer ピン不足のためＬＥＤ表示はない
High TimerOut
For n=1 to 673
Pause 60000 '60 sec
Next n
Low TimerOut
Goto Timeout
Timeout:
Ｅnd
'******** プログラムの終了 ********
'Note:
''melabs U2 Programmer's configurations - 12F675:
'FOSC - INTOSC; WDTE - Enabled; PWRTE – Disabled
'MCLR - Reset ; BODEN – Enabled; CP – Not Protected;
CPD - Not Protected