2013-05-25: エアーバリアブルブログ

過去の記事の検索が簡単にできるよ　(・∀・)　例　ランチャー9

カスタム検索

秋月「I2C接続小型液晶AQM0802A」をPICAXEで動かす ― 2013/05/25 23:19:59

前回購入したI2CLCDをarduinoで動作確認したが、今度は別のデバイスで動かしてみる。いつもならPICマイコンで動かすのだが、それはもう色々とやっている。

なので、今回は最近触り始めたPICAXEを使って表示させることにした。8ピンのPICAXEでもI2Cが使えるので、08M2を使ってみる。

ブレッドボードで検証。I2Cの動作がどんな状態なのか確認したかったので、以前購入したロジックアナライザを使ってデバッグしながら作業を進めていった。BASICの資料を読んだり、ST7032のアクセス方法を確認したりと、結局は2日程時間を費やしたが、表示に成功した。

電源は、以前作った安定化電源を3.3V側で使用している（再販しようかな・・迷っている所）

表示はこんな感じ。特に何をするわけでもなく、数字0～255を回して、それに対応するキャラクターを並べて表示するプログラムだが、まさにHello worldにふさわしい動作。

BASICコマンドはProgramming EditorのHelpからPDFを開くことが出来る。色々特別なコマンドやら、変数の扱いがb0、b1などと固定された変数を使うことや、計算順序が一般的な優先順位と違い、左から右へ行われるなど、色々な制約が多い。しかし、一回表示出来てしまえば次への応用が利くというものだ。

LCDの待ち制御は、ロジアナで確認したら、命令の間で0.4ms弱あったので、大抵の待ち時間である0.03msより十分だったので一部を除いて、pause命令は外した。

'**************************************
'     I2C LCD test Display test 
'	AQM0802A AKIDUKI LCD and Strawberry linux SB1602B
'     (I2C LCD 8 x 2 lines)
'	 for PICAXE 08M2
'**************************************
'	author air_variable
'	http://airvariable.asablo.jp/blog/
'	version 0.6
'	May,24th,2015
'	PICAXE Programming Editor v6.0.8.0
'	This source code is free software
'	Notice:This code is test version.
'**************************************
'	Information of Connection
'		pin1 VCC
'		pin2 serial in
'		pin3 n.c
'		pin4 n.c
'	----
'		pin8 GND
'		pin7 serial out
'		pin6 SCL(Must be 10kohm pull up)
'		pin5 SDA(Must be 10kohm pull up)
'**************************************

#PICAXE 08M2

'aki mode
'I2C initialize
hi2csetup i2cmaster,$A0, i2cfast, i2cbyte 'AKIDUKI LCD
hi2cout 0,($01)	'Function set
pause 50		'Wait
hi2cout 0,($38)	'Function set
pause 50		'Wait
hi2cout 0,($0f)	'Function set
pause 50		'Wait
hi2cout 0,($06)	'Function set
pause 300		'Wait
hi2cout 0,($80)	'Set DDR Address

hi2cout 0,($38)	'Function set
hi2cout 0,($0C)	'Display ON/OFF control
hi2cout 0,($01)	'Follower control
pause 300		'Wait
hi2cout 0,($80)	'Set DDR Address
'Displaying Hello world

hi2cout $80,("H")
hi2cout $80,("e")
hi2cout $80,("l")
hi2cout $80,("l")
hi2cout $80,("o")

'Strawberry linux mode
hi2csetup i2cmaster,$7C, i2cfast, i2cbyte 'Strawberry linux I2C LCD SB1602B
pause 50		'Wait
hi2cout 0,($38)	'Function set
hi2cout 0,($39)	'Function set
hi2cout 0,($14)	'Internal OSC frequency
hi2cout 0,($70)	'Contrast set
hi2cout 0,($56)	'Power ICON contrast control
hi2cout 0,($6C)	'Follower control
pause 300		'Wait
hi2cout 0,($38)	'Function set
hi2cout 0,($0C)	'Display ON/OFF control
hi2cout 0,($01)	'Follower control
pause 2		'Wait
hi2cout 0,($80)	'Set DDR Address

