Dim AccountNumber As Integer
Dim TransactionDateTime As String
Dim TransactionType As Char
Dim Transaction As ATMTransaction
Dim AccountNumber(n) As Integer
Dim TransactionDateTime(n) As String
Dim TransactionType(n) As Char
Sub SetArray(Byval n As Integer)
n = Console.ReadLine() - 1
Console.WriteLine("Please enter BankID No." & n+1)
Bank_ID(n) = Console.ReadLine()
Console.WriteLine("Please enter AccountNumber No." & n+1)
AccountNumber(n) = Console.ReadLine()
Sub InputTransactionDateTime()
Console.WriteLine("Please enter TransactionDateTime No." & n+1)
TransactionDateTime(n) = Console.ReadLine()
Sub InputTransactionType()
Console.WriteLine("Please enter TransactionType No." & n+1)
TransactionType(n) = Console.ReadLine()
Console.WriteLine("Please enter Amount No." & n+1)
Amount(n) = Console.ReadLine()
Console.WriteLine("Please enter ATM_ID No." & n+1)
ATM_ID(n) = Console.ReadLine()
Console.WriteLine("Input the number of accounts")
InputTransactionDateTime()
Transaction.Bank_ID = Bank_ID(n)
Transaction.AccountNumber = AccountNumber(n)
Transaction.TransactionDateTime = TransactionDateTime(n)
Transaction.TransactionType = TransactionType(n)
Transaction.Amount = Amount(n)
Transaction.ATM_ID = ATM_ID(n)
Dim vbTab As String = " "
Console.WriteLine("Bank_ID:" & vbTab & vbTab & Transaction.Bank_ID)
Console.WriteLine("AccountNumber:" & vbTab & vbTab & Transaction.AccountNumber)
Console.WriteLine("TransactionDateTime:" & vbTab & Transaction.TransactionDateTime)
Console.WriteLine("TransactionType:" & vbTab & vbTab & Transaction.TransactionType)
Console.WriteLine("Amount:" & vbTab & vbTab & vbTab & Transaction.Amount)
Console.WriteLine("ATM_ID:" & vbTab & vbTab & vbTab & Transaction.ATM_ID)