Grafiek maken

[old Hippy]

Hallo alle maal

ik wil een grafiek maken.

Ik heb een listview waar de gegevens in staan
deze wordt gevuld via een timer met een getal.
nu wil ik deze per regel uitlezen.
hopelijk ben ik duidelijk genoeg.

 

[old Hippy]

Is opgelost

 

[JoZ1]

Kun je de code hier plaatsen zodat mensen met hetzelfde probleem er iets aan hebben?
Trouwens goed dat je het zelf al hebt opgelost :thumb:

 

[old Hippy]

Ik heb gewoon de textboxen gevuld in plaats van de listview

   Private Function Grafiek() As Boolean
        Try
            Dim t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13 As Double

            t2 = CDbl(TextBoxX3.Text)
            t3 = CDbl(TextBoxX4.Text)
            t4 = CDbl(TextBoxX5.Text)
            t5 = CDbl(TextBoxX6.Text)
            t6 = CDbl(TextBoxX7.Text)
            t7 = CDbl(TextBoxX8.Text)
            t8 = CDbl(TextBoxX9.Text)
            t9 = CDbl(TextBoxX10.Text)
            t10 = CDbl(TextBoxX11.Text)
            t11 = CDbl(TextBoxX12.Text)
            t12 = CDbl(TextBoxX13.Text)
            t13 = CDbl(TextBoxX14.Text)
            If LabelX4.Text = "0" Then
                TextBoxX3.Text = TextBoxX2.Text.Replace(",", ".")
                If CB_ING.Checked = True Then
                    Maak_Grafiek_INI()
                ElseIf CB_AEX.Checked = True Then
                    Maak_Grafiek_AEX()
                End If
            ElseIf LabelX4.Text = "5" Then
                TextBoxX4.Text = TextBoxX2.Text.Replace(",", ".")

            ElseIf LabelX4.Text = "10" Then
                TextBoxX5.Text = TextBoxX2.Text.Replace(",", ".")

            ElseIf LabelX4.Text = "15" Then
                TextBoxX6.Text = TextBoxX2.Text.Replace(",", ".")

            ElseIf LabelX4.Text = "20" Then
                TextBoxX7.Text = TextBoxX2.Text.Replace(",", ".")

            ElseIf LabelX4.Text = "25" Then
                TextBoxX8.Text = TextBoxX2.Text.Replace(",", ".")

            ElseIf LabelX4.Text = "30" Then
                TextBoxX9.Text = TextBoxX2.Text.Replace(",", ".")

            ElseIf LabelX4.Text = "35" Then
                TextBoxX10.Text = TextBoxX2.Text.Replace(",", ".")

            ElseIf LabelX4.Text = "40" Then
                TextBoxX11.Text = TextBoxX2.Text.Replace(",", ".")

            ElseIf LabelX4.Text = "45" Then
                TextBoxX12.Text = TextBoxX2.Text.Replace(",", ".")

            ElseIf LabelX4.Text = "50" Then
                TextBoxX13.Text = TextBoxX2.Text.Replace(",", ".")

            ElseIf LabelX4.Text = "55" Then
                TextBoxX14.Text = TextBoxX2.Text.Replace(",", ".")
            End If
            Dim microChart As New MicroChartItem()
            MicroChart1.DataPoints = New List(Of Double)(New Double() {t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13})
        Catch ex As Exception

        End Try

    End Function

de label staat in een timer

LabelX4.Text = Now.Minute