Hi,
hab wieder ein kleines Programm geschrieben. Es hat den Zweck, Zigarettenschulden zu speichern, zu begleichen, und abzurufen. Mein Bruder und ich leihen uns öfters gegenseitig Zigaretten. So werden wir immer darin erinnert xD Falls das jemand braucht kann man ja in Geldschulden ect. umschreiben.



Code:
Imports System.IO
Imports System.Text.RegularExpressions

Public Class Form1
    Dim d As String
    Dim TempString() As String
    Dim Zaehler As Integer = 0
    Dim FILE_NAME As String = "C:\X.txt"
    Dim FILE_NAME_D As String = "C:\D.txt"
    Dim FILE_NAME_P As String = "C:\P.txt"
    Dim aktZeileD As String, aktIntD As Integer, ZahlenSummeD As Integer
    Dim aktZeileP As String, aktIntP As Integer, ZahlenSummeP As Integer



Dim PWD As String = "passwordD"

Dim PWP As String = "passwordP"




    Private Sub Speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Speichern.Click


        If ComboBox2.Text = "" Then
            MsgBox("Fail,wähle einen Schuldner!")
            Me.Close()
        End If



        Dim EnteredD As String = InputBox("NameD")


        If EnteredD = PWD Then
            MsgBox("Correct", MsgBoxStyle.Information)
        Else
            MsgBox("Fail", MsgBoxStyle.Critical)
            Me.Close()

        End If

        Dim EnteredP As String = InputBox("NameP")

        If EnteredP = PWP Then
            MsgBox("Correct", MsgBoxStyle.Information)
        Else
            MsgBox("Fail", MsgBoxStyle.Critical)
            Me.Close()
        End If


        If System.IO.File.Exists(FILE_NAME) = True Then
            Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)

            objWriter.Write(vbNewLine + vbNewLine + "Datum: " + DateTimePicker1.Value.ToString + vbNewLine + "Beschreibung: " + TextBox1.Text + vbNewLine + "Anzahl: " + NumericUpDown1.Value.ToString + vbNewLine + ComboBox2.Text + " ist der Schuldner" + vbNewLine + vbNewLine + "_________________________________________________________________")
            objWriter.Close()
            MsgBox("Saved", MsgBoxStyle.Information)



        End If
        If System.IO.File.Exists(FILE_NAME_P) = True Then
            Dim objWriterP As New System.IO.StreamWriter(FILE_NAME_P, True)

            If ComboBox2.Text = "NameP" Then
                objWriterP.Write(NumericUpDown1.Value.ToString + vbNewLine)
                objWriterP.Close()



            End If
        End If
        If System.IO.File.Exists(FILE_NAME_D) = True Then
            Dim objWriterD As New System.IO.StreamWriter(FILE_NAME_D, True)

            If ComboBox2.Text = "NameD" Then
                objWriterD.Write(NumericUpDown1.Value.ToString + vbNewLine)
                objWriterD.Close()



            End If
        End If
    End Sub
    Private Sub Abrufen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Abrufen.Click
        If ComboBox2.Text = "" Then
            MsgBox("Fail, wähle einen zum Abrufen!")
            Me.Close()
        End If


       





        Dim ZahlenSummeD As Integer
        Dim ZahlenSummeP As Integer
        Label3.Visible = False




        If ComboBox1.Text = "NameD" Then
            Dim srD As New System.IO.StreamReader(FILE_NAME_D)
            Dim aktZeileD As String, aktIntD As Integer

            'Zeilenweise die Datei lesen
            While (Not srD.EndOfStream)
                'Aktuelle Zeile in die Variable lesen
                aktZeileD = srD.ReadLine()

                'Prüfen, ob die aktuelle Zeile eine Zahl ist
                If (Integer.TryParse(aktZeileD, aktIntD)) Then
                    'Wenn ja, aufsummieren
                    ZahlenSummeD += aktIntD
                End If
            End While
        End If

        If ComboBox1.Text = "NameP" Then
            Dim srP As New System.IO.StreamReader(FILE_NAME_P)
            Dim aktZeile As String, aktIntP As Integer

            'Zeilenweise die Datei lesen
            While (Not srP.EndOfStream)
                'Aktuelle Zeile in die Variable lesen
                aktZeile = srP.ReadLine()

                'Prüfen, ob die aktuelle Zeile eine Zahl ist
                If (Integer.TryParse(aktZeile, aktIntP)) Then
                    'Wenn ja, aufsummieren
                    ZahlenSummeP += aktIntP
                End If
            End While
        End If



        If CheckBox1.Checked Then
            Dim Abr As New System.IO.StreamReader(FILE_NAME)
            Label3.Text = Abr.ReadToEnd
            MsgBox(Label3.Text, MsgBoxStyle.Information)


        Else
            If ComboBox1.Text = "NameD" Then
                MsgBox("NameD schuldet " + ZahlenSummeD.ToString + " Zigarette(n)")

            End If
            If ComboBox1.Text = "NameP" Then
                MsgBox("NameP schuldet " + ZahlenSummeP.ToString + " Zigarette(n)")

            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox2.Text = "" Then
            MsgBox("Fail,wähle einen zum Begleicher!")
            Me.Close()
        End If



        Dim EnteredD As String = InputBox("NameD")


        If EnteredD = PWD Then
            MsgBox("Correct", MsgBoxStyle.Information)
        Else
            MsgBox("Fail", MsgBoxStyle.Critical)
            Me.Close()

        End If

        Dim EnteredP As String = InputBox("NameP")

        If EnteredP = PWP Then
            MsgBox("Correct", MsgBoxStyle.Information)
        Else
            MsgBox("Fail", MsgBoxStyle.Critical)
            Me.Close()
        End If







        If ComboBox3.Text = "NameD" Then
            Dim objWriterD As New System.IO.StreamWriter(FILE_NAME_D, True)
            objWriterD.Write(vbNewLine + "-" + NumericUpDown2.Value.ToString)
            objWriterD.Close()
            MsgBox("Es wurden " + NumericUpDown2.Value.ToString + " Zigarette(n) beglichen", MsgBoxStyle.Information)
        End If



        If ComboBox3.Text = "NameP" Then
            Dim objWriterP As New System.IO.StreamWriter(FILE_NAME_P, True)
            objWriterP.Write(vbNewLine + "-" + NumericUpDown2.Value.ToString)
            objWriterP.Close()
            MsgBox("Es wurden " + NumericUpDown2.Value.ToString + " Zigarette(n) beglichen", MsgBoxStyle.Information)
        End If




        If ComboBox3.Text = "NameD" Then
            Dim schD As New System.IO.StreamWriter(FILE_NAME, True)
            schD.Write(vbNewLine + vbNewLine + "Datum: " + DateTimePicker1.Value.ToString + vbNewLine + "NameD hat " + NumericUpDown2.Value.ToString + " Zigarette(n) beglichen" + vbNewLine + vbNewLine + "_________________________________________________________________")
            schD.Close()
        End If
        If ComboBox3.Text = "NameP" Then
            Dim schP As New System.IO.StreamWriter(FILE_NAME, True)
            schP.Write(vbNewLine + vbNewLine + "Datum: " + DateTimePicker1.Value.ToString + vbNewLine + "NameP hat " + NumericUpDown2.Value.ToString + " Zigarette(n) beglichen" + vbNewLine + vbNewLine + "_________________________________________________________________")
            schP.Close()
        End If
    End Sub
End Class