Shifting Led Menggunakan Bascom-Avr

Hai guys, kali ini ane mau bagi-bagi ilmu sedikit tentang Bascom. Walaupun ane baru belajar tapi kalo gak di share entar lupa. Bascom merupakan pemrograman bahasa basic yang banyak juga digunakan di dunia sebagai compiler untuk di upload ke mikrokontroler. Pada bahasan kali ini kita dapat membuat simulasi mikrokontroler dari proteus menggunakan ATmega16. Kita akan membuat Led bergeser dari kanan ke kiri. Rangkaian simulasi dapat dilihat pada gambar dibawah ini:

Gunakan skrip berikut ke Bascom bukan ember ya:

$regfile = "m16def.dat"

$crystal = 8000000

Led Alias PORTA

Config Led = Output

Const Speed = 100

Do

 Led = &B00000001

 Waitms Speed

 Led = &B00000010

 Waitms Speed

 Led = &B00000100

 Waitms Speed

 Led = &B00001000

 Waitms Speed

 Led = &B00010000

 Waitms Speed

 Led = &B00100000

 Waitms Speed

 Led = &B01000000

 Waitms Speed

 Led = &B10000000

 Waitms Speed

 Led = &B01000000

 Waitms Speed

 Led = &B00100000

 Waitms Speed

 Led = &B00001000

 Waitms Speed

 Led = &B00000100

 Waitms Speed

 Led = &B00000010

 Waitms Speed

Loop

Selamat belajar, Semoga bermanfaat..