Pages

Sabtu, 14 April 2012

Belajar Dot Matrix 4



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 = &B00000010
P2 = &B01111111
Waitms 250
P1 = &B00000100
P2 = &B01111111
Waitms 250
P1 = &B00001000
P2 = &B01111111
Waitms 250
P1 = &B00010000
P2 = &B01111111
Waitms 250
P1 = &B00100000
P2 = &B01111111
Waitms 250
P1 = &B01000000
P2 = &B01111111
Waitms 250
P1 = &B10000000
P2 = &B01111111
Waitms 250

P1 = &B10000000
P2 = &B10111111
Waitms 250
P1 = &B10000000
P2 = &B11011111
Waitms 250
P1 = &B10000000
P2 = &B11101111
Waitms 250
P1 = &B10000000
P2 = &B11110111
Waitms 250
P1 = &B10000000
P2 = &B11111011
Waitms 250
P1 = &B10000000
P2 = &B11111101
Waitms 250
P1 = &B10000000
P2 = &B11111110
Waitms 250
P1 = &B01000000
P2 = &B11111110
Waitms 250
P1 = &B00100000
P2 = &B11111110
Waitms 250
P1 = &B00010000
P2 = &B11111110
Waitms 250
P1 = &B00001000
P2 = &B11111110
Waitms 250
P1 = &B00000100
P2 = &B11111110
Waitms 250
P1 = &B00000010
P2 = &B11111110
Waitms 250
Loop

3 komentar:

Silahkan berkomentar !