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.
http://www.imagebanana.com/img/9nr43...enannt.bmp.png
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
