Belajar Dot Matrix 3

Schematic :

 

Code List :

$regfile = "reg51.dat"
$crystal = 12000000
Do
P1 = &B00000001
P2 = &B11111110
Waitms 250
P1 = &B00000001
P2 = &B11111101
Waitms 250
P1 = &B00000001
P2 = &B11111011
Waitms 250
P1 = &B00000001
P2 = &B11110111
Waitms 250
P1 = &B00000001
P2 = &B11101111
Waitms 250
P1 = &B00000001
P2 = &B11011111
Waitms 250
P1 = &B00000001
P2 = &B10111111
Waitms 250
P1 = &B00000001
P2 = &B01111111
Waitms 250
P1 = &B00000001
P2 = &B10111111
Waitms 250
P1 = &B00000001
P2 = &B11011111
Waitms 250
P1 = &B00000001
P2 = &B11101111
Waitms 250
P1 = &B00000001
P2 = &B11110111
Waitms 250
P1 = &B00000001
P2 = &B11111011
Waitms 250
P1 = &B00000001
P2 = &B11111101
Waitms 250
Loop