Caminho de Navegação Visual basic / Artigos / Matriz 1

Nenhuma avalição
Indique ao Ueba Indique ao BlogBlogs Indique ao Delicious Indique ao Technorati Indique ao Google Bookmarks Indique ao Newsgator
TAGS

Nenhuma tag foi definida ainda!

Defina as tags para esta página preenchendo o campo abaixo.

  • Máximo de 100 tags
  • Cada tag deve ter até 20 caracteres.
  • Separar as tags com virgula. Ex.: php, sql, html, xml, fireworks
COMENTAR

INDICAR
Nome do amigo: E-mail do amigo: Comentário:
REPORTAR ERRO Descreva o erro:

Matriz 1Postada em: 06/01/2005

David Ramires
Por: David Ramires Nº de Visualizações: 3453.



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.