Ver la Versión Completa : Como Visualizar varios sensores
elxsoon
19-10-2010, 08:26:16
Buenas Noches, mi problema es el siguiente, tengo 5 sensores conectados a una placa arduino, y con delphi quiero hacer una aplicacion que me permita visualizar estos sensores.
los datos se los envio a traves del puerto usb, y puedo leer solo un sensor. si alguien me puede ayudar, se lo agradeceria bastante, ya que he estado todo el dia tratando de hacerlo y no puedo.
aca les dejo la parte del codigo que me esta mostrando un sensor
elxsoon
19-10-2010, 08:29:09
Ahi esta la parte del codigo que me muestra un sensor
procedure TForm1.Timer1Timer(Sender: TObject);
var
buffer: string;
begin
comport1.Readstr(buffer,2);
if Length(buffer) > 0 then
begin
Label1.Caption:=buffer;
end
end;
Neftali [Germán.Estévez]
19-10-2010, 10:52:37
La verdad es que con los datos que das es difícil ayudarte; Diría aun más, yo no acabo de comprender ni siquiera cual es el problema. :confused::confused:
Te recomiendo que revises la Guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php) e intentes explicar:
El problema con más datos. Explicas que tienes 5 sensores conectados. Les envías datos (USB) y recibes datos (TCOMPORT).
¿Qué es lo que no sabes hacer?
¿Qué quieres hacer?
¿Cual es el problema?
¿El código que adjuntas funciona? ¿Da error?
Si buscas en Google encontrarás páginas con ejemplos, como esta (http://www.arduino.cl/int/ejemplos.html), que incluye uno en Delphi y que usa los componentes Synapse para conectarse.
Revísalo a ver si resuelve tus dudas, sean las que sean...
elxsoon
19-10-2010, 18:17:17
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
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
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
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.