[Open-Source] Hausaufgaben

[Snees]

Heyho liebe Community, ich habe mir eben ein Programm geschrieben, um meine Hausaufgaben einzutragen und zu verwalten.

Warum Open-Source? Ich hatte eigentlich nicht vor das Programm zu releasen, aber wer daran Interesse hat, kann es gerne etwas modifizieren, z.b. in den Autostart setzen und weitere kleinere Spielchen.

Mein Coding-Stil ist nicht der beste, aber es funktioniert

Geschrieben in VB.Net, für die, die nur das Programm nutzen wollen:
Hausaufgaben\bin\Release\Hausaufgaben.exe

Screens:



So kann das ganze dann ausgefüllt aussehen:



Ich denke, viel zu erklären gibt es da nicht, einfach zuerst die Fächer eintragen, die man hat und loslegen, das Programm speichert automatisch

Download:
Hausaufgaben.rar (427,24 KB) - uploaded.to

/e: Noch nicht kommentiert, werde es aber bei Gelegenheit machen und hier den Code posten!

[PaT]

Wie wäre es wenn du die Programmiersprache angibst >.<

[Mastercard]

Sieht aus wie VB.Net.. Korrigiere mich wenn ich falsch liege.

[Snees]

@Mastercard

Du hast zwar Recht, aber woran willst du das erkennen? GUI?
Oder hast du dir den Code angesehen?
Dann müsstest du aber zu 100% wissen, dass es VB.Net ist

[Mastercard]

Form1.Designer.vb
Hausaufgaben.vbproj

Daran hab ichs erkannt bzw vermutet.

[Snees]

Hier noch der kommentierte Code, einfach kopieren und durch den Code im alten Projekt ersetzen,
dann kann man auch alles etwas besser erkennen

'##### Hausaufgaben by Nio @ k-script.cc   |   schmitz_dev@live.de #####

Public Class Form1

    'Programm wurde gestartet und die Form wird geladen
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Folgende Aktionen werden durchgeführt:
        'Die Uhrzeit und das Datum werden ausgelesen und das der Text des Labels ersetzt
        Uhrzeit()
        'Der Timer wird gestartet, der jede Sekunde erneut Uhzeit() aufruft
        Timer1.Start()
        'Die Fächer werden geladen und in die Listbox für die Fächer eingetragen
        Dim sFile As String = "faecher.dat"
        lb_Read(faecher_lb, sFile)
        'Die Combobox mit den Fächern wird aktualisiert, damit dort die aktuellen Fächer stehen
        update_combobox()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Der Timer aktualisiert jede Sekunde den Text des Labels mit Datum und Uhrzeit
        Uhrzeit()
    End Sub


    Private Sub add_fach_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add_fach_btn.Click
        'Fächer werden der Listbox für die Fächer hinzugefügt
        faecher_lb.Items.Add(add_fach_txb.Text)
        'und die textbox geleert
        add_fach_txb.Clear()
        'Die Combobox wird erneut aktualisiert
        update_combobox()
        'Und die Fächer in der Datei faecher.dat gespeichert
        save_faecher()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Ausgewähltes Item der Listbox löschen
        If faecher_lb.SelectedIndex <> -1 Then
            faecher_lb.Items.RemoveAt(faecher_lb.SelectedIndex)
        End If
        'Combobox aktualisieren
        update_combobox()
        'Fächer erneut speichern
        save_faecher()
    End Sub

    'Combobox aktualisieren
    Sub update_combobox()
        'Zuerst Combobox leeren
        ComboBox2.Items.Clear()
        'Jedes Item der Listbox in die Combobox einfügen
        For Each item In faecher_lb.Items
            ComboBox2.Items.Add(item)
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'hausaufgaben werden hinzugefügt
        ListBox1.Items.Add("[" & ComboBox2.Text & "]: " & TextBox1.Text)
        'textbox für die eingabe der hausaufgaben geleert
        TextBox1.Clear()
        'und die hausaufgaben gespeichert
        save_hausaufgabe()
    End Sub

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        'Alle Hausaúfgaben an dem Tag werden gelöscht
        ListBox1.Items.Clear()
        'und die leere Datei gespeichert
        save_hausaufgabe()
    End Sub

    Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
        'Eine Hausaufgabe aus der Liste der Hausaufgaben wird gelöscht
        If ListBox1.SelectedIndex <> -1 Then
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        End If
        'und die Hausaufgabene erneut gespeichert
        save_hausaufgabe()
    End Sub

    'Hier der Code um die Einträge einer Listbox in einer .dat Datei zu speichern
    Public Sub lb_Save(ByVal ListBox As ListBox, _
  ByVal sFile As String)

        Dim oStream As IO.StreamWriter
        Dim i As Short

        oStream = New IO.StreamWriter(sFile)

        For i = 0 To ListBox.Items.Count - 1
            oStream.WriteLine(ListBox.Items(i))
        Next
        oStream.Close()
    End Sub

    'Und hier um die Einträge zu laden und einzufügen
    Public Sub lb_Read(ByVal ListBox As ListBox, _
      ByVal sFile As String)

        Dim oStream As IO.StreamReader
        Dim sLine As String

        ListBox.Items.Clear()

        Dim oFile As New IO.FileInfo(sFile)

        If oFile.Exists() = True Then
            oStream = New IO.StreamReader(sFile)
            Do
                sLine = oStream.ReadLine()
                If IsNothing(sLine) Then Exit Do
                ListBox.Items.Add(sLine)
            Loop
            oStream.Close()
        End If
    End Sub

    'Die Fächer speichern
    Sub save_faecher()
        Dim sFile As String = "faecher.dat"
        lb_Save(faecher_lb, sFile)
    End Sub

    'Die Hausaufgaben speichern
    Sub save_hausaufgabe()
        Dim sFile As String = "Tage/" & ComboBox1.Text & ".dat"
        lb_Save(ListBox1, sFile)
    End Sub
    'Wenn der Index der Combobox wechselt wird die passende hausaufgabe für den ausgewählten Tag geladen
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim sFile As String = "Tage/" & ComboBox1.Text & ".dat"
        lb_Read(ListBox1, sFile)
    End Sub

    'Hier wird die Uhrzeit und das Datum ausgelesen und ausgegeben
    Sub Uhrzeit()
        'Ich habe noch bei Monat und Sekunde die Zahlen unter 10 durch z.B. 01 ersetzt, damit es schöner aussieht
        'Das kann man auch noch z.B. mit Minuten etc machen, funktioniert mit dem selben Prizip
        Dim month As Integer = My.Computer.Clock.LocalTime.Month
        Dim new_month As String = String.Empty
        If month < 10 Then
            new_month = "0" & month
        Else
            new_month = month
        End If
        Dim second As Integer = My.Computer.Clock.LocalTime.Second
        Dim new_second As String = String.Empty
        If second < 10 Then
            new_second = "0" & second
        Else
            new_second = second
        End If
        datum_lbl.Text = "Heute ist der " & My.Computer.Clock.LocalTime.Day & "." & new_month & "." & My.Computer.Clock.LocalTime.Year & ". Es ist " & My.Computer.Clock.LocalTime.Hour & ":" & My.Computer.Clock.LocalTime.Minute & ":" & new_second & " Uhr."
    End Sub
End Class