Tutoriales hay muchos, como mi amigo Alexis  (el ingeniero electrónico) no pudo hacerlo todavía, solo les voy a poner links a lostutoriales que encontré. Cuando lo hagamos les subo las fotos y mas info.

Cubo de leds de 3x3x3 (en castellano) :

 http://www.clase911.com/C911/index.php/es/component/content/article/56-microcontroladores/143-icomo-crear-un-cubo-de-leds-3x3x3-con-arduino

Cubo de leds de 3x3x3 (en inglés):

 http://www.instructables.com/id/LED-Cube-and-Arduino-Lib/

Un video haciendo un led cube 3x3x3

Si se animan, luego de construir el anterior o no, pueden ir por algo mas impresionante.

Cubo de 8x8x8 (en inglés)

http://www.instructables.com/id/Led-Cube-8x8x8/

http://www.hownottoengineer.com/projects/lc.html

Todos estos cubos se programan con una placa llamada Arduino, en esta web pueden ver los distribuidores oficiales por cada pais: http://arduino.cc/es/Main/Buy

Lo mas groso de todo en led cubes es el RGB

http://www.hownottoengineer.com/projects/rgb-led-cube.html

A ver quien lo hace y envia las fotos!

UPDATE 6 Mayo 2012. Alexis está armando el led cube 3x3x3!

“Las fotos son del paso a paso de como arme el circuito deberia tambien hacerlo al dibujo cosa q lo entiendan porq asi no se saben las conexiones, las fotos van en orden tambien paso la lisat de componentes y bueno cuando ande te paso el soft con la logica explicada de como funciona y algun videito, por ahora tengo esto abrazo.”

Listado de componentes y herramientas:
Placa universal multiproposito de 10×10 cm.
27 led de alta luminosidad de 5mm color a eleccion, opcional un led comun de 3mm como testigo para saber si hay alimentacion en la placa.
3 resistencia 220ohm x 1/2 watio.
1 resistencia 220 ohm x 1/4 watio opcional si se usa el led testigo.
1 resistencia 10kohm x 1/4 watio se usa para resetear el pic por soft.
1 capacitor electrolitico 100 microfaradios x 16 volt o superior.
2 capacitores ceramicos 22 picofaradios, se usan para darle las oscilaciones al pic junto al cristal.
1 cristal 4mhz.
3 transistores npn bc 327, bc 557 o el q haya disponible.
1 pic 16f873 de microchip
1 zocalo de 28 patas, es conveniente para el pic de manera de ser reporgramado en caso de falla y no estropear el pic al soldar sus patas.
1 rollo estaño.
1 soldador tipo lapiz x 30 watios.
1 alicate.
1 pinza puntas finas.
1 fuente de alimentacion de 5 volt con al menos 600 mAh de corriente o superior, en mi caso recicle un viejo cargador de celular lg.
Cables de telefonia, para generar puentes en la placa y hacer conexiones entre componentes.

Costo aporximado del proyecto: 100 – 150 pesos, dependiendo de la calidad de los materiales.

El siguiente, es el modelo de cometa o barrilete mas sencillo y clásico.

Se conforma con los siguientes materiales:

• hilo blanco,
• papel de seda ( Papel barrilete , o cualquiera que sea bien liviano) ,
• tijeras,
• cuchillo,
• pegamento,
• 2 varillas de bambú (o de otro material ligero pero resistente, podría ser madera balsa).

Bueno, empezamos por recortar las dos varillas masomenos de la misma longitud.
Las colocamos en forma de cruz tal como se observa en la figura y las atamos con un nudo por el centro.

Ahora hay que atar el hilo a uno de los brazos de la cruz -alejándolos un poco de la mitad de ésta.
Agarra un trozo de hilo y atarlo al otro brazo dejando la misma distancia del centro que en el paso anterior. Y atar la otra punta al primer hilo, de forma que al estirarlo se forme un triángulo isósceles.

