Programando em - VISUAL BASIC LTP-II / 2°Semestre-2001

1. Programando em - VISUAL BASICLTP-II / 2°Semestre-2001 Declarações Comandos Procedures/Funções

2. Arquivos Básicos do Projeto

3. Comentários, Mais de um comando por linha, Continuando o comando em outra linha • Linha decomentário - REM • Linha de comando com comentário - (‘) • REM - Calculo da taxa de juros • comissao = venda * 0.015 ´ calculo da comissao sobre a venda • Escrevendo mais de um comando por linha (:) • A = B : X = Y • Continuando o comando em outra linha ( _ ) • X = “Centro Universitário Fumec” & _ A & “Visual Basic”

4. Declaração de Variáveis • Regras para Nomes de Variáveis • O nome da variável deve começar com uma letra • O nome deve ter no máximo 255 caracteres • O conteúdo formado por letras, números e Sublinhado. • Comando DIM • Declara variáveis e aloca espaços de memória. • Dim Variável1 [ AS Tipo ] [, Variável2 [ as Tipo ] ... ] • Exemplos: • Dim Quantidade as Integer, Nome as String

5. Declaração de Variáveis • Comando Static • Usado dentro do procedimento para declarar variáveis e alocar espaços de memória.Com o comando Static os valores das variáveis são retidos durante as vezes em que o procedimento é executado na aplicação. • Staticvarname[([subscripts])] [Astype] [, varname[([subscripts])] [Astype]] . . . • Exemplos: • Static Quantidade as Integer, Nome as String

6. Declaração de Variáveis ' Definição da function.. Function KeepTotal(Number) ' Somente a variável Accumulate preserva o seu valor entre as chamadas da função. Static Accumulate Accumulate = Accumulate + Number KeepTotal = Accumulate End Function ' Definição de Static function. Static Function MyFunction(Arg1, Arg2, Arg3) ' Todas as variáveis locais preservam seus valores entre as chamadas da função. Accumulate = Arg1 + Arg2 + Arg3 Half = Accumulate / 2 MyFunction = Half End Function

7. Declaração de Variáveis • Comando Option Explicit • Usado a nível de arquivo para forçar a declaração de todas as variáveis dentro do arquivo (Formulário ou Módulo). Option Explicit' Força declaração explicita de variavéis Dim MyVar ' Declara variável tipo default variant. MyInt = 10 ' Variável não declarada gerará erro. MyVar = 10 ' Variável não declarada não gerará erro.

8. Tipos de dados

9. Variáveis públicas e privadas • Variáveis Private • Só existem no arquivo em que são declaradas • Private Total As Integer • Variáveis Public • Estas variáveis podem ser referenciadas em todos os módulos dentro da aplicação e devem ser declaradas nos arquivos tipo módulo. • Public Total As Integer

10. Constantes • As constantes possui um nome mas o seu conteúdo não pode ser alterado durante a execução do programa. • Const nome_constante1 [ as Tipo ] = valor da constante1 [ , nome_constante2 [ as Tipo ] = valor da constante2 ... ] ' Constante Public Public Const MyString = "HELP” ' Constante Private Private Const MyInt As Integer = 5 ' Constantes são Private por default Const MyVar = 459, MyDouble As Double = 3.4567

11. Declaração de Vetores / Matrizes • Declaração ' DayArray é um vetor com 51 elementos indexado, de 0 a 50, índice base é 0 (default) Dim DayArray(50) as integer ' Matriz com 2 e 3 dimensões Dim Matrix(3, 4) As Integer Dim MyMatrix(1 To 5, 4 To 9, 3 To 5) As Double Public BirthDay(1 To 10) As Date Dim MyArray() As Integer ' Declarar vetor dinâmico. • Fazer referência a um elemento do vetor DayArray(25) = 35 ‘ Atribuição de valor ao 25° item

12. Declaração de Vetores / Matrizes • Comando Option Base {0 | 1} • Usado no módulo para declarar o valor default do menor índice dos array´s (vetores/matrizes). Option base 1 ' Atribui valor default de 1 para o menor index de array´s. Dim Lower Dim MyArray(20), TwoDArray(3, 4) ' Declaração de array´s. Dim ZeroArray(0 To 5) ' Alterar base default para este vetor. ' Usar a função Lbound para testar o menor índice dos vetores Lower = LBound(MyArray) ' Retorna 1. Lower = LBound(TwoDArray, 2) ' Retorna 1. Lower = LBound(ZeroArray) ' Retorna 0.

13. Redimensionamento de Vetores dinâmicos • Comando ReDim • Usado dentro do procedimento para realocar espaço para vetores dinâmicos. Option Base 1 Dim MyArray() As Integer ' Declarar vetor dinamico. Redim MyArray(5) ' Aloca 5 elementos. For I = 1 To 5 ' Loop 5 vezes. MyArray(I) = I ' Inicializa o vetor. Next I ‘ O bloco abaixo redimensiona o vetor e inicializa o elementos. Redim MyArray(10)' Redimensiona para 10 elementos. For I = 1 To 10 ' Loop 10 vezes. MyArray(I) = I ' Inicializa o vetor. Next I ‘ O comado abaixo redimensiona o vetor mas preserva os valores. RedimPreserve MyArray(15)' Redimensiona para 15 elementos.

14. Vetores - A função Array • Array(arglist) • Retorna uma Variant contendo um vetor. Option Base 1 Private Sub Command1_Click() Dim Semana Semana = Array("Domingo", "Segunda", "Terça", _ "Quarta", "Quinta", "Sexta", "Sábado") MsgBox "Dia Corrente: " & Semana(Weekday(Date)) End Sub

