tutorial akses tombol push button aktifkan led bascom avr isis proteus

tutorial ini adalah tutorial yang kedua, kalau teman-teman belum melihat tutorial yang pertama bisa klik disini .

apabila ada pertanyaan silakan hubungi kami sarpinto elektronika kota malang

 

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


Config Portb.0 = Output

Config Portd.7 = Input

Portd.7 = 1


Do

If Pind.7 = 0 Then

Do
Portb.0 = 1
Waitms 100
Portb.0 = 0
Waitms 100
Loop Until Pind.7 = 1

Else
Portb.0 = 0
End If



Loop

End                                                         'end program