Agarramos el papel y recortamos un rombo de manera que la superficie del papel tape las varillas cuando las colocamos encima de este

Verter un poco de pegamento a lo largo de las varillas y engancharlas sobre el papel para que estas se peguen al papel. También en las esquinas del otro lado del papel, sobre las varillas, se pueden pegar triangulitos de papel para que estas queden envueltas y mejor agarradas.

Despues con el Mismo Papel cortas una tira lo mas larga que puedas para hacer la COLA del barrilete como en el Dibujito.

Listo! Buscate un amigo y vayan a un lugar descampado para aprender a volarlo. Tené cuidado que no haya arboles ni cables cerca para no romperlo.

Ahora les mostramos un cometa un poco mas complejo, realizado por www.1paratoodo.com.ar

Lo anterior es solo una guia básica pero tengan en cuenta que los modelos de barriletes son infinitos, se pueden realizar de formas inpensadas asi que queda todo librado a su propia imaginación. Basta con buscar alguans fotos en internet para darse una idea y luego empezar a armar y probar diferentes modelos!

Acá compartimos un video de 1 para todo donde nos explica como hacerlo.

Elementos necesarios:

• Lata de gaseosa, preferentemente de 500 cl
• Papel de lija, fina.
• Aceite de cocinar
• Las semillas de maiz para hacer pochoclos
• Manteca (opcional)

Pasos:

• Lijar la lata hasta remover toda la pintura. Esto es importante ya que sinó la pintura se quema y larga feo olor.
• Dibujar una ventanita en la parte superior y cortarla como se indica en el video.
• Agregar una cucharada de aceite de cocina
• 3 cucharadas de semillas de maiz para hacer pochoclos
• Si quieren, pueden agregar un poco de manteca para darle sabor
• Usar la chapita de la parte superior para tapar el agujero
• colocar un fuego lento abajo y un recipiente donde caigan los pochoclos
• A disfrutar de la peli!

A continuación os mostramos los pasos a seguir de cómo hacer jabón líquido casero tanto para lavadora como para lavarse las manos. Con los 2 jabones reciclaremos, ya que en uno podemos aprovechar los restos de pastillas de jabón que van quedando y en otro podremos reutilizar el aceite usado de cocinar.

Jabón líquido para lavadora

Precauciones:
Al mezclar la sosa caústica y el agua es indispensable seguir unas medidas de seguridad esenciales: usar gafas de protección, delantal, mascarilla y guantes.

Ingredientes: 
-Un litro de aceite usado (colado y limpio).
-200 gr de sosa caústica
-Una cucharadita de sal
-Dos litros de agua.
-Jabón en polvo, suavizante, esencias,… (opcional)

Elaboración:
1. En un sitio ventilado a ser posible al aire libre, mezclar en un barreño pequeño el agua y la sosa (con las medidas de seguridad antes expuestas, intentando no respirar los vapores). Debe quedar totalmente disuelto.

2. Añadimos el aceite, la sal y mezclamos en la misma dirección.

3. Con un cucharón de madera que ya no uséis, remover durante 45 minutos descansando a intervalos.

4. Dejamos reposar durante dos días y movemos de vez en cuando. Durante este tiempo se endurece pero le romperemos la capa que se forme.

5. Pasados estos dos días calentaremos agua hasta que esté a punto de hervir y se iremos añadiendo a la mezcla del aceite y la sosa y agitando con fuerza hasta que se quede con la textura de un gel. Si hace falta más agua calentar más y seguir el mismo proceso.

6. En este momento podéis añadir esencias, jabón en polvo, avena,….

7. Lo vertemos en garrafas o botellas vacías

8. Lo dejamos reposar una semana antes de usarlo.

Jabón líquido mpara las manos

Esta es una forma ecológica y económica para aprovechar los restos de jabón que nos van quedando en casa, utilizando ingredientes y utensilios que todos tenemos a mano. Y además, solo tardaremos unos 20 minutos en tenerlo listo.

