Nenhuma avalição
COMENTAR
INDICAR
Matriz parte 2Postada em: 02/02/2005
Bom, como eu tinha falado, estaria escrevendo por partes sobre matrizes, agora vamos para segunda parte de nosso projeto.
Bom, agora vamos adicionar dois COMMANDBUTTON. Vamos mudar suas propriedades:
[CODE]
Name – cmd5linha
Caption – 5º linha
Name – cmddiag00
Caption – diagonal(0,0)
[/CODE]
Temos no total quatro COMMANDBUTTON, vamos a programação:
De um duplo clique no botão 5º linha e copie o seguinte código:
lista.Clear
lista.AddItem Exibi & " valores da 5º linha"
lista.AddItem " "
xlin = 4
xvar = Empty
For xcol = 0 To 5
xvar = xvar & "(" & xlin & ", " & xcol & ") = " & xmatriz(xlin, xcol) & " "
Next
lista.AddItem xvar
Com esse código podemos visualizar os valores da matriz na 5º linha.
De um duplo clique no botão diagonal(0,0) e copie o seguinte código:
lista.Clear
lista.AddItem Exibi & " todos dos valores na diagonal [0.0]"
lista.AddItem " "
For xlin = 0 To 5
xvar = Empty
For xcol = 0 To 5
If xlin = xcol Then
xvar = xvar & "(" & xlin & ", " & xcol & ") = " & xmatriz(xlin, xcol) & " "
End If
Next
lista.AddItem xvar
Next
Esse código, mostra os valores da matriz na diagonal, começando pela posição 0,0
Caso alguém não consiga fazer, me escreva.
Lembrando que essa é a segunda parte desse projeto, para poder funcionar corretamente temos que implementar a primeira parte.
Para o pessoal que está na faculdade, isso ajuda bastante na hora de entender Matrizes.
bom vou deixar o arquivo pronto caso alguem queria olhar.
antes de tudo quero dizer que eu testei o download e o arquivo
abre perfeitamente, caso alguém tenha problemas, posso passar também via e - mail ...OK
Bom, agora vamos adicionar dois COMMANDBUTTON. Vamos mudar suas propriedades:
[CODE]
Name – cmd5linha
Caption – 5º linha
Name – cmddiag00
Caption – diagonal(0,0)
[/CODE]
Temos no total quatro COMMANDBUTTON, vamos a programação:
De um duplo clique no botão 5º linha e copie o seguinte código:
lista.Clear
lista.AddItem Exibi & " valores da 5º linha"
lista.AddItem " "
xlin = 4
xvar = Empty
For xcol = 0 To 5
xvar = xvar & "(" & xlin & ", " & xcol & ") = " & xmatriz(xlin, xcol) & " "
Next
lista.AddItem xvar
Com esse código podemos visualizar os valores da matriz na 5º linha.
De um duplo clique no botão diagonal(0,0) e copie o seguinte código:
lista.Clear
lista.AddItem Exibi & " todos dos valores na diagonal [0.0]"
lista.AddItem " "
For xlin = 0 To 5
xvar = Empty
For xcol = 0 To 5
If xlin = xcol Then
xvar = xvar & "(" & xlin & ", " & xcol & ") = " & xmatriz(xlin, xcol) & " "
End If
Next
lista.AddItem xvar
Next
Esse código, mostra os valores da matriz na diagonal, começando pela posição 0,0
Caso alguém não consiga fazer, me escreva.
Lembrando que essa é a segunda parte desse projeto, para poder funcionar corretamente temos que implementar a primeira parte.
Para o pessoal que está na faculdade, isso ajuda bastante na hora de entender Matrizes.
bom vou deixar o arquivo pronto caso alguem queria olhar.
antes de tudo quero dizer que eu testei o download e o arquivo
abre perfeitamente, caso alguém tenha problemas, posso passar também via e - mail ...OK