15. Declaração de Registros • Usado nos arquivos Módulo para declaração de tipos Registro. [Private | Public] TypeNomeTipoNomeItem Astype[NomeItem Astype]. . . End Type Type TEmpregado ' Criar um type. Codigo As Integer ' Definir os itens do data type. Nome As String * 20 Endereco As String * 30 Telefone As Long Data_Admissao As Date End Type Public Reg_Empregado as TEmpregado ‘ Declara variável registro

16. Referência aos Campos do Registro • Qualificação: <Variável_Registro>.<Nome_do_Campo> • Comando With With <Variável_Registro> .<Nome_do_Campo> .<Nome_do_Campo> ...... End With.

17. Exemplo do Comando With num procedimento With Reg_Hospital .NUM_INSC = "" .DV_INSC = "" .RAZAO_SOC = "" .FANTASIA = "" .ENDERECO = "" .BAIRRO = "" .CIDADE = "" .UF = "" .CEP = "" .Telefone = "" .CGC = "” End With

18. With facilitando a referencia de propriedades dos objetos With Form1 .Height = 100 ' Mesmo que Form1.Height = 100. .Caption = "Hello World" ' Mesmo que Form1.Caption = "Hello World” . With .Font .Font .Color = Red ' Mesmo que Form1.Font.Color = Red. .Bold = True ' Mesmo queForm1.Font.Bold = True. End With End With

19. Expressões e Operadores • Aritméticos ( em ordem de prioridade) ^ Exponenciação ( potência ). - Inversão de sinal *,/ Multiplicação e divisão. \ Divisão inteira mod Resto da divisão ex: (A mod B) = 0 +,- Adição e subtração.

20. Expressões e Operadores • Relacionais: < menor que. > maior que. = igualdade. <> diferente. <= menor igual. >= maior igual.

21. Expressões e Operadores • Lógicos ( em ordem de prioridade ) : notnegação. ande orou Xorou exclusivo ( uma das relações verdadeiras ) Eqvequivalência ( as duas relações c/ mesmo resultado)

22. Expressões e Operadores • Strings: + concatenação de strings. & concatenação de strings e conversão de parcelas para string se necessário. • Exemplo: MsgBox "Teste " & Date & " - " & 10

23. Expressões e Operadores • Datas: + Calcula a soma de uma data com um número de dias e retorna uma data. - Calcula a diferença em dias de duas datas e retorna a diferença em dias, ou a diferença de uma datacom um número de dias retornando uma data. • Exemplo: MsgBox "Data Final: " & Format(#1/18/2001# + 10, "dd/mm/yyyy")

24. Expressões e Operadores • Horas: + Calcula a soma de duas horas e retorna uma hora. - Calcula a diferença em dias de duas horas e retorna a diferença em horas. • Exemplo: MsgBox Format(#10:00:15 AM# - #10:00:10 AM#, "hh:mm:ss")

25. Atribuição de Valores • [ LET ] Nome_da_variável = Expressão • Exemplo: Total = 0 soma = soma + 1 depto = “ “

26. Alternativa IF-ENDIF If condição Then [comandos] [ElseIf condição-1 Then [comandos]] . . . [ElseIf condição-2 Then [comandos]] . . . [ElseIf condição-n Then [comandos]] . . . [Else [comandos]] End If

27. Alternativa If-End If - Exemplo IF a >= 0 Then x = x + 1 b = a End IF IF X+Y <= 0 Then X = 0 ELSEIF Y > 0 Then Y = 0 ELSE X = 0 Y = 0 End IF

28. Múltipla escolha - CASE Select Case expressão [Case expressão - n [comandos - n]] . . . [Case Else [comandos - n ]] End Select

29. Múltipla escolha - CASE - Exemplo Number = 8 ' Inicializa variável. Select Case Number ' Avalia Number. Case 1 To 5 ' Number entre 1 e 5. MsgBox("Entre 1 e 5") Case 6, 7, 8 ' Number entre 6 e 8. MsgBox("Entre 6 e 8") CaseIs > 8 And Number < 11 ' Number é 9 ou 10 MsgBox("Maior que 8 e Menor que 11") Case Else' Outros valores. MsgBox("Não está entre 1 e 10") End Select

30. Repetição - DO WHILE | UNTIL Do [ {While | Until} condição ] [comandos] [Exit Do] [comandos] Loop

31. Repetição - DO WHILE | UNTIL Do [comandos] [Exit Do] [comandos] Loop [ {While | Until} condição ]

32. Repetição - DO WHILE | UNTIL Check = True: Counter = 0 ' Inicializa variáveis. Do' loop externo. Do While Counter < 20 ' loop interno. Counter = Counter + 1 ' Incrementa Counter. If Counter = 10 Then ' Se condição é verdadeira Check = False ' Set valor do flag para False. Exit Do' Saida do loop interno End If Loop Loop Until Check = False ' Saida do loop externo.

33. Repetição -While...Wend While <Expressão Lógica> [comando] [comando] [comando ...] Wend

34. Repetição -While...Wend Counter = 0 ' Inicializa variável While Counter < 20 ' Testa valor do Counter. Counter = Counter + 1 ' Incrementa Counter. Wend' Saida do repetição While quando Counter > 19. MsgBox(Counter) ' Mostra 20 na Caixa de Mensagem.

35. Repetição -For...Next For var = inicio To fim [ Step inc ] [comandos] [Exit For] [comandos] Next [variável]

36. Repetição -For...Next For Words = 10 To 1 Step -1 ' Controlar até 10 repetições. For Chars = 0 To 9 ' Controlar até 10 repetições. MyString = MyString & Chars ' Incluir numero na string. Next Chars ' Incrementar contador MyString = MyString & “ “ ‘ incluir um espaço na string. Next Words