Ingredientes:
-1 litro de agua
-1 taza de sobras de jabón rallado
-1 cucharadas de glicerina pura (Se vende en farmacias o droguerías.)
-Aceites esenciales, fragancia, colorantes,… (opcional)

Utensilios: 
-Olla de acero inoxidable con capacidad de 3 litros.
-Cuchara de madera.
-Botella de 2 litros de plástico con tapón.

Elaboración:
1. Echar 1 litro de agua en la olla y poner ma fuego medio.

2. Cuando esté caliente, agregar el jabón, la glicerina y la fragancia que hayamos elegido, sin dejar de remover.

3. Cuando se haya disuelto el jabón, retirar del fuego y dejar enfriar.

Conservación:
Cuando esté frio vierta el jabón en la botella, etiquete con la fecha de elaboración y de caducidad (se conserva hasta 6 meses). Conserve el jabón en un lugar fresco y seco, fuera del alcance de los niños.

Fuente: http://www.aprender-gratis.tk/jabon-liquido-casero.htm

E este post se explica en resumen las técnicas de construción.

En este caso es una cabaña para 4 personas más un bañito. Es un circulo principal de 5 metros de diámetro y un pequeño semicirculo de unos 4 metros.

Comenzamos:

Este es el rollo de POLIPROPILENO, yo lo compro en la ciudad de Córdoba, capital, a 1 peso el metro. Esta bobina tiene 2000 metros y me alcanzó para mi casa y para esta cabaña.

Con una estaca y una soguita de la medida del radio se marcan los circulos en el piso

Una vez marcado el suelo se cava una zanja de unos 50cm de profundidad por 40 de ancho. Se cubre toda con un plastico grueso para aislar la humedad. La primer vuelta de cimiento la hicimos con mas cemento, un 25%, como para darle mayor estructura a la base. La segunda vuelta ya la arrancamos con la mezcla normal

La mezcla lleva TIERRA + 5% de CEMENTO y agua. No llega a ser barro, pero es bastante húmeda.
El punto justo se lo puede ver cuando tomamos un puñado, lo compactamos con la mano, lo arrojamos para arriba y al caer en la mano de nuevo, no debe desarmarse.

Para que las lineas de los circulos queden prolijas y no se vayan hacia adentro o hacia afuera se utiliza un compás central, cada vuelta es chequeada con la cadena (RADIO) para ir corrigiendola.

En la próxima imágen ya se puede ver como comienzan a “trabarse” las bolsas entre sí.

Entre bolsa y bolsa se coloca una fila de alambre de puas, esto hace que las bolsas se pinchen y se traben, para que no se deslicen. Si se va a cerrar en cupula en forma de domo, se ponen 2 vueltas.

Para llenar las bolsas hay varios métodos.
Nosotros usamos un caño de chapa de unos 30cm de diámetro, en el que se coloca toda la extension de la bolsa, dejando una punta libre.

Por la boca del tubo se cargan los baldes de mezcla, por el efecto de la gravedad la bolsa se va llenando pareja.

También armamos un soporte para ir llenando las bolsas, es bastante práctico al principio cuando no se tiene experiencia en el manejo de la bolsa…

Una vez llena la bolsa se dobla como un sobre la punta y se la mete abajo de la misma, tratando de que se pinche en el alambre para que no se salga. Despues se le da bastante fuerte con un pisón para que se compacte bien

Comenzamos a amurar las aberturas, en este caso la puerta principal. Se puede ir trabando entre las bolsas con algun hierro o clavo largo. La estructura de madera que se ve es un molde para hacer la entrada.

Como ven, pueden usar cualquier cosa para hacer moldes para aberturas. En este caso un bidon nos sirvio de molde para esta ventana “rulo”.

Aca metimos este cajón de madera en el lugar donde despues iria la ventana. Es un “premarco” para usar de guia y no poner la ventana y que se arruine.

Ya con los muros listos comenzamos a amurar los palos para el techo

Machimbrando la estructura…

Machimbre listo!

Membrana soldada sobre el machimbre

