Codigo delphi7

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (314 palavras )
  • Download(s) : 0
  • Publicado : 29 de novembro de 2012
Ler documento completo
Amostra do texto
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);...
tracking img