Imports System

Module VBModule
Dim accounts As New Dictionary(Of String, Tuple(Of Decimal, String))()
Dim accountbalance As Decimal
Dim pin As String
Dim user As String
Dim insertuser As String
Dim insertpin As Integer
Dim newUsername As String
Sub Main()
Dim choice As Integer
[Link]()
[Link] = [Link]

[Link]("█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗████
█╗█████╗")

[Link]("╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚═══
═╝╚════╝") 'starting point/u can put design here

[Link]("███████╗███████╗███████╗███████╗███████╗███████╗███████╗███████╗
███████╗")

[Link]("╚══════╝╚══════╝╚══════╝╚══════╝╚══════╝╚══════╝╚══════╝╚══════╝
╚══════╝")
[Link]("██████╗ █████╗ ███╗ ██╗██╗ ██╗ █████╗
████████╗███╗ ███╗")
[Link]("██╔══██╗██╔══██╗████╗ ██║██║ ██╔╝
██╔══██╗╚══██╔══╝████╗ ████║")
[Link]("██████╔╝███████║██╔██╗ ██║█████╔╝ ███████║ ██║
██╔████╔██║")
[Link]("██╔══██╗██╔══██║██║╚██╗██║██╔═██╗ ██╔══██║ ██║
██║╚██╔╝██║")
[Link]("██████╔╝██║ ██║██║ ╚████║██║ ██╗ ██║ ██║ ██║
██║ ╚═╝ ██║")
[Link]("╚═════╝ ╚═╝ ╚═╝╚═╝ ╚═══╝╚═╝ ╚═╝ ╚═╝ ╚═╝ ╚═╝
╚═╝ ╚═╝")
[Link](" ███╗ ███╗ █████╗ ██████╗██╗ ██╗██╗███╗
██╗███████╗")
[Link](" ████╗ ████║██╔══██╗██╔════╝██║ ██║██║████╗
██║██╔════╝")
[Link](" ██╔████╔██║███████║██║ ███████║██║██╔██╗
██║█████╗")
[Link](" ██║╚██╔╝██║██╔══██║██║
██╔══██║██║██║╚██╗██║██╔══╝ ")
[Link](" ██║ ╚═╝ ██║██║ ██║╚██████╗██║ ██║██║██║
╚████║███████╗")
[Link](" ╚═╝ ╚═╝╚═╝ ╚═╝ ╚═════╝╚═╝ ╚═╝╚═╝╚═╝
╚═══╝╚══════╝")

[Link]("█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗████
█╗█████╗")

[Link]("╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚═══
═╝╚════╝")

[Link]("███████╗███████╗███████╗███████╗███████╗███████╗███████╗███████╗
███████╗")
[Link]("╚══════╝╚══════╝╚══════╝╚══════╝╚══════╝╚══════╝╚══════╝╚══════╝
╚══════╝")
[Link]("███╗ ███╗███████╗███╗ ██╗██╗ ██╗")
[Link]("████╗ ████║██╔════╝████╗ ██║██║ ██║")
[Link]("██╔████╔██║█████╗ ██╔██╗ ██║██║ ██║")
[Link]("██║╚██╔╝██║██╔══╝ ██║╚██╗██║██║ ██║")
[Link]("██║ ╚═╝ ██║███████╗██║ ╚████║╚██████╔╝")
[Link]("╚═╝ ╚═╝╚══════╝╚═╝ ╚═══╝ ╚═════╝")
[Link](" ██╗ ██████╗ ███████╗ ██████╗
██╗███████╗████████╗███████╗██████╗")
[Link]("███║ ██╔══██╗██╔════╝██╔════╝
██║██╔════╝╚══██╔══╝██╔════╝██╔══██╗")
[Link]("╚██║ ██████╔╝█████╗ ██║ ███╗██║███████╗ ██║
█████╗ ██████╔╝")
[Link](" ██║ ██╔══██╗██╔══╝ ██║ ██║██║╚════██║ ██║
██╔══╝ ██╔══██╗")
[Link](" ██║██╗ ██║ ██║███████╗╚██████╔╝██║███████║ ██║
███████╗██║ ██║")
[Link](" ╚═╝╚═╝ ╚═╝ ╚═╝╚══════╝ ╚═════╝ ╚═╝╚══════╝ ╚═╝
╚══════╝╚═╝ ╚═╝")
[Link]()
[Link]("██████╗ ██╗ ██████╗ ██████╗ ██╗███╗ ██╗")
[Link]("╚════██╗ ██║ ██╔═══██╗██╔════╝ ██║████╗ ██║")
[Link](" █████╔╝ ██║ ██║ ██║██║ ███╗██║██╔██╗ ██║")
[Link]("██╔═══╝ ██║ ██║ ██║██║ ██║██║██║╚██╗██║")
[Link]("███████╗██╗ ███████╗╚██████╔╝╚██████╔╝██║██║ ╚████║")
[Link]("╚══════╝╚═╝ ╚══════╝ ╚═════╝ ╚═════╝ ╚═╝╚═╝ ╚═══╝")
[Link]("")
[Link]("██████╗ ███████╗██╗ ██╗██╗████████╗")
[Link]("╚════██╗ ██╔════╝╚██╗██╔╝██║╚══██╔══╝")
[Link](" █████╔╝ █████╗ ╚███╔╝ ██║ ██║")
[Link](" ╚═══██╗ ██╔══╝ ██╔██╗ ██║ ██║")
[Link]("██████╔╝██╗ ███████╗██╔╝ ██╗██║ ██║")
[Link]("╚═════╝ ╚═╝ ╚══════╝╚═╝ ╚═╝╚═╝ ╚═╝")

[Link]("█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗████
█╗█████╗")

[Link]("╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚═══
═╝╚════╝")
[Link]()
[Link](" Enter the option you choose: ")
choice = [Link]()
[Link]()

Select Case choice

Case 1
register()
Case 2
login()
Case 3
[Link]("")
[Link](" ███████ ██ ██ █████ ███ ██ ██ ██
██ ██ ██████ ██ ██ ███████ ██████ ██████ ")
[Link](" ██ ██ ██ ██ ██ ████ ██ ██ ██
██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ")
[Link](" ██ ███████ ███████ ██ ██ ██ █████
████ ██ ██ ██ ██ █████ ██ ██ ██████")
 [Link](" ██ ██ ██ ██ ██ ██ ██ ██ ██ ██
██ ██ ██ ██ ██ ██ ██ ██ ██ ██")
[Link](" ██ ██ ██ ██ ██ ██ ████ ██ ██
██ ██████ ██████ ██ ██████ ██ ██")
[Link]("")
[Link]("██ ██ ███████ ██ ███ ██ ██████
████████ ██ ██ ███████ █████ ████████ ███ ███ ██")
[Link]("██ ██ ██ ██ ████ ██ ██ ██
██ ██ ██ ██ ██ ██ ████ ████ ██")
[Link]("██ ██ ███████ ██ ██ ██ ██ ██ ███ ██
███████ █████ ███████ ██ ██ ████ ██ ██")
[Link]("██ ██ ██ ██ ██ ██ ██ ██ ██ ██
██ ██ ██ ██ ██ ██ ██ ██ ██")
[Link](" ██████ ███████ ██ ██ ████ ██████ ██
██ ██ ███████ ██ ██ ██ ██ ██ ██")
[Link]()
Case Else
[Link]("")
[Link](" Invalid choice. Please try again.")
[Link](" Press any key to continue")
[Link]()
Main()
End Select
End Sub

Sub register()
[Link]("██████╗ ███████╗ ██████╗
██╗███████╗████████╗███████╗██████╗")
[Link]("██╔══██╗██╔════╝██╔════╝
██║██╔════╝╚══██╔══╝██╔════╝██╔══██╗")
[Link]("██████╔╝█████╗ ██║ ███╗██║███████╗ ██║ █████╗
██████╔╝")
[Link]("██╔══██╗██╔══╝ ██║ ██║██║╚════██║ ██║ ██╔══╝
██╔══██╗")
[Link]("██║ ██║███████╗╚██████╔╝██║███████║ ██║ ███████╗██║
██║")
[Link]("╚═╝ ╚═╝╚══════╝ ╚═════╝ ╚═╝╚══════╝ ╚═╝ ╚══════╝╚═╝
╚═╝")
[Link]()
[Link](" Enter your new username: ")
newUsername = [Link]()

If [Link](newUsername) Then
[Link]("Username already exists!")
Main()
End If

[Link]("Enter initial balance:")

accountbalance = [Link]([Link]())

[Link](" Hello. Welcome to ATM for security ")

'welcome
[Link](" your account please create 4-digit securty
PIN: ")
pin = [Link]()

[Link](newUsername, [Link](accountbalance, pin))

[Link]("Account created successfully!")
[Link](" Congrats! your account issuccessfully
created ")
[Link]("
=================================================")
[Link](" Press any key to continue")
[Link]()
Main()
End Sub

Sub login()
[Link]("██╗ ██████╗ ██████╗ ██╗███╗ ██╗")
[Link]("██║ ██╔═══██╗██╔════╝ ██║████╗ ██║")
[Link]("██║ ██║ ██║██║ ███╗██║██╔██╗ ██║")
[Link]("██║ ██║ ██║██║ ██║██║██║╚██╗██║")
[Link]("███████╗╚██████╔╝╚██████╔╝██║██║ ╚████║")
[Link]("╚══════╝ ╚═════╝ ╚═════╝ ╚═╝╚═╝ ╚═══╝")
[Link]()
[Link]("Enter username: ")
insertuser = [Link]()
If [Link](insertuser) Then
[Link](" Please enter your 4-digit
PIN:")
insertpin = [Link]()
End If

If insertpin = accounts(insertuser).Item2 Then

[Link](" Login [Link]!")
[Link]("
==================================")
[Link](" Press any key to continue: ")
[Link]()
[Link]()
dashboard()

Else
[Link]("Invalid pin!")
[Link]("Press any key to continue")
[Link]()
Main()

End If
End Sub

Sub dashboard()
Dim choice2 As Integer
[Link]()
[Link]("
█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗")
[Link]("
╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝")
[Link](" ██████╗ █████╗ ███████╗██╗ ██╗██████╗ ██████╗
█████╗ ██████╗ ██████╗")
[Link](" ██╔══██╗██╔══██╗██╔════╝██║
██║██╔══██╗██╔═══██╗██╔══██╗██╔══██╗██╔══██╗")
[Link]("█████╗██║ ██║███████║███████╗███████║██████╔╝██║
██║███████║██████╔╝██║ ██║█████╗")
[Link]("╚════╝██║ ██║██╔══██║╚════██║██╔══██║██╔══██╗██║
██║██╔══██║██╔══██╗██║ ██║╚════╝")
[Link](" ██████╔╝██║ ██║███████║██║
██║██████╔╝╚██████╔╝██║ ██║██║ ██║██████╔╝")
[Link](" ╚═════╝ ╚═╝ ╚═╝╚══════╝╚═╝ ╚═╝╚═════╝ ╚═════╝
╚═╝ ╚═╝╚═╝ ╚═╝╚═════╝")
[Link]("
█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗█████╗")
[Link]("
╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝╚════╝")
[Link](" ██╗ ██████╗██╗ ██╗███████╗ ██████╗██╗ ██╗
██████╗ █████╗ ██╗ █████╗ ███╗ ██╗ ██████╗███████╗")
[Link]("███║ ██╔════╝██║ ██║██╔════╝██╔════╝██║ ██╔╝
██╔══██╗██╔══██╗██║ ██╔══██╗████╗ ██║██╔════╝██╔════╝")
[Link]("╚██║ ██║ ███████║█████╗ ██║ █████╔╝
██████╔╝███████║██║ ███████║██╔██╗ ██║██║ █████╗")
[Link](" ██║ ██║ ██╔══██║██╔══╝ ██║ ██╔═██╗
██╔══██╗██╔══██║██║ ██╔══██║██║╚██╗██║██║ ██╔══╝")
[Link](" ██║██╗ ╚██████╗██║ ██║███████╗╚██████╗██║ ██╗
██████╔╝██║ ██║███████╗██║ ██║██║ ╚████║╚██████╗███████╗")
[Link](" ╚═╝╚═╝ ╚═════╝╚═╝ ╚═╝╚══════╝ ╚═════╝╚═╝ ╚═╝
╚═════╝ ╚═╝ ╚═╝╚══════╝╚═╝ ╚═╝╚═╝ ╚═══╝ ╚═════╝╚══════╝")
[Link]("██████╗ ██████╗ ███████╗██████╗ ██████╗
███████╗██╗████████╗")
[Link]("╚════██╗
██╔══██╗██╔════╝██╔══██╗██╔═══██╗██╔════╝██║╚══██╔══╝")
[Link](" █████╔╝ ██║ ██║█████╗ ██████╔╝██║
██║███████╗██║ ██║")
[Link]("██╔═══╝ ██║ ██║██╔══╝ ██╔═══╝ ██║
██║╚════██║██║ ██║")
[Link]("███████╗██╗ ██████╔╝███████╗██║
╚██████╔╝███████║██║ ██║")
[Link]("╚══════╝╚═╝ ╚═════╝ ╚══════╝╚═╝ ╚═════╝
╚══════╝╚═╝ ╚═╝")
[Link]("██████╗ ██╗ ██╗██╗████████╗██╗ ██╗██████╗
██████╗ █████╗ ██╗ ██╗")
[Link]("╚════██╗ ██║ ██║██║╚══██╔══╝██║
██║██╔══██╗██╔══██╗██╔══██╗██║ ██║")
[Link](" █████╔╝ ██║ █╗ ██║██║ ██║ ███████║██║
██║██████╔╝███████║██║ █╗ ██║")
[Link](" ╚═══██╗ ██║███╗██║██║ ██║ ██╔══██║██║
██║██╔══██╗██╔══██║██║███╗██║")
[Link]("██████╔╝██╗ ╚███╔███╔╝██║ ██║ ██║ ██║██████╔╝██║
██║██║ ██║╚███╔███╔╝")
[Link]("╚═════╝ ╚═╝ ╚══╝╚══╝ ╚═╝ ╚═╝ ╚═╝ ╚═╝╚═════╝ ╚═╝
╚═╝╚═╝ ╚═╝ ╚══╝╚══╝")
[Link]("██╗ ██╗ ██╗ ██████╗ ██████╗ ██████╗ ██╗
██╗████████╗")
[Link]("██║ ██║ ██║ ██╔═══██╗██╔════╝ ██╔═══██╗██║
██║╚══██╔══╝")
[Link]("███████║ ██║ ██║ ██║██║ ███╗██║ ██║██║
██║ ██║")
[Link]("╚════██║ ██║ ██║ ██║██║ ██║██║ ██║██║
██║ ██║")
[Link](" ██║██╗
███████╗╚██████╔╝╚██████╔╝╚██████╔╝╚██████╔╝ ██║")
[Link](" ╚═╝╚═╝ ╚══════╝ ╚═════╝ ╚═════╝ ╚═════╝
╚═════╝ ╚═╝")
[Link]()
[Link](" Enter the option you choose: ")
choice2 = [Link]()
[Link]()
 Select Case choice2
Case 1
balance()
Case 2
deposit()
Case 3
withdraw()
Case 4
[Link](" Thank you for using ATM " & user)
[Link](" Press any key to continue: ")
[Link]()
[Link]()
Main()
Case Else
[Link]("")
[Link]("Invalid choice. Please try again.")
[Link]("Press any key to continue")
[Link]()
dashboard()
End Select
End Sub

Sub balance()

[Link]("██████╗ █████╗ ██╗ █████╗ ███╗ ██╗

██████╗███████╗")
[Link]("██╔══██╗██╔══██╗██║ ██╔══██╗████╗
██║██╔════╝██╔════╝")
[Link]("██████╔╝███████║██║ ███████║██╔██╗ ██║██║
█████╗")
[Link]("██╔══██╗██╔══██║██║ ██╔══██║██║╚██╗██║██║
██╔══╝")
[Link]("██████╔╝██║ ██║███████╗██║ ██║██║
╚████║╚██████╗███████╗")
[Link]("╚═════╝ ╚═╝ ╚═╝╚══════╝╚═╝ ╚═╝╚═╝ ╚═══╝
╚═════╝╚══════╝")
[Link]($" Your account balance is:
{accounts(insertuser).Item1:C}")
[Link]("
===========================================")
[Link](" press any key to go back to dashboard")
[Link]()
dashboard()

End Sub

Sub deposit()
Dim depo As Integer
[Link]("██████╗ ███████╗██████╗ ██████╗ ███████╗██╗████████╗")
[Link]("██╔══██╗██╔════╝██╔══██╗██╔═══██╗██╔════╝██║╚══██╔══╝")
[Link]("██║ ██║█████╗ ██████╔╝██║ ██║███████╗██║ ██║")
[Link]("██║ ██║██╔══╝ ██╔═══╝ ██║ ██║╚════██║██║ ██║")
[Link]("██████╔╝███████╗██║ ╚██████╔╝███████║██║ ██║")
[Link]("╚═════╝ ╚══════╝╚═╝ ╚═════╝ ╚══════╝╚═╝ ╚═╝")
[Link](" Please enter amount to deposit:")
depo = [Link]()

accounts(insertuser) = [Link](accounts(insertuser).Item1 + depo,

accounts(insertuser).Item2)
[Link]("Deposit successful!")
[Link](" ====================================")
[Link](" Press any key to continue: ")
[Link]()
[Link]()
dashboard()
End Sub

Sub withdraw()
Dim wido As Decimal
[Link]("██╗ ██╗██╗████████╗██╗ ██╗██████╗ ██████╗ █████╗
██╗ ██╗")
[Link]("██║ ██║██║╚══██╔══╝██║
██║██╔══██╗██╔══██╗██╔══██╗██║ ██║")
[Link]("██║ █╗ ██║██║ ██║ ███████║██║
██║██████╔╝███████║██║ █╗ ██║")
[Link]("██║███╗██║██║ ██║ ██╔══██║██║
██║██╔══██╗██╔══██║██║███╗██║")
[Link]("╚███╔███╔╝██║ ██║ ██║ ██║██████╔╝██║ ██║██║
██║╚███╔███╔╝")
[Link](" ╚══╝╚══╝ ╚═╝ ╚═╝ ╚═╝ ╚═╝╚═════╝ ╚═╝ ╚═╝╚═╝ ╚═╝
╚══╝╚══╝")
[Link](" Please enter amount to withdraw:
")
wido = [Link]([Link]())

If wido > accounts(insertuser).Item1 Then

[Link]("Insufficient funds!")
[Link](" Insufficient funds. Your account
balance")
[Link](" Press any key to go back to dashboard:")
[Link]()
[Link]()
dashboard()
Else
accounts(insertuser) = [Link](accounts(insertuser).Item1 - wido,
accounts(insertuser).Item2)
[Link]("Withdrawal successful!")
[Link]("
========================================")
[Link](" Press any key to continue: ")
[Link]()
[Link]()
dashboard()
End If

End Sub
End Module