Kamis, 08 Juli 2010

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..

11 komentar:

  1. bagaimana cara mensimulasikannya mas di bascom?untuk mengetahui program yang dibuat sudah benar?

    BalasHapus
  2. software Bascom sudah mempunyai fitur untuk mensimulasikan program yang kita buat.
    tinggal 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

    BalasHapus
  3. salam kenal mas browww....
    kalau untuk menggeser nyala 15 led secara berurutan,gimana cara penulisan programnya gan????

    BalasHapus
  4. gunain 2 port kalau mau nge running 15 led

    BalasHapus
  5. mas bro ... kalo mau lednya naik secara genap gimana y ??

    ex:2 4 8 sampe 255

    BalasHapus
  6. gunain aja do loop yang diselingi perkalian

    Dim x as byte
    x=2

    Do
    PortA = x
    Waitms 100
    x = x*2
    Loop until x = 256

    BalasHapus
  7. kalo buat biar text ny tiba" muncul cmna mas

    BalasHapus
  8. gimana klo di buat switch nya mas... gimana pula tuh listing program nya kirim kesini aja mas
    4defajr1@gmail.com
    makasih mas

    BalasHapus
  9. Mencoba memahami programnya -_-

    BalasHapus
  10. cara menyalakan di port B gmna programnya ya?

    BalasHapus
  11. Kalo program mematikan lampu pada jam 6 pagi menggunakan bascom avr gmna gan??

    BalasHapus

Silahkan tinggalkan komentar...