04 - Conceitos básicos em programação em VBA., Resumos de Programação em Windows

Baixe 04 - Conceitos básicos em programação em VBA. e outras Resumos em PDF para Programação em Windows, somente na Docsity!

Aula 04

FATEC – Ribeirão Preto

Programação em Microinformática

OBJETIVOS DA AULA

`

Go To

• Declaração Go To

• Oferece mecanismo mais direto no que se refere a

alteração do fluxo de um programa

• Essa declaração simplesmente transfere a execução do

programa para uma nova declaração , essa, precedida por

uma etiqueta (label)

• As rotinas VBA podem conter inúmeras etiquetas (depende

exclusivamente de sua necessidade)

• Uma etiqueta (label) é apenas uma string de texto seguida

por dois pontos

`

Go To

• Declaração Go To

• Exemplo ( 01 ):
  • Implementando o uso de Go To em um procedimento qualquer Sub DemoGoTo() nome = InputBox ("Digite o nome: ") If nome <> "Joaquim" Then GoTo NomeErrado End If MsgBox "Seja bem-vindo Joaquim..." '...[Código VBA]... Exit Sub NomeErrado: MsgBox "Desculpe. Somente Joaquim pode executar esse programa" End Sub label label

`

If-Then

• Estrutura If-Then

• Exemplo ( 01 ):
  • Exemplificando o uso da estrutura If-Then sem a cláusula opcional Else Sub GetHora() If Time < 0. 5 Then MsgBox "Bom dia!" End If End Sub

`

If-Then

• Estrutura If-Then

• Exemplo ( 02 ):
  • Se Time for maior ou igual a 0. 5 , adicionamos uma outra declaração If-Then posterior a primeira Sub GetHora_1() If Time < 0. 5 Then MsgBox "Bom dia" End If If Time >= 0. 5 Then MsgBox "Boa tarde" End If End Sub

`

If-Then

• Estrutura If-Then-Else

• Exemplo ( 04 ):
  • Expandindo a sub-rotina para atender três condições: manhã , tarde e noite Sub GetHora_3() Dim msg As String If Time < 0. 5 Then msg = "Manhã" If Time >= 0. 5 And Time < 0. 75 Then msg = "Tarde" If Time >= 0. 75 Then msg = "Noite" MsgBox "Boa " & msg End Sub

`

If-Then

• Estrutura If-Then-Else

• Exemplo ( 05 ): - Parte 1
  • Similar ao exemplo anterior , entretanto , fazendo uso da estrutura If-Then - End If Geraldo Henrique Neto – PEM 11 Sub GetHora_4() Dim msg As String If Time < 0. 5 Then msg = "Manhã" End If If Time >= 0. 5 And Time < 0. 75 Then msg = "Tarde" End If continua…

`

ElseIf

• Estrutura ElseIf

• É mais performática que as declarações anteriores
• Sintaxe: If condição Then [instrução] ElseIf condition-n Then [instrução para ElseIf] Else [instrução para Else] End If

`

ElseIf

• Estrutura ElseIf

• Exemplo ( 01 ):
  • Usando a declaração ElseIf Geraldo Henrique Neto – PEM 14 Sub GetHora_5() Dim msg As String If Time < 0. 5 Then msg = "Manhã" ElseIf Time >= 0. 5 And Time < 0. 75 Then msg = "Tarde" Else msg = "Noite" End If MsgBox "Boa " & msg End Sub

`

If-Then

• Estrutura If-Then

• Exemplo ( 02 ): - Parte 1
  • Similar ao exemplo anterior , porém , utiliza a sintaxe Else
  • Neste caso , a rotina termina imediatamente depois de executar as declarações quando a condição é verdadeira Geraldo Henrique Neto – PEM 16 Sub ExibeDesconto_2 () Dim quantidade As Integer Dim desconto As Double quantidade = InputBox ("Digite um valor: ") If quantidade > 0 And quantidade < 25 Then desconto = 0. 1 ElseIf quantidade >= 25 And quantidade < 50 Then desconto = 0. 15 continua...

`

If-Then

• Estrutura If-Then

• Exemplo ( 02 ): - Parte 2
  • Similar ao exemplo anterior , porém , utiliza a sintaxe Else
  • Neste caso , a rotina termina imediatamente depois de executar as declarações quando a condição é verdadeira ElseIf quantidade >= 50 And quantidade < 75 Then desconto = 0. 2 ElseIf quantidade >= 75 Then desconto = 0. 25 End If MsgBox "Desconto: " & desconto End Sub

`

Select Case

• Estrutura Select-Case

• Exemplo ( 01 ): - Parte 1
  • Codificando o exemplo anterior para utilizar a estrutura Select Case

Sub ExibeDesconto_3 ()

Dim quantidade As Integer

Dim desconto As Double

quantidade = InputBox ("Digite um valor: ")

continua...

`

Select Case

• Estrutura Select-Case

• Exemplo ( 01 ): - Parte 2
  • Codificando o exemplo anterior para utilizar a estrutura Select Case Geraldo Henrique Neto – PEM 20 Select Case quantidade Case 0 To 24 desconto = 0. 1 Case 25 To 49 desconto = 0. 15 Case 50 To 74 desconto = 0. 2 Case Is >= 75 desconto = 0. 25 End Select MsgBox "Desconto: " & desconto End Sub