Fireweed

La música muestra nuestro interior tal cual sucede en ese instante

Comunicacion PIC18FXXXX con Matlab por Puerto USB

Hola a todos, los saludo yo de nuevo. Vuelvo
con otra entrada la cual un microcontrolador
PIC-18FXXXX cualquiera de esta familia, se
conecta con una PC por puerto USB mediante
interfaz de Matlab.
Primero definamos el Puerto USB, Bus Serie
Universal, es como serial pero con paquetes
de 64 bytes y con velocidades de 480,12 o 1,5 Mbps
en este caso la frecuencia de clock usada para
comunicar el PIC con la PC es 48 Mhz, pero
usando los Phase Locked Loops (PLL) del PIC
se usan cristales mas bajos a la misma velocidad.
El tipo de conexion puede ser HID o BULK, HID se
usa para dispositivos como mouse,teclados y blabla
y BULK TRANSFER que entrega el dato por "volumen"
el ancho de banda puede variar y los envia
en secuencia lo cual nos lo hace mas simple.
Cualquier dispositivo USB debe identificarse ante
el HOST(PC) hay queespecificar el tipo
de transferencia de datos
a usar (endpoints), VID&PID, nombre y serie
del producto que se conecta para que el
host identifique al driver y pueda instalarlo
con el fin de que el dispositivo pueda formar
las “pipes” ó túneles para su comunicación
con el host y se oiga el clasico Pu PUM! al
conectar cualquier USB.
El driver y la libreria a usar es la MPUSBAPI
que nos brinda MICROCHIP, buscando MICROCHIP
SOLUTIONS para descargar en MICROCHIP.com
(si no lo encuentran pueden comunicarse a este
blog para ayuda) El programa para el PIC lo
desarrolle en PIC-C el cual lo descarge en red
A continuacion el programa completo compilado
y probado:
///////////////////////////////////////////
#include <18F2550.h>
#fuses HSPLL,NOWDT,NOPROTECT,NOLVP,NODEBUG,USBDIV,PLL3,CPUDIV1,VREGEN,MCLR,NOPBADEN
#use delay(clock=48000000)
#use rs232(baud=9600, xmit=PIN_C6, rcv=PIN_C7)


#define USB_HID_DEVICE FALSE
#define USB_EP1_TX_ENABLE USB_ENABLE_BULK
#define USB_EP1_RX_ENABLE USB_ENABLE_BULK
#define USB_EP1_TX_SIZE 64
#define USB_EP1_RX_SIZE 64

#include
#include
#include
#define LEDV PIN_A0
#define LEDR PIN_A1
#define LED_ON output_high
#define LED_OFF output_low

#BYTE TRISA = 0x0F92
#BYTE TRISB = 0x0F93
#BYTE PORTA = 0x0F80
#BYTE PORTB = 0x0F81
#BYTE ADCON1 = 0x0FC1
#BYTE CMCON = 0x0FB4

int8 dato[64];
void main(void) {

LED_ON(LEDV);
LED_OFF(LEDR);

usb_init();
usb_task();
usb_wait_for_enumeration();

LED_OFF(LEDV);
LED_ON(LEDR);

TRISA = 0x00;
TRISB = 0x00;
ADCON1 = 0x0F;
CMCON = 0x07;
while (TRUE)
{
if(usb_enumerated())
{
if (usb_kbhit(1))
{ usb_get_packet(1, dato, 64);
portb = dato[0];
dato[1] = porta;
usb_put_packet(1, dato, 64, USB_DTS_TOGGLE);
}
}
}

}
//////////////////////////////
ESCRIBAN SU CORREO EN COMENTARIO y
ENVIO LOS CODIGOS POR EMAIL

Como se ve es bastante sencillo, y se logra enviar
hasta 128 paquetes de 64 bytes cada uno
o tambien de 8 bits que es mas comun
desde dato[0] hasta dato[128],

