Portal    Foro    Talleres    Buscar    FAQ    Registrarse    Conectarse
Publicar Nuevo Tema  Responder al Tema Página 1 de 1
 
"LED POV" PERSISTENCE OF VISION
Autor Mensaje
Responder Citando  
Mensaje "LED POV" PERSISTENCE OF VISION 
 
Salu2 gente forera, pues en esta oportunidad les traigo una aplicación relativamente sencilla y muy llamativa:
 
Se trata del proyecto: "POV", que significa PERSISTENCE OF VISION, que se esta haciendo cada vez mas conocido en Internet; utiliza el mismo truquillo de las matrices de leds, es decir la "MULTIPLEXACIÓN". Y que además ya se están haciendo variantes y aplicaciones de este mismo como el "PROPELLER CLOCK".
 
Pues es un miniproyecto que fue implementado por un compañero de la universidad (Azabache Nazario Robert="Mochecristo"  Mr. Orange ), y pues tuve la suerte de que su implementación callera en mis manos  Twisted Evil  para darle vida  Laughing  Laughing  Laughing



PERSISTENCE OF VISION "POV" - TEST1:



VIDEO:




CÓDIGO en PicBasic PLUS:
'****************************************************************
'*  Name    : PRUEBA POV.BAS                                    *
'*  Author  : Robo3001                                          *
'*  Notice  : Copyright (c) 2009  All Rights Reserved           *
'*  Date    : 01/09/2009                                        *
'*  Version : 1.0                                               *
'****************************************************************

DEFINE LOADER_USED 1     'Bootloader Used
DEFINE OSC 20            'cristal de 20 mhz

'defino el bus i2c para comunicar el pic con el ds1307
DEFINE SDA_PIN PORTC.0   'decalro que pins del pic van
DEFINE SCL_PIN PORTC.1   'a ser SDA=datos Y SCL=reloj

ADCON1=  7               'puertos digitales
TRISA =  0               'se define como puerto de salida
TRISB =  0               'se define como puerto de salida
TRISC = 255              'se define como puerto de entrada
TRISD =  0               'se define como puerto de salida
TRISE =  0               'se define como puerto de salida

SYMBOL  LED1 = PORTB     'le damos al puerto un nombre
SYMBOL  LED2 = PORTD     'ahora los llamaremos ledx
SYMBOL  LED3 = PORTA
SYMBOL  LED4 = PORTE

LED1 = 0                 'ponemos en condiciones iniciales
LED2 = 0                 'todos los puertos de salida a cero    
LED3 = 0
LED4 = 0

PORTA.4=1

T VAR WORD
S VAR WORD

T=2200
S=5900

INICIO:
    LED2 =  0
    PAUSE  49
        
HOLA:

    LED2 = 126           '01111110
    PAUSEus   T  
    LED2 = 144           '10010000
    PAUSEus   T            
    LED2 = 144           '10010000
    PAUSEus   T
    LED2 = 144           '10010000
    PAUSEus   T
    LED2 = 126           '01111110
    PAUSEus   T
    LED2 =  0
    PAUSEus   S

    LED2 =  2            '00000010
    PAUSEus   T  
    LED2 =  2            '00000010
    PAUSEus   T
    LED2 =  2            '00000010
    PAUSEus   T
    LED2 =  2            '00000010
    PAUSEus   T
    LED2 =  254          '11111110
    PAUSEus   T
    LED2 =  0
    PAUSEus   S

    LED2 = 124           '01111100
    PAUSEus   T  
    LED2 = 130           '10000010
    PAUSEus   T            
    LED2 = 130           '10000010
    PAUSEus   T
    LED2 = 130           '10000010
    PAUSEus   T
    LED2 = 124           '01111100
    PAUSEus   T
    LED2=   0
    PAUSEus   S
    
    LED2 = 254           '11111110
    PAUSEus   T          
    LED2 = 16            '00010000
    PAUSEus   T
    LED2 = 16            '00010000
    PAUSEus   T
    LED2 = 16            '00010000
    PAUSEus   T
    LED2 = 254           '11111110
    PAUSEus   T
    LED2 =  0
    PAUSEus   S
            
    GOTO    hola    




PERSISTENCE OF VISION "POV" - TEST2:



VIDEO:






PERSISTENCE OF VISION "POV" - TEST3:



VIDEO:




CÓDIGO En MikroC PRO 2009:
  




____________
En la vida no siempre gana el hombre mas fuerte o el mas ligero, sino el que cree poder hacerlo.
Desconectado Ver perfil del usuario Enviar Mensaje Privado Visitar sitio Web del Usuario MSN Messenger
Descargar Mensaje Volver arriba Página Inferior
AQUÍ PUEDE IR TU PUBLICIDAD
Responder Citando  
Mensaje Re: PERSISTENCE OF VISION "POV" 
 
Hola robot muy chevere la iniciativa que voz tenes, a mi me enseñaron que dios esta en todas partes... jejeje, bueno sabes yo basic para pic nunca he usado eso, pero si para D.O.S(microsoft venia por defecto), asi que tengo idea del basic y puedo hacer la nalogia para entender tu codigo pero una cosa, no tengo el compilador para PIC-BASIC... solo CCS y MPLAB...
  



Desconectado Ver perfil del usuario Enviar Mensaje Privado
Descargar Mensaje Volver arriba Página Inferior
Responder Citando  
Mensaje Re: PERSISTENCE OF VISION "POV" 
 
Revisa mejor el código en C que esta adjunto el código en Basic solo es para un demo simple. Bueno en C use MikroC PRO 2009, si colocas en buscar en el foro, he hecho unos videos Tutoriales y también publique un libro en ingles pirateado. Mr. Orange
  




____________
En la vida no siempre gana el hombre mas fuerte o el mas ligero, sino el que cree poder hacerlo.
Desconectado Ver perfil del usuario Enviar Mensaje Privado Visitar sitio Web del Usuario MSN Messenger
Descargar Mensaje Volver arriba Página Inferior
Responder Citando  
Mensaje Re: PERSISTENCE OF VISION "POV" 
 
MikroC PRO 2009 2.50: http://rapidshare.com/files/2693760..._2009_v2.50.rar
Libro de MKCP2009     : http://rapidshare.com/files/2667987...amming_in_C.rar

COPILADOR PICBASIC: http://rapidshare.com/files/234984033/PIC_BASIC.rar
  




____________
En la vida no siempre gana el hombre mas fuerte o el mas ligero, sino el que cree poder hacerlo.
Desconectado Ver perfil del usuario Enviar Mensaje Privado Visitar sitio Web del Usuario MSN Messenger
Descargar Mensaje Volver arriba Página Inferior
Responder Citando  
Mensaje Re: PERSISTENCE OF VISION "POV" 
 
Hola robo3001 ... el libro MKCP2009 me pide contraseña ...  Embarassed puedes ponerla Razz  .... tanks
  



Desconectado Ver perfil del usuario Enviar Mensaje Privado MSN Messenger
Descargar Mensaje Volver arriba Página Inferior
Responder Citando  
Mensaje Re: PERSISTENCE OF VISION "POV" 
 
demonjeff Escribió: [Ver Mensaje]
Hola robo3001 ... el libro MKCP2009 me pide contraseña ...  Embarassed puedes ponerla Razz  .... tanks


Aquí esta todo: Jump
  




____________
En la vida no siempre gana el hombre mas fuerte o el mas ligero, sino el que cree poder hacerlo.
Desconectado Ver perfil del usuario Enviar Mensaje Privado Visitar sitio Web del Usuario MSN Messenger
Descargar Mensaje Volver arriba Página Inferior
Responder Citando  
Mensaje Re: "LED POV" PERSISTENCE OF VISION 
 
hola amigos de Robots Perú bueno pz volviendo nuevamente a las andadas y bueno les presento mi display pov  Laughing  siempre tuve la curiosidad de como hacer uno y acabo de terminar el mio aunq en el video solo es de unos pocos segundos por que recien son las primeras pruebas.
Video en Youtube

CMCON = 7
TRISB=0
TRISA=%00000111

SACA VAR BYTE
DATO VAR BYTE

PORTB=0
PROGRAMA:
    IF PORTA.1=0 THEN
        GOSUB MEN
    ELSE
        PORTB=0
    ENDIF
    GOTO PROGRAMA
    
MEN:
    FOR SACA=0 TO 46
    lookup SACa,[8,17,0,17,0,15,0,1,0,1,0,0,0,31,0,21,0,21,0,21,0,17,0,0,0,31,0_
    ,5,0,5,0,5,0,1,0,0,0,31,0,5,0,5,0,5,0,1,0],dato
    PORTB=DATO
    PAUSEus 250
    NEXT SACA
RETURN
END


bueno aunque no soy experto en programacion en PBP bueno quisiera que alguien me ayude con una duda que tengo ... cuando yo creo array por ejemplo un codigo que vi de guillermo:

arrow var byte

arrow[0] =%11111111
arrow[1] =%11111111
arrow[2] =%11111111
arrow[3] =%11100111
arrow[4] =%11000011
arrow[5] =%10000001   'en este array se almacena
arrow[6] =%11000011   'los datos que van a generar
arrow[7] =%11000011   'la multiplexacion de una flecha
arrow[8] =%11000011   'la cual se va a usar para describir
arrow[9] =%11000011   'el tipo de efecto del panel
arrow[10]=%11000011
arrow[11]=%11000011
arrow[12]=%11000011
arroW[13]=%11111111
arrow[14]=%11111111
arrow[15]=%11111111
' aqui como puedo hacer para que los arrow muestren uno por uno???
inicio:
          portb=arrow[¿?]
          pause 100
end

bueno como esta en el codigo ejemplo ... como puedo hacer para que los arrow salgan uno por uno, espero que me puedan ayudar y bueno si alguno se anima a hacer le adjunto archivo PBC.

bueno me despido
atte. Jeff A. L.
  



Desconectado Ver perfil del usuario Enviar Mensaje Privado MSN Messenger
Descargar Mensaje Volver arriba Página Inferior
Mostrar mensajes anteriores:
Publicar Nuevo Tema  Responder al Tema   Página 1 de 1
 

Usuarios navegando en este Tema: 0 Registrados, 0 Ocultos y 0 Invitados
Usuarios Registrados conectados: Ninguno


 
Lista de Permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No Puede descargar archivos
Puede enviar eventos al Calendario