GNUelectronica

MS8229 RS232 QtDMM Part 3

2011-10-05T10:47:00.000-07:00

Con el programa QtDMM podemos visualizar los datos del multimetro en nuestra pc, aqui las fotos n_n. ("R=10K")

MS8229 RS232 Part 2

2011-10-04T12:12:00.000-07:00

MS8229 RS232 Part 1

2011-09-30T09:25:00.000-07:00

n_n cuando me compre el multimetro y lo encedi vi que decia RS232 y ahi me entro la curiosidad googlee un poco y encontre algo similar salvo que en mi caso se activo el rs232 de otra manera en fin, si conectamos el pin 84 ENTX a GND habilitamos el RS32, por el momento tengo eso me faltaria soldarle un optoacoplador al pin TXD pin 64 y listo!

COBY MID7015 n_n!! (1)

2011-05-06T10:09:00.000-07:00

...... en si esta buena pasable, no viene con bluetooth tiene un ARM1178 a 800Mhz, la meta es colocar un conversor usb serie RS232 y un modulo bluetooth para mis necesidades, por el momento consegui estar como root y ver que onda.............. en la foto muestra los procesos corrriendo

Entrenador EasyPIC2 tuneado para ICD2

2011-03-29T18:39:00.000-07:00

Velocimetro Part1

2011-03-08T16:35:00.000-08:00

freemat + Funciones de convercion

2011-01-11T13:28:00.001-08:00

Convierte de HEX a BIN:

--> dec2bin(hex2dec('40'))
ans =
1000000
-->

cuando estes mal cuando estes solo tunuunu................. xD

2010-08-04T19:18:00.001-07:00

bichaa u_u

OpenCV con C xD - Parte 02

2010-04-17T21:20:00.000-07:00

n_n al comentar cvSetImageROI no limitamos el area a procesar.

#include <stdio.h>
/*Algoritmos principales*/

#include "cv.h"
/*GUI y Video*/

#include "highgui.h"


CvHaarClassifierCascade *cascade_cara;
CvHaarClassifierCascade *cascade_ojo;
CvMemStorage *storage;


void ReconocerRostroOjos(IplImage *imagen);


/*--------------------------------------------------------------*/

int main(){
    CvCapture *captura = 0;  
    IplImage *imagen;
    char *cara = "haarcascade_frontalface_default.xml";
    char *ojo = "haarcascade_eye.xml";
    int key=0;

    /* Cargando el clasificador de rostro */

    cascade_cara = (CvHaarClassifierCascade*)cvLoad(cara, 0, 0, 0);


    /* Cargando el clasificador de ojos */

    cascade_ojo = (CvHaarClassifierCascade*)cvLoad(ojo, 0, 0, 0);


    /*Declarando storage para detectar los ojos */

    storage = cvCreateMemStorage(0);

 
    captura = cvCaptureFromCAM( 0 ); 
    if ( !captura ) {
      fprintf( stderr, "No se encuentra la  webcam!\n" );
      return 1;
    } 
 
    /* Crea una ventana */

    cvNamedWindow("n_n", CV_WINDOW_AUTOSIZE);

    while( key != 'q' ) {
   imagen = cvQueryFrame( captura );
      if( !imagen ) break;  
      /* Reconocer rostro y ojos*/

      ReconocerRostroOjos(imagen);
      cvShowImage("n_n", imagen);
  
      if( cvWaitKey( 10 ) >= 0 )
        break;
   }  
    /*Deja de capturar*/
    cvReleaseCapture(&captura);
    cvDestroyWindow("n_n");
    return 0;
}


void ReconocerRostroOjos(IplImage *imagen){

int i;
/*Reconocer rostro*/ 
CvSeq *faces = cvHaarDetectObjects(imagen, cascade_cara, storage,1.1, 2,0,cvSize(40, 40));
 
/* Salgo si se encuentra*/

if (faces->total == 0) return;

/* Dibujar un rectangulo */

CvRect *r = (CvRect*)cvGetSeqElem(faces, 0);
cvRectangle(imagen,cvPoint(r->x, r->y),cvPoint(r->x + r->width, r->y + r->height),CV_RGB(255, 0, 0), 1, 8, 0);
/* Limpio el buffer para trabajar con la siguiente imagen*/

cvClearMemStorage(storage);


/*Posicion de los ojos o region de interes dentro de la imagen principal*/

//cvSetImageROI(imagen, cvRect(r->x, r->y + (r->height/5.5), r->width, r->height/3.0));


/* Reconocer los ojos*/

CvSeq* ojos = cvHaarDetectObjects(imagen, cascade_ojo, storage,1.1, 2,0,cvSize(20, 20));


 /* Dibujar un circulo */

 for( i = 0; i < (ojos ? ojos->total : 0); i++ ) {
    r = (CvRect*)cvGetSeqElem( ojos, i );
    cvCircle( imagen,cvPoint(r->x + r->width*0.5, r->y + r->height*0.5),20, cvScalar(0,255,0), 1);
  
 }
  
cvResetImageROI(imagen);
}

Gran parte de la documentacion que me ayudo a esto, son estos link's:

http://www.cs.iit.edu/~agam/cs512/lect-notes/opencv-intro/opencv-intro.html

http://www710.univ-lyon1.fr/~bouakaz/OpenCV-0.9.5/docs/

OpenCV con C xD - Parte 01

2010-04-16T19:56:00.000-07:00

uff hace cuanto que no posteaba !! eso por distracciones mentales emocionales ._. en fin un programa que ise con opencv n_n.

#include "stdio.h"
#include "cv.h"
#include "highgui.h"

void ReconocerRostro(IplImage* img);

CvHaarClassifierCascade *cascade_cara;

CvHaarClassifierCascade *cascade_ojos;
CvMemStorage  *storage;

main(){
 CvCapture *capture = 0;
 IplImage  *frame = 0;

 int       key = 0;
 CvFont font;
 
 capture = cvCaptureFromCAM( 0 );
 
 if ( !capture ) {

   fprintf( stderr, "No se encuentra la  webcam!\n" );
   return 1;

 }


 cvInitFont(&font, CV_FONT_HERSHEY_SIMPLEX, 1.0, 1.0, 0, 1, CV_AA);  
 cvNamedWindow( "Ventanita", CV_WINDOW_AUTOSIZE );  
 
 
 while( key != 'q' ) {  

 frame = cvQueryFrame( capture );
 cvPutText(frame, "n_n", cvPoint(5, 270), &font, cvScalar(255, 255, 255, 0)); 


  if( !frame ) break;

     cvShowImage( "Ventanita", frame );
     ReconocerRostro(frame); 

        if( cvWaitKey( 10 ) >= 0 )
        break;

    }


    cvReleaseCapture( &capture );
    cvDestroyWindow( "Ventanita" );
    return 0;

}


void ReconocerRostro(IplImage* img){
 
}

Para compilar ^^

#!/bin/bash
aux=cara
g++ $aux.c -o $aux  -I /usr/include/opencv -L /usr/lib   -lm -lcv -lhighgui -lcvaux

Compartiendo unos datas ya que la vitacora diara fue muy diferente....

2010-03-13T19:38:00.000-08:00

n_n baya ke dia movido ......... si no fuera por retro que lo vi
doblar avia sido otro dia de codeo ja (lo digo por k andaba dando
vueltas sin encontrar el lugar : S ), despues de la reunion linuxera
para el flisol y ahora que me acuerdo de que hablamos?_? ... uvo futbol
5! sii deportee xD en el cual estuboo un cago de risa
onda shaolinsoccer con retro como inchada y cauco y despues de unas
patadas en cualquier lugar menos en la pelota con un tiempo de 1:30
terminamos ganando al equipo de J jejeje ganamos no? O_o bueno creo
que si en fin, luego vino unas pizas de anica taban ricas : P y si no
nos sacaban ivamos hacer un asadaso onda veteranos jaja jeje xD y para
sellar el dia con ramix nos fuimos al cosplay ya k retro no keria ir xD
, que por cierto no me arrepieento de aver ido ya k la banda que toco
estubo de lujo y otra cosa me trajo recuerdos no iva a un recital desde
ya varioooooos años posteo esto pork fue un dia muy diferente a lo de mi
vida avitual que es puro linuxeo see n_n (aclaro si hay algo raro en el
post es por k tengo sueño) ... solamente falto una persona en mi dia alguien que conoci hace poco la fabi je entonces abria sido un excelente dia ....

......

Python + bluetooth

2010-03-02T13:55:00.000-08:00

Del sitio http://people.csail.mit.edu/albert/bluez-intro/index.html saque unos interesantes ejemplos:

Servidor:

import bluetooth

server_sock=bluetooth.BluetoothSocket( bluetooth.RFCOMM )

port = 1
server_sock.bind(("",port))
server_sock.listen(1)

client_sock,address = server_sock.accept()
print "Accepted connection from ",address

data = client_sock.recv(1024)
print "received [%s]" % data

client_sock.close()
server_sock.close()


Cliente:

import bluetooth

bd_addr = "11:11:11:11:11:11"

port = 1

sock=bluetooth.BluetoothSocket( bluetooth.RFCOMM )
sock.connect((bd_addr, port))

sock.send("ACK")

sock.close()

con hcitool dev vemos nuestra direccionde 48 bit y con hcitool scan bueno escaneamos en bd_addr
ponemos la mac de nuestro servidor bluetooth n_n

Python - Numeros Primos

2010-02-24T17:16:00.000-08:00


candidato = 2


while(candidato <= 10000):
  divisor = 2
  primo = 1
  while(divisor * divisor <= candidato):
     if (candidato % divisor == 0):
        primo = 0
        break
     divisor = divisor + 1

  if(primo):
    print candidato

  candidato = candidato + 1

SDCC i2c LM75

2010-01-30T19:45:00.000-08:00


#include <pic16f873a.h>
#include <i2c.h>
typedef unsigned int word;
word at 0x2007 CONFIG = _HS_OSC & _WDT_OFF & _PWRTE_ON & _BODEN_ON & _LVP_OFF & _CPD_OFF & _WRT_OFF & _DEBUG_OFF & _CP_OFF;