Revoques interiores y un poco de color en las paredes. El revoque es tradicional, primero un salpicado grueso de concreto (3X1) y despues un fino esponjeado (4arena fina + 1 de cal + 1/2 de cemento)

El baño listo

Casi terminada, falta poner la paja en el techo.

Cuando este terminado del todo actualizo el post.

Esta es la dirección del blog original donde se explica con mas detalle y pueden hacerle consultas al constructor: www.superadobeserrano.blogspot.com

Este es un proyecto en el cual a menudo mezclamos la electronica con la programacion, uniendolas con interfases, 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 CERO

Porque 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 computadora
4)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 Interfase

Aqui tenemos la interfase que usaremos para conectarla al puerto paralelo de la computadora:

Cabe 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 0008
osea 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.

Primero descargate el compilador de Pascal, mas adelante les dare el enlace

Ahora empecemos por el asunto, Conozcamos la interfase:

Usando 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 voltios
Si la Carga es INDUCTIVA entonces usaremos un TIC226M de unos 600 voltios de control

de 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 Voltios
R1 esta en Ohmios
ILED es la corriente que circula por el diodo LED en el optoacoplador expresada en mili Amperios.

ejemplo:
Uin = 12
ILED = 30 mA como en el MOC3040
R1 es en total = 356 Ohmios, estandar buscado cercano es de 330 Ohmios

12 – 1.3 = 10.7
10.7 / 30 = 0.356 = 356 Ohmios

Ahora 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 R1

Ahora 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;
var
graphdriver,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;
begin
SetMode(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 [Enter]‘);
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}
begin
delay(100);
port[p]:=0;
a:=0;
b:=0;
c:=0;
d:=0;
e:=0;
f:=0;
g:=0;
h:=0;
delay(100);
end;

procedure status;
begin
print2(85,25,65,’Estado’);
Print2(5,126,65,’ ’);

print2(5,125,65,’[F1] terminal 1 [F7] Terminal 7′);
print2(5,135,65,’[F2] Terminal 2 [F8] Terminal 8′);
print2(5,145,65,’[F3] Terminal 3 [F9] Selec. Todos’);
print2(5,155,65,’[F4] Terminal 4 [F10] Menu Ayuda ’);
print2(5,165,65,’[F5] Terminal 5 ’);
print2(5,175,65,’[F6] Terminal 6 [ESC] Salir’);
end;

procedure instrucciones;
begin
end;

{—————————————————————————-}
procedure estado;
begin

if port[p] = port[p]-1 then bar(10,40,200,10,black); print2(10,40,62,’interruptor [1] apagado’);
if port[p] = port[p]+1 then bar(10,40,200,10,black); print2(10,40,62,’interruptor [1] Encendido’);
if port[p] <> -1 or +1 then bar(10,40,200,10,black); print2(10,40,62,’interruptor [1] Data Error’);

if port[p] = port[p]-2 then bar(10,50,200,10,black); print2(10,50,62,’interruptor [2] apagado’);
if port[p] = port[p]+2 then bar(10,50,200,10,black); print2(10,50,62,’interruptor [2] Encendido’);
if port[p] <> -2 or +2 then bar(10,50,200,10,black); print2(10,50,62,’interruptor [2] Data Error’);

if port[p] = port[p]-4 then bar(10,60,200,10,black); print2(10,60,62,’interruptor [3] apagado’);
if port[p] = port[p]+4 then bar(10,60,200,10,black); print2(10,60,62,’interruptor [3] Encendido’);
if port[p] <> -4 or +4 then bar(10,60,200,10,black); print2(10,60,62,’interruptor [3] Data Error’);

if port[p] = port[p]-8 then bar(10,70,200,10,black); print2(10,70,62,’interruptor [4] apagado’);
if port[p] = port[p]+8 then bar(10,70,200,10,black); print2(10,70,62,’interruptor [4] Encendido’);
if port[p] <> -8 or +8 then bar(10,70,200,10,black); print2(10,70,62,’interruptor [4] Data Error’);

