Ver Mensaje Individual
  #4  
Antiguo 19-10-2010
elxsoon elxsoon is offline
Registrado
 
Registrado: sep 2010
Posts: 6
Reputación: 0
elxsoon Va por buen camino
gracias por responder, en resumidas cuentas, lo unico que quiero es visualizar 5 sensores que estan conectados al arduino.

voy a dividir el programa que tengo en partes, para que se entienda, primero la fase para conectarme al puerto

Código Delphi [-]
procedure TForm1.btn_connectClick(Sender: TObject);

begin
  if ComPort1.Connected then
      begin

      btn_connect.Caption:='Conectar';  
      timer1.Enabled:=True;
      btn_Setup.Enabled:=True;         
      ComPort1.Close;                  
      progressbar1.Position:=0;         
      Label1.Caption:='0';            
     end

    else
      begin
      btn_connect.Caption:='Desconectar';       
      ComPort1.Open;                            
      timer1.Enabled:=true;
      btn_Setup.Enabled:=False;                
      
      end
end;

ahora la parte donde me muestra lo que esta leyendo por el buffer

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
buffer: string;

begin
comport1.Readstr(buffer,2);

  if Length(buffer) > 0 then
    begin
    Label1.Caption:=buffer;
    end
end;

y eso es lo que tengo, me esta funcionando, lo unico que quiero es agregar mas label, pero que cada uno tenga una medida diferente.

gracias
Responder Con Cita