//-- Pines de conexionado para el LCD
#define RW  RA2
#define RS  RA1
#define E   RA0


//-- Valor inicial del timer0 para hacer una pausa de 10ms
//-- Divisor del prescar a 256
#define T_10ms 61

/*********************************************/
/* Habilitar el dato escrito en el puerto B  */
/*********************************************/
void enable()
{
  //-- Hay que garantizar un tiempo minimo de 500ns
  //-- A 20Mhz, las instrucciones tardan 200ns.
  //-- Por eso nos curamos en salud y repetimos la instruccion
  //-- tres veces. 
  E=1; E=1; E=1;
  E=0; E=0; E=0;
}

/**********************************/
/* Enviar un comando al LCD       */
/**********************************/
void lcd_cmd(unsigned char cmd)
{  
  RS=0;
  PORTB=cmd;
  enable();  
  cmd<<=4;
  PORTB=cmd;
  enable();
  delay(1);
}

/*********************************/
/* Escribir un dato en el lcd    */
/*********************************/
void lcd_write(unsigned char car)
{
  RS=1;
  PORTB=car;
  enable();   
  car<<=4;
  PORTB=car;
  enable(); 
  delay(1);
}

unsigned char ConfigLM75()
{
  // Envia Bit de Start
  i2c_SendStart();
  i2c_WaitMSSP();  

  // 2º Envio la direccion del modulo
  i2c_SendByte(0b10010000);
  i2c_WaitMSSP();  
  if (i2c_CheckACK()!=0) {
    i2c_fail();
    return 0;   // Ha habido un error, salgo de la rutina
  }

  
  i2c_SendByte(0b00000000); 
  i2c_WaitMSSP();
  if (i2c_CheckACK()!=0) {
    i2c_fail();
    return 0;    // Ha habido un error, salgo de la rutina
  }

  // termino el envio
  i2c_SendStop();
  i2c_WaitMSSP();

  return 1; 
}

unsigned char LeerLM75(unsigned char address, unsigned char *datoh, unsigned char *datol)
{
  i2c_SendStart();
  i2c_WaitMSSP(); 

  i2c_SendByte(address);

  i2c_WaitMSSP();  
  if (i2c_CheckACK()!=0) {
    i2c_fail();
    return 0;   // Ha habido un error, salgo de la rutina
  }
 
  *datoh=i2c_ReadByte(); 
  
  i2c_SendAck();
  i2c_WaitMSSP(); 

  *datol=i2c_ReadByte();   

  //  Mando NACK
  i2c_SendNack();
  i2c_WaitMSSP();  

  // Mando el Stop
  i2c_SendStop();
  i2c_WaitMSSP();  

  return 1;
}

void DEC_ASCII(unsigned char dato, unsigned char *D1, unsigned char *D2,unsigned char *D3)
{
  *D1 = dato / 100;
  *D2 = (dato % 100) / 10;
  *D3 = (dato % 100) % 10;

  *D1 = 0b00110000 | *D1;
  *D2 = 0b00110000 | *D2;
  *D3 = 0b00110000 | *D3;
}
/*-----------------------------------------------*/
void main(void)
{   
  unsigned char ret;
  unsigned char datoh, datol, D1, D2, D3;

  TRISB=0b00001111;  
  TRISA=0b00000000;  
  ADCON1=0x06;

  //-- Configurar temporizador para hacer pausas
  T0CS=0; PSA=0;
  //-- Configurar el prescaler (division entre 64)
  PS2=1; PS1=1; PS0=1;
  
  i2c_configure();
  //-- Pausa inicial
  delay(10);

  //Inicializando el LCD
  RW=0; E=0;
  lcd_cmd(0b00101000);
  lcd_cmd(0b00000110);
  lcd_cmd(0b00001110);
  lcd_cmd(0b00000010);
  lcd_cmd(0b00000001);

  ConfigLM75();

  delay(10);

  while(1){
  lcd_cmd(0b00000010);
  delay(10);
  ret=LeerLM75(0b10010001, &datoh, &datol);
    if (ret==1) { 
      DEC_ASCII(datoh, &D1, &D2, &D3);
      lcd_write(D1);
      lcd_write(D2);
      lcd_write(D3); 
    }else{
      LED = 1;
    }  
  }  
}

Las resistencias pullup son de 4K7 (Lauraa n.n)

SDCC Leer una eeprom i2c y escribir en un LCD

2010-01-22T06:36:00.000-08:00

Utilizando los codigos anteriores podemos leer la eeprom e imprimirla en el LCD
el caracter que grabe es la J.


  //24C08A 256X4
  //0xA6 = 10100110  identificador de eeprom y bit's de paginas 
  i2c_write_byte(0xA6, 0x0, 0x4A);
  delay(10);

  ret=i2c_read_byte(0xA6, 0x0, &dato);
    if (ret==1) { 
     lcd_write(dato);
    }else{
      LED = 1;
    }


  
  while(1);

SDCC LCD a 4 bit's

2010-01-17T20:03:00.000-08:00

Del sitio iearobotics.com hay un ejemplo para manejar LCD a 8bits, en este caso lo adapte para 4 bits.

#include <pic16f873a.h>
typedef unsigned int word;
word at 0x2007 CONFIG = _HS_OSC & _WDT_OFF & _PWRTE_ON & _BODEN_ON & _LVP_OFF & _CPD_OFF & _WRT_OFF & _DEBUG_OFF & _CP_OFF;

//-- Pines de conexionado para el LCD
#define RW  RA2
#define RS  RA1
#define E   RA0


//-- Valor inicial del timer0 para hacer una pausa de 10ms
//-- Divisor del prescar a 256
#define T_10ms 61

void timer0_delay(unsigned char t0ini)
{
  //-- Dar valor inicial del timer
  TMR0=t0ini;

  //-- Flag de interrupcion a cero
  T0IF=0;

  //-- Esperar a que transcurra el tiempo indicado
  while(T0IF==0);
}

/*******************************************************/
/* Pausa                                               */
/* ENTRADA: duracion de la pausa en centesimas (10ms)  */
/*******************************************************/
void delay(unsigned int duracion)
{
  unsigned int i;

  for (i=0; i<duracion; i++)
    timer0_delay(T_10ms);
}

/*********************************************/
/* Habilitar el dato escrito en el puerto B  */
/*********************************************/
void enable()
{
  //-- Hay que garantizar un tiempo minimo de 500ns
  //-- A 20Mhz, las instrucciones tardan 200ns.
  //-- Por eso nos curamos en salud y repetimos la instruccion
  //-- tres veces. 
  E=1; E=1; E=1;
  E=0; E=0; E=0;
}

/**********************************/
/* Enviar un comando al LCD       */
/**********************************/
void lcd_cmd(unsigned char cmd)
{  
  RS=0;
  PORTB=cmd;
  enable();  
  cmd<<=4;
  PORTB=cmd;
  enable();
  delay(1);
}

/*********************************/
/* Escribir un dato en el lcd    */
/*********************************/
void lcd_write(unsigned char car)
{
  RS=1;
  PORTB=car;
  enable();   
  car<<=4;
  PORTB=car;
  enable(); 
  delay(1);
}

void main(void)
{  
  TRISB=0b00000000;  
  TRISA=0b00000000;  
  ADCON1=0x06;

  //-- Configurar temporizador para hacer pausas
  T0CS=0; PSA=0;
  //-- Configurar el prescaler (division entre 64)
  PS2=1; PS1=1; PS0=1;

  //-- Pausa inicial
  delay(1);

  //-- Inicializar lcd (para trabajar a 4 bits)
  RW=0; E=0;
  lcd_cmd(0b00101000);

  //--  Modo de funcionamiento
  lcd_cmd(0b00000110);

  //-- Encender el LCD
  lcd_cmd(0b00001110);

  //-- Cursor a HOME
  lcd_cmd(0b00000010);

  //-- CLS
  lcd_cmd(0b00000001);

  //-- Enviar una cadena
  lcd_write('H');
  lcd_write('O');
  lcd_write('L');
  lcd_write('A');
  lcd_write('!');
  
  while(1);
}

SDCC i2c con PIC16F87x

2010-01-04T20:06:00.000-08:00

EL codigo lo saque de iearobotics funciona exelente, lei una eeprom sin problemas.

#include <pic16f873a.h>
typedef unsigned int word;
word at 0x2007 CONFIG = _HS_OSC & _WDT_OFF & _PWRTE_ON & _BODEN_ON & _LVP_OFF & _CPD_OFF & _WRT_OFF & _DEBUG_OFF & _CP_OFF;

#define T_10ms 61
#define LED RA0
void timer0_delay(unsigned char t0ini)
{
  //-- Dar valor inicial del timer
  TMR0=t0ini;
 
  //-- Flag de interrupcion a cero
  T0IF=0;

  //-- Esperar a que transcurra el tiempo indicado
  while(T0IF==0);
}


/*******************************************************/
/* Pausa                                               */
/* ENTRADA: duracion de la pausa en centesimas (10ms)  */
/*******************************************************/
void delay(unsigned int duracion)
{
  unsigned int i;

  for (i=0; i<duracion; i++)
    timer0_delay(T_10ms);
}

/*
****************************************
*    FUNCIONES DE BAJO NIVEL DEL I2C   * 
****************************************
*/

// Envia Ack
// SDA = 0 
void i2c_SendAck()
{
  ACKDT = 0;  // Establece un ACK
  ACKEN = 1;  // Lo envia
}


// Envia Nack para finalizar la recepecion
// SDA = 1
void i2c_SendNack()
{
  ACKDT = 1;  // Establece un NACK
  ACKEN = 1;  // Lo envia
}


// verifica ACK
// Mira si en el 9 pulso de reloj (SCL en estado a 1) la señal SDA está a 0
unsigned char i2c_CheckACK()
{
  if ( ACKSTAT == 0 ) {
    return 0;   // correcto (lo he recibido )
  } else { 
    return 1; // incorrecto (no lo he recibido)
  }
}


