Estarei falando um pouco de Matrizes, utilizando o Visual Basic 6.0 para monta – las. é simples estar manipulando uma matriz, bom vamos lá.
Obs: as pessoas que não tiverem nenhuma noção de VB, ficaram um pouco perdidas.
Primeiramente vamos criar um novo formulário, e mudar suas propriedades, seu
name para
FRMmat, seu
caption para
Matriz.
Agora vamos colocar em nosso formulário um
LISTBOX
Vamos mudar suas propriedades:
[CODE]
Name – lista
[/CODE]
Bom agora devemos adicionar dois
COMMANDBUTTON
Vamos mudar suas propriedades:
[CODE]
Name – cmdtodos
Caption – TODOS
Name – cmd2coluna
Caption – 2º Coluna.
[/CODE]
Fig.1
Feito isso vamos agora montar nossa matriz. Antes de tudo devemos declarar nossa matriz. Dê um duplo clique no formulário ou clique no View Code, e digite o seguinte código:
Dim xmatriz(5, 5) As Double
Dim xlin As Integer
Dim xcol As Integer
O que foi declarado acima
Temos uma matriz que recebeu o nome de XMATRIZ de 5 linhas e 5 colunas, que é uma variável do tipo Double, Ela tem uma maior precisão (Armazena 64 bits para cálculo!!!)
Agora o XLIN e o XCOL são as variáveis que criei para poder contar as linhas e colunas, e são do tipo INTEGER ( números inteiros ).
Vamos ter uma matriz de conterá 25 posições, e claro com vários valores. Para facilitar vamos colocar os valores da matriz, no Form_Load de nosso formulário, então quando o programa for carregado, os valores já vão estar na memória
Copie o código abaixo do abaixo e cole no Form load do formulário:
xmatriz(0, 0) = 1
xmatriz(0, 1) = 2
xmatriz(0, 2) = 3
xmatriz(0, 3) = 4
xmatriz(0, 4) = 5
xmatriz(0, 5) = 36
xmatriz(1, 0) = 6
xmatriz(1, 1) = 7
xmatriz(1, 2) = 8
xmatriz(1, 3) = 9
xmatriz(1, 4) = 10
xmatriz(1, 5) = 35
xmatriz(2, 0) = 11
xmatriz(2, 1) = 12
xmatriz(2, 2) = 13
xmatriz(2, 3) = 14
xmatriz(2, 4) = 15
xmatriz(2, 5) = 34
xmatriz(3, 0) = 16
xmatriz(3, 1) = 17
xmatriz(3, 2) = 18
xmatriz(3, 3) = 19
xmatriz(3, 4) = 20
xmatriz(3, 5) = 44
xmatriz(4, 0) = 21
xmatriz(4, 1) = 22
xmatriz(4, 2) = 23
xmatriz(4, 3) = 24
xmatriz(4, 4) = 50
xmatriz(4, 5) = 32
xmatriz(5, 0) = 26
xmatriz(5, 1) = 27
xmatriz(5, 2) = 28
xmatriz(5, 3) = 29
xmatriz(5, 4) = 30
xmatriz(5, 5) = 31
OBS:
Xmatriz- seria nossa matriz (uma variável com varias posições), o que temos entre ( ) seria a posição da matriz, EX:
xmatriz(5, 0) = 26 - sabemos que em nossa matriz temos o valor 26 na posição 5,0 o primeiro numero da esquerda para direita, representa a LINHA, o numero da direita representa a COLUNA, será sempre nessa ordem, primeiro o Valor da LINHA, e depois o da Coluna.
Como agora já temos nossos valores, podemos partir para a programação.
De um duplo clique no botão que tem o nome de TODOS, e copie o seguinte código:
lista.Clear
lista.AddItem Exibi & " todos dos valores da Matriz"
lista.AddItem " "
For xlin = 0 To 5
xvar = Empty
For xcol = 0 To 5
xvar = xvar & "(" & xlin & ", " & xcol & ") = " & xmatriz(xlin, xcol) & " "
Next
lista.AddItem xvar
Next
Com esse código ele irá mostrar todas as posições da Matriz e seus respectivos valores, resumindo ele mostra o que tem na matriz.
Feito isso vamos rodar o programa, podemos apertar o botão de função F5 para executar.
Bom vamos mudar um pouco, agora quero que seja exibido Somente os valores da 2º Coluna, de um duplo clique no botão 2º Coluna, e copie o código abaixo:
lista.Clear
lista.AddItem Exibi & " todos dos valores da 2º coluna"
lista.AddItem " "
xcol = 1
For xlin = 0 To 5
xvar = Empty
xvar = xvar & "(" & xlin & ", " & xcol & ") = " & xmatriz(xlin, xcol) & " "
lista.AddItem xvar
Next
Agora vamos pressionar a tecla F5 para vermos o resultado.
Obs: Lembrando que nessa matriz começamos pelas posições 0,0 ou seja, quando pedirmos para o Visual Basic exibir os valores da 2º Coluna, ele irá contar desde a posição 0,0 e terá que mostrar os seguintes valores:
xmatriz(0, 1) = 2
xmatriz(1, 1) = 7
xmatriz(2, 1) = 12
xmatriz(3, 1) = 17
xmatriz(4, 1) = 22
xmatriz(5, 1) = 27
No próximo artigo, estarei explicando um pouco desses códigos e também estarei colocando mais alguns botões nesse formulário, caso alguém tenha dúvida me escreva!
Faça o Download do exemplo pronto.
Obrigado.