Sistema de Banco

Ir em baixo

Sistema de Banco

Mensagem por Bruno_Gam em Qui Out 04, 2012 9:25 pm

Sistema de Banco
Consiste em ter uma conta pra depositar e retirar seu dinheiro quando necessário.

Criador: blk
______________________________________________________________________________________________________________

Para começar crie um "Show Message" no evento e depois coloque tudo desta forma:

Código:
 <>Messg: Bem vindo ao banco [nome do banco, se você quiser]: Por favor escolha uma opção:
    <>Show Choice: Retirar/Depositar :
          <>:[Retirar] Case
<>:[Depositar] Case
<>:CANCEL Case
<>:END Case <>

Coloque esses títulos para variables: Dinheiro atual, Dinheiro da conta, Retirar dinheiro, Depositar dinheiro. Eu usarei 1 para dinheiro atual, 2 para dinheiro da conta
No caso de retirar, a tela deve ficar assim:

Código:
<>:[Retirar] Case
    <>LABEL: 1No
    <>Messg: Você têm [2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando.

Eu coloquei [2] porque variable 2 é a que nós designamos para "Dinheiro da conta". Então ficará assim...

Código:
<>:[Retirar] Case
              <>LABEL: 1No
              <>Messg: Você têm [2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando.
              <>Input Number: 6 Dg.[0003:Retirar dinheiro]
              <>FORK Optn: Varbl[0003:Retirar dinheiro]-V[0002]less
              <>Messg: Você retirou [3] [tipo do dinheiro aqui]. Pegue seu dinheiro.
              <>Change Money: Money V[0003] Incr.
              <>Variable Ch:[0002: Dinheiro da conta]-, Var.[0003]val.
          <> Excepting Case
              <>Messg: A quantidade que você colocou está ultrapassando a quantia em sua conta.
              <>GOTOLabel: 1No
<>:END Case <>

Agora, para depositar, a tela deve ficar assim...

<>:[Depositar] Case
<>LABEL: 2No
<>Variable Ch:[0001:Dinheiro atual] Set, Money#
<>Messg: Você tem [2] [tipo do dinheiro aqui] na sua conta. Coloque a quantidade de dinheiro que você quer depositar.
<>Input Number: 6 Dg.[0004:Depositar dinheiro]
<>FORK Optn: Varbl[0004:Depositar]-V[0001]less
<>Messg: Obrigado. Você tinha [4] [tipo do dinheiro aqui] na sua conta antes de depositar.
<>Change Money: Money V[0004] Decr.
<>Variable Ch:[0002: Dinheiro da conta]+, Var.[0004]val.
<>Excepting Case
<>Messg: A quantidade que você quer depositar está acima da quantia que você está segurando.
<>GOTOLabel: 2No.

O evento inteiro tem que ficar desse jeito:

Código:
<>Messg: Bem vindo ao banco [nome do banco, se você quiser]: Por favor escolha uma opção:
    <>Show Choice: Retirar/Depositar :
          <>:[Retirar] Case
<>:[Depositar] Case
<>:CANCEL Case
<>:END Case <>
          <>:[Retirar] Case
    <>LABEL: 1No
    <>Messg: Você têm [2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando.

Eu coloquei [2] porque variable 2 é a que nós designamos para "Dinheiro da conta". Então ficará assim...

Código:
<>:[Retirar] Case
              <>LABEL: 1No
              <>Messg: Você têm [2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando.
              <>Input Number: 6 Dg.[0003:Retirar dinheiro]
              <>FORK Optn: Varbl[0003:Retirar dinheiro]-V[0002]less
              <>Messg: Você retirou [3] [tipo do dinheiro aqui]. Pegue seu dinheiro.
              <>Change Money: Money V[0003] Incr.
              <>Variable Ch:[0002: Dinheiro da conta]-, Var.[0003]val.
          <> Excepting Case
              <>Messg: A quantidade que você colocou está ultrapassando a quantia em sua conta.
              <>GOTOLabel: 1No
<>:END Case <>
    [Depositar] Case
              <>LABEL: 2No
              <>Variable Ch:[0001:Dinheiro atual] Set, Money#
              <>Messg: Você tem [2] [tipo do dinheiro aqui] na sua conta. Coloque a quantidade de dinheiro que você quer depositar.
              <>Input Number: 6 Dg.[0004:Depositar dinheiro]
              <>FORK Optn: Varbl[0004:Depositar]-V[0001]less
              <>Messg: Obrigado. Você tinha [4] [tipo do dinheiro aqui] na sua conta antes de depositar.
              <>Change Money: Money V[0004] Decr.
              <>Variable Ch:[0002: Dinheiro da conta]+, Var.[0004]val.
          <>Excepting Case
<>Messg: A quantidade que você quer depositar está acima da quantia que você está segurando.
<>GOTOLabel: 2No.


Pronto, simples e fácil.

______________________________________________________________________________________________________________

Agradecimento á blk por ter criado o sistema, e a MRM onde este tutorial foi postado.

__________________________________________________
avatar
Bruno_Gam

Mensagens : 206
Pontos : 474
Data de inscrição : 16/08/2012
Localização : Bauru/SP

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum