Salve,
Non riesco a fare i calcoli, appena premo sul bottone calcola mi esegue sempre:
codice:
ShowMessage('Assicurarsi di aver inserito correttamente i valori');
ma i valori sono corretti se avete tempo ci date un occhio?
Vi ringrazio
codice:
procedure TForm1.BCalcolaClick(Sender: TObject);
var
n1, n2, n3, n4, n5, n6, n7, n8, c, a, b: real;
begin
try
n1 := strtoFloat(Km_Percorsi.Text); //converto da stringa a real
n2 := strtoFloat(Consumo_Auto.Text); //converto da stringa a real
n3 := strtoFloat(Costo_Carburante.Text); //converto da stringa a real
n4 := strtofloat(Spese_Viaggio.Text); //converto da stringa a real
n5 := strtofloat(ristorante.Text); //converto da stringa a real
n6 := strtofloat(albergo.Text); //converto da stringa a real
n7 := strtofloat(totale_rimborsi.Text); //converto da stringa a real
n8 := strtofloat(Spese_auto.Text); //converto da stringa a real
c := (n1 / n2) * n3 + n4 + n7 + n8; //eseguo il calcolo e lo assegno a c
a := (n1 / n2) * n3; //eseguo il calcolo e lo assegno in a
b := n5 + n6 + n4; //eseguo il calcolo e lo assegno in b
totale_rimborsi.Text := floattostr(b);
//Assegno la variabile a totalerimb... e la rinconverto
Spese_Auto.Text := Floattostr(a);
//Assegno la variabile a spese... e la rinconverto
Totale.Text := Floattostr(c);
//Assegno la variabile a totale... e la rinconverto
except
on ECONVERTERROR do
ShowMessage('Assicurarsi di aver inserito correttamente i valori');
on EDivByZero do
ShowMessage('Attenzione stai dividendo per zero!');
end;
end;