LAMPIAOVALENTE2

Tenho um Grid (MSHFlexgrid) e gostaria de plotar uma coluna do mesmo num gráfico podendo ser um picturebox ou um MSChart? Os valores numéricos da coluna do Grid formam uma senóide que necessito plotar.

Muito Obrigado. Atendeu completamente o que eu tinha desejado.

Tente esse link. Acho que tira suas dúvidas. http://www.macoratti.net/vb_matrz.htm

Como fazer para multiplicar por 2 todos os elementos de uma mesma coluna? Do jeito você postou,imagino que estará multiplicando todos os elementos da matriz por 2 e não necessito disso, necessito por exemplo multiplicar uma coluna por 2 e outra coluna ao mesmo tempo por 3, por exemplo e jogar em outra mshflexgrid. Com esse exemplo, usarei uma aplicação mais complexa, no ramo da física, como um fourier, etc. Mas para uma aplicação mais complexa, precisaria entender uma mais simples. Desde já, grato pela atenção.

Tenho um programa que realiza a importação dos dados para uma MSHFlexgrid (com a ajuda dos amigos aqui do fórum), conforme mostrado abaixo, agora necessito que seja realizado uma operação matemática, por exemplo, uma multiplicação simples por 2 em cada elemento de uma mesma coluna separadamente, e jogar por exemplo essa coluna numa outra MSHFlexgrid em um outro form. Desde já, gratos a todos pela ajuda, Segue abaixo o programa que está importando os dados: Private Sub Command1_Click() On Error GoTo TrataErro: Dim fso As New FileSystemObject Dim f As TextStream Dim l As String Dim v() As String Dim i As Currency Dim s As Currency CommonDialog1.ShowOpen Set f = fso.OpenTextFile(CommonDialog1.FileName, ForReading, False) MSHFlexGrid1.Clear l = f.ReadLine v = Split(l, ",") MSHFlexGrid1.Cols = UBound(v) + 1 For i = 0 To UBound(v) MSHFlexGrid1.TextMatrix(1, i) = IIf(IsNumeric(v(i)), Val(v(i)), v(i)) s = s + IIf(IsNumeric(v(i)), Val(v(i)), 0) Next Do While Not f.AtEndOfStream l = f.ReadLine v = Split(l, ",") MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1 For i = 0 To UBound(v) MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Rows - 1, i) = IIf(IsNumeric(v(i)), Val(v(i)), v(i)) s = s + IIf(IsNumeric(v(i)), Val(v(i)), 0) Next Loop Exit Sub TrataErro: 'Erro que ocorre quando cancela um commondialog If Err.Number <> 32755 Then MsgBox Err.Number & " - " & Err.Description End If End Sub

É que o último elemento das linha não está separado por vírgula. Imagino que seja aqui que está separando elemento por elemento pela vírgula v = Split(l, ","). Como fazer para aparecer o último elemento que não é delimitado por vírgula? Desde já, grato pela atenção

Cara, muito obrigado pela atenção e ter escrito esse programa para mim. Ele é exatamente do jeito que eu queria realizar. Agora como eu tinha dito, não conheço muito bem de VB6 e não consegui melhorar o mesmo, pois quando leio o arquivo .dat não está mostrando o último elemento de cada linha, está realizando a soma conforme você mesmo disse (no lugar do último elemento). Como eu preciso do último elemento para manipulá-lo também, gostaria de melhorar esse programa. As operações matemáticas que necessito imagino realizar e jogar em um outro mshflexgrid por exemplo, em outro form do programa. Desde já, grato pela atenção.

Como exibir um arquivo dat conforme mostrado abaixo (delimitado por vírgula, em torno de 8000 linhas dessa forma), pondo cada elemento em uma celula específica conforme mostrado no arquivo, num Msflexgrid do Visual Basic 6? Como são vários arquivos dessa extensão .dat e vários nomes diferentes, gostaria de abrir o arquivo usando Commondialog, facilitaria muito e tornaria a aplicação de uso geral, ou seja, abriria qualquer arquivo .dat e exibiria no msflexgrid. E feito isso, como realizar operações matemética numa determinada coluna ou em determinadas células? Resumindo: preciso Abrir e Ler os arquivos .dat (são vários), exibi-los num Grid (um de cada vez) e em manipular os valores exibidos no Grid, como por exemplo, realizar operações matemáticas em uma determinada coluna, ou em trechos da coluna. Infelizmente, ainda não consegui importar o arquivo .dat todo para o grid (não sou muito bom em vb6), só consegui trazer trechos do arquivo, e linha por linha, o que pra mim não funciona, pois preciso de cada elemento separado por vírgula, em uma determinada célula para realizar operações matemáticas. Arquivo extensão .dat se apresenta assim (são próximo a 8000 linhas) 0000000001,0000000000,00000000,-00059328,00086600,00000000,-00086601,00026001 0000000002,0000001000,00022116,-00067234,00061663,00036476,-00098141,00018514 0000000003,0000002000,00041004,-00065912,00028584,00067626,-00096212,00008582 0000000004,0000003000,00054220,-00055579,-00008293,00089422,-00081129,-00002490 0000000005,0000004000,00060039,-00037585,-00044158,00099019,-00054862,-00013258 0000000006,0000005000,00057665,-00014243,-00074313,00095103,-00020791,-00022313 0000000007,0000006000,00046370,00011300,-00092973,00076475,00016496,-00027915 0000000008,0000007000,00028878,00035053,-00098796,00047626,00051168,-00029663 0000000009,0000008000,00007494,00053932,-00091086,00012359,00078725,-00027349 0000000010,0000009000,-00014989,00065472,-00070850,-00024721,00095570,-00021273 0000000011,0000010000,-00035640,00068130,-00040673,-00058778,00099450,-00012212 0000000012,0000011000,-00050776,00060248,-00004204,-00083741,00087944,-00001262 0000000013,0000012000,-00058853,00044246,00032473,-00097062,00064587,00009749 0000000014,0000013000,-00058853,00022246,00064587,-00097062,00032473,00019391 0000000015,0000014000,-00050776,-00002880,00087944,-00083741,-00004204,00026405 0000000016,0000015000,-00035640,-00027864,00099450,-00058778,-00040673,00029859 0000000017,0000016000,-00014989,-00048537,00095570,-00024721,-00070850,00028694 0000000018,0000016999,00007494,-00062401,00078725,00012359,-00091086,00023636