MEMBUAT PROGRAM LED BERJALAN DENGAN BASCOM AVR

Kita akan membuat led berjalan 2 kali ke kiri dan dua kali ke kanan secara berulang, berikut program pada bascom avrnya:

$regfile = "m32def.dat"

$crystal = 8000000

Config Porta = Input

Config Portb = Output

Tombol Alias Pina.0

Lampu Alias Portb

Porta = &B00000000

Dim X As Byte

Do

If Tombol = 1 Then

For X = 1 To 2

Lampu = &B00000001

Waitms 100

Lampu = &B00000010

Waitms 100

Lampu = &B00000100

Waitms 100

Lampu = &B00001000

Waitms 100

Lampu = &B00010000

Waitms 100

Lampu = &B00100000

Waitms 100

Lampu = &B01000000

Waitms 100

Lampu = &B10000000

Waitms 100

Next

For X = 1 To 2

Lampu = &B10000000

Waitms 100

Lampu = &B01000000

Waitms 100

Lampu = &B00100000

Waitms 100

Lampu = &B00010000

Waitms 100

Lampu = &B00001000

Waitms 100

Lampu = &B00000100

Waitms 100

Lampu = &B00000010

Waitms 100

Lampu = &B00000001

Waitms 100

Next

End If

Loop

Pembahasan Program :

$regfile = "m32def.dat"  library yang menyatakan bahwa mikrokontroller yang kita pakai adalah atmega32,

$crystal = 8000000  meyatakan bahwa clock oscillator yang kita pakai sebesar 8Mhz,

Config Porta = Input pengkonfigurasian bahwa porta menjadi input

Config Portb = Output pengkonfigurasian bahwa porta menjadi output

Porta = &B00000000 menyatakan bahwa keadaan awal pada portb semuanya logic low(0)

Tombol Alias Pina.0 = inisialisasi bahwa tombol adalah dipina.0

Lampu Alias Portb = inisialisasi bahwa lampu adalah portb

Dim X As Byte = pendeklarasian bahwa variable X adalah tipe byte dimana rangenya adalah 0-255,

Do-loop = perintah perulangan,

If Tombol = 1 Then menyatakan jika tombol =1 /logic high maka

For X = 1 To 2 yang menyatakan perulangan 2 kali,

Lampu = &B00000001 ini bearti led paling kanan / led 1 hidup

Waitms 100        dengan delay 100 milisecond