FórumGdH

Página Inicial do Guia do Hardware

Registrar FAQ Calendário Pesquisar Mensagens de Hoje Marcar Fóruns Como Lidos

Voltar   FórumGdH > Profissional > Programação, scripts, web e banco de dados
Bem-vindo ao FórumGdH
Não se esqueça de se registrar, é grátis . Nós temos 759.173 usuários, convidamos você fazer parte de nossa comunidade também! Se ainda não encontrou o que procura use nossa pesquisa. Esperamos que aprecie nosso trabalho.

Resposta
 
Opções do Tópico
Antigo 22-05-2003, 0:59   #1 (permalink)
Marcio DJ
Zumbi
 
Avatar de Marcio DJ
 
Registrado em: Jun 2002
Localização: Caxias Do Sul - RS
Idade: 32
Mensagens: 5.356
Reputação: 32 Marcio DJ Sua luz ofusca a todosMarcio DJ Sua luz ofusca a todosMarcio DJ Sua luz ofusca a todosMarcio DJ Sua luz ofusca a todos
Padrão Calculadora em Delphi

Alguem tem ai o codigo fonte? Uma padrão bem simples.
Valeu
__________________
Mousse T - Horny
Vinyl 12", 33 ⅓ RPM| Released: 1998|Genre: Electronic|Style: House|Country: US|
X2 BE 2300 G2 45W @ 3000 1.25v|Biostar MC6P M2+|XFX Radeon 4850|Hynnix 2GB@1000 1.82v|4xSeagate 7200.12 @ 2Tb Raid 0+1|Pioneer Blu-Ray|Zalman 360b-APS
Marcio DJ está offline   Responder com Quote
Antigo 23-05-2003, 6:54   #2 (permalink)
Marcio DJ
Zumbi
 
Avatar de Marcio DJ
 
Registrado em: Jun 2002
Localização: Caxias Do Sul - RS
Idade: 32
Mensagens: 5.356
Reputação: 32 Marcio DJ Sua luz ofusca a todosMarcio DJ Sua luz ofusca a todosMarcio DJ Sua luz ofusca a todosMarcio DJ Sua luz ofusca a todos
Padrão

Ninguem?
Sobe!
To precisando para hj essa parada
__________________
Mousse T - Horny
Vinyl 12", 33 ⅓ RPM| Released: 1998|Genre: Electronic|Style: House|Country: US|
X2 BE 2300 G2 45W @ 3000 1.25v|Biostar MC6P M2+|XFX Radeon 4850|Hynnix 2GB@1000 1.82v|4xSeagate 7200.12 @ 2Tb Raid 0+1|Pioneer Blu-Ray|Zalman 360b-APS
Marcio DJ está offline   Responder com Quote
Antigo 23-05-2003, 12:02   #3 (permalink)
Seu_Madruga
Tô em todas
 
Registrado em: Feb 2003
Localização: Campinas/SP
Idade: 29
Mensagens: 1.826
Reputação: 21 Seu_Madruga está indo no caminho certo
Enviar mensagem via MSN para Seu_Madruga Enviar mensagem via Yahoo para Seu_Madruga
Padrão

Em que linguagem ?
C, C++, Delphi, Java, HTML, Php, Asp, Visual C++,Borland C++, Pascal, Flash... :roll:
__________________
Amigo não é aquele que separa a briga mas sim aquele que chega na voadora!
Seu_Madruga está offline   Responder com Quote
Antigo 23-05-2003, 13:35   #4 (permalink)
GBastos
Super Participante
 
Avatar de GBastos
 
Registrado em: Sep 2001
Localização: Salvador, Bahia
Idade: 32
Mensagens: 770
Reputação: 22 GBastos está indo no caminho certo
Padrão

Veja em http://www.torry.net/util_calc.htm

E aos outros colegas programadores Delphi, dêem uma olhada no site, muito bom...
__________________
Ever tried. Ever failed. No matter. Try again. Fail again. Fail better.
GBastos está offline   Responder com Quote
Antigo 24-05-2003, 9:43   #5 (permalink)
Marcio DJ
Zumbi
 
