URGENT VB5 CHART!!!

I am trying to develop an application with Visual Basic 5.0
 which will read X ,Y1, Y2, Y3, Y4, Y5 and Y6 values from a
 data file and then will plot all Y values versus X values.
 I have developed a computer code for it  but it failed
(with line plot or XYScatter).
 It didn't plot the values correctly.
 I checked the data file and found that program opened
 and read it correctly. I tried it for scatter plot, it
 again didn't do that. Here is a very short sample data
 file composition.
   
 X       Y1      Y'2     Y3      Y4      Y5      Y6
 0       1        0.1     0.2     0.8     0.7     0.4
 2       0.88    0.98    0.56    0.89    0.55    0.38
 5       0.55    0.54    0.98    0.45    0.56    0.87  
naevAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
DalinConnect With a Mentor Commented:
Just to test if you are for real
0
 
DalinCommented:
What is going on here?
Two different users come with the same question at the same time?
I believe the same question was here some time before.
Don't try to fool around here...
0
 
DalinCommented:
I am locking the question so it can not be deleted.
You can reject it.
0
Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

 
swiltCommented:
Set the ChartType up at runtime

My DATA.TXT:

0, 1,    0.1,  0.2,  0.8,  0.7,  0.4
2, 0.88, 0.98, 0.56, 0.89, 0.55, 0.38
5, 0.55, 0.54, 0.98, 0.45, 0.56, 0.87

My code:

Private Sub Form_Load()
    Dim colData As New Collection
    Dim fh As Integer, i As Integer, j As Integer
    Dim v(1 To 7) As Single
    Dim vite As Variant
   
    fh = FreeFile
    Open "C:\data.txt" For Input As #fh
    While Not EOF(fh)
        Input #fh, v(1), v(2), v(3), v(4), v(5), v(6), v(7)
        colData.Add v()
    Wend
    Close #fh
   
    If colData.Count > 0 Then
        MSChart1.ColumnCount = 6
        MSChart1.RowCount = colData.Item(colData.Count)(1) + 1 ' last item x value
        For i = 1 To MSChart1.RowCount
            For j = 1 To MSChart1.ColumnCount
                MSChart1.Row = i
                MSChart1.Column = j
                MSChart1.Data = 0
            Next j
        Next i
        For Each vite In colData
            MSChart1.Row = vite(1) + 1 ' Add 1 because data contains zero as start
            For i = 1 To 6
                MSChart1.Column = i
                MSChart1.Data = vite(i + 1)
            Next i
        Next vite
    End If
    Set colData = Nothing
End Sub
0
 
naevAuthor Commented:
Dear Swilt,

I tried your code; it didn't work. If you want I can send you codes I wrote.
0
 
naevAuthor Commented:
To Dalin:
Please help me. I am not trying to fool anyone. I am in need of urgent help. You can be more gentle...
0
 
naevAuthor Commented:
To Dalin:
Please help me. I am not trying to fool anyone. I am in need of urgent help. You can be more gentle...
0
 
swiltCommented:
If you send your code to swilt48@hotmail.com I will have a look at it
0
 
clifABBCommented:
This sounds suspiciously like a homework problem, which my morals will not allow me to answer.
0
 
StapleheadCommented:
ClifABB:

Bet that made getting through school difficult for you!
0
 
NniolCommented:
Try feeding the information into a 2 dimensional array.

For a 3x2 chart, rows 3 and columns = 2
The array needs to be populayte so that all the y values for the first x value are in (0,?), for the second x value (1,?).

Once you have populated the array, set
MSChart1.chartdata=<<Array Name>>
YOu do not need to set rowcount or columncount.

0
 
naevAuthor Commented:
I have solved my problem... Thanks a lot...
http://www.vb-helper.com
helped me, and solved my problem.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.