ＬＣＤ４×２０ Ｐｉｎ１アノード Ｐｉｎ２カソード
ＬＣＤ４×２０をＨ８ＢＡＳＩＣで制御
ＬＣＤ２×１６をＨ８ＢＡＳＩＣで制御 電子工作
Ｈ８３０４８ＢＡＳＩＣ（ｉ２ｃの制御） Ｈ８３０５２ＢＡＳＩＣ
この度ＢＡＳＩＣ言語の繁栄を願い、できれば使いたいＬＣＤ４×２０をＡＫＩ・Ｈ８／３０５２Ｆを３０４８Ｆ専用ＢＡＳＩＣコンパイラで作ってみました。
ＢＡＳＩＣ言語で駆動する ＳＣ２００４ＣＳＬＢ ４行２０列のＬＣＤモジュールの表示ソフトを開発
|
|
| Ｈ８／３０５２ＦでＬＣＤ４X２０を駆動 | ＬＣＤ２×１６ Ｐｉｎ１カソード Ｐｉｎ２アノード ＬＣＤ４×２０ Ｐｉｎ１アノード Ｐｉｎ２カソード |
ＬＣＤ接続回路はＡＫＩＨ８のマザーボードと同じ、よって、Ｒ／Ｗは０Ｖ固定で、データは４ビットです。
ＬＣＤモジュールは何故だか、ＬＣＤ２＊１６とＬＣＤ４＊２０は電源極性が違うので注意！！
私の場合おっちょこちょいな性格と分かっているので、転ばぬ先の杖でＬＣＤモジュールの1番ピンと2番ピンに（＋極にカソード
−極にアノード）ＬＣＤの表側にダイオードをハンダ付けしてＬＣＤを保護して置きました、うっかり極性を間違えてもダイオードが
ショートしてＬＣＤモジュールを破損から守ってくれます。
マザーボドにＬＣＤ２×１６とＬＣＤ４×２０の切り替えスイッチを付けているので、案の定ＬＣＤ２×１６とＬＣＤ４×２０を差し替えたとき、
助かりました。
先ずは、単純に表示させる目的で作成したプログラムですが、文字表示だけでは、寂しいのでカウンターを表示させました。
カウンターリセット兼ＬＣＤクリアーをマザーボードのＳ１で行います。
特徴
ＬＣＤモジュールのインターフェイスを他のポートに移してもソフトでポートアドレスを合わせるだけで駆動できます。
ＧＯＳＵＢ ！ＩＮＩＴＬＣＤを実行すればＬＣＤモジュールをコネクターから引っこ抜いて、再度差し込んでもちゃんと表示をすることです。
Ｈ８／３０４８Ｆ用ＢＡＳＩＣコンパイラーの ＣＯＮＳＯＬＥ と ＰＲＩＮＴ 命令ではできません、電源を入れ替えるまで二度と表示してくれません。
実際はコネクターから外すことは考えられませんが、ノイズ等でＬＣＤがダメイジを受けても復帰できることは、メリットです。
プログラムの簡単な説明
Ｌ１＄＝”２０字 ”：'Ｌ２＄＝”２０字 ”：'Ｌ３＄＝”２０字 ”：'Ｌ４＄＝”２０字 ”のように４つのラインに２０文字ずつ表示したい内容を
設定後、Ｌ１＄からＬ４＄を合成して、この８０文字を表示させます。画面消去の場合も８０文字分のブランクを表示することで行います。
命令は、GOSUB !INITLCD 初期設定 GOSUB !CLEAR 画面クリアー GOSUB !PUTLCD 画面表示 の３命令です。
'*******************************************************
' ４*２０ＬＣＤ制御 PGM=LCD80420 LCD DISPLAY Ver0
'*******************************************************
'********************** I/O PORT SET *******************
' ＰＯＲＴ３ ＬＣＤ表示出力
POKE &HFFFFC4,&HFF
PORT3=&HFFFFC6
' ＰＯＲＴ４ Ｓ１とＳ２入力
POKE &HFFFFC5,&H00
POKE &HFFFFDA,&HFF
PORT4=&HFFFFC7
'*******************************************************
GOSUB !INITLCD
X=0
:!MAIN
' 12345678901234567890
L1$="***** LCD 4X20 *****" 'Ｌ１＄に表示内容を設定
L2$=" PGM=LCD DISPLAY" 'Ｌ２＄に表示内容を設定
L3$=" COUNT="+STR$(X) 'Ｌ３＄に表示内容を設定
L4$="2011.10.30 SAKUSEI" 'Ｌ４＄に表示内容を設定
GOSUB !INITLCD
GOSUB !PUTLCD 'Ｌ１＄からＬ４＄をＬＣＤに表示
WAIT 1000 '約１秒毎にカウント
X=X+1 'カウントを加算
IF X>1000 THEN X=0 'カウントが１０００を超えたら０に戻す
IF (255-PEEK(PORT4) AND 16)=16 THEN GOSUB !CLEAR:X=0:WAIT 3000 'Ｓ１オンで３秒間ＬＣＤクリアーとカウンター０にセット
if (255-PEEK(PORT4) and 32)=32 THEN GOTO !KEYWORD 'Ｓ２オンでキーワードを表示して停止
GOTO !MAIN
'*******************************************************
'-------------------------------------------------------
サブルーチン省略