if port[p] = port[p]-16 then bar(10,80,200,10,black); print2(10,80,62,’interruptor [5] apagado’);
if port[p] = port[p]+16 then bar(10,80,200,10,black); print2(10,80,62,’interruptor [5] Encendido’);
if port[p] <> -16 or +16 then bar(10,80,200,10,black); print2(10,80,62,’interruptor [5] Data Error’);

if port[p] = port[p]-32 then bar(10,90,200,10,black); print2(10,90,62,’interruptor [6] apagado’);
if port[p] = port[p]+32 then bar(10,90,200,10,black); print2(10,90,62,’interruptor [6] Encendido’);
if port[p] <> -32 or +32 then bar(10,90,200,10,black); print2(10,90,62,’interruptor [6] Data Error’);

if port[p] = port[p]-64 then bar(10,100,200,10,black); print2(10,100,62,’interruptor [7] apagado’);
if port[p] = port[p]+64 then bar(10,100,200,10,black); print2(10,100,62,’interruptor [7] Encendido’);
if port[p] <> -64 or +64 then bar(10,100,200,10,black); print2(10,100,62,’interruptor [7] Data Error’);

if port[p] = port[p]-128 then bar(10,110,200,10,black); print2(10,110,62,’interruptor [8] apagado’);
if port[p] = port[p]+128 then bar(10,110,200,10,black); print2(10,110,62,’interruptor [8] Encendido’);
if port[p] <> -128 or +128 then bar(10,110,200,10,black); print2(10,110,62,’interruptor [8] Data Error’);

end;

procedure keys;

