doch tu ich aber du muss auch wissen ich bin anfänger und verstehe nicht alles
habs jetzt trotzdem so gemacht wel er beim ersten aufrug grundsätzlich falsch gerechnet hat
Delphi-Quellcode:
if (Resistor)>=1000000 then begin //mohm
pnl_calculated_resistor.caption := FloatToStr(Runden((resistor/1000000),2)) +' MOhm';
end;
if (Resistor)<1000000 then begin
if (Resistor)>=1000 then begin //kohm
pnl_calculated_resistor.caption := FloatToStr(Runden((resistor/1000),2)) +' KOhm';
end;
end;
if (Resistor)<1000 then begin //ohm
pnl_calculated_resistor.caption := FloatToStr(Runden((resistor/1),2))+' Ohm';
end;
aber dank dir hab wenigstens das jetzt richtig
hab das programm mal angehängt so das ihr euch das vorstellen könnt (ist ein Nachbau zum Lernen)
--wie gesagt toleranz muss ich noch tun
--die comboboxen (ring 1-5) muss ich noch leeren beim umschalten (4.ringe 5ringe) die strings müssen aber drin bleiben also clear klappt nicht
--und jetzt ersmal wieder die normwiderstände
--und bei der Leistung rechnet er auch wieder falsch hat aber schonmal geklappt
--
Zitat:
Schonmal das Ende der Liste angeschaut? Denn dort wird es mit case NICHT funktionieren.
wegen der kommastellen?