Ver Mensaje Individual
  #4  
Antiguo 08-03-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola groexe.

Supongamos que en el TComboBox almacenamos las frecuencias:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
const
  N_LONG = 5; // cantidad de items
var
  i,c: Integer;
begin
  c:= 144;  // Longitud de onda empieza 144 Mhz (como en tus datos)
  for i:= 1 to N_LONG do
  begin
    ComboBox1.Items.Add(IntToStr(c*1000)+' Mhz.');
    Dec(c,2); // 142,140,138,...
  end;
  ComboBox1.ItemIndex:= 0; // posicionar 1° item
end;

Luego tenemos que convertir a metros la selección que el usuario haya echo:
Código Delphi [-]
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  // long. de onda en mts = 300000/freq (Mhz)
  with ComboBox1 do
    Label1.Caption:= Format('%8.4f',[300000/StrToInt(Items[ItemIndex])]);
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita