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 ATMega8

Berikut ini adalah contoh program sederhana yang dapat di pahami dan dikembangkan dengan mudah dalam aplikasi yang kompleks. Mudah-mudahan bermanfaat. Terima kasih.

 Contoh Program :

  1 $regfile = "m8def.dat"
  2 $crystal = 4000000
  3 Config Portb = Output
  4 Config Lcd = 16 * 2
  5 Config Lcdpin = Pin, Rs = Portd.4, E = Portd.5, Db4 = Portd.0
  6 Config Lcdpin = Pin, Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3
  7 Config Adc = Single , Prescaler = Auto
  8 
  9 Start Adc
 10 'With STOP ADC, you can remove the power from the chip
 11 'Stop Adc
 12 
 13 Dim W As Word , Channel As Byte
 14 Channel = 0
 15 'Baca Nilai ADC dari channel 0
 16 
 17 Do
 18 Locate 1 , 1
 19 Lcd "Nilai ="
 20 W = Getadc(channel)
 21 Locate 1 , 9
 22 Lcd " "
 23 Locate 1 , 9
 24 Lcd W
 25 Waitms 100
 26 Loop
 27 End 

Share: