Programacion de microcontroladores PIC

[shagrat]

Hey, para aquellos que piensan que programar estos micros es complicado que el pic-c y sus derivados son imposibles o cansones, pues consegui el nombre de dos programas que hacen la programacion para niños especiales como yo jeje.

Micro c
Pic Basic Pro (mecanique)

son bastante faciles de encontrar y descargar, y por si los quieres me posteas y los subo en un rapid share jeje.

Si necesitas algun programa para algun micro ultra urgente postea y te lo envio

[shagrat]

aqui les dejo un programa para comunicarse a 2400 bauds con el PC

esta En pic basic pro

**********************************************

Define   ADC_BITS     10   ' numero de bits en el resultado
Define   ADC_CLOCK      3   ' Dice la fuente del reloj (3=rc)
Define   ADC_SAMPLEUS  50   ' Tiempo de muestreo uS
adval   var   word          ' Crea adval para guardar el resultado

B1      var     byte
TRISC = %10111111       ' Configura TX (PortC.6) como salida
SPBRG = 25              ' baud rate a 2400
RCSTA = %10010000       ' Habilita serial port and continuous receive
TXSTA = %00100000       ' Habilita transmit and asynchronous mode

TRISA = %11111111   ' Configura PORTA to all input
ADCON1 = %10000010   ' Configura PORTA analog and right justify result
Pause 500          ' Espera .5 secon
valor      var  word
mil        var  word
cente      var  word
dece       var  word
uni        var  word
 
loop:   
    ADCIN 0, adval
    valor=adval
       
algoritmo: 
    if valor >= 1000  then
    gosub miles
    else
    gosub centenas
    endif

miles: 
        valor = valor-1000;
        mil = mil+1;       
        if valor < 1000 then
        gosub centenas
        else
        gosub miles     
        endif

centenas:
        if valor >= 100 then
        valor = valor-100;
        cente = cente+1;
        gosub centenas
        else
        gosub decenas     
        endif

decenas:
        if valor >= 10 then
        valor = valor-10;
        dece = dece+1;
        gosub decenas
        else
        gosub unidades     
        endif

unidades:
        if valor > 0 then
        valor = valor-1;
        uni = uni+1;
        gosub unidades
        else
        gosub transmision     
        endif
       
transmision:

tcen: If PIR1.4 = 0 Then tcen     ' Wait for transmit register empty
      TXREG = cente+48;
tdec: If PIR1.4 = 0 Then tdec     ' Wait for transmit register empty
      TXREG = dece+48;
      pause 100
      uni=0;
      dece=0;
      cente=0;
      mil=0;       
      goto loop 
       
       
        return

con esto si ustedes tienen un sistema de medicion de temperatura que entre con un voltaje entre 0 - 5 V por el Ra0 tendran un valor de 00 en el puerto y cuando lleguen a un valor aproximado del 99% mas o menos 4.7 V en el pc por el hyperterminal observaran 99