// Envia la condicion de STOP
// Libera el BUS I2C, SDA y SCL a nivel alto
// SDA=1 cuando SCL=1. 
void i2c_SendStop() {
  PEN = 1;    // send stop bit
}


// Envia la condicion de START
// Inicializa el Bus I2C, SCL y SDA a nivel bajo
// Estando SCL=1 pone SDA=0, luego pone SCL=0
void i2c_SendStart()
{
  SEN = 1;     // send start bit
}

// Espera a que el I2C reciba algun evento
void i2c_WaitMSSP() 
{
  while (SSPIF == 0);  // Espera evento
  SSPIF=0;             // Limpia FLAG
}


// Espera a que el I2C reciba algun evento
unsigned char i2c_MSSP_Status()
{
  return SSPIF; 
}




// Repeated start from master
// Queremos transmitir más datos pero sin dejar el BUS, es decir
// sin mandar previamente un STOP. O por ejemplo si queremos mandar un STOP y seguidamente un
// START para que ningún otro dispositivo ocupe la línea usaremos esto.
void i2c_SendRStart() {
  RSEN=1;
}


// Leer Byte por el I2C
// Devuelve byte leido
unsigned char i2c_ReadByte() {
  RCEN=1;        // Activar el RCEN

  i2c_WaitMSSP();
  return SSPBUF;
}




// Envia un Dato por el Bus I2C
// Entrada el dato a enviar
void i2c_SendByte(unsigned char dato) {
  SSPBUF=dato;
}



// Fallo en el I2C
void i2c_fail() {
  i2c_SendStop();
  i2c_WaitMSSP();
}



/*
**************************************
*   FUNCIONES DE ALTO NIVEL del I2C  *
**************************************
*/


/* Configurar I2C
  Configuramos el I2C como Master
  y a una velocidad de 1Mhz
*/

void i2c_configure()
{
  // configuramos SCL y SDA como pines de entrada
  TRISC=TRISC | 0x18;  // 1 entrada / 0 salida  
  
  SSPSTAT=0x0;  
  SSPSTAT=SSPSTAT | 0x80;  // SMP=1 Slew rate disable for 100Kh  @@@
                           // CKE=0 (modo maestro I2C) y UA=0 (7 bits)

  SSPCON=0x08;       // I2C master mode (uso la formula del reloj con SSPAD)  
  SSPCON=SSPCON | 0x20;  // enable I2C  SSPEN=1

  SSPCON2=0x00;   // no se usa por ahora
  // velocidad = FOSC / ( 4 * (sspad + 1) )
  // Fosc=20Mhz

  SSPADD=49;  // 49->100Khz  @@@
  //SSPADD=24; // 24 -> 400khz   @@@

  // Limpia Flags de eventos
  SSPIF=0;  //Limpia flag de eventos SSP 
}



// manda un byte al dispositivo i2c
unsigned char i2c_write_byte(unsigned char address, unsigned char reg,
                             unsigned char dato)
{
  // 1º Envia Bit de Start
  i2c_SendStart();
  i2c_WaitMSSP();  

  // 2º Envio la direccion del modulo
  i2c_SendByte(address);
  i2c_WaitMSSP();
  if (i2c_CheckACK()!=0) {
    i2c_fail();
    return 0;  // Ha habido un error, salgo de la rutina
  }

  // 3º mando el registro sobre el que voy a actuar
  i2c_SendByte(reg);
  i2c_WaitMSSP(); 
  if (i2c_CheckACK()!=0) {
    i2c_fail();
    return 0;   // Ha habido un error, salgo de la rutina
  }

  // 4º mando el dato 
  i2c_SendByte(dato); 
  i2c_WaitMSSP();
  if (i2c_CheckACK()!=0) {
    i2c_fail();
    return 0;    // Ha habido un error, salgo de la rutina
  }

  // 6º termino el envio
  i2c_SendStop();
  i2c_WaitMSSP();

  return 1;  // Byte mandado correctamente
}


// Lee 1 byte1  del dispositivo i2c
// El dato leido lo devuelve por el parametro dato
unsigned char i2c_read_byte(unsigned char address, unsigned char reg, 
                            unsigned char *dato)
{

  // 1º Envia Bit de Start
  i2c_SendStart();
  i2c_WaitMSSP();  

  // 2º Envio la direccion del modulo
  i2c_SendByte(address);
  i2c_WaitMSSP();  
  if (i2c_CheckACK()!=0) {
    i2c_fail();
    return 0;   // Ha habido un error, salgo de la rutina
  }

  // 3º mando el registro sobre el que voy a actuar
  i2c_SendByte(reg); 
  i2c_WaitMSSP();  
  if (i2c_CheckACK()!=0) {
    i2c_fail();
    return 0;   // Ha habido un error, salgo de la rutina
  }

  // 4º Repeated start
  i2c_SendRStart();
  i2c_WaitMSSP();  

  // 4º mando direccion indicando lectura
  i2c_SendByte(address | 1);
  i2c_WaitMSSP();  
  if (i2c_CheckACK()!=0) {
    i2c_fail();
    return 0;   // Ha habido un error, salgo de la rutina
  }

  // 5º leo el byte 
  *dato=i2c_ReadByte(); 

  // 6º Mando NACK
  i2c_SendNack();
  i2c_WaitMSSP();  

  // Mando el Stop
  i2c_SendStop();
  i2c_WaitMSSP();  

  return 1;   // Lectura correcta

}

//----------------------------
//- Comienzo del programa  
//----------------------------

void main(void)
{
  unsigned char ret;
  unsigned char dato;

  TRISB=0x00;  
  TRISA=0x00;
  //-- Configurar el puerto A como digital
  ADCON1=0x06;

  //-- Configurar temporizador para hacer pausas
  T0CS=0; PSA=0;
  //-- Configurar el prescaler (division entre 64)
  PS2=1; PS1=1; PS0=1;

  //-- Pausa inicial
  delay(100);
  
  //-- Configurar el I2C como master
  i2c_configure();

  //-- Hago una pausa antes de empezar
  delay(10);
  
  //24C08A 256X4
  //0xA6 = 10100110  identificador de eeprom y bit's de paginas 
  i2c_write_byte(0xA6, 0x0, 0xAA);
  delay(10);
  
    ret=i2c_read_byte(0xA6, 0x0, &dato);
    if (ret==1) { 
      PORTB = dato;
    }else{
      LED = 1;
    }


  while(1);

}

Recuerden que la memoria 24C08A no utiliza los pines A0 A1 ya que los usa para acceder a los
bancos que son 4 segun la hoja de datos de atmel.
Osea para formar la palabra de control:

1010 -> identificador de la memoria, luego A2,A1,A0, R/W
en el ejemplo se accedio al 4 banco de 256 bits

10100000 para escribir el primer banco
10100001 para leer el primer banco

el pin A2 sera entonces para direccionar otras unidades conectadas al bus i2c.

Usando Gafix CASIO CFX

2009-12-19T16:38:00.000-08:00

Gafix un programa para comunicarnos con nuestra calculadora casio cfx, como por ejemplo casio cfx 9850g plus, esta escrito en gtk y utiliza las librerias libcafix, todo esta disponible en sourceforge.
En el siguiente sitio encontraran mas informacion bastante interesante http://spiderpixel.co.uk/caspro/index.html programas y documentacion de varias calculadoras.

PWM con pic 16F87x - SDCC

2009-12-18T17:11:00.000-08:00


void pwm(unsigned int ciclo, unsigned char aux){
 //250 Hz - 4Mhz valor del periodo
 PR2 = 0b11111001;  // 249
 //Ciclo de trabajo
 CCPR1L = ciclo; //249-100%   124-50%  
 //Prescaler 16, Timer 2 off 
 T2CON = 0b00000011 ; 
 //Modo PWM
 CCP1CON = 0b00001100 ; // 8bit 
 
 if (aux=='1'){
   TMR2ON=1;
 }else if(aux=='0'){   
   TMR2ON=0;
 }
} 

Hasta ahora funciona bien n_n asi que bueno  modificare con el tiempo...
para el motor que estoy usando de una lectora de CD los 250Hz le vino como anillo al dedo xD
pwm(124,1) seria el valor de los ciclos de trabajo y el uno para avilitar el PWM desde el
registro T2CON. Mas info para los calculos vean  la hoja de datos de microchip donde en una tabla
nos indica los minimos y maximos en que puede trabajar el pwm segun el cristal empleado.

freemat - Funciones para calcular tiempos TMR0

2009-12-15T17:58:00.000-08:00

El siguiente codigo lo extraje de http://www.iearobotics.com/ un excelente sitio de microcontroladores pic con manuales cursos ejemplos.

El codigo calcula el valor del registro TMR0 y de su prescaler para configurarlo y poder generar notas musicales, ingresamos el valor del cristal y la frecuencia que queremos generar. Los scripts estan para matlab asi que hize unos cambios para que funcionen en freemat.


function TMR0=timer0_TMR0_frec(FOSC,frecuencia)
    DIV=[2,4,8,16,32,64,128,256];
    PS=[000,001,010,011,100,101,110,111];    
    Duracion = 1/(2*frecuencia)*1000000;
    TMR0=256-timer0_ticks(FOSC,Duracion);
    frec = 1000000./(2*timer0_Duracion(FOSC,Duracion));
    Error = frecuencia-frec;
    for i=1:length(TMR0)
     if TMR0(i)<256 && TMR0(i)>=0
      printf ('TMR0= %d, PS2:0= %03d, Div= %3d, Frec= %.1f Hz, Error= %.2f Hz\n', TMR0(i), PS(i), DIV(i), frec(i), Error(i));
      end           
    end


function Dur=timer0_Duracion(FOSC,Duracion)
  DIV=[2,4,8,16,32,64,128,256];
  N=timer0_ticks(20,Duracion);
  Dur = N.*(4*DIV/FOSC);


