HitIer
Usuario (Argentina)
Prende las luces de tu casa usando la pc Este es un proyecto en el cual mezclamos la electronica con la programacion, uniendolas con interfaces, que en este caso, son por medio de un optoacoplador.La idea se basa en poder controlar una serie de 8 dispositivos [por lo general luces en una casa o algun lugar donde se requiera el control de la electricidad por medio remoto.En mi post anterior publique mi compilacion de Turbo pascal, que viene parcheada y lista para ser usada sin correr el riesgo del temible error BSOD de DOS:ERROR 20 DIVISION BY CEROPorque elegir Pascal? 1)Primeramente porque es un lenguaje facil y rapido.2)Al momento de compilar no se necesita de librerias.3)Para este proyecto no usaremos una potente computadora4)Puede usarse el ejecutable sin necesidad de instalarse primero, sin siquiera tener que usar algun sistema operativo, al menos con que tenga MS-DOS es suficiente. Diagrama de la Interfaz Aqui tenemos la interfaz que usaremos para conectarla al puerto paralelo de la computadoraCabe aclarar que debemos hacer 8 de estos circuitos para poder controlarlos con el programa que mas adelante les dejo.Es mas sencillo este circuito aunque digan lo contrario, en mi opinion, este circuito es mas facil de probar que confundirse con la puesta de los transistores...Para la conexion:Realicen 8 de estos circuitos, luego coloquen la entrada (R1) a cada pin de salida del puerto paralelo, del pin 2 al pin 9.El puerto debe trabajar con la direccion 378h Base 1 en la direccion $0040 y segmento 0008osea el puerto LPT1.Si desean saber como trabaja, tanto este puerto, como otros, busquen mi post sobre libros de electronica o de programacion y acceso a puertos.Conozcamos la interfazUsando Circuitos integrados se la empresa motorola, que por su sencillez no deja de darnos cosas utiles como el "PASAJE POR CERO" y una tension de aislamiento cercano mayor a los 1 KiloVoltios.el MOC usado es el 3040 (o su equivalente MOC3041) o un alternativo tambien como el siguiente diagrama:El TRIAC depende de lo que queramos controlar [por estado solido] interrumpiendo su electricidad.Si la Carga es REISTIVA entonces usaremos un TIC226D que no pase de los 400 voltiosSi la Carga es INDUCTIVA entonces usaremos un TIC226M de unos 600 voltios de controlde lo anterior debemos tener cuidado de no sobrecargar la carga de trabajo del capacitor C1, poniendolo a un valor adecuado levemente superior a la carga del TRIAC.El valor de R1 depende de la tension de entrada, R1 = 1000 (Uin - 1,3) / ILED (mA) Donde:Uin se expresa en VoltiosR1 esta en OhmiosILED es la corriente que circula por el diodo LED en el optoacoplador expresada en mili Amperios.Ejemplo:Uin = 12ILED = 30 mA como en el MOC3040R1 es en total = 356 Ohmios, estandar buscado cercano es de 330 Ohmios12 - 1.3 = 10.710.7 / 30 = 0.356 = 356 OhmiosAhora sabemos que el puerto paralelo nos da un valor TTL de 5 voltios aplicamos la formula matematica para el calculo de la resistencia que el MOC3040 usara:5 - 1.3 = 123 Ohmios = aproximandolo a un valor comercial nos da 125 Ohmios en R1Ahora que tenemos los calculos procederemos a la programacion:aqui esta el codigo fuente: si desean modificarlo. Si lo desean, tambien pueden descargarlo, si se desean ahorrar todo el trabajo de compilacion mas abajo del codigo fuente.Codigo Fuente (algunas librerias no se usan, pueden eliminarlas) uses DOS,graph,Crt,SVGA256,Txt;label 100;vargraphdriver,graphmode:integer;nombre: string[17];Font: array[0..767] of byte;clave,Ch:char;p: word absolute $0040:0008;a,b,c,d,e,f,g,h: integer;{----------------------------------------------------------------------------}procedure inicio;begin;textbackground(blue);clrscr;gotoxy(17,10);textcolor(white);writeln('iniciando ambiente grafico, espere unos segundos');gotoxy(10,30);writeln('Por favor ingresa tu nombre para mostrarlo mas adelante');gotoxy(10,33);writeln('como usuario durante el programa');writeln;gotoxy(44,33);textcolor(white);textbackground(blue);gotoxy(45,33);read(nombre);gotoxy(44,33);delay(300);clrscr;end;procedure Titulo;beginSetMode(1);Bar(0,0,320{ancho horizontal},200{ancho vertical},blue{color fondo});Print2(10,5,62,'Laboratorios Enigma software');{9 es violeta 16 es negro}Print2(10,10,62,'');Print2(30,50,62,' CONTROL PORT ');Print2(10,160,62,' Presiona la Tecla ');Print2(10,185,62,'(c)Gerson Enigma Guatemala 2005');Ch:=ReadKey; Ch:=#0;{este es el fondo principal del programa}Bar(0,0,320,200,blue{color fondo});Bar(2,2,316,20,9 {bluelight color fondo});bar(2,186,316,18,9); {fondo de mensajes esc y F11}bar(2,2,3,199,9);bar(316,2,3,199,9);Print2(115,10,62,'Control Port');Print2(90,190,65,nombre);print2(5,190,62,'Operador: ');bar(7,35,220,88,black); {fondo de interruptores}end;{----------------------------------------------------------------------------}procedure iniciodatos; {todos los bits a cero}begindelay(100);port:=0;a:=0;b:=0;c:=0;d:=0;e:=0;f:=0;g:=0;h:=0;delay(100);end;procedure status;beginprint2(85,25,65,'Estado');Print2(5,126,65,' ');print2(5,125,65,' terminal 1 Terminal 7');print2(5,135,65,' Terminal 2 Terminal 8');print2(5,145,65,' Terminal 3 Selec. Todos');print2(5,155,65,' Terminal 4 Menu Ayuda ');print2(5,165,65,' Terminal 5 ');print2(5,175,65,' Terminal 6 Salir');end;procedure instrucciones;beginend;{----------------------------------------------------------------------------}procedure estado;beginif port = port-1 then bar(10,40,200,10,black); print2(10,40,62,'interruptor [1] apagado');if port = port+1 then bar(10,40,200,10,black); print2(10,40,62,'interruptor [1] Encendido');if port <> -1 or +1 then bar(10,40,200,10,black); print2(10,40,62,'interruptor [1] Data Error');if port = port-2 then bar(10,50,200,10,black); print2(10,50,62,'interruptor [2] apagado');if port = port+2 then bar(10,50,200,10,black); print2(10,50,62,'interruptor [2] Encendido');if port <> -2 or +2 then bar(10,50,200,10,black); print2(10,50,62,'interruptor [2] Data Error');if port = port-4 then bar(10,60,200,10,black); print2(10,60,62,'interruptor [3] apagado');if port = port+4 then bar(10,60,200,10,black); print2(10,60,62,'interruptor [3] Encendido');if port <> -4 or +4 then bar(10,60,200,10,black); print2(10,60,62,'interruptor [3] Data Error');if port = port-8 then bar(10,70,200,10,black); print2(10,70,62,'interruptor [4] apagado');if port = port+8 then bar(10,70,200,10,black); print2(10,70,62,'interruptor [4] Encendido');if port <> -8 or +8 then bar(10,70,200,10,black); print2(10,70,62,'interruptor [4] Data Error');if port = port-16 then bar(10,80,200,10,black); print2(10,80,62,'interruptor [5] apagado');if port = port+16 then bar(10,80,200,10,black); print2(10,80,62,'interruptor [5] Encendido');if port <> -16 or +16 then bar(10,80,200,10,black); print2(10,80,62,'interruptor [5] Data Error');if port = port-32 then bar(10,90,200,10,black); print2(10,90,62,'interruptor [6] apagado');if port = port+32 then bar(10,90,200,10,black); print2(10,90,62,'interruptor [6] Encendido');if port <> -32 or +32 then bar(10,90,200,10,black); print2(10,90,62,'interruptor [6] Data Error');if port = port-64 then bar(10,100,200,10,black); print2(10,100,62,'interruptor [7] apagado');if port = port+64 then bar(10,100,200,10,black); print2(10,100,62,'interruptor [7] Encendido');if port <> -64 or +64 then bar(10,100,200,10,black); print2(10,100,62,'interruptor [7] Data Error');if port = port-128 then bar(10,110,200,10,black); print2(10,110,62,'interruptor [8] apagado');if port = port+128 then bar(10,110,200,10,black); print2(10,110,62,'interruptor [8] Encendido');if port <> -128 or +128 then bar(10,110,200,10,black); print2(10,110,62,'interruptor [8] Data Error');end;procedure keys;beginestado;repeatbeginch:=readkey;if (ch = #0) then Beginch:= readkey;case ch of#59: begin {F1}a := a+1;if frac(a/2) = 0 thenbeginbar(10,40,210,10,black);print2(10,40,62,'interruptor [1] apagado');port:=port-1endelsebeginbar(10,40,210,10,black);print2(10,40,62,'interruptor [1] Encendido');port:= port+1end;end;#60: begin {F2}b := b+1;if frac(b/2) = 0 thenbeginbar(10,50,210,10,black);print2(10,50,62,'interruptor [2] apagado');port:=port-2endelsebeginbar(10,50,210,10,black);print2(10,50,62,'interruptor [2] Encendido');port:= port+2end;end;#61: begin {F3}c := c+1;if frac(c/2) = 0 thenbeginbar(10,60,210,10,black);print2(10,60,62,'interruptor [3] apagado');port:=port-4endelsebeginbar(10,60,210,10,black);print2(10,60,62,'interruptor [3] Encendido');port:= port+4end;end;#62: begin {F4}d := d+1;if frac(d/2) = 0 thenbeginbar(10,70,210,10,black);print2(10,70,62,'interruptor [4] apagado');port:=port-8endelsebeginbar(10,70,210,10,black);print2(10,70,62,'interruptor [4] Encendido');port:= port+8end;end;#63: begin {F5}e := e+1;if frac(e/2) = 0 thenbeginbar(10,80,210,10,black);print2(10,80,62,'interruptor [5] apagado');port:=port-16endelsebeginbar(10,80,210,10,black);print2(10,80,62,'interruptor [5] Encendido');port:= port+16end;end;#64: begin {F6}f := f+1;if frac(f/2) = 0 thenbeginbar(10,90,210,10,black);print2(10,90,62,'interruptor [6] apagado');port:=port-32endelsebeginbar(10,90,210,10,black);print2(10,90,62,'interruptor [6] Encendido');port:= port+32end;end;#65: begin {F7}g := g+1;if frac(g/2) = 0 thenbeginbar(10,100,210,10,black);print2(10,100,62,'interruptor [7] apagado');port:=port-64endelsebeginbar(10,100,210,10,black);print2(10,100,62,'interruptor [7] Encendido');port:= port+64end;end;#66: begin {F8}h := h+1;if frac(h/2) = 0 thenbeginbar(10,110,210,10,black);print2(10,110,62,'interruptor [8] apagado');port:=port-128endelsebeginbar(10,110,210,10,black);print2(10,110,62,'interruptor [8] Encendido');port:= port+128end;end;#70: {}beginbar(7,35,210,88,black); {fondo de interruptores}print2(10,40,62,'Creado por ');print2(10,60,62,'Gerson Hernandez');print2(10,90,62,'(c) 2005 enigma');end;#68 : {}begininstrucciones;titulo;keys;end;#67: {}beginbar(7,35,210,88,black); {fondo de interruptores}print2(10,40,62,'Encenderlos Todos ');print2(10,50,62,'Apagarlos Todos ');print2(10,60,62,'Regresar ');print2(10,80,62,'Estado Actual:');repeatbeginch:= readkey;case ch of#60:begin {F2}bar(10,100,210,10,black);print2(10,100,62,'Todos Encendidos');port:=255;end;elsebeginbar(10,100,210,10,black);print2(10,100,62,'Todos Apagados');port:= 0 ;end;end;end;until ch = #27;bar(7,35,210,88,black); {fondo de interruptores}keys;end;end;end;end;until ch in [#27];end;procedure salir;beginBar(0,0,320{ancho horizontal},200{ancho vertical},Blue{color fondo});print2(19,50,62,'Saliendo del programa');print2(90,120,62,' Cerrando Sesion');print2(10,186,62,'Creado por Gerson Hernandez (c)2005');sound(2700);delay(100);nosound;Delay(700);end;{------------Main Program------------}beginFileRead('0808art.fnt',0,96,8,Font);InstallFont(1,8,8,32,96,8,Font);iniciodatos;inicio;Titulo;status;keys;salir;{ Ch:=ReadKey; Ch:=#0;}end. Notas Finales La interfaz del optoacoplador se debe poner a los pines siguientes del puerto paralelo:El programa usa librerias en modo Grafico si no las tienen o no las quieren usar quiten lo que no es interesePines de datos:[2][3][4][5][6][7][8][9]Los pines del 18 al 25 se conectan todos juntos a Masa (0 Voltios = GND) y los restantes pines no se usan.
Un hombre logró rebajar 122 kilos sin cirugía Bryan Ganey salió lentamente del auto de sus padres. Michael y Martha Ganey habían llevado a su hijo al trabajo porque no se sentía bien; durante el último par de días, las tareas sencillas lo habían dejado sin aliento y agotado. Con 261 kilogramos, estar fuera de forma era normal para Bryan, por lo que simplemente lo ignoró. Sin embargo, cuando se dirigía hacia la puerta de su oficina el 20 de junio de 2010, las cosas cambiaron repentinamente. Los Ganeys se alejaban cuando el teléfono de Martha sonó. Lo único que escuchaba en el otro extremo de la línea eran jadeos. La pareja detuvo el auto y regresó rápidamente al edificio, donde encontraron a su hijo tirado en los arbustos, luchando por respirar. El trayecto hasta el hospital tomó sólo cinco minutos, pero a Martha le parecieron horas. A Bryan no le importaba el tiempo: sabía que iba a morir. “Yo estaba absolutamente convencido de que estaba teniendo un ataque al corazón. Los médicos me habían dicho antes que, por mi tamaño, si alguna vez tenía problemas de corazón, no podrían operarme. Así que había una gran posibilidad de que este fuera el final; iba a llegar allá y no habría nada que pudieran hacer”, dijo. Fuera de control Durante años, Bryan trabajó en el turno nocturno en un centro telefónico a 32 kilómetros de su casa. Se saltaba el desayuno, comía comida rápida en el almuerzo y la cena y luego pasaba por una pizza o bocadillos en las tiendas de abarrotes mientras se dirigía a casa. A menudo bebía más de 3.5 litros de refresco al día. A la edad de 37 años, tenía un índice de masa corporal de alrededor de 87. Un IMC superior a 30 se considera obesidad. “Él era muy consciente de que tenía un problema”, dijo Martha. “Estaba fuera de control”. El 20 de junio fue posiblemente lo mejor que le pudo haber pasado a Bryan, aunque ciertamente no parecía así en ese momento. Su “ataque al corazón” era en realidad una embolia pulmonar, o un coágulo de sangre que había viajado a sus pulmones, bloqueando su flujo de oxígeno. Durante seis días, Bryan estuvo en una cama de hospital, cubierto de hematomas causados por los anticoagulantes que fueron bombeados en su cuerpo. “Al principio, me sentí como una víctima, como si alguien o algo me hubiera hecho esto”, dijo Bryan en un video de YouTube sobre su experiencia. “Pero entonces la realidad se impuso y el dolor se convirtió en rabia. Mi condición era inaceptable”. Varios médicos de ese hospital le sugirieron una cirugía para bajar de peso, pero Bryan se negó. Tanto él como su madre tenían amigos que habían pasado por la cirugía y sufrían complicaciones. Pequeños pasos Hoy en día, Bryan, de 39 años, cuenta su historia desde el asiento del conductor de un auto en el que no habría entrado hace dos años. Compra ropa en grandes almacenes, compra un asiento de avión en lugar de dos y duerme toda la noche. “Lo mejor de todo el peso que he perdido es despertarme cada día y darme cuenta de que ya no peso 261 kilogramos”, dijo con una sonrisa. “Las mayores recompensas son las más pequeñas”. Bryan inició con pequeños pasos el viaje hacia la pérdida de peso. Después de salir del hospital, empezó a moverse: en un primer momento, empujando un carrito de compras en la tienda de comestibles, como un niño aprendiendo a caminar. Luego se aventuró a ir al buzón al final del camino de la entrada a su casa. Pronto caminaba varios kilómetros en un solo día. Perdió 59 kilogramos en los primeros seis meses, y luego bajó otros 63 kilos más durante el transcurso del siguiente año. Con 1.72 metros de estatura, Bryan ahora pesa poco menos de 136 kilogramos. “Resulta que realmente es cierto”, escribió Bryan en su envío de iReport de CNN. “Si usas más energía de la que consumes, perderás peso”. Bryan se cambió a un turno matutino en el trabajo para vencer sus malos hábitos alimenticios. Es muy cuidadoso acerca de lo que pone en su boca: se niega a alejarse de las carnes magras, vegetales y frutas que él mismo prepara. Hace entre cinco y seis comidas al día, cada dos o tres horas. Mide sus porciones para que el número total de calorías diarias llegue a las 2,500. “La comida está en todas partes”, dijo, reflejando su lucha por mantenerse firme en el trabajo o en los entornos sociales. “Simplemente no puedo comer más. No puedo hacerlo nunca más. No tengo la capacidad de comer sólo un bocado. Ellos piensan que debo sentirme miserable, porque yo... no me permito tener ciertas cosas. (Pero) los beneficios que he obtenido, el premio, valen la pena”. Después de perder sus primeros 31 kilogramos, Bryan decidió contratar a un entrenador personal. No era la primera vez que había intentado perder peso haciendo ejercicio, y en el pasado lo arruinó presionándose demasiado. Su entrenadora, Martha Peake, comenzó poco a poco. Al principio lo único que hizo fue sentarse y ponerse de pie. Para Bryan, con 226 kilogramos, eso era suficiente. El año pasado, Bryan cojeó hasta la recta final de la carrera 10K (de 10 kilómetros) en la que participó. Este año planea correrla toda. Todavía está perdiendo alrededor de 3 kilogramos al mes y espera eventualmente pesar 90 kilogramos. Oraciones simples Cuando Bryan regresó al médico, el cambio en sus análisis de sangre era casi increíble. Ha dejado muchos de los medicamentos que tomaba antes, su medicamento para la presión arterial ha sido reducido cuatro veces durante los últimos dos años. Su colesterol LDL, el tipo malo, es de 100; un número óptimo. Con 261 kilogramos, Bryan era prediabético. Ahora está mirando hacia un brillante futuro libre de diabetes. “Creo que lo que se pierde en los anuncios y en todo lo que se ha escrito acerca de la pérdida de peso es que si la gente lo hace sencillo, todos tienen ese poder en sí mismos. Tú puedes cambiar tu vida”.