Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
 
        Dim Netzteil As String
        Dim min_spec As Double
        Dim Startzeit_SG As String
        Dim Startzeit_DT As Date
        Dim AktuelleZeit_SG As String
        Dim AktuelleZeit_DT As Date
        Dim DiffTime As Long
        Dim Laufzeit As Long
        Dim Data1 As Integer
        Dim Data2 As Integer
        Dim Spannung As Double
        Dim Widerstand As Double
        Dim Leistung As Double
        Dim CardAddress As Integer
        Dim h As Integer
 
 'Leere Diagramm
        Chart1.Series.Clear()
 
        'Die Leistung in Rot Anlegen
        Chart1.Series.Add("power")
        Chart1.Series("power").ChartType = _
          DataVisualization.Charting.SeriesChartType.Spline
        Chart1.Series("power").Color = Color.Red
        Chart1.Series("power").BorderWidth = 2
        Chart1.Series("power").ChartArea = "ChartArea1"
 
Startzeit_SG = Format(System.DateTime.Now, "dd.MM.yyyy H:mm:ss")
        Startzeit_DT = CDate(Startzeit_SG)
 
        Laufzeit = ComboBox1.SelectedItem.ToString()
 
Messungen:
 
        ReadAllAnalog(Data1, Data2)
        Spannung = Data2 * 0.036
        Leistung = Spannung * (Spannung / Widerstand)
 
        Chart1.Series("power").Points.AddXY("", Leistung)
 
        AktuelleZeit_SG = Format(System.DateTime.Now, "dd.MM.yyyy H:mm:ss")
        AktuelleZeit_DT = CDate(AktuelleZeit_SG)
        DiffTime = DateDiff(DateInterval.Second, Startzeit_DT, AktuelleZeit_DT)
        If DiffTime < Laufzeit Then GoTo Messungen
 
        WriteAllDigital(0)
        CloseDevice()
 
RausAusDemProgramm:
 
 
    End Sub