[aula 02]Desvio condicional sequencial (calculadora)
[aula 02]Desvio condicional sequencial (calculadora)
Desvio condicional sequencial
Deixe sua tela como abaixoDigite:Resultado,na propriedade Name do Objeto Label5.
.Coloque cores e tamanho de letra em seus objetos.
.Digite:valor1,na propriedade Name do Objeto Edit1.
.Digite:valor2,na propriedade Name do Objeto Edit2.
.calcular, na propriedade Name do objeto button1.
adicionar um componente GroupBox.
.Deixe o componenteGroupbox selecionado.Dê um duplo clique no componente RadioButton
.Insira mais 3 componentes RadioButton.
Deixe os componentes como mostra a figura abaixo.
.Clique no componente RadioButton1 e coloque a propriedade name como somar.
.Clique no componente Radiobutton2 e coloque a propriedade name como subtrair.
.Clique no componente Radiobutton3 e coloque a propriedade name como Multiplicar.
.clique no componente Radiobutton4 e coloque a propriedade Name como dividir.
.clique no componente GroupBox1 e coloque a propriedade captioncomo Operações.
devera fica igual a tela em cima
Dê um duplo clique no Botâo calcular.Digite o código abaixo
varA,B,Resultado1:Real;
Formato:string
begin
A:=strtofloat(valor1.text);
B:strtofloat (valor2.text);
Resultado1:=0;
If(somar.checked) then
Resultado1:=A+B;
If(subtrair.checked) then
Resultado1:=A-B;
If(Multiplicar.checked) then
Resultado1:=A*B;
If(Dividir.checked) then
IF (B=0) the;
showmessage ('Nao existe divisao por zero ')
Else
resultado1:= A/B;
formato:=formatfloat('0.00;(0.00);zerado',resultado1);
RESULTADO.caption:=formato;
valor1.setfocus;
end;
end.
Dalliton Barbosa Alexandr- Membro
- Mensagens : 3
Pontos : 3
Reputação : 0
Data de inscrição : 26/02/2012
Permissões neste sub-fórum
Não podes responder a tópicos
|
|