Estrutura de dados

501 palavras 3 páginas
unit X;

interface

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

type TFRM_Calculadora = class(TForm) Edit2: TEdit; Edit3: TEdit; LB_X: TLabel; BT_Igual: TButton; Edit1: TEdit; BT_Limpar: TButton; RB_Somar: TRadioButton; RB_Multiplicar: TRadioButton; RB_Dividir: TRadioButton; RB_Subtrair: TRadioButton; BT_Soma: TButton; BT_Subtrai: TButton; BT_Multiplica: TButton; BT_Divide: TButton; Label1: TLabel; procedure BT_IgualClick(Sender: TObject); procedure BT_LimparClick(Sender: TObject); procedure RB_SomarClick(Sender: TObject); procedure RB_MultiplicarClick(Sender: TObject); procedure RB_SubtrairClick(Sender: TObject); procedure RB_DividirClick(Sender: TObject); procedure BT_SomaClick(Sender: TObject); procedure BT_MultiplicaClick(Sender: TObject); procedure BT_DivideClick(Sender: TObject); procedure BT_SubtraiClick(Sender: TObject); private { Private declarations } public { Public declarations } end;

var FRM_Calculadora: TFRM_Calculadora;

implementation

{$R *.DFM}

procedure TFRM_Calculadora.BT_IgualClick(Sender: TObject);
Var
V_Valor1 : Real; V_Valor2 : Real; begin IF RB_Multiplicar.Checked = True then Begin LB_X.Caption := 'X'; V_Valor1 := StrToFloat(Edit1.Text); {StrToFloat converte texto para nº decimal} {Float é conhecido como Ponto Flutuante} V_Valor2 := StrToFloat(Edit2.Text); Edit3.Text := FloatToStr(V_Valor1 * V_Valor2); {Converte de decimal para texto} End; If RB_Somar.Checked = True Then Begin LB_X.Caption := '+'; V_Valor1 := StrToFloat(Edit1.Text); {StrToFloat converte texto para nº decimal} {Float é conhecido como Ponto Flutuante}

Relacionados

  • Estrutura de Dados
    294 palavras | 2 páginas
  • Estrutura de dados
    1410 palavras | 6 páginas
  • estrutura de dados
    308 palavras | 2 páginas
  • Estrutura de dados
    1209 palavras | 5 páginas
  • Estrutura de dados
    365 palavras | 2 páginas
  • estrutura de dados
    940 palavras | 4 páginas
  • Estrutura de dados
    1051 palavras | 5 páginas
  • Estrutura de dados
    45366 palavras | 182 páginas
  • Estrutura de Dados
    16294 palavras | 66 páginas
  • Estrutura de Dados
    1559 palavras | 7 páginas