Hola!

Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D

Regístrame ya!

(ayuda) Programa para PIC16F628A

  • Autor de tema Autor de tema kbllo
  • Fecha de inicio Fecha de inicio

kbllo

Bovino maduro
Desde
28 Ago 2010
Mensajes
108
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 ¿¿¿¿¿¿¿
 
pues fíjate si en el mismo kit trae el compilador de microbasic, para que generes el hex y de ahí grabes el pic, y si no búscalo aquí mismo, o en san google.
 
Volver
Arriba