begin
estado;
repeat
begin
ch:=readkey;
if (ch = #0) then Begin
ch:= readkey;
case ch of

#59: begin {F1}
a := a+1;
if frac(a/2) = 0 then
begin
bar(10,40,210,10,black);
print2(10,40,62,’interruptor [1] apagado’);
port[p]:=port[p]-1
end
else
begin
bar(10,40,210,10,black);
print2(10,40,62,’interruptor [1] Encendido’);
port[p]:= port[p]+1
end;
end;

#60: begin {F2}
b := b+1;
if frac(b/2) = 0 then
begin
bar(10,50,210,10,black);
print2(10,50,62,’interruptor [2] apagado’);
port[p]:=port[p]-2
end
else
begin
bar(10,50,210,10,black);
print2(10,50,62,’interruptor [2] Encendido’);
port[p]:= port[p]+2
end;
end;

#61: begin {F3}
c := c+1;
if frac(c/2) = 0 then
begin
bar(10,60,210,10,black);
print2(10,60,62,’interruptor [3] apagado’);
port[p]:=port[p]-4
end
else
begin
bar(10,60,210,10,black);
print2(10,60,62,’interruptor [3] Encendido’);
port[p]:= port[p]+4
end;
end;

#62: begin {F4}
d := d+1;
if frac(d/2) = 0 then
begin
bar(10,70,210,10,black);
print2(10,70,62,’interruptor [4] apagado’);
port[p]:=port[p]-8
end
else
begin
bar(10,70,210,10,black);
print2(10,70,62,’interruptor [4] Encendido’);
port[p]:= port[p]+8
end;
end;

#63: begin {F5}
e := e+1;
if frac(e/2) = 0 then
begin
bar(10,80,210,10,black);
print2(10,80,62,’interruptor [5] apagado’);
port[p]:=port[p]-16
end
else
begin
bar(10,80,210,10,black);
print2(10,80,62,’interruptor [5] Encendido’);
port[p]:= port[p]+16
end;
end;

#64: begin {F6}
f := f+1;
if frac(f/2) = 0 then
begin
bar(10,90,210,10,black);
print2(10,90,62,’interruptor [6] apagado’);
port[p]:=port[p]-32
end
else
begin
bar(10,90,210,10,black);
print2(10,90,62,’interruptor [6] Encendido’);
port[p]:= port[p]+32
end;
end;

#65: begin {F7}
g := g+1;
if frac(g/2) = 0 then
begin
bar(10,100,210,10,black);
print2(10,100,62,’interruptor [7] apagado’);
port[p]:=port[p]-64
end
else
begin
bar(10,100,210,10,black);
print2(10,100,62,’interruptor [7] Encendido’);
port[p]:= port[p]+64
end;
end;

#66: begin {F8}
h := h+1;
if frac(h/2) = 0 then
begin
bar(10,110,210,10,black);
print2(10,110,62,’interruptor [8] apagado’);
port[p]:=port[p]-128
end
else
begin
bar(10,110,210,10,black);
print2(10,110,62,’interruptor [8] Encendido’);
port[p]:= port[p]+128
end;
end;

#70: {[F11]}
begin
bar(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 : {[F10]}
begin
instrucciones;
titulo;
keys;
end;

#67: {[F9]}
begin
bar(7,35,210,88,black); {fondo de interruptores}
print2(10,40,62,’Encenderlos Todos [F2]‘);
print2(10,50,62,’Apagarlos Todos [F3]‘);
print2(10,60,62,’Regresar [Esc]‘);
print2(10,80,62,’Estado Actual:’);
repeat
begin
ch:= readkey;
case ch of
#60:
begin {F2}
bar(10,100,210,10,black);
print2(10,100,62,’Todos Encendidos’);
port[p]:=255;
end;
else
begin
bar(10,100,210,10,black);
print2(10,100,62,’Todos Apagados’);
port[p]:= 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;
begin
Bar(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————}

begin
FileRead(’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 interfase 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 interese
Pines 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.

Quieren las cosas faciles?
Entonces les dejo el programa ya compilado:
Filename: PORT.rar
Filesize: 8 kB
Upload-Date: 31/05/2009

Download-Link:
http://rapidshare.com/files/239146411/PORT.rar

http://www.megaupload.com/?d=A5128QFU

Gracias a la Valiosa Colaboracion del ingeniero Gerson Hernandez un amigo muy especial, en esta ocasión les tengo la segunda parte y final del tutorial.

Lo haremos por medio de Visual Basic 6.0 Service Pack 1

Todo esto es posible Gracias a una libreria de codigo Cerrado pero de uso libre, se trata de la libreria IO.DLL que puede ser obtenido desde la web:

http://www.geekhideout.com/iodll.shtml

Aunque ya pueden descargarlo desde aqui, adjunto.

Prosigamos:
El control lo hace desde esa libreria, primero necesitamos tener la interfaz conectada y lista, ademas de los puertos LPT Paralelo en la direccion correcta: 378

Luego en Visual Basic colocamos los el formulario con los labels que ven en la imagen de arriba.
los chek button y los option button tambien tienen que estar.

bueno por falta de tiempo les dejo el codigo fuente, si señores, el codigo Fuente de como controlar el puerto paralelo by me, Enigma:

Esta parte va al inicio del codigo fuente del formulario FORM:


Option Explicit

Public Out_TTL As Byte          ’contiene el BYTE a sacar por el puerto
Public In_Port As Integer       ’continen la direccion de lectura del LPT
Public Out_Port As Integer      ’contiene la direcc.para escribir al LPT

Este boton es Súmamente util, podemos cerrar el programa y dejar los estados de los pines tal y como queremos, sin necesidad de tener el programa siempre abierto.


Private Sub Command2_Click()
End
End Sub


En la seccion FORM LOAD va este codigo


Private Sub Form_Load()         'procedimiento inicial

‘Configura la COMBOLIST cmbLptSelect
cmbLptSelect.AddItem ”0×378″
cmbLptSelect.AddItem ”0×278″
cmbLptSelect.AddItem ”0x3BC”

‘Establece LPT1 como default
cmbLptSelect.ListIndex = 0

SetLPTAddress              ’estable direccion base del LTP

Port_Reset                 ’reseteo salidas TTL

End Sub

Al poner esto evitamos salir mediante la X de la ventana Activa


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = 1                  'evita que se salga mediante la 'X'
End Sub


Esta opcion Cierra el programa y todo lo que haya ejecutado en la memoria del sistema 


Private Sub Form_Unload(Cancel As Integer)  'si sale del programa
Port_Reset                              'entonces reseteo salidas TTL
End
End Sub


Solamente con el boton CMD llamado SALIR podemos salir del sistema


Private Sub cmdSalir_Click()    'si presiono SALIR, reseteo
Port_Reset                  'las salidas TTL y salgo del programa
End
End Sub


Esto Resetea y pone a 0 todos los pines del puerto paralelo


Private Sub Port_Reset()        'procedimiento para resetear salidas TTL
PortOut Out_Port, 0
End Sub


Este comando nos pone en el programa que tipo de puerto paralelo es y su direccion


Private Sub cmbLptSelect_Click()

SetLPTAddress              ’llamo rutina para determinarar la direccion
‘base del nuevo LPT elegido
End Sub

Este codigo Muestra el formulario de Ayuda y algun credito que quieran poner


Private Sub cmdHelpOnLpt_Click()
frmHelpOnLpt.Show
End Sub


Esta seccion es la que Selecciona una de las 4 direcciones posibles del puerto paralelo


Private Sub SetLPTAddress()     'establece la direccion correpondiente
'al puerto seleccionado
Select Case cmbLptSelect.ListIndex
Case Is = 0
Out_Port = &H378

Case Is = 1
Out_Port = &H278

Case Is = 2
Out_Port = &H3BC
End Select

In_Port = Out_Port + 1

End Sub

Aqui van los codigos de todos los CHECK BUTTON para cada Salida del puerto paralelo


Private Sub Chkttl0_Click()         'invierto estado de TTL0

If chkTTL0.Value = 1 Then
SetPortBit Out_Port, 0
chkTTL0.Caption = ”Salida TTL0 = 1 - ALTO”
Else
ClrPortBit Out_Port, 0
chkTTL0.Caption = ”Salida TTL0 = 0 - BAJO”
End If

End Sub


Private Sub Chkttl1_Click()         'invierto estado de TTL1

If chkTTL1.Value = 1 Then
SetPortBit Out_Port, 1
chkTTL1.Caption = ”Salida TTL1 = 1 - ALTO”
Else
ClrPortBit Out_Port, 1
chkTTL1.Caption = ”Salida TTL1 = 0 - BAJO”
End If

End Sub


Private Sub Chkttl2_Click()         'invierto estado de TTL2

If chkTTL2.Value = 1 Then
SetPortBit Out_Port, 2
chkTTL2.Caption = ”Salida TTL2 = 1 - ALTO”
Else
ClrPortBit Out_Port, 2
chkTTL2.Caption = ”Salida TTL2 = 0 - BAJO”
End If

End Sub


Private Sub Chkttl3_Click()         'invierto estado de TTL3

If chkTTL3.Value = 1 Then
SetPortBit Out_Port, 3
chkTTL3.Caption = ”Salida TTL3 = 1 - ALTO”
Else
ClrPortBit Out_Port, 3
chkTTL3.Caption = ”Salida TTL3 = 0 - BAJO”
End If
End Sub


Private Sub Chkttl4_Click()         'invierto estado de TTL4

If chkTTL4.Value = 1 Then
SetPortBit Out_Port, 4
chkTTL4.Caption = ”Salida TTL4 = 1 - ALTO”
Else
ClrPortBit Out_Port, 4
chkTTL4.Caption = ”Salida TTL4 = 0 - BAJO”
End If

End Sub


Private Sub Chkttl5_Click()         'invierto estado de TTL5

If chkTTL5.Value = 1 Then
SetPortBit Out_Port, 5
chkTTL5.Caption = ”Salida TTL5 = 1 - ALTO”
Else
ClrPortBit Out_Port, 5
chkTTL5.Caption = ”Salida TTL5 = 0 - BAJO”
End If

End Sub


Private Sub Chkttl6_Click()         'invierto estado de TTL6

If chkTTL6.Value = 1 Then
SetPortBit Out_Port, 6
chkTTL6.Caption = ”Salida TTL6 = 1 - ALTO”
Else
ClrPortBit Out_Port, 6
chkTTL6.Caption = ”Salida TTL6 = 0 - BAJO”
End If

End Sub


Private Sub Chkttl7_Click()         'invierto estado de TTL7

If chkTTL7.Value = 1 Then
SetPortBit Out_Port, 7
chkTTL7.Caption = ”Salida TTL7 = 1 - ALTO”
Else
ClrPortBit Out_Port, 7
chkTTL7.Caption = ”Salida TTL7 = 0 - BAJO”
End If

End Sub

Este nos muestra una imagen como por ejemplo un diagrama de conexiones, util para el que lo quiera armar


Private Sub Image2_Click()
End Sub


Muy importante, Debemos poner un TIMER y en el hacer doble clic y escribir el siguiente codigo


Private Sub Timer1_Timer()        'timer de 50ms para refrescar en
Dim Lectura As Byte           'pantalla el estado de las
Dim Estado(3) As Byte         'entradas INPUT 0 a 3
Dim Estado_Str(3) As String
Dim Bucle As Byte

Lectura = PortIn(In_Port)          ’leo el puerto de entrada

‘filtro solo los bit’s que necesito conocer
Estado(0) = Lectura And &H8             ’= 00001000 en Binario
Estado(1) = Lectura And &H10            ’= 00010000 en Binario
Estado(2) = Lectura And &H20            ’= 00100000 en Binario
Estado(3) = Lectura And &H40            ’= 01000000 en Binario

For Bucle = 0 To 3
If Estado(Bucle) <> 0 Then
Estado_Str(Bucle) = ”1 - ALTO”
Else
Estado_Str(Bucle) = ”0 - BAJO”
End If
Next Bucle

lblInput0.Caption = ”INPUT 0 = ” & Estado_Str(0)
lblInput1.Caption = ”INPUT 1 = ” & Estado_Str(1)
lblInput2.Caption = ”INPUT 2 = ” & Estado_Str(2)
lblInput3.Caption = ”INPUT 3 = ” & Estado_Str(3)

End Sub

Luego Creamos un modulo llamado MODULE.BAS que contenga lo siguiente:


Public Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)
Public Declare Sub PortWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Integer)
Public Declare Sub PortDWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Long)
Public Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte
Public Declare Function PortDWordIn Lib "IO.DLL" (ByVal Port As Integer) As Long
Public Declare Sub SetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Public Declare Sub ClrPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Public Declare Sub NotPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Public Declare Function GetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte) As Boolean
Public Declare Function RightPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Public Declare Function LeftPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Public Declare Function IsDriverInstalled Lib "IO.DLL" () As Boolean


Luego ejecutamos con F5 y Compilamos para luego Generar el EXE.
Si desean Obtener todo el codigo fuente pueden descargarlo Gracias a la colaboracion del Backup de los archivos que uso en una empresa del Ingeniero Gerson Hernandez.

Descarga el archivo en formato ISO

Nombre puerto_paralelo_Files.iso
Formato Archivo de Imagen de Disco ISO
Tamaño: 7999 KB
Status: File available

Contenido: Codigo fuente del programa de control de puertos paralelos en Visual Basic
Enlaces:

Mirror Rapidshare
http://rapidshare.com/files/340298467/puerto_paralelo_Files.iso

Mirror MegaUpload
http://www.megaupload.com/?d=8GDJWQIM

Fuente: http://www.taringa.net/posts/downloads/11574713/Enciende-las-luces-de-tu-casa-por-computadora.html

Objetos necesarios:
- motor eléctrico
- tapas de los jugos
- la batería
- el azúcar
- encendedor de los largos

Gracias melisarodrig2!