Program Running Led dengan Bascom AVR
Program Running led adalah program sederhana yang mudah dibuat dan dimengerti. Dalam program running led kita menggunakan 8 buah led yang dihubungkan dengan secara parallel, seperti gambar dibawah ini
Gambar diatas belum termasuk system minimum mikrokontroler ATMEGA 8535, jadi silahkan dibuat system minimumnya terlebih dahulu. Dari gambar kita lihat led terhubung pada PORTA, dari PORTA.0 – PORTA.7. led dihubungkan secara parallel dengan masing-masing kutub katoda led semuanya terhubung ke ground. Artinya led akan hidup jika logika pada PORTA [high], rangkaian parallel led tersebut biasa disebut dengan common katoda.
Berikut Listing Programnya:
$regfile = “m8535.dat”
$crystal = 12000000
Dim x as byte
Do
PortA= 1
Waitms 100
For x = 1 to 8
Shift PortA, Left,1
Waitms 100
Next
Loop
Penjelasan Program
Dua baris pertama dalam program menunjukkan mikrokontroler yang kita gunakan dan crystal osilator yang kita pakai. PortA = 1 berarti logika pada PortA = 00000001 artinya hanya PortA.0 yang berlogika 1. For x = 1 to 8 berarti aka nada perulangan sebanyak 8 kali. Perintah shift PortA, Left, 1 digunakan untuk merotasi nilai bit pada portA sebanyak 1 kali kekiri.
Coba anda simulasikan Program ini menggunakan simulasi pada BASCOM AVR.
Selamat Mencoba…
Salam santun..
Gambar diatas belum termasuk system minimum mikrokontroler ATMEGA 8535, jadi silahkan dibuat system minimumnya terlebih dahulu. Dari gambar kita lihat led terhubung pada PORTA, dari PORTA.0 – PORTA.7. led dihubungkan secara parallel dengan masing-masing kutub katoda led semuanya terhubung ke ground. Artinya led akan hidup jika logika pada PORTA [high], rangkaian parallel led tersebut biasa disebut dengan common katoda.
Berikut Listing Programnya:
$regfile = “m8535.dat”
$crystal = 12000000
Dim x as byte
Do
PortA= 1
Waitms 100
For x = 1 to 8
Shift PortA, Left,1
Waitms 100
Next
Loop
Penjelasan Program
Dua baris pertama dalam program menunjukkan mikrokontroler yang kita gunakan dan crystal osilator yang kita pakai. PortA = 1 berarti logika pada PortA = 00000001 artinya hanya PortA.0 yang berlogika 1. For x = 1 to 8 berarti aka nada perulangan sebanyak 8 kali. Perintah shift PortA, Left, 1 digunakan untuk merotasi nilai bit pada portA sebanyak 1 kali kekiri.
Coba anda simulasikan Program ini menggunakan simulasi pada BASCOM AVR.
Selamat Mencoba…
Salam santun..
0 komentar:
Posting Komentar