function N=timer0_ticks(FOSC,Duracion)
  DIV = [2 4 8 16 32 64 128 256];
  N = round(FOSC*Duracion./(4*DIV));
  for i=1:length(N)
    if N(i)>255
      N(i)=NaN;
    end
  end


function TMR0=timer0_TMR0(FOSC,t)
  DIV=[2,4,8,16,32,64,128,256];
  PS=[000,001,010,011,100,101,110,111];
  TMR0=256-timer0_ticks(FOSC,t);
  tc=timer0_Duracion(FOSC,t);
  Error = t - tc;

  for i=1:length(TMR0)
   if TMR0(i)<256 && TMR0(i)>=0
    printf ('T0INI= %3d, PS2:0= %03d, Div= %3d, tc= %.1f us, Error= %.2f us\n',
             TMR0(i),PS(i), DIV(i), tc(i),Error(i));
   end
  end

Ejemplo 6 - Sensores infrarrojos

2009-10-27T20:26:00.000-07:00


/* Autor: Jose Maria Quiroga
   chispilinux@gmail.com
   GNU-Electronica

RB7 A  CD4052
RB6 B
RB5 
RB4 
RB3 
RB2 
RB1 
RB0 INT

RC7 RX
RC6 TX 
RC5 IN - LM562
RC4 SDA 
RC3 SCL
RC2 CE  PWM   L293D
RC1 B
RC0 A

RA0 AN0  
RA1 AN1  
RA2 AN2  
RA3 VRef + 
RA4 LED
RA5 AN4  */

#include <pic16f873a.h>
#include <usart.h>
#include <adc.h>
typedef unsigned int word;
word at 0x2007 CONFIG = _XT_OSC & _WDT_OFF & _PWRTE_ON & _BODEN_ON & _LVP_OFF & _CPD_OFF & _WRT_OFF & _DEBUG_OFF & _CP_OFF;

#define CA RB7
#define CB RB6
#define LED RA4
#define IN RC5
#define MA RC0
#define MB RC1
#define CE RC2

void retardo50ms(int m);

void main() {
 Configuracion(); 
 ConfigUART();
 ConfigADC();
 PORTA=0;PORTB=0;PORTC=0;
 
 while(1){
  CA=0;CB=0;
  if (IN==0){
   retardo50ms(1);
   if (IN==0)LED=0;
  }else{
   LED=1;
  }
 }
}


void Configuracion(){
  TRISA=0b00101111;
  TRISB=0b00000000;
  TRISC=0b10100000;

  INTCON=0b00000000;
  T0CS = 0;
  TMR0 = 0;
  PSA = 0;
}


void retardo50ms(int m){
unsigned int i;
for (i=1;i<=m;i++) {
 PS2=1; PS1=1; PS0=1; 
 T0IF = 0;
 TMR0=255;
 while(T0IF==0);
}
}

Sensores de obstaculos

2009-10-22T20:58:00.000-07:00

SDCC Ejemplo 5 USART

2009-09-26T19:14:00.000-07:00

Bueno aqui otro ejemplo que acabo de terminar sencillo n_n.

Para mandarle unos comando al pic desde python:

import serial

RS232 = serial.Serial('/dev/ttyUSB0', 1200, timeout=1)

print RS232.portstr
RS232.write(raw_input(':'))

try:
dato=ord(RS232.read())
print dato
dato=ord(RS232.read())
print dato
except:
print "No se recibio ningun dato"

RS232.close()

Programa en C para el pic, utiliza interrupciones para recibir los datos n_n.


#include <pic16f873a.h>

typedef unsigned int word;
word at 0x2007 CONFIG = _HS_OSC & _WDT_OFF & _LVP_OFF &_DEBUG_OFF & _CPD_OFF &_PWRTE_ON  &_BODEN_ON;


unsigned char Serial_RX(void);
void Serial_TX(unsigned char);

void isr() interrupt 0 {
unsigned char aux;
 if (RCIF==1){
   switch(RCREG){
     case 'A':RB0=1;break;
     case 'B':RB0=0;break;
   }
 } 
 Serial_TX('K');
 RCIF=0;
}

void main() {
 TRISB=0x0;
 TRISC=0b10000000;

 TXSTA=0b00100000;
 SPBRG=255;
 PIE1=0b00100000;
 RCSTA=0b10010000;
 INTCON=0b11000000;

 PORTB=0x0;
 while(1);
}

unsigned char Serial_RX(){
  while(RCIF==0);
  return RCREG;
}

void Serial_TX(unsigned char a){
 TXREG=a;
 while (TRMT==0);
}

SDCC Ejemplo 4 ADC

2009-09-24T20:01:00.000-07:00

typedef unsigned int word;
word at 0x2007 CONFIG = _HS_OSC & _WDT_OFF & _PWRTE_ON & _BODEN_ON & _LVP_OFF & _CPD_OFF & _WRT_OFF & _DEBUG_OFF & _CP_OFF;

int LeerADC(int);

void main() {
unsigned int aux;
ADCON1=0b00000001; // Vref+ AN3
TRISA=0b11111111;
TRISB=0b00000000;
while(1){
aux = LeerADC(1);
PORTB = aux;
}
}

int LeerADC (int c){
switch(c) {
case 1:
ADCON0=0b01000001; //RA0 AN0
break;
case 2:
ADCON0=0b01001001; //RA1 AN1
break;
case 3:
ADCON0=0b01010001; //RA2 AN2
break;
case 4:
ADCON0=0b01100001; //RA5 AN4
break;
}
GO=1;
while(GO==0);
return ADRESH;
}

SDCC Ejemplo 3 Tmr0

2009-09-24T17:55:00.000-07:00

/*Recuerden esto se genero con Piklab pongan el include segun su PIC, 20Mhz*/

typedef unsigned int word;
word at 0x2007 CONFIG = _HS_OSC & _WDT_OFF & _LVP_OFF &_DEBUG_OFF & _CPD_OFF &_PWRTE_ON &_BODEN_ON;

void delay_1ms(void);
void delay_100ms(void);

void main() {
int a;
TRISB= 0b00000000;
INTCON=0b00000000;

T0CS = 0;
TMR0 = 0;
PSA = 0;

while(1){
PORTB=0b11110000;
delay_100ms();
PORTB=0b11100000;
delay_100ms();
PORTB=0b11000000;
delay_100ms();
PORTB=0b10000000;
delay_100ms();
}
}
void delay_100ms(){
int a;
for (a=0;a<=100;a++){
delay_1ms();
}
}

void delay_1ms()
{
PS2=1; PS1=0; PS0=0;
T0IF = 0;
TMR0=100;
while(T0IF==0);
}

SDCC Ejemplo 2 Interrupciones RB7-RB4

2009-09-21T22:01:00.000-07:00

No se olviden poner el include segun su pic, este ejemplo trata sobre las interrupciones del portb.

void isr() interrupt 0 {
if (RBIF == 1){
if (RB7 == 0){
RB0=1;
}else if (RB6==0){
RB0=0;
}
}
RBIF=0;
}

void main() {
TRISB = 0b11110000;
/*Cambios en RB0-RB4*/
INTCON = 0b10001000;
OPTION_REG = 0b00000111;

PORTB=0;
while(1){
}
}

SDCC Ejemplo 1

2009-09-20T19:39:00.000-07:00

Falta el include que seria para el pic que tengamos en mi caso un 16f873 con un cristal de 20Mhz - pic16f873a.h todo desde piklab n_n

/* ----------------------------------------------------------------------- */
/* Bits de configuración: adapte los parámetros a su necesidad */
typedef unsigned int word;
word at 0x2007 CONFIG = _HS_OSC & _WDT_OFF & _LVP_OFF &_DEBUG_OFF & _CPD_OFF &_PWRTE_ON &_BODEN_ON;

void isr() interrupt 0 { /* rutina de servicio de interrupciones */
/* << agregue el código de interrupción >> */
}

int i;

void retardo (int);

void main() {

TRISA = 0b11111111;
TRISB = 0b00000000;

while(1) {
PORTB = i;
retardo(250);
i++;
}
}

void retardo(int c)
{
unsigned int a,b;
for (b=1;b<=c;b++){
for (a = 1; a <= 1000; a++);
}
}

gpsim -p p16f873a -s Ejemplo.cod

Hetalia Axis Power

2009-08-09T15:29:00.000-07:00

Voy agregar una seccion anime-manga empezando con este anime que subio una amiga, trata sobre la guerra mundial contada de la mejor manera del anime vean n_n

Episodio 1
http://www.megavideo.com/?v=QNJLB5SL

Episodio 2
http://www.megavideo.com/?v=DB35OMX4

Episodio 3
http://www.megavideo.com/?v=SD246FP1

Episodio 4
http://www.megavideo.com/?v=HBK0N3NV

Episodio 5
http://www.megavideo.com/?v=WRVEXJFU

Episodio 6
http://www.megavideo.com/?v=RHFN74RW

Episodio 7
http://www.megavideo.com/?v=75WLYANC

Episodio 8
http://www.megavideo.com/?v=4LF75VJI

Episodio 9
http://www.megavideo.com/?v=0EXVABAH

Episodio 10
http://www.megavideo.com/?v=HZ2ZY8EA

Episodio 11
http://www.megavideo.com/?v=B2CO0CDD

Episodio 12
http://www.megavideo.com/?v=V467TUGF

Episodio 13
http://www.megavideo.com/?v=6Q7NB64H

Episodio 14
http://www.megavideo.com/?v=CSZQRYHG

Episodio 15
http://www.megavideo.com/?v=TWJMA8LW

Episodio 16
http://www.megavideo.com/?v=ADMLVAAN

Episodio 17
http://www.megavideo.com/?v=1967GV6E

Episodio 18
http://www.megavideo.com/?v=2WNYESG0

Episodio 19
http://www.megavideo.com/?v=HK12P7QG

Episodio 20
http://www.megavideo.com/?v=7QRRJ26C

