Pemrograman Bascom AVR Termometer Digital Dengan LM35 Berbasis Mikrokontroler ATMega32

2/11/2012 07:01:00 PM ADC, aplikasi mikrokontroler, BascomAVR, LCD, Mikrokontroler, Tutorial 6 Comments

Sore temen-temen, artikel Pemrograman Bascom AVR Termometer Digital Dengan LM35 Berbasis Mikrokontroler ATMega32 kali ini saya ingin sharing mengenai aplikasi termometer digital dengan LM35. Program yang dibuat dengan menggunakan BASCOM AVR dengan bahasa BASIC.

LM35 merupakan sensor suhu low cost yang sensitif dan presisi dengan satuan celcius, dengan keluaran tegangan analog yang sudah linier sehingga sensor ini sudah terkalibrasi. Jangkauan suhu yang dapat dideteksi oleh LM35 diantara -55 derajat sampai 150 derajat celcius. Keluaran analog nya linier 10.0 mV/ derajat celcius.

Berikut penampakan nya :

symbol lm35

Package

Untuk informasi lebih mengenai L35 ini, Temen-temen bisa download Datasheet LM35 DISINI

Berikut Rangkaian termometer digital nya :

Rangkaian

Kemudian untuk program dengan BASCOM AVR nya sebagai berikut :

'**********************************************************************************

' Pemrograman Bascom AVR Termometer Digital Dengan LM35 Berbasis Mikrokontroler ATMega32
' program termometer digital
' http://goes-open.blogspot.com
' mirza dhanu sulistya
' tutorial

$regfile = "m32def.dat"
$crystal = 11059200

Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.3 , Db6 = Portc.2 , Db7 = Portc.1 , E = Portc.5 , Rs = Portc.7
Config Lcdbus = 4
Config Lcd = 16 * 2              ' lcd 16x2 karakter
Cursor Off                             ' menonaktifkan cursos LCD
Deflcdchar 0 , 14 , 10 , 14 , 32 , 32 , 32 , 32 , 32

Config Adc = Single , Prescaler = Auto , Reference = Internal

Dim A As Word , Volt As Word , Volt_d As Byte
Start Adc          ' memulai ADC

Cls                    'clear screen
Do                    ' memulai program

Locate 1 , 1      ' menempatkan karakter di LCD pada baris 1 kolom 1
Lcd "termometer Dgtal"       ' menampilkan tulisan
A = Getadc(0)
Volt = A * 5
Volt_d = Volt Mod 10
Volt = Volt / 20
Locate 2 , 1
Lcd Volt ; "," ; Volt_d

Locate 2 , 6
Lcd Chr(0) ; "C"
Loop

'**********************************************************************************
Pemrograman Bascom AVR Termometer Digital Dengan LM35 Berbasis Mikrokontroler ATMega32
Penjelasan :

$regfile = "m32def.dat" merupakan konfigurasi pustaka mikrokontroler yang digunakan (ATMega32)
$crystal = 11059200 crystal yang digunakan sebesar 11059200 Hz
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.3 , Db6 = Portc.2 , Db7 = Portc.1 , E = Portc.5 , Rs = Portc.7  merupakan konfigurasi pin LCD yang digunakan dan dihubungkan ke PORTC
Deflcdchar 0 , 14 , 10 , 14 , 32 , 32 , 32 , 32 , 32 merupakan sebuah karakter 'derajat' pada LCD yang dibuat dengan LCD designer
Config Adc = Single , Prescaler = Auto , Reference = Internal merupakan konfigurasi ADC nya

A = Getadc(0)
Volt = A * 5
Volt_d = Volt Mod 10
Volt = Volt / 20
merupakan perhitungan data dari ADC

Lcd Chr(0) ; "C" merupakan pemanggilan karakter 'derajat' yang dibuat dengan LCD designer
Loop                  looping program

Pemrograman Bascom AVR Termometer Digital Dengan LM35 Berbasis Mikrokontroler ATMega32

