TODOPIC

Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: alfilmx en 04 de Julio de 2002, 22:47:00

Título: RE: alguien tiene algun ejemplo
Publicado por: alfilmx en 04 de Julio de 2002, 22:47:00

pero mas o menos de que quieres el ejemplo ya tienes el pic basicpro para empezar y que microcontrolador piensas usar

Título: RE: alguien tiene algun ejemplo
Publicado por: RGL en 11 de Julio de 2002, 20:14:00

Te envío un ejemplo muy gráfico y fácil de comprobar, con esto quizás puedas comenzar en este mundillo de forma fácil.

El código es el siguiente:
"********************************************
"* AUTOR: Ricardo Gamboa               *
"* FECHA: 29/04/2001                  *
"* VERSION:1.02                        *
"********************************************
"
"********************************************
"* DESCRIPCION:una barra de led se ilumina  *
"* a un lado y otro constantemente.         *
"*                                          *
"********************************************

"********************************************
"* MICROCONTROLADOR: 16F84A                 *
"* Estado ultima compilacion: Funciona      *
"********************************************

"**************************************************
"* REVISIONES                                     *
"* REV 1.01 Cambio la pausa a 125 milisegundos    *
"* REV 1.02 Ahora la pausa es variable con espera *
"**************************************************
"
"
" La conexion de los Led con el microcontrolador Pic debe ser:
"       D.LED    PIC
"       D0        PortB.0
"       D1        PortB.1
"       D2        PortB.2
"       D3        PortB.3
"       D4        PortB.4
"       D5        PortB.5
"       D6        PortB.6
"       D7        PortB.7


"      DEFINICIONES **********************

      DEFINE OSC 4      "Defino la frecuencia del oscilador a 4Mhz

"      Fin DEFINICIONES*******************   
   
"       VARIABLES ****************

      led VAR BYTE
      i   VAR BYTE
      espera   VAR BYTE
         
"       FIN DE VARIABLES ********

      TRISB=%00000000      "Ajusto el PORT B como salida
      espera=1          "inicializo la variable espera a 1

      While 1
         led=%00000001
         GoSub izquierda
         GoSub derecha
         espera=espera+1
         IF espera>=255 Then espera=1
      Wend
      
izquierda:
      
      For i=1 TO 7
       PORTB=led      "Escribo en PORT B
       Pause espera   "Pausa de 125 milisegundos
       led=led<<1      "Desplazo el 1 hacia la izquierda
      Next i
      Return
      
derecha:
      
      For i=1 TO 7
       PORTB=led      "Escribo en PORT B
       Pause espera   "Pausa de 125 milisegundos
       led=led>>1      "Desplazo el 1 hacia la izquierda
      Next i
      Return


Saludos
Ricky

Título: RE: alguien tiene algun ejemplo
Publicado por: kokorski en 18 de Octubre de 2002, 12:19:00

En este sitio hay multitud de ejemplos con PicBasic

http://www.rentron.com/PicBasic1.htm

Suerte y un saludo