Membuka dan menutup LED dengan bahasa Basic

kali ini, saya memakai crystal internal

pada bascom, tidak ada yang harus di ganti, kecuali menyesuaikan nilai crystal yang ada.

yang harus di ganti aalah pada simulasi proteusnya

animasi tetap sama, menggunakan 8 Led pada portA

$regfile = "m32def.dat"

$crystal = 8000000

Config Porta = Output

Led Alias Porta

Do

Led = &B00000000

Waitms 100

Led = &B00011000

Waitms 100

Led = &B001111100

Waitms 100

Led = &B011111110

Waitms 100

Led = &B11111111

Waitms 100

Loop

Related Post

Artikel Terkait Lainnya :

Posted in: tutorial