Mungkin di postingan berikut nya saya akan memberikan tutorial untuk membuat karakter tertentu dengan fasilitas LCD designer pada BASCOM AVR. hehehee

Sekian artikel Pemrograman Bascom AVR Termometer Digital Dengan LM35 Berbasis Mikrokontroler ATMega32 Terimakasih sudah berkunjung mohon maaf jika ada kesalahan hehe semoga bermanfaat. 

Read More

Komunikasi Serial ATMega32 dengan USB to serial TTL Converter

2/08/2012 03:05:00 AM ADC, BascomAVR, LCD, Mikrokontroler, Product, Serial 3 Comments

Artikel Komunikasi Serial ATMega32 dengan USB to serial TTL Converter kali ini, saya akan mengulas tentang komunikasi serial dengan mikrokontroler ATMega32. Protokol komunikasi yang sering digunakan untuk mengkomunikasikan sebuah piranti dengan komputer adalah komunikasi serial.

Artikel Komunikasi Serial ATMega32 dengan USB to serial TTL Converter, digunakan USB to Serial TTL converter untuk mengkomunikasikan antara mikrokontroler dengan komputer/laptop. input dari laptop/PC dengan USB sedangkan untuk menghubungkan ke mikrokontroler menggunakan PIN TX,RX dan GND.

Berikut penampakan nya :

Usb to serial TTL converter

Kenapa memakai Usb to serial TTL converter?? hehe

Tegangan komunikasi serial untuk mikrokontroler diantara 0V-3,3V akan tetapi untuk tegangan komunikasi serial komputer sekitar -15 sampai 15V. Untuk kedua piranti itu dapat berkomunikasi sehingga diperlukan sebuah converter agar level tegangan nya setara dan sama-sama dapat berkomunikasi.

Salah satu converter yang dapat digunakan adalah dengan menggunakan IC MAX232 dan dihubungkan dengan komputer lewat DB9. atau dapat juga dengan menggunakan kabel USB to serial converter.

Akan tetapi kedua piranti itu memiliki beberapa kelemahan, seperti kabel usb to serial yang relatif mahal, piranti yang lebih besar, ribet harus membuat rangkaian apabila akan menggunakan converter dengan DB9 dan IC max232.

Komunikasi Serial ATMega32 dengan USB to serial TTL Converter

Berikut hasil percobaan nya dengan hyperterminal:

Komunikasi Serial ATMega32 dengan USB to serial TTL Converter

Sudah teruji untuk Baudrate 300 - 57600

Berikut source code dengan Bascom AVR nya :

$regfile = "m32def.dat"

$crystal = 11059200

$baud = 300

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

Config Lcdbus = 4

Config Lcd = 16 * 2

Cursor Off

Cls

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc

Dim A As Word

Do

A = Getadc(1)

Locate 1 , 1

Lcd "akses ADC -EVA-"

Locate 2 , 1

Lcd "datanya=" ; A

Print "datanya=" ; A

Loop

Perintah yang paling utama untuk komunikasi serial dengan Bascom AVR :

$baud = 'kecepatan baudrate'   , digunakan untuk mengatur kecepatan baudrate

dan perintah Print" " untuk menampilkan data di PC/Laptop.

Kelebihan dari USB to Serial TTL Converter ini adalah :

- mudah penggunaan nya.

- praktis

- ekonomis

- kabel UpTo 1 meter.

- Baudrate teruji 300-57600

Bagi yang berminat untuk membeli USB TO SERIAL TTL CONVERTER ini dapat menghubungi saya di :

email : mirzadanu@ymail.com

atau Facebook : Mirza Dhanu/mirzadanu@gmail.com

atau juga COD disekitar area UGM Yogyakarta

DIJUAL MURAH MERIAH HANYA Rp. 40.000,- saja. Belum termasuk Ongkir.

Untuk pembelian 5 pcs atau lebih HANYA Rp. 35.000, - /Pcs.

