BasicMicroUK - Forums

www.basicmicro.co.uk
It is currently Tue Apr 24, 2018 3:45 pm

All times are UTC [ DST ]




Post new topic Reply to topic  [ 2 posts ] 
Author Message
 Post subject: Persistance of vision (POV) sign
PostPosted: Sat Dec 19, 2009 5:43 am 
Offline
Citizen

Joined: Wed Nov 25, 2009 11:33 pm
Posts: 16
Location: Webster, NY
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


Attachments:
S IMG_7205.jpg
S IMG_7205.jpg [ 160.44 KiB | Viewed 4002 times ]
NANO SCHEMATIC.jpg
NANO SCHEMATIC.jpg [ 57.27 KiB | Viewed 4002 times ]
IMG_7208 legend.jpg
IMG_7208 legend.jpg [ 109.22 KiB | Viewed 4002 times ]
Top
 Profile  
 
 Post subject: Re: Persistance of vision (POV) sign
PostPosted: Sat Dec 19, 2009 9:29 am 
Offline
Master

Joined: Mon Aug 18, 2008 1:26 am
Posts: 799
Location: CA bay Area
TOO SLICK! :D
That's ill, marmitas! I can't wait to see the "improved version" photo!
You're the man! :P

_________________
kenjj
http://blog.basicmicro.com/
http://kjennejohn.wordpress.com/


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 2 posts ] 

All times are UTC [ DST ]


Who is online

Users browsing this forum: No registered users and 0 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Jump to:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group

phpBB SEO