Thema: [Open-Source] Hausaufgaben
-
12.10.2011, 17:34 #1
[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:
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!Geändert von Darkfield (20.03.2014 um 07:43 Uhr)
-
12.10.2011, 18:07 #2
- Registriert seit
- 31.01.2011
- Beiträge
- 26
Thanked 211 Times in 94 Posts[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?]
-
12.10.2011, 18:14 #3
[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)
-
12.10.2011, 19:03 #4
[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 istGeändert von Darkfield (20.03.2014 um 07:43 Uhr)
-
12.10.2011, 19:08 #5
[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)
-
12.10.2011, 19:34 #6
[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.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
Geändert von Darkfield (20.03.2014 um 07:43 Uhr)
Ähnliche Themen
-
Google Glass wird Open Source
Von DMW007 im Forum IT & Technik NewsAntworten: 1Letzter Beitrag: 01.05.2013, 18:05 -
[Source] Hausaufgaben
Von Snees im Forum SourcecodeAntworten: 11Letzter Beitrag: 28.11.2011, 22:30 -
[Open Source] Knuddels Live Client v1.0.90aeh
Von Nightking im Forum SourcecodeAntworten: 0Letzter Beitrag: 18.05.2011, 19:33 -
[Vorstellung] Banana-Coding.com - Open Source Community
Von Diebspiel im Forum ShowroomAntworten: 8Letzter Beitrag: 27.04.2011, 17:54
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.