Avatar de Marcio DJ
 
Registrado em: Jun 2002
Localização: Caxias Do Sul - RS
Idade: 32
Mensagens: 5.356
Reputação: 32 Marcio DJ Sua luz ofusca a todosMarcio DJ Sua luz ofusca a todosMarcio DJ Sua luz ofusca a todosMarcio DJ Sua luz ofusca a todos
Padrão

Citação:
Postado Originalmente por Seu_Madruga
Em que linguagem ?
C, C++, Delphi, Java, HTML, Php, Asp, Visual C++,Borland C++, Pascal, Flash... :roll:
Delphi, ta no tópico a linguagem.
Ja descolei umas legais ai é só alterar agora
Valeu pessoal
__________________
Mousse T - Horny
Vinyl 12", 33 ⅓ RPM| Released: 1998|Genre: Electronic|Style: House|Country: US|
X2 BE 2300 G2 45W @ 3000 1.25v|Biostar MC6P M2+|XFX Radeon 4850|Hynnix 2GB@1000 1.82v|4xSeagate 7200.12 @ 2Tb Raid 0+1|Pioneer Blu-Ray|Zalman 360b-APS
Marcio DJ está offline   Responder com Quote
Antigo 24-05-2003, 16:58   #6 (permalink)
Andreia_Sp
Super Participante
 
Registrado em: Mar 2003
Localização: São Paulo / SP
Idade: 30
Mensagens: 646
Reputação: 19 Andreia_Sp está indo no caminho certo
Padrão

Citação:
Postado Originalmente por Marcio DJ
Delphi, ta no tópico a linguagem.
Ja descolei umas legais ai é só alterar agora
Valeu pessoal
Esta eu fiz, bem simples mesmo.

unit operacao_u;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons;

type
TForm1 = class(TForm)
txtValor1: TEdit;
Label1: TLabel;
Label2: TLabel;
txtValor2: TEdit;
Label3: TLabel;
pnlSoma: TPanel;
Label4: TLabel;
pnlDif: TPanel;
Label5: TLabel;
pnlProd: TPanel;
Label6: TLabel;
pnlQuoc: TPanel;
btnCalc: TBitBtn;
btnLimpa: TBitBtn;
BitBtn3: TBitBtn;
procedure btnCalcClick(Sender: TObject);
procedure btnLimpaClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.btnCalcClick(Sender: TObject);
var
n1,n2 : Real;
Soma, Diferenca, Produto, Quociente : Real;
begin
N1:=StrToFloat(txtValor1.Text);
N2:=StrToFloat(txtValor2.Text);
Soma:=N1+N2;
pnlSoma.Caption:=FloatToStr(Soma);
Diferenca:=N1-N2;
pnlDif.Caption:=FloatToStr(Diferenca);
Produto:=N1*N2;
pnlProd.Caption:=FloatToStr(Produto);
if N2=0 then
begin
ShowMessage('Divisão por 0!!!');
pnlQuoc.Caption:='';
txtValor2.SetFocus;
end
else
begin
Quociente:=N1/N2;
pnlQuoc.Caption:=FloatToStr(Quociente);
txtValor1.Setfocus;
end;
end;

procedure TForm1.btnLimpaClick(Sender: TObject);
begin
txtValor1.Clear;
txtValor2.Clear;
pnlSoma.Caption:='';
pnlDif.Caption:='';
pnlQuoc.Caption:='';
pnlProd.Caption:='';
txtValor1.SetFocus;
end;

end.
Andreia_Sp está offline   Responder com Quote
Resposta


Opções do Tópico

Regras de Mensagens
Você não pode criar tópicos
Você não pode postar respostas
Você não pode anexar arquivos
Você não pode editar suas mensagens

Código vB está Ligado
Smiles estão Ligado
Código [IMG] está Ligado
Código HTML está Desligado
Ir para...


Horários baseados na GMT -3. Agora são 11:24.