- Tema Autor
- #1
Hola¡
Nesesito ayuda para hacer funcionar un letrero luminoso movil de steren
La verdad ando medio perdido en esto de los micro controladores
y requiero ayuda
El isntructivo dice en la parte de software asi
program POV_3
' *** programa para microcontrolador PIC16F628A
' *** version6_nov 2010 // original JCM // mesys.com.mx
' ***** abc de los microcontroladores *****
' ***** IMPORTANTE, editar proyecto con la opción
' ***** oscillator seleccionar INTOSC
' ***** master clear enable seleccionar disable
‘ ***** Editado y compilado con mikrobasic versión 4.15
symbol sensor = PortA.1
main:
cmcon=7 ' inicialización del PIC
trisb = %00000000
trisa = %00000010
portb=0'// se declara una constante de 70 elementos, y en los elementos se
guardan los
'//valores de cada segmento de letra, los valores deben escribirse en un solo
renglón.
const luces as byte [70] =
($00,$00,$00,$00,$00,$00,$00,$72,$FB,$DB,$DB,$DB,$DF,$4E,$00,$00,$00,$40,$C0,$C0,$FF
,$FF,$C0,$C0,$C0,$00,$00,$00,$FF,$FF,$DB,$DB,$DB,$C3,$00,$00,$00,$FF,$FF,$D8,$D8,$DC
,$FE,$73,$01,$00,$00,$00,$FF,$FF,$DB,$DB,$DB,$C3,$00,$00,$00,$FF,$FF,$70,$38,$1C,$FF
,$FF,$00,$00,$00,$00 )
dim i as byte
dim CT1 as BYTE
T1 = 0
sinc:
if sensor = 1 then 'los leds prenden hasta que reciban señal IR
goto sinc
end if
FOR i= 0 to 70
for CT1 = 0 to 3 'determina el ancho de la letra
portb = luces
delay_us (75)
portb= 0
delay_us (30)
next CT1
next i x
Osea eso si lo puedo hecer el problema es de como lo paso al PIC ¿¿¿¿¿¿¿
Nesesito ayuda para hacer funcionar un letrero luminoso movil de steren
La verdad ando medio perdido en esto de los micro controladores
y requiero ayuda
El isntructivo dice en la parte de software asi
program POV_3
' *** programa para microcontrolador PIC16F628A
' *** version6_nov 2010 // original JCM // mesys.com.mx
' ***** abc de los microcontroladores *****
' ***** IMPORTANTE, editar proyecto con la opción
' ***** oscillator seleccionar INTOSC
' ***** master clear enable seleccionar disable
‘ ***** Editado y compilado con mikrobasic versión 4.15
symbol sensor = PortA.1
main:
cmcon=7 ' inicialización del PIC
trisb = %00000000
trisa = %00000010
portb=0'// se declara una constante de 70 elementos, y en los elementos se
guardan los
'//valores de cada segmento de letra, los valores deben escribirse en un solo
renglón.
const luces as byte [70] =
($00,$00,$00,$00,$00,$00,$00,$72,$FB,$DB,$DB,$DB,$DF,$4E,$00,$00,$00,$40,$C0,$C0,$FF
,$FF,$C0,$C0,$C0,$00,$00,$00,$FF,$FF,$DB,$DB,$DB,$C3,$00,$00,$00,$FF,$FF,$D8,$D8,$DC
,$FE,$73,$01,$00,$00,$00,$FF,$FF,$DB,$DB,$DB,$C3,$00,$00,$00,$FF,$FF,$70,$38,$1C,$FF
,$FF,$00,$00,$00,$00 )
dim i as byte
dim CT1 as BYTE
T1 = 0
sinc:
if sensor = 1 then 'los leds prenden hasta que reciban señal IR
goto sinc
end if
FOR i= 0 to 70
for CT1 = 0 to 3 'determina el ancho de la letra
portb = luces
delay_us (75)
portb= 0
delay_us (30)
next CT1
next i x
Osea eso si lo puedo hecer el problema es de como lo paso al PIC ¿¿¿¿¿¿¿