Ir para conteúdo
Fórum Script Brasil
  • 0

Erro No Codigo(simples)


traira007

Pergunta

Fala galera to crianu uma calculadora básica

Ela funciona assim:

O usuario escolhe no checkbox que opcao vai ser:

SOMAR/SUBTRAIR/DIVIDIR/MULTIPLICAR

ou todos eles de uma vez

ai eu criei um messagebox para enviar todos os resultados..

Mais como que eu posso fazer um message box que so imprima so o resultado da opcao que eu escolhi no checkbox..

o codigo ate agora está aqui..

so que está danu erro no if

sse alguém puder da uma olhada

grato

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

btn_calcular: TButton;

btn_limpar: TButton;

edt_num1: TEdit;

edt_num2: TEdit;

check_somar: TCheckBox;

check_subtrair: TCheckBox;

check_dividir: TCheckBox;

check_multiplicar: TCheckBox;

Label1: TLabel;

Label2: TLabel;

procedure btn_limparClick(Sender: TObject);

procedure btn_calcularClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn_calcularClick(Sender: TObject);

var

result ,

num1,num2,soma,sub,divi,mult:integer;

begin

if edt_num1.text='' then

ShowMessage('Digite um valor para o 1º número')

else if edt_num2.text='' then

ShowMessage('Digite um valor para o 2º número');

if check_somar.Checked then

num1:=StrToInt(edt_num1.text) ;

num2:=StrToInt(edt_num2.text) ;

soma:=num1 + num2;

ShowMessage('O resultado da soma é'+IntToStr(soma))

else if check_subtrair.Checked then

num1:=StrToInt(edt_num1.text) ;

num2:=StrToInt(edt_num2.text) ;

sub:=num1 - num2;

ShowMessage('O resultado da subtracao é'+IntToStr(sub));

if check_dividir.Checked then

num1:=StrToInt(edt_num1.text) ;

num2:=StrToInt(edt_num2.text) ;

divi:=(num1 / num2);

result:=divi;

if check_subtrair.Checked then

num1:=StrToInt(edt_num1.text) ;

num2:=StrToInt(edt_num2.text) ;

mult:=num1 * num2;

result:=mult;

end;

procedure TForm1.btn_limparClick(Sender: TObject);

begin

edt_num1.text:='';

edt_num2.text:='';

check_somar.Checked:=False;

check_subtrair.Checked:=False;

check_dividir.Checked:=False;

check_multiplicar.Checked:=False;

end;

end.

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...