Running led / led berjalan dengan bascom avr dan at mega 32 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Gambar skema rangkaian  Running led / led berjalan  dengan bascom avr dan at mega 32

Source code bascom avr  Running led / led berjalan  dengan bascom avr dan at mega 32

$regfile = "m32.dat"

$crystal = 16000000

Ddrc = &B11111111

Do

Portc = &B11111110

Waitms 500

Portc = &B11111101

Waitms 500

Portc = &B11111011

Waitms 500

Portc = &B11110111

Waitms 500

Portc = &B11101111

Waitms 500

Portc = &B11011111

Waitms 500

Portc = &B10111111

Waitms 500

Portc = &B01111111

Waitms 500

Loop

End