Episodio 21
http://www.megavideo.com/?v=40LV9APD

Episodio 22
http://www.megavideo.com/?v=ZJ16KIUO

Episodio 23
http://www.megavideo.com/?v=K46MW7WH

Episodio 24

Episodio 25
http://www.megavideo.com/?v=H1NNDPIL

Episodio 26
http://www.megavideo.com/?v=2VEOD5ZP

Anemometro casero n_n

2009-05-24T17:58:00.000-07:00

iMac G3 con GNULinux - "Xubuntu"

2009-05-22T09:12:00.000-07:00

KTechlab "Amplificador Inversor + Sumador"

2009-05-13T15:50:00.000-07:00

config de's kernel's ^^

2009-04-20T11:54:00.000-07:00

Un link (favoritos) de debian official donde tenemos varios y varios config de los kernel's .....

http://merkel.debian.org/~jurij/

para tener en cuenta - KERNEL -

2009-04-17T13:42:00.000-07:00

Durante estos años el kernel de linux a crecido bastante, el soporte de protocolos y drivers es muy amplio y creeria completo ^^, a los curiosos como yo nos llama la atencion el soporte para experimentos que quiero decir bueno por ejemplo el RS232 desde la version 1.0 del kernel esta disponible xD pero bueno diran algunos se usaba para terminales, sii pero desde mi primer contacto que fue con el kernel 2.2.14 lo primero que aprendi a usar fue el puerto serie y el puerto paralelo para enchufar cosas :P, desde entonces se me hizo mas familiar por ejemplo el i2c.
Bueno aqui un par de cosas que me atraen del Kernel:
RS232, Parport, i2c, SPI, Amateur Radio Support, Bus CAN, IrDA, Pocket and portable adapters, USB, Joystick interface, Dallas's 1-wire support, Hardware Monitoring support, Watchdog Timer Support, GPIO, MIDI, Real Time Clock, etc xD

El proyecto Player "Simulador de robot's"

2009-04-06T09:07:00.000-07:00

Como savemos armar un robot cualquiera sea su genero (bipedo, gusano, a ruedas orugas etc) cuesta en estos tiempos un buen desembolso u_u.

El proyecto Player tiene un par de programas bastantes buenos comenzaremos con dos de ellos:

Stage simula una población de robots móviles, sensores y objetos en un mapa de bits de dos dimensiones, está diseñada para apoyar la investigación multi-agente en sistemas autónomos, por lo que proporciona un sencillo modelo informatico para emular cualquier dispositivo.

Player es un servidor de red para el control del robot, ofrece una sencilla interfaz para los sensores y actuadores. Lo bueno es que es compatible con un hardware de un robot de Pioneer ActivMedia creo.

Para instalar simplemente usamos el apt-get install stage xD, y con dpkg -L vemos que nos instalo
hay buenos ejemplos.

Podemos empezar con esto: robot-player /usr/share/stage/worlds/simple.cfg

de esta manera tenemos funcionando el servidor, lo unico que nos falta es que el robot se mueva tenemos otro ejemplo en: /usr/share/player/examples/libplayerc y el archivo "simple" que ya esta compilado nos dara una idea de lo que podemos hacer ....

Mas info: http://es.wikipedia.org/wiki/Player_(rob%C3%B3tica) xD

Serial desde C - termios.h

2009-02-23T19:57:00.001-08:00




//Agregar los include string.h, stdio.h, stdlib.h, termios.h (principal) , unistd.h,fcntl.h
//sys/types.h, sys/stat.h, sys/ioctl.h, errno.h

#define Puerto "/dev/ttyUSB0"

int opencom;
struct termios oldtios;
struct termios newtios;
char comando[2];

int main(int argc, char **argv)
{

printf("RS232 Microchip chispi_pic:\n");

opencom=open(Puerto,O_RDWR | O_NOCTTY);
    if(opencom<0){
        fprintf(stderr, "Error: Could not open %s for reading/writing!\n",Puerto);
        exit(-1);
            }
   
    //tcgetattr(opencom,&oldtios);
   
    newtios.c_cflag=B1200 | CS8 | CLOCAL | CREAD;
    newtios.c_iflag=IGNPAR;
    newtios.c_oflag=0;
    newtios.c_lflag=0;           /*No canonico*/
    newtios.c_line=0;
    newtios.c_cc[VMIN]=1;
    newtios.c_cc[VTIME]=0;
           
        tcflush(opencom, TCIFLUSH);   
    tcsetattr(opencom,TCSANOW,&newtios);           
   
        scanf("%s",comando);
     
    write(opencom,comando,2);   
        printf("\n");
    close(opencom);
}

Tarjeta CHIP

2009-01-12T13:32:00.000-08:00

/*Lector de Tarjetas Chip */
/*Autor: Jose Maria Quiroga */
/*mail: chispilinux@gmail.com */

/*bit 7 busy 11 invertido I/O */
/* 6 ack 10 */
/* 5 paper ut 12 S/N */
/* 4 select in 13 */
/* 3 spare-error 15 */
/* */
/* 0 Reset 2 */
/* 1 Clock 3 */
/* 2 R/W 4 */

/* aqui ponga el include de cada uno stdio.h sys/io.h string.h*/
/* xD no me dejaa asi que bueno no tengo ganas de editar eso : P*/

#define PortDatos 888 /*0x378*/
#define PortStatus 889 /*0x379*/
#define PortControl 890 /*0x37a*/
/*----------------------------------------*/
void output(int,int);
int input(int);
/*----------------------------------------*/
void output(int dato,int Puerto)
{
ioperm(Puerto,1,1);
outb(dato,Puerto);
ioperm(Puerto,1,0);
}
/*----------------------------------------*/
int input(int Puerto)
{
int aux;
ioperm(Puerto,1,1);
aux=inb(Puerto);
ioperm(Puerto,1,0);
return(aux);
}
/*----------------------------------------*/
int Datos,aux,i,Cont,aux2;
char Vector[257];

main (int argc,char **argv)
{
system("clear");
FILE *Archivo;
/*Verifica si esta o no la Tarjeta*/

aux=input(PortStatus);

if (aux & 32)
printf("Inserte Tarjeta\n");
else
{
printf("Tarjeta Insertada\n");

/*Reset*/
output(0,PortDatos);
output(2,PortDatos); /*CLOCK*/
output(0,PortDatos);
output(1,PortDatos); /*RESET*/

/*Lectura de los 256 bits*/
for (i=1;i<257;i++)
{
Datos=input(PortStatus);

if (Datos & 128 )
Vector[i]='0';
else
Vector[i]='1';
output(3,PortDatos);
output(1,PortDatos);

}

/*Mostrando tarjeta*/

for (Cont=1;Cont<33;Cont++)
{
printf("%i ",Cont-1);
for (i=1+aux2;i<9+aux2;i++)
{
printf("%c",Vector[i]);
}
aux2=aux2+8;
printf("\n");
}

printf("Tipo de tarjeta:");
for (Cont=9;Cont<=16;Cont++){
printf("%c",Vector[Cont]);
}
printf("\n");

printf("Fabricante:");
for (Cont=33;Cont<=40;Cont++){
printf("%c",Vector[Cont]);
}
printf("\n");

printf("Numero de serie:");
for(Cont=41;Cont<=64;Cont++){
printf("%c",Vector[Cont]);
}
printf("\n");

printf("Cantidad de pulsos:");
for(Cont=65;Cont<=80;Cont++){
printf("%c",Vector[Cont]);
}
printf("\n");

printf("Codigo de pais:");
for(Cont=89;Cont<=96;Cont++){
printf("%c",Vector[Cont]);
}
printf("\n");
}
}

La tamiii mi amiga de msn mas antiguaa ......xD estudiaaa flojaa ^^

2008-10-12T21:36:00.000-07:00

......... desde el 2000 !! con la rusa : P ta buena no ?_? xD .......

Implementando un ADC en el PIC16F628

2008-10-08T07:06:00.000-07:00

AN700 esta nota de aplicacion nos muestra como implementar un ADC con la linea de microcontrolador PIC16C6XX.
En este caso vamos a usar la teoria "Delta-Sigma" explicada en la nota de aplicacion, entonces vamos a migrar el ejemplo al PIC16F628.

Instalando Syllable !!!

2008-10-03T08:50:00.000-07:00

Para instalar:
qemu -hda Syllable.img -boot d -cdrom SyllableDesktop-0.6.5.i586.iso

Para usar y navegar:
qemu -hda Syllable.img -boot c -net nic -net tap

levanta el tun0 configuramos las ip's y con iptables
tun0 10.0.0.1
eth0 10.0.0.2 (la interfas de Syllable)
eth1 la de mi notebook osea la placa de red real fisica ^^

echo 1 > /proc/sys/net/ipv4/ip_forward
iptables -t nat -A POSTROUTING -s 10.0.0.2 -d 0/0 -o eth1 -j MASQUERADE

Logo : P

2008-10-03T08:39:00.001-07:00

No opinen jajaja xD

Probando S.O ReactOS !!

2008-09-29T09:34:00.000-07:00

http://www.reactos.org/es/index.html Apenas lo vi lo baje jejeje vean ta bueno ...

Con Qemu: qemu -hda ReactOS.vmdk boot c -monitor stdio

Chateandooo xD

2008-09-17T14:04:00.001-07:00

Un detalle que pidieron ^^

2008-09-17T14:04:00.000-07:00

Kismeando xD

2008-09-10T18:19:00.000-07:00

Codigo : p probando

2008-08-18T14:05:00.000-07:00

Mas Fotos ^^ - 2 parte -

2008-08-16T21:22:00.000-07:00

RobotitooO :-P con Rasti Tecnico ^^

2008-08-16T18:45:00.000-07:00

WiFiiiis!! xD lo que hay en la ruta O_O

2008-08-12T17:01:00.000-07:00


