Sabtu, 31 Maret 2012 Running LED dengan BASCOM

Biarpun Teknik Elektro bukan jurusan saya, tapi g' da salahnya belajar ini,,

Berawal dari running LED/LED berjalan,,, mungkin ada dari reekan2 yang sudah mahir di bidang ini,,

Skematiknya dah tau kan, nih listingnya :

Chip yang digunakan ATMega 8 dan Crystal 12Mhz

$regfile = "m8def.dat"
$crystal = 12000000

Config Portd = Output

Do

'kanan
Portd = &B10000000
Waitms 150
Portd = &B01000000
Waitms 150
Portd = &B00100000
Waitms 150
Portd = &B00010000
Waitms 150
Portd = &B00001000
Waitms 150
Portd = &B00000100
Waitms 150
Portd = &B00000010
Waitms 150
Portd = &B00000001
Waitms 150

'kiri
Portd = &B00000010
Waitms 150
Portd = &B00000100
Waitms 150
Portd = &B00001000
Waitms 150
Portd = &B00010000
Waitms 150
Portd = &B00100000
Waitms 150
Portd = &B01000000
Waitms 150
Portd = &B10000000
Waitms 150

Loop
End

Karena masih tahap belajar, g' da masalah kan kalau pake biner dulu,, hehe...
* Kalau ada yang lebih mahir, ajarin saya ya, kursus juga g' pa2 lah,,