Anda akan mendapatkan :

1 unit USB to Serial TTL Converter

1 unit CD berisi Driver, Tutorial Penggunaan, source code komunikasi serial.

1 Kemudahan untuk melakukan komunikasi serial untuk Tugas, Proyek, DLL.

hehehehee

Bagi yang memakai windows 7, dapat mendownload hyperterminal DISINI

Sekian Artikel Komunikasi Serial ATMega32 dengan USB to serial TTL Converter, mohon maaf apabila ada kesalahan semoga bermanfaat.

Bagaimana menurut Anda? Silahkan berkomentar.

Read More

Akses EEPROM internal ATMega32 dengan BASCOM AVR

2/07/2012 12:46:00 PM aplikasi mikrokontroler, BascomAVR, EEPROM, LCD, Mikrokontroler, Tutorial 3 Comments

Oke temen-temen, Akses EEPROM internal ATMega32 dengan BASCOM AVR kali ini saya akan menbagi pengetahuan seputar EEPROM, tentang bagaimana cara penggunaan nya, mulai dari menulis di EEPROM sampai Membaca di EEPROM.

Seperti yang kita tahu, ATMega32 memiliki fasilitas EEPROM internal sebesar 1024 byte, walaupun terbatas kapasitas memory nya akan tetapi sudah cukup untuk menyimpan data-data (dalam byte) tanpa harus mengkhawatirkan hilangnya data meskipun mikrokontroler tidak mendapatkan catu daya, atau mikrokontroler dalam keadaan non-aktif (mati).

Pada artikel Akses EEPROM internal ATMega32 dengan BASCOM AVR ini, akan saya bahas bagaimana cara menulis dan membaca data dalam EEPROM. Akses EEPROM internal ATMega32 dengan BASCOM AVR menggunakan LCD untuk menampilkan data yang akan masuk/dituliskan ke EEPROM dan data yang akan dibaca melalui EEPROM, sehingga kita akan mengetahui data yang ditulis dan dibaca EEPROM.

Data yang ditulis ke EEPROM merupakan data acak, dengan perintah/syntax dalam BASCOM AVR menggunakan ' RND( ) ' untuk menghasilkan data acak. 

misalkan RND(10) maka akan diperoleh data acak dari bilangan <=10.

Gambar 'Rangkaian', merupakan konfigurasi dari LCD yang saya gunakan : 

Rangkaian

Untuk listing program nya sebagai berikut :


'******************************************************************************
' Program tutorial akses EEPROM READ AND WRITE
' Mirza dhanu
' http://Goes-open.blogspot.com
'******************************************************************************

$regfile = "m32def.dat"
$crystal = 11059200

Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Lcdbus = 4
Config Lcd = 16 * 2
Cursor Off

Dim A As Byte , I As Byte , B As Byte

Cls
Locate 1 , 1
Lcd "goes-openblogspot"
Locate 2 , 1
Lcd "Visit us..."

Wait 3
Cls
Locate 1 , 1
Lcd "Tutorial EEPROM "
Locate 2 , 1
Lcd "Akses EEPROM"

Wait 3

Cls
Locate 1 , 1
Lcd "Write EEPROM.."
Locate 2 , 1
Lcd "Datanya="

For I = 0 To 9
Locate 2 , 9
B = Rnd(100)
Lcd B
Writeeeprom B , I
Wait 1
Next I

Locate 2 , 1
Lcd "write finish"
Wait 2

Locate 1 , 1
Lcd "Read EEPROM.."
Locate 2 , 1
Lcd "data ke-"

For I = 0 To 9
Locate 2 , 9
Readeeprom A , I
Lcd I ; "=" ; A
Wait 1
Next I

End
'-------------------------------------------------------------------------------------------------------------

Penjelasan listing :

Akses EEPROM internal ATMega32 dengan BASCOM AVR, disini saya akan mejelaskan hal-hal yang pokok saja karena sebagian penjelasan sudah saya jelskan pada postingan2 sebelumnya, terutama yang LCD karena disini LCD digunakan sebagai interface nya.

Pada bagian berikut ini

For I = 0 To 9
Locate 2 , 9
B = Rnd(100)
Lcd B
Writeeeprom B , I
Wait 1
Next I

I adalah variabel yang digunakan untuk menuliskan data dari 0 sampai 9, dari dara acak dalam perintah Rnd(100) yang kemudian ditampilan pada LCD dalam variabel B. 

Writeeeprom B , I : merupakan perintah untuk menulis ke EEPROM, B adalah variabel data, dari data acak sedangkan I adalah alamat masing-masing data tadi. 

For I = 0 To 9
Locate 2 , 9
Readeeprom A , I
Lcd I ; "=" ; A
Wait 1
Next I

program ini untuk pembacaan data-data yang sudah dituliskan pada EEPROM ( 10 bilangan acak dari 0 sampai 9). Readeeprom A , I membaca variabel data yang telah dituliskan pada alamat2 I.

Gampang bukan??? hehheehe

Download Artikel Disini
Download rangkaian dengan Simulasi Proteus Disini
Download Program dengan Bascom AVR disini

Sekian artikel Akses EEPROM internal ATMega32 dengan BASCOM AVR, mohon maaf apabila ada kesalahan, semoga bermanfaat. 

Bagaimana menurut Anda? silahkan beri komentar.

Read More

Akses Keypad Matrix 4x4 dengan Bascom AVR Menggunakan Mikrokontroler Atmega32

1/20/2012 06:17:00 PM aplikasi mikrokontroler, BascomAVR, button, Keypad Matrix, LCD, Mikrokontroler 3 Comments

Pada artikel Akses Keypad Matrix 4x4 dengan Bascom AVR Menggunakan Mikrokontroler  Atmega32, kita akan membahas tentang keypad matri

Keypad matrix merupakan sekumpulan tombol-tombol yang disusun secara matrix, yaitu dengan adanya baris dan kolom. Kelebihan dari keypad matrix ini adalah dapat menghemat Port mikrokontroler yang digunakan, misal pada mikrokontroler Atmega 32 digunakan PORTB untuk keypad matrix maka 4 port digunakan sebagai baris dan 4 lain digunakan sebagai kolom. Keypad matrix 4x4 yang artinya terdapat 4 baris dan 4 kolom tombol, dimana semua nya terdapat 16 tombol. 

Salah satu cara yang digunakan untuk mengakses keypad matrix adalah dengan cara scanning . Kenapa dengan cara scanning? karena dalam satu port digunakan untuk beberapa tombol secara bersamaan, dan tidak memungkinkan untuk mengecek dua atau lebih tombol dalam waktu bersamaan.

Proses scanning, adalah sebuah proses pengecekan yang dilakukan dengan cara memberikan pengumpanan data dan pengecekan umpan balik. Dalam hal ini umpan data menggunakan kolom dan umpan balik pada baris. Oleh karena itu untuk melakukan proses scanning maka mikrokontroler mengeluarkan 4 dari 8-bit dengan logika '0' dalam rangkaian keypad matrix pada gambar yaitu baris, dan lainnya untuk menguji jika ada tombol yang ditekan. Maka dalam rangkaian gambar keypad matrix selama tidak ada tombol yang ditekan maka mikrokontroler akan melihat logika '1' pada setiap port yang terhubung pada kolom.

Berikut rangkaian keypad matrix nya :

Keypad Matrix

Berikut listing program menggunakan BASCOM AVR :

--------------------------------------------------------------------------------------------------------------------------------------------------------------------

' Created by Mirza Dhanu Sulistya

' posting on 20 january 2012

$regfile = "m32def.dat"

$crystal = 11059200

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

Config Lcdbus = 4

Config Lcd = 16 * 2

Cursor Off

Config Kbd = Portd , Debounce = 20[ , Delay = 100]

Dim Keypad As Byte