AIRBITS_R  00:02:6F:45:22:74
mandinga  00:18:F8:6C:CA:2D
NOGAnet  00:0E:2E:84:84:5B
DelCarmen  00:0C:42:0C:67:73
vientosur  00:1C:10:33:91:43
zapla2   00:02:6F:40:84:A7
PANELSUR  00:15:6D:63:3D:DA
JUJUY INTERNET 2 00:0C:42:26:8E:F7
JUJUY INTERNET 3 00:0C:42:26:8E:AD
Wimax_New   00:0E:2E:AC:10:52
Acceso a internet 154842233 00:18:E7:05:7C:B1
CootepalNet_AC   00:02:6F:3A:BC:29
CootepalNet_PO   00:02:6F:3D:72:F8
Wimax3    00:11:3B:0B:5C:B0
Fly_Casino   00:0E:2E:AA:B1:37
CootepalNet_PSO  00:02:6F:3D:6E:42
Wimax3    00:C0:CA:17:4E:B3
LOMAGOLF    00:0E:2E:AA:27:16
CONETTI_Nodo_1b  00:0C:42:1F:31:7A
CONETTI_Nodo_3   00:0C:42:1F:2A:4A
WI-LOZADA    00:C0:CA:17:5F:C2
JUJUY INTERNET 1  00:0C:42:26:8E:BE
PAPELERA   00:0C:42:1F:7F:2A
DAVILA    00:18:E7:42:E7:9A
NODOBLV   00:15:6D:63:3D:D8
GEX3    00:30:4F:52:E6:BE
DIESEL    00:0E:2E:85:1E:9B
WUCFiSec   00:0E:2E:A9:02:35
FERNANDO   02:B5:9B:39:1A:B8
BaseT    00:02:6F:30:80:2B
AP2BA0C9   00:30:4F:2B:A0:C9
corralon   02:0A:AC:39:9E:A9
CONETTI_Troncal_HP  00:02:6F:45:D4:26
Milenium S.R.L.  00:06:25:25:69:08
csarf    02:02:EF:FF:BC:20
PG-NOC-Jujuy   00:02:6F:3A:B8:E0
Ale_Vargas   00:0C:41:68:93:78
wireless_11g   00:02:6F:34:A2:EA
NODOBLV2   00:0C:42:0C:77:BD
Casa    00:0F:B5:D9:65:40
redmia2   00:02:6F:3A:63:AA
SAVIOCAMPOS   00:15:6D:63:82:61
Default_WLAN   00:06:4F:48:19:A6
Wi-Fi Arnet   00:0F:A3:F0:4E:B0
comercial   00:0D:88:E5:FD:69
Wi-Fi Cuyaya   00:0C:42:1F:3E:AC
IVUJ-METRO   00:15:6D:63:84:1D
SINPHONI2   00:15:6D:63:76:6D
WUCFi    00:0E:2E:A9:02:38
Gobierno Salta Wifi 3cLB 00:1F:3A:B3:5D:0D
ivuj     02:0A:67:F2:BE:05
1fh4     00:40:96:35:DF:39
BaspiNetwork    00:40:F4:F8:B5:03
inversor    00:18:E7:21:53:26
WORKHOUSE    00:E0:4C:F5:AD:09
Wimax_Hidraulica   00:0C:41:68:41:72
TATA     00:0E:2E:A8:98:29
sala     00:12:0E:75:75:FC
IMAGINE    00:12:0E:7C:56:16
flia-villalba    00:0F:A3:F1:38:17
wireless    00:02:6F:36:3B:37
holmer            00:02:6F:35:35:6B
Boto     00:12:0E:7C:5A:DB
nieva     00:0E:2E:93:79:C1
IMAGINE    00:30:4F:56:14:9F
WLAN-PABLO    00:06:4F:56:44:FF
Wi-Fi Arnet    00:0F:A3:F1:AC:57
REDFAMRP    00:1C:10:58:86:FA

Codigo para manejar los sensores xD

2008-07-18T12:03:00.000-07:00

Primera Parte - Sensores -

2008-07-17T20:39:00.000-07:00

Aqui les paso un esquematico que tenia hace un tiempo, trata de unos transistores infrarrojos rx, tx los que
se encuentran en las disqueteras viejas, con un LM567, CD4052, ULN2003 conectados a un pic, de esta manera multiplexamos, vean ... ^^

Blog Linuxero

2008-06-30T17:33:00.000-07:00

Googleando encontre este buen blog, de la ro http://lnxros.blogspot.com/
mostrandonos un SDK para Java y otras cosas mas vean !! ^^

Algo con Gambas - Termostato

2008-05-08T19:39:00.000-07:00

Dos maneras de leer y escribir datos en un puerto serial ^^ fácil..... cuando supera el umbral manda un comando al pic el cual enciende un led, así de sencillo xD

Un paquete interesante :-P "education-electronics"

2008-05-01T14:05:00.000-07:00

En DebianEdu encontramos este paquete bastante interesante no hace mas que instalarnos otros paquetes mas de electronica pero con un buen surtido de aplicaciones, (al paquete lo vi de pedo xD )

Una biquad con un cdrom

2008-03-31T12:59:00.000-07:00

Si así es y para mi sorpresa funciona, un cd recubierto con una lamina de aluminio, unas ficha tipo N el cable con su ficha SMA, las medidas son de 32x32mm y tiene un alto de 18 mm aproximadamente, con un alambre del cable RG213.

^^ una modificacion a mi laptop

2008-03-31T09:01:00.000-07:00

No pude resistir cuando conseguí el pigtail xD juajua bueno la desarme (nx6315) como siempre le ize un agujero puse el pigtail y listo!! a la calle a seguir espiando trafico inalambrico :-p

Educacion libre ^^

2008-03-27T13:50:00.000-07:00

Un interesante blog linuxero posteado por una linuxeraaa xD :P veanlo http://educfree.blogspot.com/ (Trata sobre soft para niños)

Armando una antena biquad ........ ^^

2008-03-10T15:11:00.000-07:00

Una antena con una tapa de fuente de pc una ATX, sep asi es, no calcule nada todo a ojo con buenos resultados. Materiales: una tapa de fuente que sea lisa, cable RG58, ficha SMA y tipo N, para la antena use el conductor de cobre de un cable RG213 de 2 mm, soldador de 30 o 40 W, pinzas etc.
Simplemente realize con un taladro y unas mechas de 2mm, 6mm, 10mm el agujero para la ficha tipo N, en el medio de la tapa.
La antena esta formada por dos cuadrados de 32 mm cada lado y con una altura de 19 mm con respecto de la tapa.
Desde la pc de mi hermana se ven los resultados casi sin apuntar ven la cantidad de señal, anteriormente tenia 32-35 % con la biquad mejoro bastante, esta atravesando 3 paredes.

LCD !! por fin......... T_T

2008-03-01T18:43:00.000-08:00

Despues de buscar y buscar compre uno usado nomas de 14" ^^ el que tenia hera de 15" jejeje bueno quedo maso maso, tube que adaptarlo um poco al de 14" lo fije con la famosa cinta bulcanisante xD

Fabricacion de una omnidireccional de 2.4Ghz 6dbi

2008-03-01T17:43:00.000-08:00

Probando y probando antenas omni esta es la que mejor resultado me dio es sencilla de armar, el diseño y construccion es del siguiente link www.buenosaireslibre.org/howto/howto-antena_omni_simple.html
El cable de cobre es de un pigtail viejo que me regalo mi amigo david leiton (gracias viejo), es un cable grueso de RG xx de como 10 mm de espesor RG213, las fichas tipo N por suerte se consiguen.
Hay otras fotos de mi punto de acceso algo modificado, tiene un cooler y una fuente de alimentacion de 5V por 1.5 A lo justo ! xD , bueno aquí les va las fotos....

Piklab programando ejemplo PWM

2008-01-08T19:13:00.000-08:00

PWM en un PIC

2008-01-08T18:49:00.000-08:00

Hola este codigo muestra como usar una caracteristica de un PIC el PWM, me vaso segun la hoja de datos del pic16F873, para otros pic lo que va a variar es el TOSC que va a depender del cristal que usemos, en fin aqui les va xD.

Calculando el periodo segun la formula:

Periodo = [PR2 +1] * 4 * TOSC * TMR2 valor del prescaler

PR2 = 255
TOSC = 50 para el cristal de 20 Mhz
TMR2 = 16

Periodo = [255+1]*4*(50*10^-9)*16 = 0.0008192
En Hz seria 1 / 0.0008192 = 1220.703 dividido por 10^3
nos qedaria 1.220703 Khz que es el valor de la hoja de datos.

Para calcular el ancho del pulso o la duracion del ciclo hay otra formula
en la hoja de datos podran ver con mas detalle, en este caso el registro
CCPR1L lo cargamos con valores conocidos ^^ .
El codigo seria:


  list p=16f873a
  include "p16f873a.inc"
__config _HS_OSC & _WDT_OFF & _LVP_OFF &_DEBUG_OFF & _CPD_OFF &_PWRTE_ON &_LVP_OFF &_BODEN_ON

cblock 0x20 

  ContadorA
  ContadorB
  ContadorC

  endc
      org    0h
   goto    Inicio
   org    05h
;-------------------------------------------------------------------------------------------
Inicio   bsf                STATUS,RP0
         movlw    B'00000000'
         movwf    PORTC
         bcf               STATUS,RP0

;PWM
          clrf    T2CON
          clrf    TMR2
          clrf    INTCON
          movlw    0x07        ;B'00000111'
          movwf    CMCON 
          bsf          STATUS,RP0
          clrf         PIE1
          bcf          STATUS,RP0
          clrf          PIR1
          bsf          STATUS,RP0
          movlw    B'11111111'
          movwf    PR2         ;Periodo
          bcf          STATUS,RP0
          movlw    B'00000010'
          movwf    CCPR1L     
          movlw    B'00000110'
          movwf    T2CON         ;1:16
          movlw    B'00001100'
          movwf    CCP1CON        ;Modo PWM
          bsf         T2CON,TMR2ON
