'///////////////////////////////////////////////////////////////
'
'//////////////////////////////////////////////////////////////
$Device= m16 '使用mega16
$Stack = 32  '堆棧32字節
$Clock = 7.3728  ' 時鐘4MHz
$ShiftIn Data=PORTB.1, Clock=PORTB.2,Msb  '申明一個簡易SPI口
$ShiftOut Data=PORTB.1, Clock=PORTB.2,Msb  '申明一個簡易SPI口
$GLCD Nokia3310, SCLK=PORTB.2, SDIN=PORTB.1, DC=PORTD.4, SCE=PORTD.5  '3310液晶連接定義
$Def RES=PORTD.6  '復位腳
$LeadChar=" ", Format(3,0)  '顯示數據格式化
$Def SL = PORTD.4 '去74HC165鎖存 
$Def led = PORTA.2 ' 去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 DDRD.6:Reset res: Nop 15: Set RES  '復位3310LCD
Set DDRA.2
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
n=60
Do
Contrast=75
GLcd(0,3),"key=";n_key   '顯示鍵值
GLcd(60, 0), n  ' 顯示一個變量n好觀察3310有沒有運行
Incr n
If n>80 Then n=60
Reset SL
Set SL       ' 鎖存74HC165
Reset DDRB.1  '將SDIN變為輸入為讀取74HC165做準備
'Set DDRB.7
n_key=ShiftIn  '獲得鍵值
n_key=Not n_key
WaitMs 30
Set DDRB.1 '將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 30

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"