Forum: Programmieren allgemein
by Gehstock,
19. Aug 2006
:bounce1: JaJa das wars Danke :bounce1:
Forum: Programmieren allgemein
by Gehstock,
19. Aug 2006
OkoOk
war doppeltgemoppelt :mrgreen:
hat denn aber keiner ne idee :gruebel: was den Fehler angeht
Fehler in den Variablen???
wert : extended;
widerstand : extended;
prozent: extended;
Forum: Programmieren allgemein
by Gehstock,
19. Aug 2006
ganz ohne Tolerance hab ich doch auch schon versucht
pnl_worstcasemin.caption := (floattostr((widerstand)/1-(widerstand)/100*(prozent)))+' Ohm';
pnl_worstcasemax.caption := (floattostr((widerstand)/1+(widerstand)/100*(prozent)))+' Ohm';
Ergebnis bleibt das selbe
Forum: Programmieren allgemein
by Gehstock,
19. Aug 2006
Nee das ist es nicht selbes ergebnis
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;
Forum: Programmieren allgemein
by Gehstock,
19. Aug 2006
Bokomme aber fehler bei
pnl_worstcasemin.caption := floattostr(widerstand-tolerance)+' Ohm';
pnl_worstcasemax.caption := floattostr(widerstand+tolerance)+' Ohm';
invalid floating point operation
Forum: Programmieren allgemein
by Gehstock,
19. Aug 2006
Ist es Danke
ging ja alles von ganz alleine auser die toleranz
procedure TForm2.btn_executeClick(Sender: TObject);
var
wert : extended;
widerstand : extended;
tolerance: extended;
prozent: extended;
Forum: Programmieren allgemein
by Gehstock,
19. Aug 2006
Dsa klappt so net immer wenn ich irgendwas verändere klappt was anderes wieder nicht
deswegen mal komplett nich meckern binn noch nicht fertig mit dem optimieren der Normwiderstände
procedure TForm2.btn_executeClick(Sender: TObject);
var
wert : string;
widerstand : string;
tolerance: string;
prozent: extended;
Forum: Programmieren allgemein
by Gehstock,
19. Aug 2006
ich werds nie raffen
widerstand : string;
tolerance: extended;
prozent: extended;
tolerance := floattostr( (strtofloat(widerstand)/100)*(prozent));
und hier die Formel mit dem Problem
Forum: Programmieren allgemein
by Gehstock,
3. Aug 2006
tolerance := floattostr((strtofloat((pnl_result.caption)/100)*prozent));
kann mir das jemand so umstellen das es klappt
Forum: Programmieren allgemein
by Gehstock,
2. Aug 2006
daten := IntToStr((cb_ring1.ItemIndex*10) + cb_ring2.ItemIndex);
klappt einwandfre
nächstes problem
prozentrechnung
if StrTofloat(wiederstand)<1000 then begin
pnl_result.caption := (floattostr((strtofloat(wiederstand)/ ///wiederstand ist ne variable
1))+' Ohm');// der genaue wert
Forum: Programmieren allgemein
by Gehstock,
2. Aug 2006
soll so rechnen (cb_ring1.ItemIndex*10)+cb_ring2.ItemIndex
daten := floattostr(((strtofloat(cb_ring1.ItemIndex)*10)+
strtofloat(cb_ring2.ItemIndex)));
cb_ring1 sind also die 10ér stellen
cb_ring2 sind die 1ér
klappt aber nicht