;-------------------------------------------------------------------------------------------
doloop  movlw    D'64'
           movwf    CCPR1L
           call         retraso_0.5_seg
           movlw    D'128'
           movwf    CCPR1L
           call        retraso_0.5_seg
           movlw    D'255'
           movwf    CCPR1L
           call        retraso_0.5_seg
           goto     doloop
;-------------------------------------------------------------------------------------------
; Código de retardo generado por PikLoops (mié ene-2008-09 00:51:59)
; Tiempo de retardo = 0.49999620  con  Osc = 20.00000000MHz

retraso_0.5_seg
  movlw    D'13'
  movwf    ContadorC
retraso_0.5_seg_bucle
  call    sub_delay_0.5_seg
  decfsz    ContadorC,1
  goto    retraso_0.5_seg_bucle
  return

sub_delay_0.5_seg
  movlw    D'250'
  movwf    ContadorB
  movlw    D'188'
  movwf    ContadorA
sub_delay_0.5_seg_bucle
  decfsz    ContadorA,1
  goto    sub_delay_0.5_seg_bucle
  decfsz    ContadorB,1
  goto    sub_delay_0.5_seg_bucle
  return

;-------------------------------------------------------------------------------------------
  end
;-------------------------------------------------------------------------------------------

Viejo recuerdo que años!!! ^^

2007-12-24T05:15:00.000-08:00

Robot con RASTI parte 1

2007-12-22T19:55:00.000-08:00

chispi ........tratando de decir BSD ?

2007-12-17T07:21:00.000-08:00

Al final...... termine con un CRT # Teclado y mouse de una iMac

2007-12-13T12:15:00.001-08:00

Mi LCD T_T ............ se expiroo....

2007-12-13T12:06:00.000-08:00

NX6315 agregando un USB

2007-12-02T14:01:00.000-08:00

Taller xD II

2007-11-27T19:55:00.001-08:00

Taller xD

2007-11-27T19:46:00.000-08:00

Rasti Tecnico !! otro recuerdo de infancia T_T

2007-11-21T12:05:00.000-08:00

Motobox45 mi manual!!! T_T que recuerdo....

2007-11-21T11:46:00.000-08:00

PicProg

2007-11-20T17:10:00.001-08:00

Un programador económico que no funciona muy bien con el adaptador USB-RS232, pero si con un puerto serial nativo, con algunas placas madre tiene problemas para programar bien el uC, las que posean el chip GD75232 no hubo ningún inconvenientes xD...

http://hyvatti.iki.fi/~jaakko/pic/picprog.html

Programador ICD2

2007-11-20T15:41:00.000-08:00

El programador FreeICD2 armado y funcionando xD con el adaptador USB-RS232
con el chip PL-2303.

Piklab en accion!!

2007-11-14T06:16:00.000-08:00

Piklab es un completo IDE para PIC y DSPIC, podemos programar en ASM (Gputils) o usando compiladores como SDCC, JAL, PICC lite compiler, etc.
Tiene soporte para varios tipos de programadores, como los clasicos por el puerto serial y paralelo, lo mas interesante podemos usar los ICD1 y 2 jeje de lujo xD. "programando un 16F628A"

ktechlab !! un completo simulador de electronica y pic

2007-11-12T08:04:00.000-08:00

Aqui lo tienen funcionando, simulamos un viejo amigo16F84, cuando presionamos el pulsador se enciende un LED, sencillo no? pero bueno xD

Datalogger Parte II

2007-11-09T08:17:00.000-08:00

El esquematico esta echo con Geda y el codigo de PHP mas abajo, sencillo por cierto xD. Para conectar a la computadora usamos el MAX232, en los pines RC6 y RC7 del pic, cualquier duda pueden bajarse la hoja de datos de ambos o preguntarme ^^.

Datalogger Parte I

2007-11-09T07:37:00.000-08:00

Aqui le muestro una mescla de lenguajes, porque una mescla? bueno usamos python, MySQL y PHP para nuestro datalogger.
Funciona de la siguente manera: Python mediante el puerto serial le pide un byte del canal analogico del pic, cada segundo, este byte se guarda en una base de datos en MySQL el cual luego puede ser monitorizada via web.
En la entrada analogica del pic pueden poner cualquier tipo de señal entre 0-5V
como un LDR, potenciometro, sensor de temperatura (LM35) etc:
Le paso el codigo en python, recuerden la identacion:

#! /usr/bin/env python
import pygame, serial, sys, MySQLdb, time
dato = 0
running = 1
muestras = 0

#-----------------------------------------------------------------
def mysql_insertar(dato):
now = time.localtime(time.time())
fechahora = time.strftime("%Y-%m-%d %H:%M:%S", now)
aux = ((dato * 100) / 256)
DataLogger.executemany (
"""INSERT INTO Temperaturas (FechaHora, Temperatura )
VALUES (%s, %s)""",
[
(fechahora, aux)
] )

def mysql_mostrar():
DataLogger.execute("SELECT FechaHora, Temperatura FROM Temperaturas")
rows = DataLogger.fetchall()
for row in rows:
print "%s, %s" % (row[0], row[1])

print "Numero de filas: %d" % DataLogger.rowcount
#------------------------------------------------------------------
RS232 = serial.Serial('/dev/ttyUSB0', 19200, timeout=1, stopbits=1)
print RS232.portstr

db = MySQLdb.connect("localhost","python","python","Datos")
DataLogger = db.cursor()

cantidad = int(raw_input('Cantidad de Muestras:'))

while running:
muestras += 1
RS232.write("AA")
dato = ord(RS232.read())
print dato
mysql_insertar(dato)
pygame.time.wait(1000)
#mysql_mostrar()
if muestras >= cantidad:
running = 0

RS232.close()
db.close()

#Final

La base de datos que deven crear es la siguiente:
la base se llama Datos con una tabla Temperaturas(id,FechaHora,Temperatura)

Python - Juego de la Vida (Automatas Celulares)

2007-11-09T06:38:00.000-08:00

Me intereso bastante cuando vi el efecto que producia unas simples leyes dentro de una matriz "Juego de la vida" este codigo lo encontre en un manual de python, el cual lo modifique para usar con pygame aqui se los dejo y modifiquen a su gusto xD.......(Hay partes del codigo que no se usan por que? bueno tambien estoy creando mi universo jajaja en fin ^^)

#! /usr/bin/env python
import pygame, serial, sys, MySQLdb, time
from pygame.locals import *
from random import random
from random import randint

pygame.init()
pygame.font.init()

def MostrarMundo():
for y in range(filas):
for x in range(columnas):
if Mundo[y][x]== 1:
pygame.draw.rect(screen,rojo,(x*10,y*10,10,10))
pygame.display.flip()
elif Mundo[y][x] == 2:
pygame.draw.rect(screen,verde,(x*10,y*10,10,10))
pygame.display.flip()
elif Mundo[y][x] == 3:
pygame.draw.rect(screen,azul,(x*10,y*10,10,10))
pygame.display.flip()
elif Mundo[y][x] == 4:
pygame.draw.rect(screen,blanco,(x*10,y*10,10,10))
pygame.display.flip()
elif Mundo[y][x] == 0:
pygame.draw.rect(screen,negro,(x*10,y*10,10,10))

pygame.time.wait(500)

def LaGranExplosion():
for i in range(randint(1,200)):
a = randint(0,21)
b = randint(0,21)
Mundo[a][b]=4

def Accion():

for y in range(filas):
for x in range(columnas):
n = 0
if y > 0 and x > 0 and Mundo[y-1][x-1]:
n+=1
if x > 0 and Mundo[y][x-1]:
n+=1
if y <> 0 and Mundo[y-1][x]:
n+=1
if y <>0 and Mundo[y+1][x]:
n+=1
if y>0 and x < columnas-1 and Mundo[y-1][x+1]:
n+=1
if x < columnas -1 and Mundo[y][x+1]:
n+=1
if y < filas-1 and x < columnas-1 and Mundo[y+1][x+1]:
n+=1

if Mundo[y][x] and (n==2 or n==3): #Nacimiento
Mundo[y][x]=1
elif not Mundo[y][x] and n==3: #Permanencia
Mundo[y][x]=1
else:
Mundo[y][x]=0 #Expiracion

MostrarMundo()

#---------------------------------------------------------------------
screen = pygame.display.set_mode((240, 240))
pygame.display.set_caption('JMQ')

running = 1

verde = 0 , 255, 0
rojo = 255, 0, 0
azul = 0, 0, 255
negro = 0, 0, 0
blanco = 255, 255, 255

filas = 22
columnas = 22
Mundo=[]
for i in range(filas):
Mundo.append([0]*columnas)

Mundo = [[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],\
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]]

LaGranExplosion()
while running:
for event in pygame.event.get():
if event.type == pygame.QUIT:
sys.exit()
#pygame.draw.rect(screen, Color, (x, y, x_size, y_size))
Accion()
screen.fill(negro)
pygame.display.flip()

Tengan en cuenta la identacion......... xD

Osciloscopio en accion xD

2007-11-08T05:11:00.000-08:00

Usando Pygame para un Osciloscopio

2007-11-07T19:38:00.000-08:00

Pygame no solamente sirve para hacer juegos y demas, lo podemos usar para construir nuestro propio osciloscopio casero de una manera relativamente facil, aqui le paso el codigo .py y asm para que puedan probar modificar a gusto, si bien el programa en pygame le falta es bastante explicativo para que puedan comenzar y mejorar el programa como agregar la base de tiempo por ejemplo, bueno aqui les paso:

* osciloscopio.py


#! /usr/bin/env python
import pygame, serial, sys
from pygame.locals import  *
pygame.init()
pygame.font.init()

amarillo = 255, 255, 0
aux = 0
RS232 = serial.Serial('/dev/ttyUSB0', 19200, timeout=1, stopbits=1)
print RS232.portstr
screen = pygame.display.set_mode((512, 256))
pygame.display.set_caption('Osciloscopio')

running = 1
negro = 0, 0, 0

