Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 168
  • Last Modified:

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  
0
naev
Asked:
naev
  • 4
  • 3
  • 2
  • +3
1 Solution
 
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
 
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
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
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
 
DalinCommented:
Just to test if you are for real
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

  • 4
  • 3
  • 2
  • +3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now