Menghidupkan dan mematikan LED dengan pushbutton dengan bascom ~ Anak Muda yang Punya

Sabtu, 11 Februari 2012

01:26

Mas Kriw

kali ini, saya ngisi blog sama materi ringan dan dasar sekali

Menghidupkan dan mematikan LED dengan pushbutton

gak usah banyak pembukaan, langsung aja liat nih source code sama simulasinya #proteus

$regfile = "m32def.dat"

$crystal = 8000000

Config Porta = Output

Config Portc.0 = Input

Config Portc.1 = Input

Set Portc.0

Set Portc.1

Led Alias Porta

Tombol1 Alias Pinc.0

Tombol2 Alias Pinc.1

If Tombol1 = 0 Then

Bitwait Tombol1 , Set

Led = 0

End If

If Tombol2 = 0 Then

Bitwait Tombol2 , Set

Led = 255

End If

Loop

disini saya menggunakan crystal internal mikro, jadi nggak perlu masang2 deh, hehe

#di simulasi, kalau dalam keadaan sebenarnya, jangan

Posted in: tutorial

Unknown mengatakan...: kalau untuk menggeser nyala 15 led gimana cara menulis programnya bos?????; 24 Maret 2012 pukul 12.11
Mas Kriw mengatakan...: pake port sebelahnya atau pakai driver(shift register) bisa mas, ..; 26 Maret 2012 pukul 12.28
Anonim mengatakan...: mas, itu fungsi set dan bitwait buat apa ya? sudah aku simulasikan sukses, tapi belum paham maksud dari masing2 perintahnya...; 6 April 2012 pukul 18.42