adc

ANALOG TO DIGITAL CONVERTER

Dalam dunia komputer, semua nilai tegangan dijadikan dalam bentuk digital, dan menggunakan sistem bilangan biner. ADC (Analog to Digital Converter) adalah suatu piranti yang digunakan untuk mengubah isyarat analog ke isyarat digital. Kita bisa juga buat rangkaian ADC pake komparator, tapi kenapa harus buat lawong beli ja dah banyak. Apalagi klo dah punya ATMega8535, tinggal maen bascom sejenak dah bisa maen ADC. ADC ATMega8535 bisa diaktipkan dengan menyetting beberapa regiser dalam micro, tapi kalo bascom ga seribet yang dibayangkan.

Ni rangkaiannya, karena ADC micro ini terletak di portA maka inputnya di tempatkan di portA dan data ADC dikirim secara serial.

‘———————————————

‘Program ADC Atmega8535

‘———————————————

‘———————————————

‘DEKLARASI CRISTAL 12MHz

‘———————————————

$crystal = 12000000

‘———————————————

‘DEKLARASI HEADER

‘———————————————

$regfile=”m8535.dat

‘———————————————

‘DEKLARASI BAUDRATE

‘———————————————

$baud = 9600

‘———————————————

‘DEKLARASI LCD

‘———————————————

Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.1 , Rs = Portc.0

Config Lcd = 16 * 2

‘———————————————

‘KONFIGURASI ADC

‘———————————————

Config Adc = Single , Prescaler = Auto

‘———————————————

‘ADC DI AKTIFKAN

‘———————————————

Start Adc

‘———————————————

‘DEKLARASI VARIABEL

‘———————————————

Dim W As Word , Channel As Byte

‘———————————————

‘RUTIN UTAMA

‘———————————————

Do

Channel = 0

W = Getadc(channel)

Print “Channel ” ; Channel ; ” value ” ; W

LCD Channel

Incr Channel

If Channel > 7 Then Channel = 0

Loop

End

Penjelasan Program:

1. ‘Program ADC ATmega8535

Ungkapan ini menyatakan judul program yang akan dibuat.

2. $crystal = 12000000

Ungkapan ini menyatakan mikrokontroller Atmega8535 menggunakan crytal sebesar 12 MHz

3. $regfile=”m8535.dat”

Ungkapan ini menyisipkan header m8535.dat yang berisi deklarasi register mikrokontroller Atmega8535.

4. $baud = 9600

Ungkapan ini menyatakan konfigurasi serial dengan baudrate 9600 bps.

5. Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.1 , Rs = Portc.0

Config Lcd = 16 * 2

Ungkapan ini menyatakan LCD tersebut terhubung ke portc mikrokontoler ATmega8535

6. Config Adc = Single , Prescaler = Auto

Ungkapan ini menyatakan konfigurasi ADC Atmega8535 dengan prescaler auto.

7. Start Adc

Ungkapan ini menyatakan adc mulai diaktifkan.

8. Dim W As byte, channel as byte

Ungkapan di atas merupakan deklarasi variabel W dan channel

9. Do

Channel = 0

W = Getadc(channel)

Print “Channel “;Channel ; ” value ” ; W

LCD Channel

Incr Channel

Loop

End

Ini merupakan program utama. Program ini akan membaca ADC pada saluran Channel = 0 dan datanya akan ditampilkan melalui port serial komputer dan LCD. W = Getadc (channel) merupakan ungkapan untuk membaca data dari ADC kemudian di masukan ke dalam variabel W. Print “Channel ” ; Channel ; ” value ” ; W merupakan ungkapan untuk mengeluarkan data ADC melalui port serial dan LCD Channel merupakan ungkapan untuk mengeluarkan data ADC melalui LCD.

nach mudah bukan…yoi program pake BASCOM AVR gampang…

selamat mencoba…semoga artikel ni bermanfaat…