traira007 Postado Março 22, 2007 Denunciar Share Postado Março 22, 2007 Fala galera to crianu uma calculadora básica Ela funciona assim:O usuario escolhe no checkbox que opcao vai ser:SOMAR/SUBTRAIR/DIVIDIR/MULTIPLICARou todos eles de uma vezai 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 ifsse alguém puder da uma olhadagratounit Unit1;interfaceuses 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);varresult ,num1,num2,soma,sub,divi,mult:integer;beginif edt_num1.text='' thenShowMessage('Digite um valor para o 1º número')else if edt_num2.text='' thenShowMessage('Digite um valor para o 2º número');if check_somar.Checked thennum1:=StrToInt(edt_num1.text) ;num2:=StrToInt(edt_num2.text) ;soma:=num1 + num2;ShowMessage('O resultado da soma é'+IntToStr(soma))else if check_subtrair.Checked thennum1:=StrToInt(edt_num1.text) ;num2:=StrToInt(edt_num2.text) ;sub:=num1 - num2;ShowMessage('O resultado da subtracao é'+IntToStr(sub));if check_dividir.Checked thennum1:=StrToInt(edt_num1.text) ;num2:=StrToInt(edt_num2.text) ;divi:=(num1 / num2);result:=divi;if check_subtrair.Checked thennum1:=StrToInt(edt_num1.text) ;num2:=StrToInt(edt_num2.text) ;mult:=num1 * num2;result:=mult;end;procedure TForm1.btn_limparClick(Sender: TObject);beginedt_num1.text:='';edt_num2.text:='';check_somar.Checked:=False;check_subtrair.Checked:=False;check_dividir.Checked:=False;check_multiplicar.Checked:=False;end;end. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Vivendo&Aprendendo Postado Março 22, 2007 Denunciar Share Postado Março 22, 2007 (editado) OláSegue em anexo um exemplo usando o MEMO para mostrar os resultados...AlexandreCalculadora.rarCalculadora.rar Editado Março 22, 2007 por Vivendo&Aprendendo Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
traira007
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.