Aplikasi ADC Bascom AVR
04.42ADC BASCOM AVR
Prosedur Percobaan:
1. Pastikan semua supply dalam keadaan off
2. Hubungkan jumper seperti rangkaian dibawah
3. Buatlah listing program yang telah ada pada modul
4. periksakan rangkaian kepada asisten yang mengawas
5. Hidupkan semua supply
6. Upload program dari laptop ke modul
7. Tekan tombol Reset
8. Amati percobaan, jika tidak sesuai perbaiki rangkaian atau program
9. Jika sesuai, maka selesai dan demokan pada asisten yang mengawas
10.Jelaskan prinsip kerja + program dan hubungan keduanya kepada asisten
11.Demokan ke pembimbing praktikum
12.Matikan supply
1. Rangkaian Simulasi [kembali]
2. Listing Program [kembali]
3. Link Download [kembali]
4. Link Download [kembali]
File HTML - Download
File Proteus - Download
File Program - Download
File Video - Download
$regfile = "m8535.dat" 'memanggil librari ATmega 8535
$regfile = 16000000 'menentukan kecepatan crystal
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 'deklarasi pin lcd
Config Lcdpin = Pin , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 'deklarasi pin lcd
Config Lcd = 16 * 2 'menentukan lcd yang digunakan
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'menentukan deklarasi ADC
Dim V As Word 'menentukan variable V
Dim D As Word 'menentukan variable V
Do 'fungsi utama
Cls 'lcd bersih dari karakter
Cursor Off 'kursor lcd off
Lcd "Abdian Hadi P " 'lcd menampilkan karakter Pepi dan Reno
Lowerline 'baris bagian bawah
Lcd "Tegangan= " 'Lcd menampilkan karakter Tegangan=
Start Adc 'memulai proses Adc
D = Getadc(0) 'D diambil dari Adc 0
V = D * 5 'proses Adc
Locate 2 , 11 'baris 2kolom 11 pada lcd
Lcd V ; "mV" 'lcd menampilkan karakter
Waitms 1000 'delay 1 s
Loop 'fungsi utama
End 'program selesai
$regfile = 16000000 'menentukan kecepatan crystal
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 'deklarasi pin lcd
Config Lcdpin = Pin , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 'deklarasi pin lcd
Config Lcd = 16 * 2 'menentukan lcd yang digunakan
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'menentukan deklarasi ADC
Dim V As Word 'menentukan variable V
Dim D As Word 'menentukan variable V
Do 'fungsi utama
Cls 'lcd bersih dari karakter
Cursor Off 'kursor lcd off
Lcd "Abdian Hadi P " 'lcd menampilkan karakter Pepi dan Reno
Lowerline 'baris bagian bawah
Lcd "Tegangan= " 'Lcd menampilkan karakter Tegangan=
Start Adc 'memulai proses Adc
D = Getadc(0) 'D diambil dari Adc 0
V = D * 5 'proses Adc
Locate 2 , 11 'baris 2kolom 11 pada lcd
Lcd V ; "mV" 'lcd menampilkan karakter
Waitms 1000 'delay 1 s
Loop 'fungsi utama
End 'program selesai
4. Link Download [kembali]
File HTML - Download
File Proteus - Download
File Program - Download
File Video - Download
