Aula12 - Programação (VBA)

Prévia do material em texto

Introdução à Computação
Para Ciências Humanas
10 semestre de 2017
Renata Wassermann
renata@ime.usp.br
Vetores
● Até agora, toda variável podia 
armazenar apenas um valor por vez 
● Agora iremos trabalhar com vetores e 
matrizes, que servem para guardar 
conjuntos de dados do mesmo tipo
Vetores
• Vetores precisam ser declarados como qualquer 
outra variável.
O que diferencia a declaração de um vetor são 
os parênteses que seguem o nome:
    Dim notas(70) as Double
Vetores
• Vetores precisam ser declarados como qualquer 
outra variável.
• O que diferencia a declaração de um vetor são 
os parênteses que seguem o nome:
    Dim notas(70) as Double
Vetores
• Vetores precisam ser declarados como qualquer 
outra variável.
• O que diferencia a declaração de um vetor são 
os parênteses que seguem o nome:
    Dim notas(70) as Double
Nome do vetor
Vetores
• Vetores precisam ser declarados como qualquer 
outra variável.
• O que diferencia a declaração de um vetor são 
os parênteses que seguem o nome:
    Dim notas(70) as Double
Nome do vetor O vetor pode 
armazenar 70 
elementos
Vetores
• Vetores precisam ser declarados como qualquer 
outra variável.
• O que diferencia a declaração de um vetor são 
os parênteses que seguem o nome:
    Dim notas(70) as Double
Todos os elementos
do vetor são reais
Nome do vetor O vetor pode 
armazenar 70 
elementos
Exemplo 
  Dim notas(10) as Double
1 2 3 4 5 6 7 8 9 10
Exemplo 
  Dim notas(10) as Double
1 2 3 4 5 6 7 8 9 10
notas(3)=7.8
Exemplo 
  Dim notas(10) as Double
7.8
1 2 3 4 5 6 7 8 9 10
notas(3)=7.8
Exemplo 
  Dim notas(10) as Double
7.8
1 2 3 4 5 6 7 8 9 10
notas(6)=6.5
Exemplo 
  Dim notas(10) as Double
7.8 6.5
1 2 3 4 5 6 7 8 9 10
notas(6)=6.5
Exemplo 
  Dim notas(10) as Double
7.8 6.5
1 2 3 4 5 6 7 8 9 10
i = 1
While i<=10
   notas(i)=0
   i = i+1
WEnd  
Exemplo 
  Dim notas(10) as Double
0 0 0 0 0 0 0 0 0 0
1 2 3 4 5 6 7 8 9 10
i = 1
While i<=10
   notas(i)=0
   i = i+1
WEnd  
Exemplo 
Montar um vetor e copiá-lo para a planilha:
Sub CriaVetor()
    Dim i As Integer
    Dim v(20) As Integer
    
    i = 1
    While i <= 20
        v(i) = i
        i = i + 1
    Wend
 
i = 1
While i <= 20
  Cells(i, 1)=v(i)
  i = i + 1
Wend
            
End Sub
Matrizes
1 2 3 4 5 6 7 8 9
1
2
3
4
5
Dim mat(5,10) As Integer
10
Percorrendo Matrizes
lin = 1 
While lin <= 2
   col = 1 
   While col <= 4 
       matriz(lin,col) = 0
       col = col + 1
   Wend
   lin = lin + 1
Wend
0 0 0 0
0 0 0 0
1 2 3 4
1
2
For … Next
i = x
While i<=z
   Comando
   i = i+1
Wend
 
For … Next
For i = x to z
     Comando
Next
i = x
While i<=z
   Comando
   i = i+1
Wend
 
Percorrendo Matrizes
For lin = 1 to 2
   For col = 1 to 4
       matriz(lin,col) = 0
   Next
Next 0 0 0 0
0 0 0 0
1 2 3 4
1
2
Vetores, Matrizes e Funções
●No cabeçalho de uma função, apenas o 
tipo é declarado.
●O tamanho deve ser passado em um 
parâmetro à parte.
●O vetor ou matriz é alterado dentro da 
função. 
Exemplo 1
Function ProdEscalar(vet1() As Integer,_
                     vet2() As Integer,_
                   m As Integer) As Integer
   Dim soma As Integer   
   Dim i As Integer        
   soma = 0
   For i = 1 to m 
       soma = soma + vet1(i) * vet2(i)
   Next
   ProdEscalar = soma
End Function
Exemplo 2
Sub LeMatriz(matriz() As Integer, nlin As Integer,_ 
                                  ncol As Integer)
   Dim lin As Integer
   Dim col As Integer
   For lin = 1 to nlin
       For   col = 1 to ncol
           matriz(lin, col) = Cells(lin, col)
       Next
   Next
End Sub
Exemplo 3
Sub LeMatriz(i As Integer, j As Integer, _ 
             matriz() As Integer, nlin As Integer, _
             ncol As Integer)
' Le a matriz de nlin linhas e ncol colunas da    
                 planilha, começando na célula (i,j)
   Dim lin As Integer
   Dim col As Integer
   For lin = 1 to nlin
       For   col = 1 to ncol
           matriz(lin, col) = Cells(lin+i­1, col+j­1)
       Next
   Next
End Sub
	Slide 1
	Slide 2
	Slide 3
	Slide 4
	Slide 5
	Slide 6
	Slide 7
	Slide 8
	Slide 9
	Slide 10
	Slide 11
	Slide 12
	Slide 13
	Slide 14
	Slide 15
	Slide 16
	Slide 17
	Slide 18
	Slide 19
	Slide 20
	Slide 21
	Slide 22
	Slide 23
	Slide 24