Question

Create a application ATM basic application in Visual Basic..

Create a ATM Machine. It will have all the basic functions of a ATM like a login, balance, deposit, withdraw, continue to deposit, and to log out.

Answer 1

Class ATM
Public balance As Double
Public pin As Integer
Public Sub New(p As Integer)
balance = 10000 'Assume you have 10000 in your account
pin = p
End Sub

Public Function login()
Dim p As Integer = 1234 'stored pin of your account & can change if want
Dim status As Boolean
If (p = pin) Then
status = True
Else
status = False
End If
login = status
End Function

Public Sub deposit(amount As Double)
balance = balance + amount
End Sub

Public Sub withdraw(amount As Double)
balance = balance - amount
End Sub

Public Sub showBalance()
Console.WriteLine("Balance : " & balance)
End Sub
Public Sub logOut()
Console.WriteLine("Thank you !!")
Console.ReadKey()
End
End Sub

End Class

Module Module1

Sub Main()
Dim pin As Integer
Console.Write("Enter Pin : ")
pin = Convert.ToInt32(Console.ReadLine())

Dim bank As New ATM(pin)
Dim choice As Integer
If (bank.login() = True) Then

Console.WriteLine("1. Deposit")
Console.WriteLine("2. Withdraw")
Console.WriteLine("3. Balance")
Console.WriteLine("4. Logout")

While (True)
Console.Write("Enter your choice : ")
choice = Convert.ToInt32(Console.ReadLine())

Select Case choice
Case 1
Dim amount As Integer
Console.Write("Enter amount to deposit : ")
amount = Convert.ToInt32(Console.ReadLine())
bank.deposit(amount)
Case 2
Dim amount As Integer
Console.Write("Enter amount to withdraw : ")
amount = Convert.ToInt32(Console.ReadLine())
bank.withdraw(amount)
Case 3
bank.showBalance()
Case 4
bank.logOut()
Case Else
Console.WriteLine("Please enter valid option ")
End Select

End While
Else
Console.WriteLine("Wrong pin")
End If
Console.ReadKey()
End Sub

End Module