Cls

Main:

Do

Keypad = Getkbd()

Locate 1 , 1

Lcd "Keypad Matrix"

Locate 2 , 1

Goto Label_tombol

Loop

Label_tombol:

Select Case Keypad

Case 0 : Lcd "tombol 0 ditekan"

Case 1 : Lcd "tombol 1 ditekan"

Case 2 : Lcd "tombol 2 ditekan"

Case 3 : Lcd "tombol 3 ditekan"

Case 4 : Lcd "tombol 4 ditekan"

Case 5 : Lcd "tombol 5 ditekan"

Case 6 : Lcd "tombol 6 ditekan"

Case 7 : Lcd "tombol 7 ditekan"

Case 8 : Lcd "tombol 8 ditekan"

Case 9 : Lcd "tombol 9 ditekan"

Case 10 : Lcd "tombol 10 ditkan"

Case 11 : Lcd "tombol 11 ditkan"

Case 12 : Lcd "tombol 12 ditkan"

Case 13 : Lcd "tombol 13 ditkan"

Case 14 : Lcd "tombol 14 ditkan"

Case 15 : Lcd "tombol 15 ditkan"

Case 16 : Lcd "Keypad blm dtekn"

End Select

Goto Main

-----------------------------------------------------------------------------------------------------------------------------------

Akses Keypad Matrix 4x4 dengan Bascom AVR Menggunakan Mikrokontroler  Atmega32 Sedikit penjelasannya program nya:
Karena beberapa syntax dan fungsi-fungsi sudah dijelaskan di beberapa postingan sebelumnya, maka disini aku tidak bahas lagi di Akses Keypad Matrix 4x4 dengan Bascom AVR Menggunakan Mikrokontroler  Atmega32.

Config Kbd = Portd , Debounce = 20[ , Delay = 100]

untuk mengkonfigurasi fungsi KBD pada portD, dan nilai debouncing sebesar 20 dengan tundaan sebesar 100 milisekon.

fungsi umum Confid KBD dalam BASCOM AVR sebagai berikut :

CONFIG KBD = PORTx , DEBOUNCE = value [, DELAY = value]
PORTx dimana letak port yang digunakan, untuk nilai debounce, default nya sebesar 20, untuk nilai maksimum nya 255, Delay, tundaan ini optional, bisa dipakai maupun tidak. parameter yang optional yang menyebabkan fungsi GETKBD() untuk menunggu waktu tertentu saat setelah keypad ditekan ( kurang lebih begitu penjelasan dari INDEX nya BASCO AVR hehheeehe )

Dim Keypad As Byte , mendeklarasikan variabel Keypad dengan tipe data BYTE.

Keypad = Getkbd() , berfungsi untuk scan keypad matrix dan mengembalikan nilai dari tombol yang ditekan.

Goto Label_tombol , untuk melompat ke label tertentu, dalam hal ini melompat ke label Label_tombol

Label_tombol: , label Label_tombol
Select Case Keypad, adalah instruksi operasi bersyarat menggunakan SELECT..CASE, yang diakhiri dengan END SELECT . Untuk mengetahui operator dalam BASCOM AVR, disini


Goto Main, lompat ke label MAIN


Untuk hasil simulasi pada proteus sebagai berikut :

Hasil

Sekian dulu artikel Akses Keypad Matrix 4x4 dengan Bascom AVR Menggunakan Mikrokontroler  Atmega32, mohon koreksi nya apabila ada salah kata, semoga bermanfaat buat semuanya. Terimakasih sudah berkunjung.

Read More

Akses LCD 16x2 dan ADC dengan Bascom AVR

1/16/2012 03:20:00 PM ADC, aplikasi mikrokontroler, BascomAVR, LCD, Mikrokontroler No Comments

