GluCOLOR1. Glucometro de bajo costo
Soy creyente que tenemos que devolveralgo de lo mucho que se nos ha dado.
Ser Ingeniero es una vocacion de servicio y es por eso que este proyecto que usando los conocimientos adquiridos he diseñado un glucometro y Phimetro de Bajo costo que es un lector de tiras reactivas de prueba de orina que convierte un sstemas de baja resolucion en un sistema de medicion analogo, preciso y confiable y sobre todo de BAJO COSTO.
Ademas puede ser usado para cuantificar 10 parametros:
Nitritos
Proteínas
Glucosa
Cuerpos cetónicos
Urobilinógeno
Bilirrubinas
Sangre
Densidad
pH
LeucocitosMas informacion visitar:
Ser Ingeniero es una vocacion de servicio y es por eso que este proyecto que usando los conocimientos adquiridos he diseñado un glucometro y Phimetro de Bajo costo que es un lector de tiras reactivas de prueba de orina que convierte un sstemas de baja resolucion en un sistema de medicion analogo, preciso y confiable y sobre todo de BAJO COSTO.
Ademas puede ser usado para cuantificar 10 parametros:
Nitritos
Proteínas
Glucosa
Cuerpos cetónicos
Urobilinógeno
Bilirrubinas
Sangre
Densidad
pH
LeucocitosMas informacion visitar:
// This GUI file is generated by guibuilder version 2.2
////////// GluCOlor por Rodolfo Sanchez www.rodolfosanchez.com.mx
f=figure('figure_position',[400,50],'figure_size',[652,609],'auto_resize','on','background',[10],'figure_name','Graphic window number %d');
//////////
delmenu(f.figure_id,gettext('File'))
delmenu(f.figure_id,gettext('?'))
delmenu(f.figure_id,gettext('Tools'))
toolbar(f.figure_id,'off')
handles.dummy = 0;
handles.GluCOLOR=uicontrol(f,'unit','normalized','BackgroundColor',[0.6,0.6,0.6],'Enable','on','FontAngle','normal','FontName','helvetica','FontSize',[12],'FontUnits','points','FontWeight','normal','ForegroundColor',[0,0,0],'HorizontalAlignment','center','ListboxTop',[],'Max',[1],'Min',[0],'Position',[0.2,0.5984456,0.5958333,0.2953368],'Relief','raised','SliderStep',[0.01,0.1],'String','GluCOLOR','Style','pushbutton','Value',[0],'VerticalAlignment','middle','Visible','on','Tag','GluCOLOR','Callback','GluCOLOR_callback(handles)')
handles.Calibracion=uicontrol(f,'unit','normalized','BackgroundColor',[0.6,0.6,0.6],'Enable','on','FontAngle','normal','FontName','helvetica','FontSize',[12],'FontUnits','points','FontWeight','normal','ForegroundColor',[0,0,0],'HorizontalAlignment','center','ListboxTop',[],'Max',[1],'Min',[0],'Position',[0.2,0.1943005,0.59375,0.2953368],'Relief','raised','SliderStep',[0.01,0.1],'String','Calibracion','Style','pushbutton','Value',[0],'VerticalAlignment','middle','Visible','on','Tag','Calibracion','Callback','Calibracion_callback(handles)')
//////////
// Callbacks are defined as below. Please do not delete the comments as it will be used in coming version
//////////
function GluCOLOR_callback(handles)
//Write your callback for GluCOLOR here
n = camopen(0);
im = avireadframe(n); //get a frame
im = avireadframe(n); //get a frame
im = avireadframe(n); //get a frame
im = avireadframe(n); //get a frame
glu=rgb2gray(im);
glu_valor=mean2(glu(96:97, 60:62));
mprintf('Gluvaor %d \n', glu_valor);
im(96:97,58:68,:)=255;
im(96:97,163:173,:)=255;
imshow(im);
// imshow(im);
aviclose(n);
base=csv_read('C:\Users\Lenovo Core i5\Desktop\glu.txt');
Glucosa=(100 + (base-glu_valor)*1.2);
mprintf('glucosa %d \n', Glucosa);
Glucosastr=string(Glucosa);
xset("font size",7);
xstring(0.15,0,Glucosastr,0,0);
ph_valor=mean2(glu(96:97, 166:170));
mprintf('ph valor ph %d \n', ph_valor);
baseph=csv_read('C:\Users\Lenovo Core i5\Desktop\ph.txt');
mprintf('base ph %d \n', baseph);
ph=double(5 +((baseph-ph_valor)/4.05));
mprintf('PH %d \n', ph);
phstr=string(ph);
xset("font size",7);
xstring(0.8,0,phstr,0,0);
endfunction
function Calibracion_callback(handles)
n = camopen(0);
im = avireadframe(n); //get a frame
im = avireadframe(n); //get a frame
im = avireadframe(n); //get a frame
im = avireadframe(n); //get a frame
glu=rgb2gray(im);
imshow(glu);
glu_valor=mean2(glu(96:97, 60:62));
mprintf('Hello, world %d \n', glu_valor);
M=[glu_valor];
csv_write(M, 'C:\Users\Lenovo Core i5\Desktop\glu.txt');
im(96:97,58:68,:)=255;
im(96:97,163:173,:)=255;
imshow(im);
//////////////////////////PPPPPPPPPPPPPPPPPPPP
/////////////////////////HHHHHHHHHHHHHHHHHHHH
ph_valor=mean2(glu(96:97, 166:170));
mprintf('PH %d \n', ph_valor);
N=[ph_valor];
csv_write(N, 'C:\Users\Lenovo Core i5\Desktop\ph.txt');
imshow(im);
xset("font size",7);
xstring(0.9,0.5,"C",0,0);
aviclose(n);
endfunction