Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Structure Customer
- Dim accountnumber As Integer
- Dim PIN As Integer
- Dim name As String
- Dim balance As Double
- End Structure
- Dim customers(7) As Customer
- Dim totalwithdrawals As Double
- Dim totaldeposits As Double
- Private Sub btnpin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpin.Click
- ' 1. Declare Variables
- Dim sr As IO.StreamReader = IO.File.OpenText("ATMDATA.txt")
- For i As Integer = 0 To 7
- Dim line As String = sr.ReadLine()
- ' 2. Split Line. Get info from line
- Call Splitline(line, i)
- Next
- End Sub
- Sub Splitline(ByVal line As String, ByVal index As Integer)
- 'Sub: to part the line and get the four vaules
- 'Input: line from the file.
- 'Output: account number,pin number, name, balance.
- Dim pos1, pos2, pos3 As Integer
- pos1 = line.IndexOf(",")
- pos2 = line.IndexOf(",", pos1 + 1)
- pos3 = line.IndexOf(",", pos2 + 1)
- customers(index).accountnumber = CInt(line.Substring(0, pos1))
- customers(index).PIN = CInt(line.Substring(pos1 + 1, pos2 - (pos1 + 1)).Trim)
- customers(index).name = (line.Substring(pos2 + 1, pos3 - (pos2 + 1)).Trim)
- customers(index).balance = CDbl(line.Substring(pos3 + 1).Trim)
- End Sub
- Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
- lstdisplay.Items.Clear()
- End Sub
- Private Sub btnreport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreport.Click
- For i As Integer = 0 To 7
- lstdisplay.Items.Add(customers(i).name)
- Next
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement