1. #1
    U-Labs Legende
    Avatar von Snees
    Registriert seit
    18.11.2011
    Beiträge
    1.000
    Thanked 590 Times in 319 Posts

    Standard [Open-Source] Hausaufgaben

    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:

    ha1u7m.jpg

    So kann das ganze dann ausgefüllt aussehen:

    unbenanntmfq3.jpg

    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!
    Geändert von Darkfield (20.03.2014 um 07:43 Uhr)

  2. #2
    PaT
    PaT ist offline
    Grünschnabel

    Registriert seit
    31.01.2011
    Beiträge
    26
    Thanked 211 Times in 94 Posts

    Standard [Open-Source] Hausaufgaben

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


    -------------------------------------------
    Hier kommt der Waynetrain! Er fährt mit deiner Story zum Whateverest !!!
    -------------------------------------------
    BILD ANZEIGEN [Warum wird das Bild nicht angezeigt?]

  3. #3
    Grünschnabel

    Registriert seit
    01.02.2011
    Beiträge
    29
    Thanked 261 Times in 149 Posts

    Standard [Open-Source] Hausaufgaben

    Sieht aus wie VB.Net.. Korrigiere mich wenn ich falsch liege.
    BILD ANZEIGEN [Warum wird das Bild nicht angezeigt?]

    HSV - Für immer!
    "Der Neid ist die aufrichtigste Form der Anerkennung."

    (Wilhelm Busch, 15.04.1832 - 09.01.1908)

  4. #4
    U-Labs Legende
    Avatar von Snees
    Registriert seit
    18.11.2011
    Beiträge
    1.000
    Thanked 590 Times in 319 Posts

    Standard [Open-Source] Hausaufgaben

    @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
    Geändert von Darkfield (20.03.2014 um 07:43 Uhr)

  5. #5
    Grünschnabel

    Registriert seit
    01.02.2011
    Beiträge
    29
    Thanked 261 Times in 149 Posts

    Standard [Open-Source] Hausaufgaben

    Form1.Designer.vb
    Hausaufgaben.vbproj

    Daran hab ichs erkannt bzw vermutet.
    BILD ANZEIGEN [Warum wird das Bild nicht angezeigt?]

    HSV - Für immer!
    "Der Neid ist die aufrichtigste Form der Anerkennung."

    (Wilhelm Busch, 15.04.1832 - 09.01.1908)

  6. #6
    U-Labs Legende
    Avatar von Snees
    Registriert seit
    18.11.2011
    Beiträge
    1.000
    Thanked 590 Times in 319 Posts

    Standard [Open-Source] Hausaufgaben

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

    PHP-Code:
    '##### 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.ObjectByVal e As System.EventArgsHandles 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_lbsFile)
            
    '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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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 
    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_lbsFile)
        
    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.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedIndexChanged
            Dim sFile 
    As String "Tage/" ComboBox1.Text ".dat"
            
    lb_Read(ListBox1sFile)
        
    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.B01 ersetztdamit 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 
    Geändert von Darkfield (20.03.2014 um 07:43 Uhr)

Ähnliche Themen

  1. Google Glass wird Open Source
    Von DMW007 im Forum IT & Technik News
    Antworten: 1
    Letzter Beitrag: 01.05.2013, 18:05
  2. [Source] Hausaufgaben
    Von Snees im Forum Sourcecode
    Antworten: 11
    Letzter Beitrag: 28.11.2011, 22:30
  3. [Open Source] Knuddels Live Client v1.0.90aeh
    Von Nightking im Forum Sourcecode
    Antworten: 0
    Letzter Beitrag: 18.05.2011, 19:33
  4. Antworten: 8
    Letzter Beitrag: 27.04.2011, 17:54
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191