162a.bas

ATMEGA16单片机使用的LCD162A液晶屏测试程序。

$Device= m16			' used device
$Stack = 32           	' stack size
$Clock = 7.3728			    ' used clock in MHz
$Lcd   = PORTA.4, RS=PORTC.6, EN=PORTC.7 , 16, 2	'lcd config 
$Source= On             ' displays comments in asm file

Dim n As Byte                   
Dim volts As Word
Dim voltraw As Word
Dim voltav As Word
Start Adc,Vref=Int
Cursor Off
'$Asm
'rcall LcdIni 
'$EndAsm



Do
   For n = 1 To 40         ' sample the adc 40 times for  
	   WaitUs 10               '    
	   voltraw = Adc(1)              
	   Locate 1,1: Lcd "Raw Input   "; voltraw; "   "
	   voltav = voltav + voltraw
   Next
	voltav = voltav / 40       ' average the ADC samples 
	Locate 2,1: Lcd "Filtered    "; voltav; "   "     
Loop