Bueno, amigos del foro aqui les traigo otro aporte. A la hora de realizar un proyecto con visualizacion de caracteres, es necesario ver si se está o no haciendo un gasto innecesario. a lo que me refiero es a que talvez con algunos displays se puede lograr lo que se quiere, en vez de hacer un gasto innecesario comprando el LCD. (en venezuela cuasta aproximadamente 80BsF el de 16x2).
DE todas formas aqui
http://todopic.servepics.com/ se encuentran mas proyectos de ese tipo.
Video:
"
http://www.box.net/static/flash/box_explorer.swf?widget_hash=aoup06g4f0&v=0&cl=0"
Codigo:
program DISPLAYS_628A
DIM WW, X, M, K, Q AS WORD
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB PROCEDURE HAB1 ''habilitar display 1
PORTA = %00000001
END SUB
SUB PROCEDURE HAB2 ''habilitar display 2
PORTA = %00000010
END SUB
SUB PROCEDURE HAB3 ''habilitar display 3
PORTA = %00000100
END SUB
SUB PROCEDURE HAB4 ''habilitar display 4
PORTA = %00001000
END SUB
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB PROCEDURE DESHAB
PORTA = %00000000
END SUB
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB PROCEDURE H
PORTB = %10001001
END SUB
SUB PROCEDURE O
PORTB = %11000000
END SUB
SUB PROCEDURE L
PORTB = %11000111
END SUB
SUB PROCEDURE A
PORTB = %10001000
END SUB
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB PROCEDURE J
PORTB = %11100001
END SUB
SUB PROCEDURE S
PORTB = %10010010
END SUB
SUB PROCEDURE E
PORTB = %10000110
END SUB
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB PROCEDURE U
PORTB = %11000001
END SUB
SUB PROCEDURE N
PORTB = %10101011
END SUB
SUB PROCEDURE Y
PORTB = %10010001
END SUB
SUB PROCEDURE R
PORTB = %10101111
END SUB
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SUB PROCEDURE VALOR0
PORTB = %01000000
END SUB
SUB PROCEDURE VALOR1
PORTB = %01111001
END SUB
SUB PROCEDURE VALOR2
PORTB = %00100100
END SUB
SUB PROCEDURE VALOR3
PORTB = %00110000
END SUB
SUB PROCEDURE VALOR4
PORTB = %00011001
END SUB
SUB PROCEDURE VALOR5
PORTB = %00010010
END SUB
SUB PROCEDURE VALOR6
PORTB = %00000010
END SUB
SUB PROCEDURE VALOR7
PORTB = %01111000
END SUB
SUB PROCEDURE VALOR8
PORTB = %00000000
END SUB
SUB PROCEDURE VALOR9
PORTB = %00010000
END SUB
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
main:
TRISA = %11110000 ''PortA.0 hasta PortA.3 (activar displays)
TRISB = %00000000 ''Salidas para valores de los displays
WHILE TRUE
FOR WW = 1 TO 35
A
HAB1
DELAY_MS(5)
DESHAB
L
HAB2
DELAY_MS(5)
DESHAB
O
HAB3
DELAY_MS(5)
DESHAB
H
HAB4
DELAY_MS(5)
DESHAB
NEXT WW
FOR X = 1 TO 35
E
HAB1
DELAY_MS(5)
DESHAB
S
HAB2
DELAY_MS(5)
DESHAB
O
HAB3
DELAY_MS(5)
DESHAB
J
HAB4
DELAY_MS(5)
DESHAB
NEXT X
FOR M = 1 TO 105
Y
HAB1
DELAY_MS(5)
DESHAB
NEXT M
FOR K = 1 TO 35
O
HAB1
DELAY_MS(5)
DESHAB
R
HAB2
DELAY_MS(5)
DESHAB
E
HAB3
DELAY_MS(5)
DESHAB
U
HAB4
DELAY_MS(5)
DESHAB
NEXT K
FOR Q = 1 TO 70
A
HAB1
DELAY_MS(5)
DESHAB
J
HAB2
DELAY_MS(5)
DESHAB
A
HAB3
DELAY_MS(5)
DESHAB
J
HAB4
DELAY_MS(5)
DESHAB
NEXT Q
WEND
END.
Archivo adjunto: