Ajuda com Exibição de Resultados no Delphi

06/09/2019

6

Ola, estou tentando fazer um programa (básico da faculdade) para calcular a média do aluno.
Porém não estou conseguindo exibir o resultado da média, ao terminar de inserir as 04 notas
a janela do programa fecha. (O código está compilando sem erros normalmente).
Segue abaixo o Código Fonte:

var
nota1, nota2, nota3, nota4, media : Double;
begin
try
nota1 := StrToFloat(edtNota1.Text);
nota2 := StrToFloat(edtNota2.Text);
nota3 := StrToFloat(edtNota3.Text);
nota4 := StrToFloat(edtNota4.Text);
media := (nota1 + nota2 + nota3 + nota4) / 4;
edtMedia.Text := FormatFloat(''###,###,##0.00'',(media));

except
ShowMessage(''Erro ao calcular média. Use apenas Números e Vírgulas'');
end;
end;

Alguém poderia por favor me dizer onde estou errando? Já utilizei essa base para calcular
"Média de Consumo de Combustível e IMC " no Android e funcionou perfeitamente.
Responder

Post mais votado

10/09/2019

Bom dia, Carlos!


Fiz este código verifica se ajuda,


procedure TForm1.Button2Click(Sender: TObject);
var
nota1, nota2, nota3, nota4, media: Double;
begin
try
nota1 := StrToFloat(edt1.Text);
nota2 := StrToFloat(edt2.Text);
nota3 := StrToFloat(edt3.Text);
nota4 := StrToFloat(edt4.Text);
media := (nota1 + nota2 + nota3 + nota4) / 4;
Memo1.Lines.Add( FormatFloat('###, ###, ##0.00', media) )
except
ShowMessage('Erro ao calcular média.Use apenas Números e Vírgulas');
end;
end;

está funcionando blz, qualquer coisa entra em contato.

Espero ter ajudado.....




Responder

Mais Posts

Bom dia, Carlos!


Fiz este código verifica se ajuda,


procedure TForm1.Button2Click(Sender: TObject);
var
nota1, nota2, nota3, nota4, media: Double;
begin
try
nota1 := StrToFloat(edt1.Text);
nota2 := StrToFloat(edt2.Text);
nota3 := StrToFloat(edt3.Text);
nota4 := StrToFloat(edt4.Text);
media := (nota1 + nota2 + nota3 + nota4) / 4;
Memo1.Lines.Add( FormatFloat('###, ###, ##0.00', media) )
except
ShowMessage('Erro ao calcular média.Use apenas Números e Vírgulas');
end;
end;

está funcionando blz, qualquer coisa entra em contato.

Espero ter ajudado.....




Boa noite
Agora está aparecendo a média, obrigado, mas em questão segundos a janela (form) do programa fecha sozinha.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira