Witam mam do napisania program Vending machine. Dopiero zacząłem design tego projektu i przechodzę do kodowania, nie mam dużego doświadczenia w VB Wiec szukam odpowiedzi na kilka pytan.
Pierwsze dotyczy rejestracji do pliku txt i logowania z pliku txt. O ile zapisanie do pilku mam zrobione to odczytywanie username i password z pliku sprawia mi problemy.
Zapisywanie do pliku
Private Sub BtnConfirm_Click(sender As Object, e As EventArgs) Handles BtnConfirm.Click
frmLogIn.Show()
Using fileDelimit As StreamWriter = New StreamWriter("..\..\Resources\user.txt", True)
'write the lines typed in the text box to the file
fileDelimit.WriteLine(txtUser.Text & "," & txtPass.Text)
fileDelimit.Close()
End Using
End Sub
Odczytywanie z pliku
Private Sub btnReadDelimit_Click(sender As Object, e As EventArgs) Handles btnReadDelimit.Click
'Read the delimited file where each field is marked by a comma (,)
' lstDelimit.Items.Clear()
Dim fullLine
Dim breakUp() As String
Dim user As String
Dim password As String
Dim s As UserLogIn
Using fileDelimit As StreamReader = New StreamReader("..\..\Resources\user.txt")
While Not fileDelimit.EndOfStream
fullLine = fileDelimit.ReadLine()
breakUp = fullLine.Split(",")
user = breakUp(0)
password = breakUp(1)
If txtUser.Text <> user And txtUser.Text <> password Then
MsgBox("User is not in file")
Else
MsgBox("success")
frmDrinkChoose.Show()
End If
End While
fileDelimit.Close()
End Using
Problemy które napotkałem:
Gdy mam kilku uzytkownikow np(6) w pliku txt, msgBox zamyka sie dopiero po 6 kliknieciach w MsgBox. Probuje uzyc Do While ale wtedy program sie nie konczy bo nie wiem jak zatrzymac loopa.
Z gory dziekuje za kazda odpowiedz.