Pengenalan BASCOM AVR

Dalam contoh ini kita akan berlatih merubah kongifurasi BASCOM AVR sesuai dengan minsys AVR yang kita gunakan dan membuat program sederhana untuk menyalakan LED, menggeser nyala LED dan

membaca penekanan tombol.

1. Membuat Project Baru:

 Klik File—>New2.Menentukan konfigurasi sistem(chip, baudrate, I/O dll.):

A. Options—> Compiler



B. Chip: menentukan chip AVR yang digunakan, karena saya memakai DI-Smart AVR 16 maka saya gunakan m16def.dat

C.Options—>Programmer: menentukan jenis programmer/downloader yang digunakan. Di sini saya menggunakan usb downloader dengan firmware AVR910.



3. Test setting programmer:

untuk mengetahui settning programmer udah sesuai apa belum klik Program—>Send to Chip—> Manual Program



Pilih Chip—>Identify. Jika setting sudah benar maka akan tampil jenis chip yang kita gunakan dan propertiesnya





 

 

4. Membuat code program untuk menggeser nyala LED ke kanan:

$regfile = "m16def.dat"

$crystal = 11059200

Config Portc = Output

Portc = &B1111_1110

Do

Rotate Portc , Right , 1

Waitms 500

Loop

End

Tekan F7 untuk men COMPILE.

Jika tidak ada ERROR tekan F4, lalu pilih ERASE and PROGRAM CHIP





Gambar di atas adalah tampilan program saat di running.

A. Pembahasan program:

$regfile = "m16def.dat"

Menentukan chip AVR yang kita gunakan, saya menggunakan ATMEGA16. Menggunakan chip AVR yang lain harus merubah baris ini dan juga konfigurasi compiler yang dibahas pada point 2.B.

Misal kita menggunakan ATMEGA8 maka kita tulis $regfile = "m8def.dat"

$crystal = 11059200

Nilai yang diisikan disini sesuai crystal/ xtal yang dipakai. Saya menggunakan crystal 11,0592MHz.

Config Portc = Output

PORTC di gunakan sebagai output. Saya menggunakan PORTC sebagai output karena LED-LED di board SMART AVR 16 SYSTEM terhubung ke PORTC

Portc = &B1111_1110

Nilai PORTC di set ke 1111 1110. Ini berarti PORTC.7—PORTC.1 nilainya = 1=high=5volt.

Sedangkan POTC.0 nilainya = 0 = low = 0 volt.

Berarti LED yang terhubung ke PORTC.0 akan menyala. Perlu diketahui LED-LED pada board Smart AVR System dirangkai active low artinya jika di beri Logic Low / teg. 0 volt maka LED akan active/menyala.

Do

Rotate Portc , Right , 1

Waitms 500

Loop

End

Baris-baris program yang berada di antara Do --- Loop merupakan baris –baris program utama/ main program yang akan di kerjakan terus menerus.

Rotate Portc , Right , 1

Menggeser nilai pada PORTC ke KANAN sebanyak 1kali. Di awal program nilai PORTC di set ke 1111_1110 jika digeser kekanan 1 kali maka nilainya menjai 0111_1111 berarti PORTC.7 =Low= 0 volt sehingga LED yang terhubung ke port ini akan menyala.

Waitms 500

Delay 500ms, selama waktu ini microcontroller tidak melakukan apa2.

Loop

Perintah untuk mengulang program ke baris DO, sehingga program untuk menggeser LED akan dijalankan terus.

 

5. Membuat code program untuk membaca tombol

Program ini bertujuan untuk membaca penekanan tombol untuk merubah nyala led.

Pada board Smart AVR System Tombol 1 terhubung ke PIND.2, Tombol 2 terhubung ke PIND.3

Jika tombol 1 ditekan maka nyala LED akan begeser ke kanan.

Jika tombol 2 ditekan maka nyala LED akan bergeser ke ke kiri

$regfile = "m16def.dat"

$crystal = 11059200

Config Portd.2 = Input 

Config Portd.3 = Input

Portd.2 = 1

Portd.3 = 1

Config Portc = Output

Portc = &B1111_1110

Do

If Pind.2 = 0 Then Rotate Portc , Right , 1

If Pind.3 = 0 Then Rotate Portc , Left , 1

Waitms 500

Loop

End

Tekan F7 untuk men COMPILE.

Jika tidak ada ERROR tekan F4, lalu pilih ERASE and PROGRAM CHIP

A. Pembahasan program:

Config Portd.2 = Input

Config Portd.3 = Input

PORTD.2 dan PORTD.3 di setting sebagai input

Portd.2 = 1

Portd.3 = 1

Memberi nilai 1/ high pada PORTD.2 dan PORTD.3, karena sebelumnya port-port ini disetting sebagai input maka baris program ini akan mengaktifkan internal pull up. Jika internal pull up tidak diaktfikan maka kondisi port input akan mengambang menyebabkan nilai pembacaan kacau.

If Pind.2 = 0 Then Rotate Portc , Right , 1

Jika PIND.2 = 0 maka PORTC akan di geser ke kanan 1kali. PIND.2 akan bernilai 0 jika tombol 1 ditekan.

If Pind.3 = 0 Then Rotate Portc , Left , 1

Jika PIND.3 = 0 maka PORTC akan di geser ke kiri 1kali. PIND.3 akan bernilai 0 jika tombol 2 ditekan.