Usar puerto paralelo

[krlox31416]

http://www.modelo.edu.mx/univ/virtec...o/paralelo.htm

http://www.forosdeelectronica.com/about3890.html

http://www.codeproject.com/KB/cs/cspplcds.aspx

aunque yo me quedo con el código que hasta ahora se me hace más sencillo y sin tener que agregar muchas lineas de código para delphi 5 y 6 no lo he calado con otras versiones!!!...sludos!!!!

y si buscas en internet encontraras más paginas y hasta foros de discusion

[[escafandra]]

yelian, los link que te propone krlox31416 son muy buenos para tus propósitos:

Empezado por krlox31416

http://www.modelo.edu.mx/univ/virtec...o/paralelo.htm

http://www.forosdeelectronica.com/about3890.html

http://www.codeproject.com/KB/cs/cspplcds.aspx

Esto sería la traducción a C++ Builder del código que usó, es sencillo:

// usando registros con codigo de ensamblador asm
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   _asm{
     mov AX,1 // bit que se quiere utilizar en mi caso el bit 1
     mov DX, 0x378 // puerto paralelo 378h
     out DX,AX // damos salida lo que tenga AX en mi caso es 1 bit a DX que es el puerto 378h
   }
}

Saludos.

PD. Al terminar de escribir este post me di cuenta de que no había hecho referencia a este otro interesante hilo. En él se expone otra forma interesante de conseguir manejar el puerto paralelo sin uso de componentes.

[yelian]

Hola escafandra;
Ya ise el codigo, pero no me funciono hasta que no puse el UserPort.sys en %windir%\system32\driver y ejecute el UserPort.exe que descarge de unos de los hilos que ahi en el foros,
El codigo ya me funciona bien,
Solo quisiera pedir una cosa, "DISCULPEN LA COMODIDAD" , pero me gustaria que me digeran cuales son los bit que te tengo que poner para
controlar los ping de salida .

Ejemplo:
--------
-Quisiera crear crear 3 checkBox:

*El Primero es para que cuando este marcado me encienda un
diodo_led que tengo conectado en el Ping 2 del conector y cuando
este desmarcado me lo apage.
*El Segundo es para hacer la misma operacion pero el diodo_led esta
en el Ping 3 del Conector.
*El Tercero es igual pero el diodo_led esta en el Ping 4...

En fin lo que quiero hacer es encender y apagar tres diodo_led que tengo conectado en el Puerto Paralelo (Ping 2-3-4) con tres CheckBox que tengo en mi Aplicacion.

(No piensen mal de mi, por la comodidad, pero lo que pasa es que me interesaria terminar lo que estoy haciendo y no se mucho sobre la programacion en Ensamble, apezar de que e visto algunos temas y paginas sobre la coneccion del puerto Paralelo tengo dificultades para entender como funciona, pero ya estoy entendiendo algo, gracias a ustedes, no escatimen explicaciones aunque no lo piensen puede ser de gran ayuda para mi)

Gracias a todos de Antemano...

[Saludos]...

[yelian]

Hola se me habia olvidado que si me pudieran explicaran tambien como trabajar con la "io.dll" en C++
(la io.dll la pusieron en otro Hilo y pusieron un code pero en Delphi y yo uso C++).
Mi objetivo es controlar el Puerto Paralelo pero en C++ sin utilizar codigos de Ensamble, pero bueno si fuera muy dificil entonces denmelos en Esamble.

Gracias...

[[cHackAll]]

typedef short (*OUT32_PTR) (short Addr);
typedef void (*INP32_PTR) (short Addr, short Port);
 
// . . .
 HINSTANCE hModule = LoadLibrary("inpout32.dll");
 if (hModule)
  { 
   INP32_PTR Inp32 = (INP32_PTR)GetProcAddress(hModule, "Inp32");
   OUT32_PTR Out32 = (OUT32_PTR)GetProcAddress(hModule, "Out32");

   Inp32(Outp32(0x378), 1); // example
   FreeLibrary(hModule); 
  }

[[escafandra]]

Hombre cHackAll, hacia tiempo que no te dejabas caer por el subforo de C++ Builder. Me alegro de poder saludarte y de leer tus, siempre interesantes, comentarios.

Un saludo.

[krlox31416]

-Quisiera crear crear 3 checkBox:

*El Primero es para que cuando este marcado me encienda un
diodo_led que tengo conectado en el Ping 2 del conector y cuando
este desmarcado me lo apage.
*El Segundo es para hacer la misma operacion pero el diodo_led esta
en el Ping 3 del Conector.
*El Tercero es igual pero el diodo_led esta en el Ping 4...

En fin lo que quiero hacer es encender y apagar tres diodo_led que tengo conectado en el Puerto Paralelo (Ping 2-3-4) con tres CheckBox que tengo en mi Aplicacion.

si prestas atención al bit que estas mandando de salida veras que no es dificil saber que ping estas utilizando...

a lo que voy es esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
asm
MOV AX,1 // bit que se quiere utilizar en mi caso el bit 1
MOV DX,378H // puerto paralelo 378h
OUT DX,AX // damos salida lo que tenga AX en mi caso es 1 bit a DX que es el puerto 378h
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
asm
MOV AX,1 // bit que se quiere utilizar en mi caso el bit 1
MOV DX,378H // puerto paralelo 378h
OUT DX,AX // damos salida lo que tenga AX en mi caso es 1 bit a DX que es el puerto 378h
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
asm
MOV AX,2 // bit que se quiere utilizar en mi caso el bit 2
MOV DX,378H // puerto paralelo 378h
OUT DX,AX // damos salida lo que tenga AX en mi caso es 2 bit a DX que es el puerto 378h
end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
asm
MOV AX,3 // bit que se quiere utilizar en mi caso el bit 3
MOV DX,378H // puerto paralelo 378h
OUT DX,AX // damos salida lo que tenga AX en mi caso es 3 bit a DX que es el puerto 378h
end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
asm
MOV AX,4 // bit que se quiere utilizar en mi caso el bit 4
MOV DX,378H // puerto paralelo 378h
OUT DX,AX // damos salida lo que tenga AX en mi caso es 4 bit a DX que es el puerto 378h
end;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
asm
MOV AX,5 // bit que se quiere utilizar en mi caso el bit 5
MOV DX,378H // puerto paralelo 378h
OUT DX,AX // damos salida lo que tenga AX en mi caso es 5 bit a DX que es el puerto 378h
end;
end;
 
// con el bit 0 apagamos todo... a la salida estamos mandado cero
procedure TForm1.Button6Click(Sender: TObject);
begin
asm
MOV AX,0 // bit que se quiere utilizar en mi caso el bit 0
MOV DX,378H // puerto paralelo 378h
OUT DX,AX // damos salida lo que tenga AX en mi caso es 0 bit a DX que es el puerto 378h
end;
end;

si tienes conectados los leds veras que si agregas los respectivos botones con el código notaras que ping estas utilizando al fin de cuentas es lo de menos como tengas conectado tu circuito el chiste es saber que bit estas utilizando... no se si me de a entender...

Nota: lo que utilizamos es el codigo binario
0 // 0 bit
1 // 1 bit
10 // 2 bits
11 // 3 bits
100 // 4 bits
101 // 5 bits

Puedes utilizar el bit que quieras si quieres utilizar más existe un pequeño truco!!!

consiste en diseñar un ciruito que puede duplicar mas combinaciones para seguir utilizando más bits!!!....

SALUDOS!!!!!