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…