Haz una pregunta
  Foros de Electrónica » Temas de Interés » Robótica, Domótica y Mecatrónica
Foros Registrarse ¿Olvidaste tu contraseña?

Temas similares

17/09/2011 #1


enviar señal desde la pc al emisor RF
hola a todos
les comento que tengo un problema, estoy haciendo un robot controlado por la pc(via RF) y no se como enviar la señal desde mi programa hacia el emisor y del emisor al receptor, lleva un pic en el receptor, espero que me puedan ayudar.
les dejo el mini programa, programado bajo delphi(que utiliza pascal como visual basic)
http://www.megaupload.com/?d=4X603332
saludos
22/09/2011 #2

Avatar de sdel

Hola, pero no subiste ningun codigo de lo que hiciste, ni un esquema nada, solo el ejecutable, asi no se sabe cual es el problema.

saludos
22/09/2011 #3


perdon por no avisar mas antes =), ya lo pude solucionar me baje una libreria apdportcom para delphi que me facilito muchisimo el envio de datos se los recomiendo
y este seria el codigo agregando un ApdComPort con el nombre de "puerto"
procedure TForm1.btn_enviarClick(Sender: TObject);
begin
puerto.Output:=ed_enviar.Text;
end;

procedure TForm1.btn_AbrirClick(Sender: TObject);
begin
if Puerto.Open=false then begin
Puerto.Open:=true;
btn_Abrir.Caption:='Cerrar';
end else begin
Puerto.Open:=false;
btn_Abrir.Caption:='Abrir';
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
ju,i:integer;
CC : TCommConfig;
begin
CC.dwSize := SizeOf(CC);
ju:=0;
for i:=1 to 16 do
begin
if GetDefaultCommConfig(Pchar('COM'+inttostr(i)), CC, CC.dwSize) then
begin
cmb_puertos.Items.Add('COM'+inttostr(i));
end
else
begin
ju:=ju+1;
end;
end;
if ju=16 then
begin
showmessage('No hay ningun puerto serie en este pc');
end
else
begin
cmb_puertos.itemindex:=0;
Puerto.ComNumber:=strtoint(cmb_puertos.Text[4]);
Puerto.Open:=true;
btn_Abrir.Caption:='Cerrar';
end;
end;

saludos
Respuesta
¿Tienes una mejor respuesta a este tema? ¿Quieres hacerle una pregunta a nuestra comunidad y sus expertos? Registrate

Buscar más temas sobre:
Lupa Robótica, Domótica y Mecatrónica

La electrónica Aplicada a la Robótica y sus técnicas de interface.

Cerrar
Foros de Electrónica » Temas de Interés » Robótica, Domótica y Mecatrónica

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO ©2011, Crawlability, Inc.