Codigo delphi7

Páginas: 2 (314 palavras) Publicado: 29 de novembro de 2012
unit unt.saque;

interface

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

type
Tfrmbanco = class(TForm)Image1: TImage;
Image2: TImage;
lblx1: TLabel;
lblx2: TLabel;
lblx3: TLabel;
lblx4: TLabel;
lblvsaque: TLabel;
img10: TImage;
img20: TImage;
img50: TImage;img100: TImage;
rdbmenorvalor: TRadioButton;
rdbmaiorvalor: TRadioButton;
edtvalor: TEdit;
btnsaque: TButton;
btnnovaop: TButton;
procedure btnsaqueClick(Sender:TObject);
procedure btnnovaopClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmbanco: Tfrmbanco;
saque:integer;divisao,resto:integer;
implementation
{$R *.dfm}
procedure cem(saque:integer);
begin
divisao:=saque div 100;
resto:=saque mod 100;
end;
procedure cinquenta (saque:integer);
begindivisao:=saque div 50;
resto:=saque mod 50;
end;
procedure vinte(saque:integer);
begin
divisao:=saque div 20;
resto:=saque mod 20;
end;
procedure dez(saque:integer);
begindivisao:=saque div 10;
resto:=saque mod 10;
end;

procedure Tfrmbanco.btnsaqueClick(Sender: TObject);

begin
if (edtvalor.Text='') then
begin
showmessage('Favordigitar um valor para SAQUE');
end
else
begin
saque:=strtoint(edtvalor.Text);
end;

begin
if (saque mod 10 0)then
beginshowmessage('Valor para saque inválido');
end
else

if not(rdbmaiorvalor.Checked)and not (rdbmenorvalor.Checked)then
beginshowmessage('Você precisa escolher uma opção entre Maior e Menor Valor');
end
else

begin
if rdbmaiorvalor.checked then
begin
cem(saque);...
Ler documento completo

Por favor, assinar para o acesso.

Estes textos também podem ser interessantes

  • delphi7
  • Operações básicas em delphi7
  • Codigos
  • Codigo
  • Código
  • CODIGOS
  • codigo
  • Código

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!