Sistema de Banco
Para começar a tela deve ficar assim
<>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:
<>:[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...
<>:[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:
<>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...
<>:[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.
Qualquer dúvida é só postar =P