Ahora vamos al codigo en MATLAB el cual
nos facilita la vida porque solo se carga la
MPUSBAPI y listo ojo que son 3 archivos
MPUSBAPI.dll
MPUSBAPI.c
MPUSBAPI.h
tienen que estar en la misma carpeta
del archivo .m que creemos
Ahhhhhhhh! Tienen que crear un archivo .m
en File->New->M-File y copian el siguiente codigo
%%%%%%%%%%%%%%%%%%%%%%%%%%%
clear all;
close all;
loadlibrary mpusbapi _mpusbapi.h alias libreria
data_in = eye(1,64,'uint8');
data_out = eye(1,64,'uint8');
vid_pid_norm = libpointer('int8Ptr',[uint8('vid_04d8&pid_000b') 0]);
out_pipe = libpointer('int8Ptr',[uint8('\MCHP_EP1') 0]);
in_pipe = libpointer('int8Ptr',[uint8('\MCHP_EP1') 0]);
[conectado] = calllib('libreria','MPUSBGetDeviceCount',vid_pid_norm)


if conectado == 1
[my_out_pipe] = calllib('libreria', 'MPUSBOpen',uint8 (0), vid_pid_norm, out_pipe, uint8(0), uint8 (0));

[my_in_pipe] = calllib('libreria', 'MPUSBOpen',uint8 (0), vid_pid_norm, in_pipe, uint8 (1), uint8 (0)); while (data_out(1)<=255)
calllib('libreria', 'MPUSBWrite',my_out_pipe, data_out, uint8(64), uint8(64), uint8(10));
[aa,bb,data_in,dd] = calllib('libreria', 'MPUSBRead',my_in_pipe, data_in, uint8(64), uint8(64), uint8(10));
data_out (1) = (data_out(1))+1;
data_in(2)
pause (0.1); end
calllib('libreria', 'MPUSBClose', my_in_pipe);
calllib('libreria', 'MPUSBClose', my_out_pipe);
end
unloadlibrary libreria % Importante descargar la librería de memoria, de lo contrario genera errores
close all
clear all
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Este programa envia un contador de 1 a 255 y muestra

por el puerto B del pic, y tambien lee el puerto A

y lo muestra en Matlab.

Recomiendo usar el Proteus 7. 4

Service Pack 3
luego instales los USB drivers

solo ahi me funciono

la simulacion

Para cualquier duda

o para los archivos

comenta el post

estare atento
En la proxima comunicaremos

este pic con LabView, y tambien

el control de varios servomotores

en JAVA NEtbeans o matlab

Saludos

Looking Glass Amber Asylum

Seguimiento de Objetos de Colores con webcam en Matlab

Esta vez vengo con un codigo .m para el seguimiento de colores usando una camara web y Matlab
copio el codigo y voy explicando las sentencias para que sea mas facil su comprension(el operador " % " hace que no se compile la linea, es decir, es un comentario):
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
close all;clear all;clc;

% primero se captura un stream de video usando videoinput, con argumento
%de winvideo, numero de dispositivo y formato de la camara, si no sabes usa la
%funcion imaqtool para averiguarlo es YUY o RGB
vid=videoinput('winvideo',1,'YUY2_160x120');
%640x480 160x120
% Se configura las opciones de adquision de video
set(vid, 'FramesPerTrigger', Inf);
set(vid, 'ReturnedColorspace', 'rgb')
vid.FrameGrabInterval = 5;
%framegrabinterval significa que tomara cada 5 frame del stream de video adquirida
%con start(vid) se activa la adquisicion, pero todavia se toma la primera foto
start(vid)

% creamos un bucle que puede ser while always o while true en este caso
%y como mi compu es una netbook trucha(trucha=cagada=lenta=barata)
%hago que despues de 100 frames adquiridos se salga del bucle para evitar colgadas
while(vid.FramesAcquired<=100)

% se toma una snapshot del stream y se la almacena en data para trabajar mas
%facil
data = getsnapshot(vid);

