TODOPIC

Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: bobinin en 06 de Marzo de 2006, 12:18:00

Título: diseño de programa
Publicado por: bobinin en 06 de Marzo de 2006, 12:18:00

hola  
estoy empezando en esto de la programacion y quiesiera hacerles unas preguntas

estoy haciendo un programa en basic tratando de prender y apagar 2 led alternadamente pero hasta el momento solo he podido hacer que se prenda uno y despues de 1seg prende elo otro inmediatamente

mi idea es que al apretar el boton prenda uno y se mantenga y al apretarlo nuevamente se apage y prenda el otro..... asta el momento he exo este program.

x var word
led var portb.1
led2 var portb.2
purt var portb.0
i var word
 inicio:
count portb.0,20,i
input portb.0           "          entrada
if portb.0=1 then
let x=x+1
else
goto inicio
endif
 while x>0
    if x=1 then
    gosub pled
    endif
    if x =2 then
    low led
    pause 100
    high led2
    pause 200
        goto inicio
        endif
      pled:
      high led
      if i=2 then
      gosub sled
      else
      goto pled
      sled:
      high led2
      pause 100
      if i = 3 then
      gosub borra
      else
      goto led2
      endif
      borra:
      let i=0
      let x =0
     wend
 end
   
si alguien me puede orientar grax!

Título: RE: diseño de programa
Publicado por: Y@el en 06 de Marzo de 2006, 12:39:00

creo que podria funcionar con algo asi

Suponiendo PORTA.0 y PORTA.1 Entradas (Botones)
PORTB.0 y PORTB.1 Led"s

Codigo:

TRISA=%11
TRISB=0

repite:
IF PORTA.0=1 THEN
          PAUSE 100    "100ms en caso de Rebotes
         IF PORTA.0=1 THEN
             TOGGLE PORTB.0
         END IF
END IF
IF PORTA.1=1 THEN
          PAUSE 100
         IF PORTA.1=1 THEN
             TOGGLE PORTB.1
         END IF
END IF
PAUSE 1000           " 1 segundo de Pausa entre cada revision
goto repite
end

Bueno espero que te sirva

bye

Título: RE: diseño de programa
Publicado por: bobinin en 06 de Marzo de 2006, 13:07:00

que compilador usas ?¿¿??¿
yo uso el microcode studio y tu codigo me sale erroneo tira errores.....

me puedes decir cual usas para bajarlo¿?¿?¿?

Título: RE: diseño de programa
Publicado por: xocas en 06 de Marzo de 2006, 13:37:00

Hola

si sustituyes las sentencias END IF por ENDIF dejaras de tener errores en el microcode... y en el supuesto de que estes usando PBP 2.46 en otro caso no lo se

un saludo

Título: RE: diseño de programa
Publicado por: Y@el en 06 de Marzo de 2006, 14:11:00

fue un error de escritura rapida, cuando ves el mensaje de un forista....
El codigo es para darte una idea, pero si sirve.

Codigo con Cambios compilado desde Microcode Studio, compilador PBP 2.46 enlazado en PM y MPLAB y Simulado con Proteus




codigo con super cambios.... END IF por ENDIF

Codigo:

TRISA=%11
TRISB=0
repite:
IF PORTA.0=1 THEN
          PAUSE 50    "50ms en caso de Rebotes
         IF PORTA.0=1 THEN
            TOGGLE PORTB.0
            PAUSE 1000   " 1 segundo de Pausa entre cada revision            
         ENDIF
ENDIF
IF PORTA.1=1 THEN
          PAUSE 50
         IF PORTA.1=1 THEN
            TOGGLE PORTB.1
            PAUSE 1000   " 1 segundo de Pausa entre cada revision
         ENDIF
ENDIF
goto repite
end

Archivos Descargables desde Aqui
Aqui

bytes
 
PD: La proxima, traten de solucionar el problema

Título: Re: diseño de programa
Publicado por: saracatunga en 10 de Agosto de 2006, 18:11:56

Hasta ahora escribo en microcode y compilo con el pbp, pero como hago para simularlo com hace Yoel en el proteus? :(

Título: Re: diseño de programa
Publicado por: LordLafebre en 10 de Agosto de 2006, 18:28:10

Hola:

Es sencillo, una ves que compilaste el programa con PBP y tengas hecho el circuito en ISIS, solo tienes que cargar el hex al microcontrolador.  Para eso le das click derecho para seleccionarlo, luego click izquierdo para ver las propiedades y en HEX buscas el archivo y lo cargas.

Título: Re: diseño de programa
Publicado por: LordLafebre en 10 de Agosto de 2006, 18:35:52

Hola:

Aqui si gustas puedes ver mas ejemplos:

http://www.todopic.com.ar/foros/index.php?topic=3613.0