Я совершенно новичок в VB.net и учусь всего несколько недель. Я делаю проект, в котором мне нужно создать системы EPOS, используя блокнот в качестве базы данных. Я могу отображать значения кнопок в списке, однако у меня есть множество кнопок с разными значениями, но только первое значение в текстовом поле появляется каждый раз, когда нажимается другая кнопка. Например, при нажатии кнопки Heineken отображается сообщение «Heineken €5.00», при нажатии кнопки Guness отображается сообщение «Heineken €5.00».
Любая помощь приветствуется!
Импортирует открытый класс System.IO Form1
Private Sub btnHeineken_Click(sender As Object, e As EventArgs) Handles btnHeineken.Click
Dim sr As IO.StreamReader = IO.File.OpenText("DATABASE.txt")
'File DATABASE.TXT is the the debug folder
Dim name As String
Dim stock, price As Double
name = sr.ReadLine
stock = CDbl(sr.ReadLine)
price = CDbl(sr.ReadLine)
lstBox.Items.Add(name & "" & FormatCurrency(price))
name = sr.ReadLine
End Sub
Private Sub BtnGuiness_Click(sender As Object, e As EventArgs) Handles BtnGuiness.Click
Dim sr As IO.StreamReader = IO.File.OpenText("DATABASE.txt")
'File DATABASE.TXT is the the debug folder
Dim name As String
Dim stock, price As Double
name = sr.ReadLine
stock = CDbl(sr.ReadLine)
price = CDbl(sr.ReadLine)
lstBox.Items.Add(name & "" & FormatCurrency(price))
name = sr.ReadLine
End Sub
БАЗЫ БАЗЫ.txt
Heineken
5.00
20
Guiness
4.50
50
Bulmers
5.00
25