while running: 
  event = pygame.event.poll() 
  aux = 0
  for x in range(0,512):
    if event.type == pygame.QUIT: sys.exit()
    RS232.write("AA")
    dato = ord(RS232.read()) 
    pygame.draw.line(screen, amarillo, (x, aux), (x+1, dato))
    aux = dato
    pygame.display.flip()
   
  screen.fill(negro)


* interfas.asm PIC16F873A 20Mhz
;JoseMariaQuiroga
;chispilinux@gmail.com

    list p=16f873a
    include "p16f873a.inc"
__config _HS_OSC & _WDT_OFF & _LVP_OFF &_DEBUG_OFF & _CPD_OFF &_PWRTE_ON &_LVP_OFF &_BODEN_ON
;-------------------------------------------
CounterA  equ    10h
buffer      equ    11h
CounterB  equ   12h
;-------------------------------------------
    org        0h
    goto       Inicio
    org        04h        
    btfss      PIR1,RCIF    ;Interrupcion por recepcion?
    goto      Sale_int_rx
    bcf        PIR1,RCIF    
    movf    RCREG,w
    xorlw    'A'        ;Leer el canal AD0 ?
    btfss    STATUS,Z
    goto    opcion_a    ;jeje si no me fijo
    call    Receive
    movf    RCREG,w
    xorlw    'A'        ;q' canal?
    btfss    STATUS,Z
    goto    Sale_int_rx
    movlw   b'01000001' ;FOSC/8 canal 0  ;Lectura de los AD
    movwf   ADCON0
    call    Conversion_ADC        
    movf    buffer,w
    call    Transmit
    goto    Sale_int_rx

    
opcion_a
    movf    RCREG,w
    xorlw    'S'        
    btfss    STATUS,Z
    goto    opcion_b
    call    Receive
    movf    RCREG,w
    xorlw    'A'        ;q' bit?
    btfss    STATUS,Z
    goto    check_sb
    bsf    PORTB,7
    goto    Sale_int_rx

check_sb    
    movf    RCREG,w
    xorlw    'B'        ;q' bit?
    btfss    STATUS,Z
    goto    Sale_int_rx
    bsf    PORTB,6
    goto    Sale_int_rx

opcion_b
    movf    RCREG,w
    xorlw    'C'
    btfss    STATUS,Z
    goto    Sale_int_rx
    call    Receive
    movf    RCREG,w
    xorlw    'A'        ;q' bit?
    btfss    STATUS,Z
    goto    check_cb    
    bcf    PORTB,7
    goto    Sale_int_rx

check_cb    
    movf    RCREG,w
    xorlw    'B'        ;q' bit?
    btfss    STATUS,Z
    goto    Sale_int_rx
    bcf    PORTB,6
    goto    Sale_int_rx

Sale_int_rx
    retfie                
;________________________________________________
;       Configurando en PIC
;________________________________________________
Inicio  bsf    STATUS,RP0     ;Cambiando de banco
    bcf    OPTION_REG,7
    movlw   B'00000000'     ;Todas las entradas analogicas
        movwf   ADCON1    
        movlw    B'00111111'    ;PORTA input adc
        movwf    TRISA    
        movlw    B'00000000'     ;PORTB output 
        movwf    TRISB    
        movlw    B'10000000'     ;PORTC output
        movwf    TRISC    
        movlw    D'15'       ;19200
        movwf    SPBRG    
        movlw    b'00100000' 
        movwf    TXSTA    
        movlw    b'10010000' 
    bsf    PIE1,RCIE    ;Habilitacion interrupcion RX
        bcf    STATUS,RP0        
        movwf    RCSTA    
    movlw    b'11000000'    ;Habilitacion para las 
    movwf    INTCON        ;interrupciones generales
;==========================================
mainloop
    bsf    PORTB,0    
    goto    mainloop
;==========================================
; Subrutinas
;------------------------------------------    
Receive btfss    PIR1,RCIF
        goto    Receive 
        movf    RCREG,w    
        return 
;-------------------------------------------    
Transmit 
    movwf    TXREG
    bsf    STATUS,RP0
WtHere  btfss    TXSTA,TRMT
        goto    WtHere 
        bcf    STATUS,RP0
        return 
;-------------------------------------------
;    Analogico Digital
;B'01000001' ;FOSC/8 canal 0 RA0
;B'01001001' ;FOSC/8 canal 1 RA1
;B'01010001' ;FOSC/8 canal 2 RA2
;B'01011001' ;FOSC/8 canal 3 RA3
;B'01100001' ;FOSC/8 canal 4 RA4

Conversion_ADC        
    movlw     D'5'
    movwf     CounterA
delay_0.00002_sec_loop        ;20 uS
    decfsz     CounterA,1
     goto     delay_0.00002_sec_loop         
    bsf    ADCON0,GO    
wait    btfsc    ADCON0,GO      ;Espera q termine la conversion
    goto    wait
    movf    ADRESH,w    
    movwf    buffer
    return        

    return    
;-------------------------------------------
    end
;-------------------------------------------

Este programita en ASM tambien nos sirve para otros ejemplos como el anterior  (python-serial).

Puerto Serial - Python

2007-11-07T17:53:00.000-08:00

El viejo amigo puerto serial RS232 , todavia se sigue usando en la industria xD. Python tiene un modulo para manejarlo bastante facil, bueno vamos a instalarlo:
apt-get install python-serial:

* Veamos que instalo : dpkg -L python-serial, nos vamos a /usr/share/doc/python-serial/examples y veremos varios ejemplos de donde aprender a manejarlo:

Ejemplo:
0#! /usr/bin/env python
1 import serial
2
3 RS232 = serial.Serial('/dev/ttyUSB0', 19200, timeout=1, stopbits=1)
4 print RS232.portstr
5 running = 1
6
7 while running:
8 RS232.write("AA")
9 dato = ord(RS232.read())
10 print dato

Importamos el modulo serial luego lo que hacemos es configurar nuestro puerto serial, en este caso uso un adaptador USB-RS232 (PL2303) que esta trabajando a 19200 bps con un bit de stop. Si todo esta bien en la linea 3 se imprime el dispositivo.
Mandamos una cadena "AA" y esperamos una respuesta donde la convertimos a un valor entero. (en este caso la cadena lo recibe un PIC lee el canal analogico y lo devuelve).

GPSIM en accion

2007-11-05T13:24:00.001-08:00

Usando GPSIM

2007-11-05T11:08:00.000-08:00

GPSIM es un programa de simulacion bastante completo con respecto a otros GNU, en este caso
le explico con un ejemplo :

*Primero instalamos o buscamos los paquetes que tenemos a disposicion:
apt-cache search gpsim
y nos tirara esto (en ubuntu)

gpsim - Simulator for Microchip's PIC microcontrollers
gpsim-dev - Libraries needed only for building gpsim components
gpsim-doc - Documentation for gpsim
gpsim-lcd - LCD module for gpsim
gpsim-lcd-graphic - LCD module for gpsim
gpsim-led - LED module for gpsim
gpsim-logic - logic module for gpsim

instalamos : apt-get install gpsim gpsim-doc (o todo xD)
tambien instalamos gputils: apt-get install gputils (es una utilidad para los uC de Microchip ensamblador y desemsamblador y otras herramientas)

*Ahora con nuestro editor faborito (nano) escribimos este codigo:

list p=16f84
include "p16f84.inc"
conta equ 10H ;Variables que vamos a usar
i equ 11H

org 0 ;Vector de reset
goto Configurar
org 05h
;------------------------------------------------------------
Configurar ;Configurando el pinout
bsf STATUS,5
movlw B'11111111'
movwf TRISB
movlw B'00000'
movwf TRISA
bcf STATUS,5
;------------------------------------------------------------
doloop
movlw D'32' ;Cargamos el registro conta con 32 en decimal
movwf conta
incf i,f ;Incrementamos el registro i en F
movf i,w
movwf PORTA ;Escribimos el PORTA con el valor incrementado de i
xorlw conta
btfss STATUS,Z ;Nos fijamos si llego a 32
goto doloop ;si no llego
clrf i ;si llego limpiamos los registros y volvemos a empezar
clrf PORTA
goto doloop
end

*guardamos con algun nombre por ejemplo contador.asm, luego: #gpasm contador.asm
nos generara tres archivos: contador.cod contador.hex contador.lst.
El .hex es para programar el pic, el lst una descripcion mas detallada del esamblamiento, nos indica donde nos equivocamos por ejemplo, el .cod lo vamos a usar con el gpsim

*En nuestra consola ponemos:#gpsim
-Arranca el GPSIM y nos vamos FILE->OPEN abrimos el contador.cod
-En el menu WINDOWS le damos un click en SOURCE y BREADBOARD nos saldra:
.el pinout del micro
.y nuestro codigo

*Corremos el programa con STEP o RUN y listo xD hay algo interesante con el gpsim que es el modo
de simulacion donde podemos elegir los ciclos por segundo del uC.
Tambien contamos con un manual en PDF bastante bueno, otra cosa ize que ejecuten el gpsim desde una consola para que? mirenla cuando ejectumos el simulador xD interesante no?
(disculpen la ortografia *_* )

Construyendo nuestro programador FreeICD2

2007-11-03T10:43:00.000-07:00

Buscando y buscando encontre un Programador de pic para el puerto serial el cual use con un adaptador USB-Serial (PL2303) y no tube ningun problema, los micros que probe son el 16F628, 16F873, 16F877.
Le paso el link http://www.stolz.de.be/ el esquematico es la imagen que ven:

El firmware lo pueden bajar del mismo sitio, si por alguna razon tienen problemas para bajarlo, me mandan un mail y se los paso.

Este programador funciona sin ningun problema en gnulinux con el programa Piklab http://piklab.sourceforge.net/
Es un IDE bastante completo, soporta varios compiladores y podemos usar en nuestros proyecto el SDCC (Small Device C Compiler) http://sdcc.sourceforge.net/ muy bueno por sierto, tambien podemos usar nuestros viejos programadores por el puerto paralelo.