'///////////////////////////////////////////////////////////////
'
'//////////////////////////////////////////////////////////////
$Device= m16 '使用mega16
$Stack = 32  '堆棧32字節
$Clock = 7.3728  ' 時鐘4MHz

$ShiftOut Data=PORTB.5, Clk=PORTB.7,Msb  '申明一個簡易SPI口
$GLCD Nokia3310, SCLK=PORTB.7, SDIN=PORTB.5, DC=PORTB.4, SCE=PORTB.3  '3310液晶連接定義
$Def RES=PORTB.6  '復位腳
$LeadChar=" ", Format(3,0)  '顯示數據格式化
$Def SL = PORTB.4 '去74HC165鎖存 
$Def led = PORTD.7 ' 去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
'Dim Yaxis As Flash Byte

n_key=255
Set DDRB.4:Reset res: Nop 5: Set RES  '復位3310LCD
Set DDRD.7
Reset led   '點亮3310背光燈
GLcdInit    '初始化3310LCD
FontSet F0HD '選擇字體
Contrast=n
GCls
GLcd(0,5),"www.atmel.com" '顯示一個字符串
ImgSet(0,0),dian
ImgSet(15,0),ya
'ImgSet(0,0),Yaxis
Do
Contrast=0
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 50
Set DDRB.5 '將SDIN變為輸出為寫3310LCD做準備

	'For x=0 To 255
		'GLcd(60, 0), x
		ImgSet(60, 2, m), Sclk1616HD
		Incr m
		If m>7 Then m=0
		WaitMs 50

Loop

$Include "C:\FastAVR\F0HD.bas"
$Include "C:\FastAVR\dian.bas"
$Include "C:\FastAVR\ya.bas"
$Include "C:\FastAVR\Sclk1616HD.bas"
'$Include "C:\FastAVR\Yaxis.bas"