Program Bascom AVR membuat LED Berjalan

Kali ini kita akan membahas bagaimana membuat program bascom AVR.

Pemograman Bascom AVR merupakan pemograman Mikrokontroler AVR menggunakan bahasa Basic.

Bahasa bascom AVR ini merupakan bahasa tingkat tinggi dari mikrokontroler yang mirip dengan  bahasa basic.

Tulisan saya tentang tutorial bascom AVR kali ini akan membahas tentang latihan membuat program AVR. P

ada tulisan saya sebelumnya kita telah membuat bagaimana membuat sebuah program LED berkedip, sekarang kita akan membuat bagaimana LED tersebut tampak berjalan.

Pada pemograman kali ini kita akan membuat bagaimana LED tersebut bergerak ke kiri. Latihan ini akan kita mulai dengan mempersiapkan semua komponen yang akan kita gunakan dalam membuat program LED berjalan ke kiri.

Adapun software maupun hardware yang akan dipersiapkan antara lain:

1. Aplikasi Bascom AVR yang sudah terinstall pada komputer
Anda bisa mendownload aplikasi BASCOM AVR di internet
2. Sistem minimum ATMega 8535
Anda bisa membeli sistem minimum ATMEGA 8535, jika tidak ingin merangkai rangkaian sistem minimum sendiri
3. Modul I/O Tombol dan LED
I/O Tombol dan LED bisa didapatkan di pasaran, jika anda tidak ingin membuatnya

Berikut gambar di bawah ini adalah rangkaian LED dan sistem minimum dari microcontroller ATMEGA 8535 yang digunakan pada pembuatan program LED berjalan ke kiri yang akan kita lakukan pada latihan kita kali ini. 

Dari gambar rangkaian di atas OUTPUT LED kita pasang pada Port C dari mikrokontroler ATMEGA 8535. Sedangkan Input switch pada modul I/O kita pasang pada Port A. Rangkaian bisa kita lihat pada gambar.

Berikut di bawah adalah program LED berjalan ke kiri, program ini anda buat pada aplikasi bascom AVR, setelah anda buat anda kompile dan upload ke ATMEGA 8535 menggunakan uploader:

Programnya adalah:

‘---------------------------------------------------------
'Deklarasi header
‘--------------------------------------------------------------
$regfile = "8535def.dat"
‘----------------------------------
‘Crystal
‘--------------------------------------------
$crystal = 4000000
‘----------------------------------
‘Deklarasi Variabel
‘--------------------------------------------
Dim output1 as byte
‘----------------------------------
‘Rutin utama
‘--------------------------------------------
output1 = 1
Portc =output1
Do
    wait 100             
    Rotate output1, Left, 1
    Portc = output1         
Loop
End

Penjelasan dari program di atas:

1. Tanda petik (')
Pada aplikasi bascom menjadikan karakter setelah tanda petik sebagai komentar
2. $regfile = "8535def.dat" 
Karena kita menggunakan ATMEGA 8535 maka variabel $regfile kita isi dengan "8535def.dat"
3. $crystal = 4000000 
Pada Rangkaian kita menggunakan kristal 4 MHz, maka variabel $crystal kita isi dengan nilai 4000000
4. Dim output1 as byte
output1 kita jadikan variabel dengan type byte
5. output1 = 1
Isi variabel output1 dengan nilai 1
6. Portc =output1 
Isi portc dengan nilai output1, jadi jika nilai outuput1 =1 pada perintah di atas. Maka isi dari portc adalah 1
7. Do ... Loop
Do ... Loop merupakan perintah kondisi untuk perulangan yang bisa anda pelajari pada situs ini. dengan judul Pengkondisian pada Bahasa BASCOM (Basic Compiler).Do .. Loop berarti melakukan perulangan secara terus menerus. Jadi perintah yang ada di dalam perulangan Do ..Loop ini akan dieksekusi secara terus menerus
8. wait 100
Perintah untuk menunggu selama 100 mili detik
9. Rotate output1, Left, 1  
Perintah Rotate di atas akan merotasi ke kiri variabel output1 sebesar 1 bit. Jika nilai output 128 dirotate ke kiri maka nilai output1 akan berubah menjadi 1 kembali
10. Portc = output1
Isi Port C dengan nilai variabel output1, perintah ini akan menghidupkan LED sesuai dengan byte yang terdapat pada variabel output1
11. End
Perintah End berguna untuk mengakhiri program bascom.

Setelah membuat program bascom avr, bagaimana membuat LED berjalan ke kiri. Sekarang kita akan membuat bagaimana LED berjalan ke kanan, pogram ini tetap digunakan dengan program bascom AVR, setelah anda buat program tersebut pada editor bascom lalu anda kompile dan setelah itu anda upload ke ATMEGA 8535 menggunakan uploader:

Programnya adalah:

‘---------------------------------------------------------
'Deklarasi header
‘--------------------------------------------------------------
$regfile = "8535def.dat"
‘----------------------------------
‘Crystal
‘--------------------------------------------
$crystal = 4000000
‘----------------------------------
‘Deklarasi Variabel
‘--------------------------------------------
Dim output1 as byte
‘----------------------------------
‘Rutin utama
‘--------------------------------------------
output1 =128
Portc =output1
Do
    wait 100             
    Rotate output1, Right, 1
    Portc = output1         
Loop
End

Penjelasan dari program di atas:

1. Tanda petik (')
Pada aplikasi bascom menjadikan karakter setelah tanda petik sebagai komentar
2. $regfile = "8535def.dat" 
Karena kita menggunakan ATMEGA 8535 maka variabel $regfile kita isi dengan "8535def.dat"
3. $crystal = 4000000 
Pada Rangkaian kita menggunakan kristal 4 MHz, maka variabel $crystal kita isi dengan nilai 4000000
4. Dim output1 as byte
output1 kita jadikan variabel dengan type byte
5. output1 = 128
Isi variabel output1 dengan nilai 128
6. Portc =output1 
Isi portc dengan nilai output1, jadi jika nilai outuput1 =128 pada perintah di atas. Maka isi dari portc adalah128
7. Do ... Loop
Do ... Loop merupakan perintah melakukan perulangan secara terus menerus. Jadi semua perintah yang terdapat di dalam perulangan Do ..Loop ini akan dikerjakan secara terus menerus oleh mikrokontroler
8. wait 100
Perintah menunggu selama 100 mili detik
9. Rotate output1, Right, 1  
Perintah Rotate di atas akan merotasi ke kanan isi variabel output1 sebesar 1 bit. Jika nilai output menjadi 1 dirotate ke kanan maka nilai output1 akan berubah menjadi 128 kembali
10. Portc = output1
Isi Port C dengan nilai variabel output1, perintah ini akan menghidupkan LED sesuai dengan byte yang terdapat pada variabel output1
11. End
Perintah End berguna untuk mengakhiri program bascom.

Setelah kita membuat program bascom avr, membuat LED berjalan ke kanan. Sekarang kita akan membuat bagaimana LED berjalan ke bolak balik yaitu berjalan kanan kemudian berjalan ke kiri, pembuatan pogram ini tetap menggunakan program bascom AVR, setelah anda buat program tersebut pada editor bascom lalu anda kompile dan upload ke ATMEGA 8535 menggunakan uploader, berikut cara memprogram microcontroller:


Berikut Programnya adalah:

‘---------------------------------------------------------
'Deklarasi header
‘--------------------------------------------------------------
$regfile = "8535def.dat"
‘----------------------------------
‘Crystal
‘--------------------------------------------
$crystal = 4000000
‘----------------------------------
‘Deklarasi Variabel
‘--------------------------------------------
Dim output1 as byte
‘----------------------------------
‘Rutin utama
‘--------------------------------------------
Do
output1 = 128
Portc =output1

    While output1 >=1
             wait 100             
             Rotate output1, Right, 1
             Portc = output1
    Wend
output1 =1
Portc =output1

    While output1 <=128
             wait 100             
             Rotate output1, Left, 1
             Portc = output1
    Wend    
Loop
End

Penjelasan dari program di atas:

1. Tanda petik (') pada aplikasi bascom menjadikan karakter setelah tanda petik sebagai komentar
a
2. $regfile = "8535def.dat" 
Karena kita menggunakan ATMEGA 8535 maka variabel $regfile kita isi dengan "8535def.dat"
3. $crystal = 4000000 
Pada Rangkaian kita menggunakan kristal 4 MHz, maka variabel $crystal kita isi dengan nilai 4000000
4. Dim output1 as byte
output1 kita jadikan variabel dengan type byte
5. output1 = 1
Isi variabel output1 dengan nilai 1
6. Portc =output1 
Isi portc dengan nilai output1, jadi jika nilai outuput1 =1 pada perintah di atas. Maka isi dari portc adalah 1
7. Do ... Loop
Do ... Loop merupakan perintah kondisi untuk perulangan yang bisa anda pelajari pada situs ini. dengan judul Pengkondisian pada Bahasa BASCOM (Basic Compiler).Do .. Loop berarti melakukan perulangan secara terus menerus. Jadi perintah yang ada di dalam perulangan Do ..Loop ini akan dieksekusi secara terus menerus
8. While output1 >=1 ... Wend
Perintah perulangan selama output1 bernilai lebih besar atau sama dengan 1 kerjakan perintah-perintah yang terdapat di dalam perulangan While ... wend
9. While output1 <=128 ... Wend
Perintah perulangan selama output1 bernilai lebih besar atau sama dengan 128 kerjakan perintah-perintah yang terdapat di dalam perulangan While ... wend
10. Rotate output1, Left, 1  
Perintah Rotate di atas akan merotasi ke kiri variabel output1 sebesar 1 bit.


11. Rotate output1, Right, 1
Perintah Rotate di atas akan merotasi ke kiri variabel output1 sebesar 1 bit.
12. wait 100
Perintah ini untuk menunggu selama 100 mili detik
13. End
Perintah End berguna untuk mengakhiri program bascom.

Program Bascom AVR membuat LED Berjalan 2016-02-22T02:01:00+07:00 Rating: 4.5 Diposkan Oleh: Dedy Fermana