% ahora vamos a reconocer el color rojo en tiempo real
% tenemos que extraer el color rojo
% de la imagen en escala de grises de la imagen adquirida en data
diff_im = imsubtract(data(:,:,1), rgb2gray(data));
%imsubstract sirve para sacar algun valor constante de una imagen, usamos como
%argumento el array de data y la funcion rgb2gray de data
%se usa medfilt2 para filtrar la senial del ruido
diff_im = medfilt2(diff_im, [3 3]);
% Convertir la imagen en escala de grises a una imagen binaria.
diff_im = im2bw(diff_im,0.18);

% para determinar el tamanio a reconocer se usa bwareopen para descartar
%imagen de rojo de menos de 300 pixels
diff_im = bwareaopen(diff_im,300);

% Etiquetamos los elementos conectados en la imagen
bw = bwlabel(diff_im, 8);

% Ahora hacemos el analisis del "objeto" detectado(que solo son pixels rojos)
%agrupados de mas de 300
% onfiguramos la region etiquetada
stats = regionprops(bw, 'BoundingBox', 'Centroid');

% mostramos la imagen
imshow(data)

hold on

%este es un bucle para encerrar el objeto rojo en un rectangulp y una cruz en el
%centroide(solo es programacion basica de matlab)
for object = 1:length(stats)
bb = stats(object).BoundingBox;
bc = stats(object).Centroid;
rectangle('Position',bb,'EdgeColor','r','LineWidth',2)
plot(bc(1),bc(2), '-m+')
a=text(bc(1)+15,bc(2), strcat('X: ', num2str(round(bc(1))), ' Y: ', num2str(round(bc(2)))));
set(a, 'FontName', 'Arial', 'FontWeight', 'bold', 'FontSize', 12, 'Color', 'yellow');
end

hold off
end
% aqui terminan los 2 bucles

% detenemos la captura
stop(vid);


%FLUSHDATA remueve la imagen del motor de adquisicion y la almacena en el buffer
flushdata(vid);

% borramos todo(como en cualquier programa)
clear all
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Este es un codigo basico para que usted senior lector pueda seguir desarrollando

Espero les sirva para entender el procesamiento de seniales.

Toda la informacion se encuentra en Mathworks.com

En la proxima publicacion unanse a mi en "LA LUCHA CONTRA EL PUERTO PARALELO Y SERIE....VIVA EL USB!!!" que me parecen utiles, pero ahora un poco obsoletos y estoy en contra

de esas tareas de Catedraticos que mas o menos son "Encender un Led con puerto serie o paralelo con VisualBasic o Hacer funcionar un motorcito paso a paso con puerto paralelo"(Lastima que por aqui el tiempo se detuvo).

A ellos va la proxima publicacion, podremos manejar varios canales de 8 bits, osea varios ledcitos o motorcitos(servos, dc's o pap), con un PIC18Fxxxx (son lo mismo solo varian las patitas y los adc's) desde Java, Labview, o Matlab.

Los saludo, hasta la proxima

Poemas y ... "Poemas"

Después de el tiempo que paso he vuelto con un nuevo concepto de ...POEMA.

Los griegos (griegos antiguos) grandes pensadores, matemáticos, filósofos usaban la palabra Poiema como "Creación", mientras que ahora Poema es una composición literaria y etc.

Apuesto por la definición griega para llevar este blog a otra etapa. Este blog se dedicara a mostrar creaciones de todo tipo ya sean mías o de otras personas de este mundo por lo que el titulo "Unos cuantos poemas" es valido como "Unas cuantas creaciones".

Estas creaciones o poemas serán del ámbito de arte y ciencia donde se encuentran todas las creaciones del ser humano, en realidad olvido las creaciones de la naturaleza, esta bien, también las incluiré.

Me despido hasta la próxima entrada que supongo sera alguna creación electrónica

saludos