The photos and schematic make it self explanatory. The reason that the letters are too close is because I transferred the code from the Picaxe to the NANO and the processing speed is different (the NANO is faster).
After I took the picture I added a pause between the letters and they look better (my son borrowed the camera so I don't have a better picture).
The following is a sample of the code
Code:
;;; variable assignments ;;;
Change var nib
cero var nib
uno var nib
dos var nib
cinco var nib
seis var nib
siete var nib
Rep1 con 70
pause 500
DIRL = %00000001
OUTL = %00000000
MAIN
oninterrupt extint, Doit
setextint ext_h2l ; set for high to low transition on P0
enable extint ; enable the external interrupt
goto main
Doit ; Start generating characters for the first word
First
If dos <> REP1 then jump1
dos=0
Jump1
If uno=REP1 then Third 'Start third word
If cero=REP1 then Second 'Start second word
cero=cero+1
debug [dec change, cr] 'Update counter for the first word
If Change=1 then Changer 'To add fourth fifth and sixth words
debug [dec cero,dec uno, dec dos,cr]
pause 100
'******************** LETTER D
OUTL =%01111100 '5
OUTL =%10000010 '4
OUTL =%10000010 '3
OUTL =%10000010 '2
OUTL =%11111110 '1
OUTL =%00000000 '*********** SPACE
Pauseus 100
'******************** LETTER E
OUTL =%10000010 '5
OUTL =%10000010 '4
OUTL =%10010010 '3
OUTL =%10010010 '2
OUTL =%11111110 '1
OUTL =%00000000 '*********** SPACE
Pauseus 100
'******************** LETTER C
OUTL =%01000100 '5
OUTL =%10000010 '4
OUTL =%10000010 '3
OUTL =%10000010 '2
OUTL =%01111100 '1
OUTL =%00000000 '*********** SPACE
Pauseus 100
'******************** LETTER N
OUTL =%11111110 '5
OUTL =%00000100 '4
OUTL =%00111000 '3
OUTL =%01000000 '2
OUTL =%11111110 '1
OUTL =%00000000 '*********** SPACE
Pauseus 100
'******************** LETTER A
OUTL =%01111110 '1
OUTL =%10010000 '2
OUTL =%10010000 '3
OUTL =%10010000 '4
OUTL =%01111110 '5
OUTL =%00000000 '*********** SPACE
Pauseus 100
'******************** LETTER V
OUTL =%11110000 '5
OUTL =%00001100 '4
OUTL =%00000010 '3
OUTL =%00001100 '2
OUTL =%11110000 '1
OUTL =%00000000 '*********** SPACE
Pauseus 100
'******************** LETTER D
OUTL =%01111100 '5
OUTL =%10000010 '4
OUTL =%10000010 '3
OUTL =%10000010 '2
OUTL =%11111110 '1
OUTL =%00000000 '*********** SPACE
Pauseus 100
'******************** LETTER A
OUTL =%01111110 '1
OUTL =%10010000 '2
OUTL =%10010000 '3
OUTL =%10010000 '4
OUTL =%01111110 '5
OUTL =%00000000 '*********** SPACE
Pauseus 100
resume
Second 'Start second word
uno=uno+1 'Update counter for the second word
'******************** LETTER O
OUTL =%01111100
OUTL =%10000010
OUTL =%10000010
OUTL =%10000010
OUTL =%01111100
OUTL =%00000000 '*********** SPACE
Pauseus 100
'******************** LETTER R
OUTL =%01100010 '5
OUTL =%10010100 '4
OUTL =%10011000 '3
OUTL =%10010000 '2
OUTL =%01111110 '1
OUTL =%00000000 '0*********** SPACE
Pauseus 100
'******************** LETTER C
OUTL =%01000100 '5
OUTL =%10000010 '4
OUTL =%10000010 '3
OUTL =%10000010 '2
OUTL =%01111100 '1
OUTL =%00000000 '*********** SPACE
Pauseus 100
'******************** LETTER I
OUTL =%00000000
OUTL =%10000010
OUTL =%11111110
OUTL =%10000010
OUTL =%00000000
OUTL =%00000000 '*********** SPACE
Pauseus 100
'******************** M
OUTL =%11111110 '5
OUTL =%10000000 '4
OUTL =%01110000 '3
OUTL =%10000000 '2
OUTL =%11111110 '1
OUTL =%00000000 '*********** SPACE
Pauseus 100
resume
Third
dos=dos+1
If dos<>REP1 then jump2
uno=0
cero=0
jump2
' ***********************************Code for the third word
'................
'...............
If dos <> REP1 then jump6
Change=1
jump6
resume
'************************************Code the the fourth fifth and sixth words
'***********
Changer
If siete<>REP1 then Jump3
siete=0
Jump3
If seis=REP1 then Thirdd
If cinco=REP1 then Secondd
If Change=1 then Jump4
If Change<>1 then main '*******************************'line 213
Jump4
cinco = cinco+1
'..............................
if cinco<>REP1 then Jump5
Change=0
Jump5
resume
end
secondd
thirdd
Login
Register
FAQ
