Public Class diagramm
    Dim Ya, Yb, Yc As Integer
    Dim t As Decimal
    Dim n, z As Integer
    Dim a, b, c As Integer
    Dim Xmin As Integer
    Dim klick As Integer = 1
 
    Private Sub Diagramm_Shown(sender As Object, e As EventArgs) Handles _
      MyBase.Shown
        cChart.Series(0).Name = "Budget"
        cChart.Series(0).Points.AddXY(50, 50)
        cChart.Series(0).Points.AddXY(100, 100)
        cChart.Series(0).Points.AddXY(150, 150)
        trbTau.Value = Nothing
 
        Me.CenterToScreen()
    End Sub
    Private Sub WerteBerechnen()
        t = trackBar1.Value / 100
        n = 3
        z = 150
        a = 50
        b = 100
        c = 150
        Xmin = 50
            Ya = ((1 - t) * z / n) + t * (a - Xmin)
            Yb = ((1 - t) * z / n) + t * (b - Xmin)
        Yc = ((1 - t) * z / n) + t * (c - Xmin)
 
 
    End Sub
    Private Sub WerteAnzeigen()
        lblAP.Text = Ya / a * 100
        lblBP.Text = Yb / b * 100
        lblCP.Text = Yc / c * 100
        lblAA.Text = Ya
        lblBA.Text = Yb
        lblCA.Text = Yc
        lblTau.Text = t
        lblZ.Text = z
    End Sub
 
    Private Sub DiagrammZeichnen()
        cChart.Series(1).Points.AddXY(50, Ya)
        cChart.Series(1).Points.AddXY(100, Yb)
        cChart.Series(1).Points.AddXY(150, Yc)
    End Sub
 
    Private Sub Trackbar1_Scroll(sender As Object, e As EventArgs) Handles _
      TrackBar1.Scroll
 
            WerteBerechnen()
            WerteAnzeigen()
            DiagrammZeichnen()
 
 
 
    End Sub
 
    Private Sub cmdWeiter_Click(sender As Object, e As EventArgs) Handles _
      cmdWeiter.Click
        Start.Ergebnisse = Start.Ergebnisse + Str(t) + ";"
 
        Me.Close()
    End Sub
End Class