enviar señal desde la pc al emisor RF

#1
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)

saludos
 
#2
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
 
#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
 
Arriba