先看看顯示這個畫面的程序：
$Device= m16 '使用mega16
$Stack = 32 '堆棧32字節
$Clock = 4 ' 時鐘4MHz
$ShiftOut Data=PORTB.5, Clk=PORTB.7,Msb '申明一個簡易SPI口
$GLCD Nokia3310, SCLK=PORTB.7, SDIN=PORTB.5, DC=PORTB.1, SCE=PORTB.4 '3310液晶連接定義
$Def RES=PORTB.0 '復位腳
$LeadChar=" ", Format(3,0) '顯示數據格式化
$Def SL = PORTB.1 '去74HC165鎖存
$Def led = PORTB.3 ' 去3310背光控制
Dim n_key As Byte '保存按鍵鍵值
Dim n As Byte '顯示一個變量n好觀察3310有沒有運行
Dim x As Byte
Dim m As Byte
Dim F0HD As Flash Byte ' 英文字庫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 '復位3310LCD
Set DDRB.3
Reset led '點亮3310背光燈
GLcdInit '初始化3310LCD
FontSet F0HD '選擇字體
GCls
GLcd(0,5),"www*atmel*com" '顯示一個字符串
ImgSet(0,0),dian
ImgSet(15,0),ya
Do
GLcd(0,3),"key=";n_key '顯示鍵值
GLcd(60, 0), n ' 顯示一個變量n好觀察3310有沒有運行
Incr n
Reset SL
Set SL ' 鎖存74HC165
Reset DDRB.5 '將SDIN變為輸入為讀取74HC165做準備
Set DDRB.7
n_key=ShiftIn '獲得鍵值
n_key=Not n_key
WaitMs 100
Set DDRB.5 '將SDIN變為輸出為寫3310LCD做準備
ImgSet(68, 2, m), Sclk1616HD '循環顯示沙漏的一個子圖片
Incr m
If m>7 Then m=0
WaitMs 100
