PRAKTIKUM MICRO LED BERJALAN

PERINTAH PROGRAM TANTANGAN

$regfile "m16def.dat"

$crystal = 1000000

Config Portb = Output

Dim A As Integer

Do

Portb = &B11111111

Waitms 500

Portb = &B00000000

Waitms 500

A = A + 1

Loop Until A = 2

Portb = &B00000001

Dim B As Integer

For B = 1 To 7

Waitms 500

Shift Portb , Left

Next

Waitms 500

Portb = &B00000000

End

CONTOH IMAGE PERCOBAAB