Menu
support@nursinghomework.org
+1 714-215-3097

(Solved) : Visual Basic Using Visual Studio 2010 Please Show Pictures Code Formv1 Designer Lab 5 Bank Q35562621

VISUAL BASIC using visual studio 2010 (pleaseshow pictures of code and formv1 designer)

Lab #5 – Banking Account with Methods

Submit AssignmentDownload Work file Download Runtime

  • Be sure to include comments at the top of each procedure and atthe top of the file.
  • Be sure to use meaningful names for all buttons andlabels.
  1. In this lab you will create a simple banking application thatwill accept deposits, checks, and service charges. If the usertries to withdraw more money than is available, the withdrawal willfail and a service charge of $10 will be applied. You will alsokeep track of the number and amount of the deposits, withdrawals,and service charge.

Please fix this and show form v1b

Public Class Class1
‘Create member variables for properties

Private dblBalance As Double
Private dblIntRate As Double
Private dblInterest As Double
Private intTrans As Integer
Private dblMakeWithdrawal As Double
Private dblMakeDeposit As Double
Private dblInterestEarned As Double

‘Create property procedures
Public Property Balance As Double
Get
Return dblBalance
End Get

Set(ByVal value As Double)
dblBalance = value
End Set
End Property

Public Property IntRate As Double
Get
Return dblIntRate
End Get

Set(ByVal value As Double)
dblIntRate = value
End Set
End Property

Public Property InterestTotal As Double
Get
Return InterestTotal
End Get
Set(ByVal value As Double)
InterestTotal = value
‘expression recursively calls property interest total error
End Set
End Property

”trying to
”’calculate the amount of interest for the current period,
”’ stores this value in the Interest property, and adds it to theBalance property.
Public Sub addInterest(ByVal addInterest As Integer)
dblInterestEarned = dblBalance * (dblIntRate / 12)
End Sub

”trying to add deposit
Public Sub addDeposit(ByVal addDeposit As Double)
dblMakeDeposit += addDeposit

End Sub

””’to withdraw
Public Sub subtractWithdrawl(ByVal subtractWithdrawal AsDouble)
If dblMakeWithdrawal >= subtractWith() Then
dblMakeWithdrawal -= subtractWith()
Else
MessageBox.Show(“No sufficient balance”)
End If
End Sub

Private Function subtractWith() As Double
Throw New NotImplementedException
End Function

End Class

Imports System.IO

Public Class Form1

Dim dblMakeWithdrawal As Double

Private Sub btnDeposit_Click(ByVal sender As Object, ByVal e AsEventArgs) Handles btnDeposit.Click
Dim dblMakeDeposit As Double

””’how to capture inputs from the form load??
‘Add Deposit
dblMakeDeposit = CDbl(InputBox(“Please enter deposit if you haveany”))

End Sub

Private Sub btnWithdraw_Click(ByVal sender As Object, ByVal e AsEventArgs) Handles btnWithdraw.Click
Dim dblBalance As Integer

dblMakeWithdrawal = CDbl(InputBox(“Please enter an amount towithdraw”)
If dblBalance <= 0 Then
MessageBox.Show(“Insufficient funds”)
End If
End Sub

Private Sub btnExit_Click(ByVal sender As Object, ByVal e AsEventArgs) Handles btnExit.Click
Me.Close()
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e AsEventArgs) Handles MyBase.Load
”’This is where to put the input box when the form loads?
MessageBox.Show(“Please enter current interest”)
”how to store?

End Sub

Private Sub btnCalc_Click(ByVal sender As Object, ByVal e AsEventArgs) Handles btnCalc.Click
Dim dblInterTrans As Integer

dblInterest = dblintTrans+=1.
End Sub

Private Sub btnExit_Click(ByVal sender As Object, ByVal e AsEventArgs) Handles btnExit.Click
Me.Close()

End Sub

Private Function dblintTrans() As Object
Throw New NotImplementedException
End Function

End Class

Leave a Reply

Your email address will not be published. Required fields are marked *