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..
bagaimana cara mensimulasikannya mas di bascom?untuk mengetahui program yang dibuat sudah benar?
BalasHapussoftware Bascom sudah mempunyai fitur untuk mensimulasikan program yang kita buat.
BalasHapustinggal tekan F2
tapi simulasi dengan Bascom kelemahannya waktu delay nya tidak terlalu tepat..
untuk simulasi lebih baik menggunakan software proteus, untuk membuat programnya bisa gunakan bascom
salam kenal
salam kenal mas browww....
BalasHapuskalau untuk menggeser nyala 15 led secara berurutan,gimana cara penulisan programnya gan????
gunain 2 port kalau mau nge running 15 led
BalasHapusmas bro ... kalo mau lednya naik secara genap gimana y ??
BalasHapusex:2 4 8 sampe 255
gunain aja do loop yang diselingi perkalian
BalasHapusDim x as byte
x=2
Do
PortA = x
Waitms 100
x = x*2
Loop until x = 256
kalo buat biar text ny tiba" muncul cmna mas
BalasHapusgimana klo di buat switch nya mas... gimana pula tuh listing program nya kirim kesini aja mas
BalasHapus4defajr1@gmail.com
makasih mas
Mencoba memahami programnya -_-
BalasHapuscara menyalakan di port B gmna programnya ya?
BalasHapusKalo program mematikan lampu pada jam 6 pagi menggunakan bascom avr gmna gan??
BalasHapus