Mais uma atualização do curso! Até a próxima!!!
9. COMBINANDO LOOPS
A mistureba vai começar! A partir deste momento, vamos construir algoritmos mesclando tudo o que aprendemos até agora.
Vamos fazer o máximo de exemplos possível para compreendermos melhor as aplicações em VBA e percebermos como a programação está presente em nossa vida cotidiana. Para começar, vamos tentar entender como os caixas eletrônicos que utilizamos todos os dias funcionam.
9.1. Lógica algorítmica do caixa eletrônico.
Com o passar dos anos, os bancos investiram maciçamente em TI para automatizar as suas ações. Por esta razão, bancário virou cabeça de bacalhau. Não vejo um desde essa informatização toda.
Como fomos expulsos das agências, precisamos aprender a interagir com os caixas eletrônicos. O problema é que o grande vazio existencial do homem consiste em operar parafernálias eletrônicas que não entende o funcionamento. Não sou psicólogo mais vou te ajuda nessa OK?
Vamos criar um pequeno formulário para facilitar a compreensão.
Abra o editor do VBA(Alt + F11) e siga o exemplo abaixo. Obs: você já deve ter percebido que estou usando sempre a mesma planilha, estando esta postada no blog para que você possa baixar e usá-la como ferramenta de estudo.
Veja que este formulário não se parece nada com a tela do programa de um caixa eletrônico. É óbvio, que o nosso objetivo é apenas compreender o raciocínio lógico que permeia um sistema desta natureza. Então let’s GO!!!
9.1.1. Programando o Botão Depositar
Nada de diferente do que já vimos até agora. Simplesmente salvamos o dado digitado na TextBox1 direto na Range(“A1”) da Plan4, usando uma InputBox.
O botão sacar é que exigirá mais de nós.
9.1.2. Programando o Botão Sacar
Uma das funções mais importantes do programador é se antever à possíveis erros praticados pelos usuários. Para tanto, precisam ser criadas consistências que minimizem estas possibilidades.
Como estamos simulando o raciocínio algorítmico de um caixa eletrônico, imagine a seguinte situação hipotética:
Você foi contratado pelo banco JJ para elaborar um sistema para um caixa eletrônico. O programa deverá registrar os depósitos dos clientes. Até aqui tudo bem.
O negócio ficará estreito, quando os clientes quiserem sacar seus depósitos. Por que? Imagine que uma pessoa que tem R$ 100,00 digite sem querer R$ 1000,00 e consiga sacar tal valor.
Minha pergunta: Cê tá no sal ou não ta?
Pois é meu caro amigo! Precisamos resolver este troço. Nosso sistema precisar ser inteligente a ponto de não permitir que tais situações ocorram. Então sigam meus bons!
CÓDIGO PARA COPIAR
Private Sub CB_Sacar_Click()
'Declare a variável que receberá a planilha
Dim Planilha As Worksheet
'A variável que receberá o valor do saque
Dim Sacar As Currency
'Associamos a variável Planilha com a Plan5
Set Planilha = Worksheets("Plan5")
'Criamos uma InputBox para receber o valor do saque.
Sacar = InputBox("Digite o valor que deseja sacar", "CAIXA ELETRÔNICO")
'Criamos um bloco para fazer referência à plan5. Tudo que for digitado entre WITH PLANILHA E END,
'dirá respeito a plan5
With Planilha
'Testamos. Enquanto o valor do saque for maior que o valor que o saldo em conta, emitiremos uma mensagem
'Informando qual é o saldo e solicitaremos novamente que um novo valor seja digitado. o Laço não será
'desfeito enquanto um valor menor ou igual ao saldo for digitado.
Do While Sacar > .Range("A1").Value
'Para exibirmos o valor como moeda, usamos(FormatCurrency) para fazer
'a conversão.
MsgBox "Seu saldo em conta é de: " & FormatCurrency(.Range("A1").Value)
'Precisamos pedir a digitação novamente, pois uma vez no LOOP, não será possivel voltar ao início do código
'para solicita a digitação da INPUTBOX que criamos lá em cima. Por isto repetimos ele aqui.
Sacar = InputBox("Digite o valor que deseja sacar", "CAIXA ELETRÔNICO")
'Fechamos o Loop
Loop
'Agora, famos fazer uma MSGBOX melhor elaborada. Ela fará parte do nosso testo, pois a ação da funcão condicional
'IF - END IF, dependerá da resposta que o usuário der. Perceba que o texto sempre fica entre aspas duplas.
'Variáveis são conectadas pelo &. Nesta caixa de mensagem, usamos o comando vbYesNo, que criará uma MSGBOX com as
'opções sim ou não. Podemos ainda, usar o vbQuestion para que uma interrogação apareça quando da execução.
'Finalmente, se o usuário clicar em NÃO, ENTÃO(THEN), vamos sair da rotina(Exit Sub), significando dizer, que o
'código vai simplesmente parar e nada será executado a partir dali.
If MsgBox("Deseja sacar " & FormatCurrency(Sacar) & " reais de sua conta corrente?", vbYesNo + vbQuestion, _
"CAIXA ELETRÔNICO") = vbNo Then
Exit Sub
'Do contrário, ou seja, se o usuário clicar SIM, continuaremos execução
Else
'E executaremos isto. Pegaremos o valor que está em A1 e subtrairemos o valor que está em SACAR.
'calculo simples.
' ao valor que já
'A1 será igual já possue menos SACAR
.Range("A1").Value = .Range("A1").Value - Sacar
End If
End With
End Sub
É hora dos testes. Click em F5 ou aperte Play como na figura abaixo
Click em Depositar, Caixa de Entrada (InputBox) será aberta. Digite 2000 e click em OK. Veja que o valor do depósito aparecerá na célula A1.
Agora, click no botão Sacar. Na InputBox digite 300 e click em OK. A MSGBOX vai fazer o seu papel. Se clicar em NÃO, sairemos da rotina e o código deixará de ser executado.
Se clicar em SIM, o saque será realizado e o saldo em conta será atualizado em A1 para R$ 1700,00.
Começamos bem. Creio que você entendeu como precisamos estar atentos à necessidade de elaboração de testes capazes de garantir o perfeito funcionamento do programa. Seguindo este raciocínio, vamos aprofundar o assunto nos próximos exemplos.
Para acessar o curso completo Clique aqui
