21 Februari 2013

Aplikasi ADC pada ATMega8 dengan Bahasa Bascom AVR

Untuk aplikasi ADC menggunakan bahasa Bascom AVR sangatlah sederhana, kita tidak perlu memahami lebih dalam tentang proses yang terjadi pada LCD dan ADC. Kita cukup tau perintah yang digunakan untuk mengakses perangakat tersebut melalui bahasa pemrograman. Pada aplikasi ini saya mencoba menggunakan ATMega8 yang tidak jauh berbeda dengan ATMega8535, yang berbeda hanyalah beberapa fitur dan jumlah Port. Gambar rangkaiannya cukup sederhana seperti gambar dibawah ini.Gambar Rangkaian Aplikasi ADC menggunakan ATMega8Berikut ini adalah contoh program sederhana yang dapat di pahami dan dikembangkan dengan mudah dalam aplikasi yang kompleks. Mudah-mudahan bermanfaat. Terima kasih.Contoh Program :
$regfile = "m8def.dat"
$crystal = 4000000
Config Portb = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin, Rs = Portd.4, E = Portd.5, Db4 = Portd.0
Config Lcdpin = Pin, Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3
Config Adc = Single , Prescaler = Auto

Start Adc
'With STOP ADC, you can remove the power from the chip
'Stop Adc

Dim W As Word , Channel As Byte
Channel = 0
'Baca Nilai ADC dari channel 0

Do
Locate 1 , 1
Lcd "Nilai ="
W = Getadc(channel)
Locate 1 , 9
Lcd " "
Locate 1 , 9
Lcd W
Waitms 100
Loop
End


View the original article here

Ikuti Blog ini

Langganan

Mau dapet Update-an Blog ini lewat e-mail? Masukkin aja alamat Email kamu disini:

Dikirim Oleh FeedBurner