نقشه مدار جهت انجام آزمايش :

تنظیمات Code Wizard در Code Vision

متن برنامه به زبان C - قابل پیاده سازی در Code Vision

#include <mega16.h>

#include <delay.h>

#include <stdlib.h>

#asm

.equ __lcd_port=0x18 ;PORTB

#endasm

#include <lcd.h>

#define ADC_VREF_TYPE 0xE0

unsigned char read_adc(unsigned char adc_input)

{

ADMUX=adc_input | (ADC_VREF_TYPE & 0xff);

delay_us(10);

ADCSRA|=0x40;

while ((ADCSRA & 0x10)==0);

ADCSRA|=0x10;

return ADCH;

}

char str[16];

int tmp_adc;

void main(void)

{

PORTA=0x00; DDRA=0x00;

PORTB=0x00; DDRB=0xFF;

PORTC=0x00; DDRC=0x00;

PORTD=0x00; DDRD=0xFF;

// ADC initialization

// ADC Clock frequency: 7.813 kHz

// ADC Voltage Reference: Int., cap. on AREF

// ADC Auto Trigger Source: None

// Only the 8 most significant bits of

// the AD conversion result are used

ADMUX=ADC_VREF_TYPE & 0xff;

ADCSRA=0x87;

lcd_init(16);

while (1)

{

tmp_adc = read_adc(0);

PORTD = tmp_adc;

itoa(tmp_adc,str);

lcd_clear();

lcd_puts(str);

lcd_putsf("'C");

delay_ms(500);

};

}

متن برنامه به زبان Basic - قابل پیاده سازی در Bascom

$regfile = "m16def.dat"

$crystal = 1000000

Config Adc = Single , Prescaler = 128 , Reference = Internal

Config Portd = Output

Config Portb = Output

Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , _

Db6 = Portb.6 , Db7 = Portb.7 , Rs = Portb.0 , E = Portb.2

Config Lcd = 16 * 2

Dim Tmp_adc As Byte

Start Adc

Cursor Off

Do

Tmp_adc = Getadc(0)

Shift Tmp_adc , Right , 2 'use adc in 8bit mode

Portd = Tmp_adc

Cls

Home

Lcd Tmp_adc ; "'C"

Waitms 500

Loop

End