先看看顯示這個(gè)畫(huà)面的程序:
$Device= m16 '使用mega16
$Stack = 32 '堆棧32字節(jié)
$Clock = 4 ' 時(shí)鐘4MHz
$ShiftOut Data=PORTB.5, Clk=PORTB.7,Msb '申明一個(gè)簡(jiǎn)易SPI口
$GLCD Nokia3310, SCLK=PORTB.7, SDIN=PORTB.5, DC=PORTB.1, SCE=PORTB.4 '3310液晶連接定義
$Def RES=PORTB.0 '復(fù)位腳
$LeadChar=" ", Format(3,0) '顯示數(shù)據(jù)格式化
$Def SL = PORTB.1 '去74HC165鎖存
$Def led = PORTB.3 ' 去3310背光控制
Dim n_key As Byte '保存按鍵鍵值
Dim n As Byte '顯示一個(gè)變量n好觀察3310有沒(méi)有運(yùn)行
Dim x As Byte
Dim m As Byte
Dim F0HD As Flash Byte ' 英文字庫(kù)F0HD
Dim dian As Flash Byte
Dim ya As Flash Byte
Dim Sclk1616HD As Flash Byte
n_key=255
Set DDRB.0: Nop 3: Set RES '復(fù)位3310LCD
Set DDRB.3
Reset led '點(diǎn)亮3310背光燈
GLcdInit '初始化3310LCD
FontSet F0HD '選擇字體
GCls
GLcd(0,5),"www*atmel*com" '顯示一個(gè)字符串
ImgSet(0,0),dian
ImgSet(15,0),ya
Do
GLcd(0,3),"key=";n_key '顯示鍵值
GLcd(60, 0), n ' 顯示一個(gè)變量n好觀察3310有沒(méi)有運(yùn)行
Incr n
Reset SL
Set SL ' 鎖存74HC165
Reset DDRB.5 '將SDIN變?yōu)檩斎霝樽x取74HC165做準(zhǔn)備
Set DDRB.7
n_key=ShiftIn '獲得鍵值
n_key=Not n_key
WaitMs 100
Set DDRB.5 '將SDIN變?yōu)檩敵鰹閷?xiě)3310LCD做準(zhǔn)備
ImgSet(68, 2, m), Sclk1616HD '循環(huán)顯示沙漏的一個(gè)子圖片
Incr m
If m>7 Then m=0
WaitMs 100