Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Access & VBA - Vetores e Matrizes

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

07112012

Mensagem 

Access & VBA - Vetores e Matrizes







por Eduardo Machado (Good Guy)

Vetores e matrizes são capazes de armazenar dados de forma organizada. Vetores fazem isso de forma escalar, isto é, com um dado de cada vez em sequência, de forma linear, em série, determinada pelo programador. Matrizes fazem isso por meio de linhas e colunas.

Poderemos ter um vetor com ‘n’ valores determinado por uma variável, com estes valores totalizados entre parênteses. Estes valores são os índices e cada vetor com índice chama-se elemento.

VETORES I

Ex(1)

Private Sub cmdMatrix_Click()

Dim Carro(5) As String ‘Ou Dim Carro(0 To 5)
Dim n As Long

Carro(0) = "Gol"
Carro(1) = "Palio"
Carro(2) = "Voyage"
Carro(3) = "Crossfox"
Carro(4) = "Spacefox"

‘Looping gerador do escalonamento dos vetores

For n = LBound(Carro) To UBound(Carro) ‘LBound é o limite inferior da Matrix e UBound é o limite superior da Matrix (0 e 4 respectivamente)
MsgBox Carro(n), vbInformation, "Matrix"
Next n

End Sub

Agora vamos supor que eu desejasse popular uma caixa de texto do meu formulário com o valor definido pelo usuário do modelo de carro.

Ex(2)

Private Sub cmdMatrix_Click()

Dim Carro(5) As String
Dim n As Long

Carro(0) = "Gol"
Carro(1) = "Palio"
Carro(2) = "Voyage"
Carro(3) = "Crossfox"
Carro(4) = "Spacefox"

n = InputBox("Digite a ordem do carro:", "Matrix")

Tipo = Carro(n) ‘Tipo seria um campo não acoplado ou acoplado(a um campo da tabela) presente no formulário

End Sub

Ex(3)

Private Sub cmdMatrix_Click()
Dim Carro(5) As String ‘Ou Dim Carro(0 To 4)
Dim n As Long

Carro(0) = DLookup("Tipo", "tblCarros", "Codigo = 1")
Carro(1) = DLookup("Tipo", "tblCarros", "Codigo = 2")
Carro(2) = DLookup("Tipo", "tblCarros", "Codigo = 3")
Carro(3) = DLookup("Tipo", "tblCarros", "Codigo = 4")
Carro(4) = DLookup("Tipo", "tblCarros", "Codigo = 5")

n = InputBox("Digite a ordem do carro:", "Matrix")

Tipo = Carro(n)

End Sub

Ex(4)

Neste exemplo vamos trabalhar com dados aleatórios.

Private Sub cmdMatrix_Click()

Dim Carro(5) As String


Carro(0) = "Gol"
Carro(1) = "Palio"
Carro(2) = "Voyage"
Carro(3) = "Crossfox"
Carro(4) = "Spacefox"

Call Randomize

Tipo = Carro(Int(5 * Rnd) + 1) 'Tipo é o nome de caixa de texto presente no formulário teste

End Sub

Testes esses exemplos e veja o que acontece.

Perceba que eu determinei que a minha variável fosse do tipo String. Se eu não soubesse que tipo de variável meu programa trabalharia, definiria minha variável como do tipo Variant. O compilador procurará um tipo de variável que mais se adapte aos valores armazenados no vetor.

Por hoje é só, amigos. cheers
avatar
good guy
Facilitador
Facilitador

Brasil


http://www.goodguyaccessvba.com.br

Voltar ao Topo Ir em baixo

Compartilhar este artigo em: BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahoo!Smarking

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum