Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Wie kann ich das rechnen

   
    by _frank_, 19. Aug 2006
  procedure TForm1.Button1Click(Sender: TObject);
  var widerstand,tolerance:extended;
  const prozent=2.5;
  begin
  widerstand:=StrToFloat(Edit1.text);
  tolerance:=widerstand/100*prozent;
  edit2.text:=FloatToStr(Tolerance);
  edit3.text:=floattostr(widerstand-tolerance)+' Ohm';
  edit4.text:=floattostr(widerstand+tolerance)+' Ohm';
  end;
• Forum: Programmieren allgemein

  Re: Wie kann ich das rechnen

   
    by _frank_, 19. Aug 2006
  das war auch nur der untere Teil als Anhaltspunkt...
  ich denke, *DU* willst programmieren...
  
  Gruß Frank
• Forum: Programmieren allgemein

  Re: Wie kann ich das rechnen

   
    by _frank_, 19. Aug 2006
  if rb_4rings.Checked then
  begin
  case cb_ring4.ItemIndex of
  0:prozent:=10;
  1:prozent:=5;
  2:prozent:=1;
  3:prozent:=2;
  4:prozent:=0.5;
  5:prozent:=0.25;
  6:prozent:=0.1;
• Forum: Programmieren allgemein

  Re: Wie kann ich das rechnen

   
    by _frank_, 19. Aug 2006
  MAN RECHNET NICHT MIT STRINGS!!!!!!!!!
  .oO(ist denn das so schwer zu verstehen?) :gruebel: :wall:
  
  sorry admins, war jetzt mal nötig...
  
  @gehstock: bring erstmal das in ordnung...(und danach die Einrückungen, damit dein Code lesbar wird)
  
  Gruß Frank
• Forum: Programmieren allgemein

  Re: Wie kann ich das rechnen

   
    by _frank_, 19. Aug 2006
  wenn ich das richrig sehe, hast du die klammern falsch gesetzt...
  
  
  //aus
  pnl_worstcasemin.caption := (floattostr((strtofloat(widerstand)/1-(tolerance))+' Ohm'));
  //wird
  pnl_worstcasemin.caption := (floattostr((strtofloat(widerstand)/1-(tolerance)))+' Ohm');
  //achja, division durch 1 und die stringroutinen...
  var widerstand:extended;
  pnl_worstcasemin.caption :=...