Public Class Form1
 
    Dim dt As New DataTable
    Dim iBasiszeit As Integer = 480
    Dim iRestzeit As Integer = 0
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        dtErstellen()
        dgvEinstellen()
        cmbArtFuellen()
        cmbPrioritaetFuellen()
    End Sub
 
    Private Sub dgvEinstellen()
        With DataGridView1
            .DataSource = dt
            .RowsDefaultCellStyle.BackColor = Color.White
            .AlternatingRowsDefaultCellStyle.BackColor = Color.Azure
            .AllowUserToAddRows = False 'Die Zeilen werden per Code hinzugefügt
        End With
    End Sub
 
    Private Sub DTPsEinstellen()
        With dtpBeginn
            .Format = DateTimePickerFormat.Custom
            .CustomFormat = "HH:mm"
            .ShowUpDown = True
        End With
        With dtpEnde
            .Format = DateTimePickerFormat.Custom
            .CustomFormat = "HH:mm"
            .ShowUpDown = True
        End With
    End Sub
 
    Private Sub dtErstellen()
        dt.TableName = "Irgendwas"
 
        Dim cID As New DataColumn
        cID.DataType = System.Type.GetType("System.Int32")
        cID.AutoIncrement = True
        cID.ColumnName = "ID"
        dt.Columns.Add(cID)
        Dim pKey(1) As DataColumn
        pKey(1) = dt.Columns("ID")
        dt.PrimaryKey = pKey
 
        Dim cBeginn As New DataColumn
        cBeginn.DataType = System.Type.GetType("System.DateTime")
        cBeginn.ColumnName = "Beginn"
        dt.Columns.Add(cBeginn)
 
        Dim cEnde As New DataColumn
        cEnde.DataType = System.Type.GetType("System.DateTime")
        cEnde.ColumnName = "Ende"
        dt.Columns.Add(cEnde)
 
        Dim cArt As New DataColumn
        cArt.DataType = System.Type.GetType("System.String")
        cArt.ColumnName = "Art"
        dt.Columns.Add("Art")
 
        Dim cPrioritaet As New DataColumn
        cPrioritaet.DataType = System.Type.GetType("System.String")
        cPrioritaet.ColumnName = "Prioritaet"
        dt.Columns.Add("Prioritaet")
 
        Dim cDauer As New DataColumn
        cDauer.DataType = System.Type.GetType("System.Int32")
        cDauer.ColumnName = "Dauer"
        dt.Columns.Add(cDauer)
 
        Dim cRestzeit As New DataColumn
        cRestzeit.DataType = System.Type.GetType("System.Int32")
        cRestzeit.ColumnName = "Restzeit"
        dt.Columns.Add(cRestzeit)
 
    End Sub
 
    Private Sub cmbArtFuellen()
        With cmbArt
            .Items.Add("Aufgabe")
            .Items.Add("Irgendwas")
            .Items.Add("Nochwas")
        End With
    End Sub
    Private Sub cmbPrioritaetFuellen()
        With cmbPrioritaet
            .Items.Add("A")
            .Items.Add("B")
            .Items.Add("C")
        End With
    End Sub
 
    Private Sub btnUebernehmen_Click(sender As Object, e As EventArgs) Handles _
      btnUebernehmen.Click
 
        If cmbArt.Text = "" Then
            MessageBox.Show("Sie müssen erst noch eine Art auswählen!", _
              "Hinweis:")
            Exit Sub
        End If
        If cmbPrioritaet.Text = "" Then
            MessageBox.Show("Sie müssen erst noch die Priorität auswählen!", _
              "Hinweis:")
            Exit Sub
        End If
        If dtpBeginn.Value = dtpEnde.Value Or dtpBeginn.Value > _
          dtpEnde.Value Then
            MessageBox.Show("Kontrollieren Sie bitte Ihre Zeiten!", "Hinweis:")
            Exit Sub
        End If
 
        Dim NewRow As DataRow = dt.NewRow
        NewRow("Beginn") = dtpBeginn.Value
        NewRow("Ende") = dtpEnde.Value
        NewRow("Art") = cmbArt.Text
        NewRow("Prioritaet") = cmbPrioritaet.Text
        dt.Rows.Add(NewRow)
        Berechnen()
 
    End Sub
 
    Private Sub Berechnen()
 
        iRestzeit = iBasiszeit
 
        Dim dtBeginn As DateTime = Nothing
        Dim dtEnde As DateTime = Nothing
        Dim iDauer As Integer = 0
 
        For Each r As DataRow In dt.Rows
            dtBeginn = r("Beginn")
            dtEnde = r("Ende")
            iDauer = DateDiff(DateInterval.Minute, dtBeginn, dtEnde)
            r("Dauer") = iDauer
            iRestzeit = iRestzeit - iDauer
            r("Restzeit") = iRestzeit
        Next
 
    End Sub
 
    Private Sub DataGridView1_UserDeletedRow(sender As Object, e As _
      DataGridViewRowEventArgs) Handles DataGridView1.UserDeletedRow
        Berechnen()
    End Sub
End Class

EALA FREYA FRESENA

Beitrag wurde zuletzt am 11.11.18 um 12:19:18 editiert.