Club Builder

[Javi]

Hola:
Soy principiante y me gustaria me ayudaran a resolver una duda.
Tengo una apliación en la que necesito comunicar por el Puerto Paralelo, eso esta resuelto.El problema consiste en que quisiera poner un CheckBox con los 8 Datos a enviar(D0..D7) y que cuando se selecionen se pueda obtener el numero binario correspondiente, para luego enviar este.
Gracias de antemano.

[Juanma]

Tienes que poner los 8 checkbox y para pasar los valores a estos, si suponemos que el valor esta en un entero tienes que trabajar con operaciones de bits y puedes hacer lo siguiente.

int Valor;
//El primer bit esta activo
CheckBox1->Checked = Valor & 0 == 1;

//El segundo bit esta activo
CheckBox2->Checked = Valor & 2 == 2;

//El tercer bit esta activo
CheckBox3->Checked = Valor & 4 == 4;
.
.
.
.

Es decir tienes que ver si el bit de esa posicion esta a 0 ó 1.

Para pasar el valor de los checked a la variable.

Valor = 0;
if (CheckBox1->Checked)
Valor = Valor + 1;
if (CheckBox2->Checked)
Valor = Valor + 2;
if (CheckBox3->Checked)
Valor = Valor + 4;

.....

Espero que te sirva. Un Saludo.

[César]

Más que una contestación es una pregunta, ¿Cómo comunicas por el puerto paralelo?

[Javi]

Juanma, gracias por la ayuda, la aplicación no la hice exactamente como me dijiste pero lo fundamental fue que me diste la luz.En ocasiones nos bloqueamos y no alcanzamos ver mas alla de nuestras narices.

Cesar en cuanto termine la aplicación, que será pronto, te comento con detalles.
Saludos
Javi

[Javi]

César, como lo prometido es deuda, alla vamos.
A la aplicación todavía le faltan algunos pequeños retoques, pero te comento.La comunicación por el PParalelo, la logre de la siguiente manera, te envió el fuente .cpp para que te resulte más facil.
//---------------------
#include <vcl\vcl.h>
#pragma hdrstop
#include "Puerto.h"
//------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
//--------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//-------------------------------------------
void TForm1::outp(unsigned short dir,unsigned short dato)
{
_DX=dir;
_AX=dato;
__emit__(0xEE);//Código de la instrucción OUT
}
//--------------------------------------
unsigned int TForm1::inp(unsigned short dir)
{
_DX=dir;
__emit__(0xEC);//Código de la instrucción IN
return(_AL);
}
//-------------------------------------------void __fastcall TForm1::SalirClick(TObject *Sender)
{
exit(0);
}
//----------------------------------------
void __fastcall TForm1::EnviarClick(TObject *Sender)
{
outp(0x378,(unsigned short)StrToInt(Edit1->Text));
}
//---------------------------------------
void __fastcall TForm1::RecibirClick(TObject *Sender)
{

Edit2->Text=IntToStr(inp(0x378));

}

También te envió el .h

#ifndef PuertoH
#define PuertoH
//-------------------------------------------#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include <vcl\ExtCtrls.hpp>
//-------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
///*TPanel *Panel1;
TGroupBox *GroupBox1;
TButton *Salir;
TGroupBox *GroupBox2;
TGroupBox *GroupBox3;
TLabel *Label1;
TLabel *Label2;
TEdit *Edit1;
TButton *Enviar;
TButton *Recibir;
TEdit *Edit2;
TButton *Refresca_Dato;*///

void __fastcall SalirClick(TObject *Sender);
void __fastcall EnviarClick(TObject *Sender);
void __fastcall RecibirClick(TObject *Sender);
void __fastcall Refresca_DatoClick(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
// ¡¡¡¡Agregar aquí!!!!
void outp(unsigned short dir,unsigned short dato);
unsigned int inp(unsigned short dir);
};
//-------------------------------------------extern TForm1 *Form1;
//--------------------------------------
#endif

Comentario: El bloque que he marcado con ///* */// depende de la aplicación, en mi caso tiene varias cosas. Pero con poner 2 Button(Enviar y Recibir), 2 Edit, en Edit1 escribes el Dato y en Edit2 recoges el valor de Retorno, desde luego cuando pulses el Button Recibir.

Imagino que sepas que lo complicado, es que hay que tener mucho cuidado, si es que vas a utilizar el programa para actuar sobre otros elementos(LED,motores;etc),pues necesitas una interface enter Puerto y elemento e incluso esta ultima tiene que ser bien diseñada por que si no, adios puertito de mi vida, puedes sobre cargar el puerto.
Yo lo he provado, con LED.
Espero haber podido ayudarte, si precisas algo más, con mucho gusto.
Saludos