'Displaying Hello world

hi2cout $40,("H")
hi2cout $40,("e")
hi2cout $40,("l")
hi2cout $40,("l")
hi2cout $40,("o")

hi2csetup i2cmaster,$A0, i2cfast, i2cbyte 'AKIDUKI LCD
hi2cout 0,($C0)	'Set DDR Address goto 2 lines
hi2csetup i2cmaster,$7C, i2cfast, i2cbyte 'Strawberry linux I2C LCD SB1602B
hi2cout 0,($C0)	'Set DDR Address goto 2 lines

main:
	for b0=0 to 255
		b1 = b0 %8 
		b1 = $C0 + b1
		
		hi2csetup i2cmaster,$A0, i2cfast, i2cbyte 'AKIDUKI LCD
		hi2cout 0,(b1)
		hi2csetup i2cmaster,$7C, i2cfast, i2cbyte 'Strawberry linux I2C LCD SB1602B
		hi2cout 0,(b1)

hi2csetup i2cmaster,$A0, i2cfast, i2cbyte 'AKIDUKI LCD
		hi2cout $80,(b0)
		hi2csetup i2cmaster,$7C, i2cfast, i2cbyte 'Strawberry linux I2C LCD SB1602B
		hi2cout $40,(b0)
		
		hi2csetup i2cmaster,$A0, i2cfast, i2cbyte 'AKIDUKI LCD
		hi2cout 0,($85)	'Set DDR Address
		hi2csetup i2cmaster,$7C, i2cfast, i2cbyte 'Strawberry linux I2C LCD SB1602B
		hi2cout 0,($85)	'Set DDR Address

b1 = b0/100 
		b1 = b1 + $30	
		hi2csetup i2cmaster,$A0, i2cfast, i2cbyte 'AKIDUKI LCD
		hi2cout $80,(b1)	'Display digit 100th
		hi2csetup i2cmaster,$7C, i2cfast, i2cbyte 'Strawberry linux I2C LCD SB1602B
		hi2cout $40,(b1)	'Display digit 100th

b1 = b0/10  % 10
		b1 = b1 + $30	
		hi2csetup i2cmaster,$A0, i2cfast, i2cbyte 'AKIDUKI LCD
		hi2cout $80,(b1)	'Display digit 10th
		hi2csetup i2cmaster,$7C, i2cfast, i2cbyte 'Strawberry linux I2C LCD SB1602B
		hi2cout $40,(b1)	'Display digit 10th

b1 = b0 % 10
		b1 = b1 + $30
		hi2csetup i2cmaster,$A0, i2cfast, i2cbyte 'AKIDUKI LCD
		hi2cout $80,(b1)	'Display digit 1st
		hi2csetup i2cmaster,$7C, i2cfast, i2cbyte 'Strawberry linux I2C LCD SB1602B
		hi2cout $40,(b1)	'Display digit 1st
		
		pause 200		'wait 0.2sec
		next 
	goto main
	
end

※商用問わず自由に使用可能（ストロベリーリナックス・秋月I2C LCD同時テスト可能）

という訳で、ソースコードは上のテキストボックスからコピーアンドペーストで利用可能。今回は秋月のI2C超小型のLCDを動かしたが、ST7032系が搭載されたLCDなら、そのまま利用できる。

ソースコードは全然最適化されてないので宜しく　(・ω<)

　　→I2C通信型のLCDAQM0802A（秋月）

　　→秋月電子「I2C接続小型8文字ｘ2行液晶 AQM0802A-RN-GBW」試食

　　→超小型16チャネルUSBロジックアナライザ logic16を買ってみた

　　→秋月I2C LCD ACM1602NI用互換プログラム2種（秋月・ストリナ）バグ修正

　　→PICAXEカテゴリ
　　→PICカテゴリ

[PR]Make: Electronics ―作ってわかる電気と電子回路の基礎 ((Make:PROJECTS))

[PR]PICAXE Microcontroller Projects for the Evil Genius

[PR]電子工作のための PIC16F1ファミリ活用ガイドブック