Wah jumpa lagi nh, akhir nya bisa update postingan lagi nih.
OK,pada artikel Akses LCD 16x2 dan ADC dengan Bascom AVR aku mau bercerita tentang LCD dan fasilitas ADC pada mikrokontroler. apa itu LCD?
LCD atau Liquid Crystal Display, merupakan suatu display ( penampil ) berbahan cairan kristal yang dioperasikan menggunakan sistem dotmatriks. LCD banyak ditemui dibeberapa alat elektronik, seperti meltitester digital, kalkulator, jam digital, dan lain-lain. Nah, pada artikel Akses LCD 16x2 dan ADC dengan Bascom AVR, yang aku bahas menggunakan LCD 16x2 karakter. dengan maksud 16 kolom dan 2 baris pada LCD.

nah ini dia si LCD nya (gambar 1) :

Gambar 1. LCD display 16x2

Pin DB0 - DB7 merupakan Data bit dari LCD, DB0 merupakan data bit ke-0 (LSB) dan DB7 data bit ke-7 MSB. E merupakan enable, R/W : Read/Write untuk memilih mode baca atau tulis. RS : Register Select jika 0: Register instruksi 1:data instruksi, VEE : untuk mengatur kontras LCD, VDD suplay tegangan untuk LCD 5volt. VSS : GND.

Kemudian untuk ADC, ADC merupakan fasilitas dari mikrokontroler untuk mengkonversi dari data analog menjadi data digital. Untuk pembacaan data analog apa mikrokontroler Atmega32 menggunakan PORT A, yang mempunyai 8 channel ADC internal.
Langsung saja ke contoh aplikasi pembacaan ADC menggunakan display LCD :

Gambar 2. tes data ADC

ADC, dibaca pada PORTA.0 atau ADC channel 0, dari keluaran potensiometer 1K dan data yang telah diolah ditampilkan pada display LCD 16x2. untuk listing program nya dibawah ini :


$regfile = "m32def.dat"
$crystal = 12000000

Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Lcdbus = 4
Config Lcd = 16 * 2
Cursor Off

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Dim Dataadc As Word

Cls
Do

Dataadc = Getadc(0)
Locate 1 , 1
Lcd "Tes Nilai Adc"
Waitms 100
Locate 2 , 1
Lcd "Data ADC=" ; Dataadc

Loop

Akses LCD 16x2 dan ADC dengan Bascom AVR, penjelasan nya :


Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
pada baris ini digunakan untuk menghubungkan LCD ke port mikrokontroler


Config Lcdbus = 4        : baris ini digunakan untuk mendeklarasikan pin LCD yang tak terpakai
Config Lcd = 16 * 2     : baris ini digunakan untuk mendeklarasikan LCD yang dipakai yaitu 16X2
Cursor Off                    : menonaktifkan cursor pada LCD



Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Adc= single merupakan mode yang digunakan yaitu single. Prescaler = Auto, Sebuah konstanta numerik untuk pembagi jam, Gunakan AUTO untuk membiarkan kompilator menghasilkan nilai terbaik tergantung pada XTAL, hehee begitu penjelasan dalam index bascom AVR. 
start adc yang berarti memulai adc.


Dataadc = Getadc(0), baris ini merupakan pemanggilan nilai adc dari channel tertentu, dalam baris ini menggunakan chanel 0. dengan variabel dataadc yang dedeklarasikan sebagai WORD. untuk penjelasan mengenai tipe data dari Bascom AVR dapat dilihat disini


Locate 1 , 1                             : menampilkan karakter di lcd pada, baris 1 dan kolom 1
Lcd "Tes Nilai Adc"                 : menampilkan tulisan "Tes Nilai Adc"
Waitms 100                             : delay 100 ms
Locate 2 , 1                             : menampilkan karakter di lcd pada baris 2 kolom 1
Lcd "Data ADC=" ; Dataadc   : menampilkan data adc

Nahh, sekian dulu nih artikel Akses LCD 16x2 dan ADC dengan Bascom AVR . semoga bermanfaat dan mohon maaf apabila ada yang salah, dan mohon koreksi nya, heheehee

Read More