ProSystem
Caros Usuarios, a ProSystem mudou de Host agora o novo Fórum é

www.procheats.ipbfree.com

Acessem e ajudem o Fórum a Crescer!

Att.MetaL

[aula 02]Desvio condicional sequencial (calculadora)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[aula 02]Desvio condicional sequencial (calculadora)

Mensagem por Dalliton Barbosa Alexandr em Ter Fev 28, 2012 6:13 pm

Desvio condicional sequencial
Deixe sua tela como abaixo

Digite: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
var
A,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
Membro

Mensagens : 3
Pontos : 3
Reputação : 0
Data de inscrição : 26/02/2012

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum