Delphi 7 - program na výpočet procent ze zadané ceny

Co v Delphi už umíš? A s čím konkrétně chceš pomoct?

abych mel jeden formular do ktereho bych zadal cenu druhy formular kde bych zadal kolik procent

Proč dva formuláře?

Stačí jeden formulář, na něj plácneš tři edit boxy (cena, procenta, výsledná cena), edit box s výslednou cenou nastavíš na ReadOnly, přidáš tlačítko a na jeho událost OnClick přiřadíš výpočet procent.

Skoro vubec nic Dneska jsem si nainstaloval delphi a chtel bych si na tenhle vypocet udelat kalkulacku. No jenze nevim jak tam zadat ten prikaz na vypocet tech procent

Vzorec na vypocet procent se bere na zakladni skole.

ja vim jak se to vypocita jenze nevim jak to naprogramovat v delphi. Zkusim to dekuji za radu

A nechceš se nejdřív naučit základy, než začneš vytvářet programy?

Jak jsem už psal, tlačítku na OnClick přiřadíš kód:

Edit3.value = Edit1.value / 100 * Edit2.value;

Píšu to z hlavy, tak to možná není syntakticky správně, o tom, že je potřeba ošetřit vstupní hodnoty ani nemluvím...

Jan Fiala to uvede na pravou míru...

Musel bys pouzit nejaky ValueEdit. Standardni edit ma jen Text a pak je treba to prevest na cislo a osetrit, jestli tam cislo opravdu je.

V Delphi jsem dělal naposledy před 100 lety, jen jsem se snažil nastínit podstatu. Asi jsem měl spíš mlčet, abych nemátl budoucí mladé, perspektivní a progresivní programátory.

var
  cena, procento: Integer;
begin
  cena := StrToIntDef(Edit1.text, -1);
  procento := StrToIntDef(Edit2.Text, -1);
  if (cena = -1) or (procento = -1) then
    Label.Caption := 'chybné zadání'
  else
    Label.Caption := FormatFloat('0.00', cena/100*procento);
end;

Pokud potrebujes zadavat cenu a procenta ne na cela cisla, ale na desetinna mista, tak si to uprav.

uz to trochu chapu ale nevim co delam spatne kdyz tam vlozim ten kon udela mi to eror u te ceny. Nevite co delam blbe?

Neudělá ti to "eror", ale napíše ti to jasnou chybovou hlášku, v které je uvedeno, co je špatně.

no teda chybova hlaska. Nevite co delam spatne? udelal jsem presne to co si tu napsal a hodi mi to chybovou hlasku

Nevite co delam spatne?

Máš to napsané v té chybové hlášce. Od toho tam je.

var
  cena, procento: Integer;
begin
  cena := StrToIntDef(Edit1.text, -1);
  procento := StrToIntDef(Edit2.Text, -1);
  if (cena = -1) or (procento = -1) then
    Label1.Caption := 'chybné zadání'
  else
    Label1.Caption := FormatFloat('0.00', cena/100*procento);
end;

Tam byla v tom Label místo label1

Ja nemuzu vedet, jak si pojmenoval labely. Mnohem prinosnejsi by bylo, kdyby napsal text te chyby.

Tak ja jsem uz na tu chybu prisel. moc vam dekuji za rady

nevite jak to osetrit abych u Label2 mohl zadat aji desetine cislo?

V Delphi neumím, ale není třeba přepsat datový typ z Integer na Float?
PS: Tj. asi takto:

var
  cena, procento: Float;
begin
  cena := StrToIntDef(Edit1.text, -1);
  procento := StrToIntDef(Edit2.Text, -1);
  if (cena = -1) or (procento = -1) then
    Label1.Caption := 'chybné zadání'
  else
    Label1.Caption := FormatFloat('0.00', cena/100*procento);
end;

PS2: A IMHO to nebude fungovat s desetinnou čárkou, ale s desetinnou tečkou

no kdyz jsem tam dal Float hodilo to chybovou hlasku. Nevite co s tim?

nevite jak to udelat aby tam sla dat desetina tecka?

Dej sem kod, ktery nejde. My nevime, kam jsi dal "float". Fakt je odsud na tvou obrazovku spatne videt.

1. Zmen datovy typ z Integer na Float
2. pouzij funkce pro prevod retezce na Float

Delphi obsahuje help, takze najit bys to tam mel bez problemu

procedure TForm1.Button1Click(Sender: TObject);
var cena, procento, vydelek: Float;
begin
cena := StrToIntDef(Edit1.text, -1);
procento := StrToIntDef(Edit2.Text, -1);
vydelek := StrToIntDef(Edit3.Text, -1);
if (cena = -1) or (procento = -1)
then Label1.Caption := 'chybné zadání'
else
Label1.Caption := FormatFloat('0.00kč', (cena/100)*procento+10+cena+vydelek);
end;

Takhle jsem to vse nastavil

takhle jsem to naprogramoval a nic

odhlášení k tomuto tématu

? teď jsem trochu tvůj příspěvek nepochopil

takze si precti prispevek, ktery jsem napsat nad tim tvym kodem a kod si podle nej uprav

a co, myslis si ze sa to spravi samo? ked konecne vyrasties a prestanes mat vyjadrovanie ako male decko, tak potom pis. pretoze ocividne nechapes princip internetoveho fora a nevies ani pisat chybove hlasky. Nikoho nebavi lustit tvoje hadanky.

Já bych to udělal v Excelu

Kdyz uz float tak dobrej je tez extended pak je to vetsi sranda + vlastni database pomoci StreamMemory.
To L-Core: Jiste exel a vsechny promenne by byly kulovy