Advertisement
Guest User

Untitled

a guest
Jun 27th, 2017
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  Structure Customer
  2.         Dim accountnumber As Integer
  3.         Dim PIN As Integer
  4.         Dim name As String
  5.         Dim balance As Double
  6.  
  7.  
  8.     End Structure
  9.  
  10.     Dim customers(7) As Customer
  11.  
  12.     Dim totalwithdrawals As Double
  13.     Dim totaldeposits As Double
  14.  
  15.  
  16.     Private Sub btnpin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpin.Click
  17.         '   1. Declare Variables
  18.        Dim sr As IO.StreamReader = IO.File.OpenText("ATMDATA.txt")
  19.         For i As Integer = 0 To 7
  20.             Dim line As String = sr.ReadLine()
  21.             '   2. Split Line. Get info from line
  22.            Call Splitline(line, i)
  23.         Next
  24.        
  25.     End Sub
  26.     Sub Splitline(ByVal line As String, ByVal index As Integer)
  27.         'Sub: to part the line and get the four vaules  
  28.        'Input: line from the file.
  29.        'Output: account number,pin number, name, balance.
  30.        Dim pos1, pos2, pos3 As Integer
  31.         pos1 = line.IndexOf(",")
  32.         pos2 = line.IndexOf(",", pos1 + 1)
  33.         pos3 = line.IndexOf(",", pos2 + 1)
  34.  
  35.  
  36.         customers(index).accountnumber = CInt(line.Substring(0, pos1))
  37.         customers(index).PIN = CInt(line.Substring(pos1 + 1, pos2 - (pos1 + 1)).Trim)
  38.         customers(index).name = (line.Substring(pos2 + 1, pos3 - (pos2 + 1)).Trim)
  39.         customers(index).balance = CDbl(line.Substring(pos3 + 1).Trim)
  40.  
  41.     End Sub
  42.  
  43.        
  44.  
  45.     Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
  46.         lstdisplay.Items.Clear()
  47.     End Sub
  48.  
  49.     Private Sub btnreport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreport.Click
  50.         For i As Integer = 0 To 7
  51.             lstdisplay.Items.Add(customers(i).name)
  52.         Next
  53.     End Sub
  54. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement