Scribd
Upload
6 views5 pages

ATM Application with VB Forms

The document describes an ATM application created using multiple forms in Visual Basic. It includes the code for 6 forms - Form1, Login, ATMCPLvb, Deposit, Withdraw, and Balance. Form1 loads Login when a button is clicked. Login verifies a PIN and loads ATMCPLvb if correct. ATMCPLvb is the main menu and loads the other forms for deposit, withdraw, and balance transactions when their respective buttons are clicked. Each form handles loading, submitting transactions, and navigating between forms.

Uploaded by

kausar4u
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
6 views5 pages

ATM Application with VB Forms

The document describes an ATM application created using multiple forms in Visual Basic. It includes the code for 6 forms - Form1, Login, ATMCPLvb, Deposit, Withdraw, and Balance. Form1 loads Login when a button is clicked. Login verifies a PIN and loads ATMCPLvb if correct. ATMCPLvb is the main menu and loads the other forms for deposit, withdraw, and balance transactions when their respective buttons are clicked. Each form handles loading, submitting transactions, and navigating between forms.

Uploaded by

kausar4u
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

Week 11

ATM Application using multiple forms

Public Class Form1


Private Sub Button2_Click(sender As [Link], e As [Link]) Handles
[Link]
End
End Sub
Private Sub Button1_Click(sender As [Link], e As [Link]) Handles
[Link]
[Link]()
[Link]()
End Sub
Private Sub Form1_Load(sender As [Link], e As [Link]) Handles
[Link]
[Link] = True
End Sub
End Class

Public Class login


Private Sub Button2_Click(sender As [Link], e As [Link]) Handles
[Link]
Close()
End Sub
Private Sub Button1_Click(sender As [Link], e As [Link]) Handles
[Link]
If [Link] = "111" Then
[Link]()

[Link]()
Else
MsgBox("Wrong pin number entered, TRY Again!!!")
[Link] = ""
[Link]()
End If
End Sub
Private Sub login_Load(sender As [Link], e As [Link]) Handles
[Link]
[Link] = True
End Sub
End Class

Public Class ATMCPLvb


Private Sub Button1_Click(sender As [Link], e As [Link]) Handles
[Link]
[Link]()
[Link]()
End Sub
Private Sub Button3_Click(sender As [Link], e As [Link]) Handles
[Link]
[Link]()
[Link]()
End Sub
Private Sub Button2_Click(sender As [Link], e As [Link]) Handles
[Link]
[Link]()
[Link]()
End Sub
Private Sub Button4_Click(sender As [Link], e As [Link]) Handles
[Link]
MsgBox("Thank you for using the BANK NIZWA ATM Service, GOOD DAY!!")
[Link]()
[Link]()
End Sub
Private Sub ATMCPLvb_Load(sender As [Link], e As [Link]) Handles
[Link]
[Link] = True
End Sub
End Class

Public Class deposit


Private Sub Button1_Click(sender As [Link], e As [Link]) Handles
[Link]
Static Bal As Double = 0
[Link] = [Link]
MsgBox("you are about to deposit!!, are you sure?")
Bal = Bal + [Link]
[Link] = Bal
[Link] = Bal
[Link] = ""
End Sub
Private Sub Button2_Click(sender As [Link], e As [Link]) Handles
[Link]
MsgBox("You are cancelling the deposit Operation and Go to ATM Main Menu?")
[Link]()
[Link]()
End Sub
Private Sub deposit_Load(sender As [Link], e As [Link]) Handles
[Link]
[Link] = True
End Sub
End Class

Public Class withdraw

Private Sub Button2_Click(sender As [Link], e As [Link]) Handles


[Link]
MsgBox("You are cancelling the withdraw Operation and Go to ATM Main Menu?")
[Link]()
[Link]()
End Sub
Private Sub Button1_Click(sender As [Link], e As [Link]) Handles
[Link]
Dim AvailBal As Double
If [Link] <= Val([Link]) Then
MsgBox("you are about to withdraw the above amount from your account!!,
are you sure to proceed?")
AvailBal = Val([Link]) - Val([Link])
[Link] = AvailBal
[Link] = AvailBal
[Link] = ""
Else
MsgBox("Sorry!,You have Insufficient Balance to proceed this
Transaction!!, Please deposit some money")
[Link]()
[Link]()
End If
End Sub
Private Sub withdraw_Load(sender As [Link], e As [Link]) Handles
[Link]
[Link] = True
[Link] = [Link]
End Sub
End Class

Public Class balance


Private Sub Button1_Click(sender As [Link], e As [Link]) Handles
[Link]
MsgBox("You are about to Proceed to ATM Main Menu?")
[Link]()
[Link]()
End Sub
Private Sub balance_Load(sender As [Link], e As [Link]) Handles
[Link]

[Link] = True
End Sub
End Class

You might also like