Question

how can i code this only using a textbox for results Create Windows Forms applications called ATM Project that allows the customer to deposit the initial amount and enter the amount to be withdrawn. You need to display the total amount in the account, dispenses the money to the customer, and debits the account by the amount withdrawn including any service charges.

The ATM allows a customer to withdraw a maximum of $500 per transition in $20 increments. If a customer withdraws more than $300, the service charge is 4% of the amount over $300. If the customer does not have sufficient money in the account, the ATM informs the customer about the insufficient funds and gives the customer the option to withdraw the money for a service charge of $25. If there is no money in the account or if the account balance is negative, the ATM does not allow the customer to withdraw any money. If the amount to be withdrawn is greater than $500, the ATM informs the customer about the maximum amount that can be withdrawn.

 

ex)

Deposit Amount:                    1,000
Withdrawn Amount:                 300
Amount Withdrawn................ $300
Amount of Fees............................ $0
Account Balance.......................$700

=================================

Deposit Amount:                     $700
Withdrawn Amount:                $500
Amount Withdrawn................ $500
Amount of Fees............................ $8
Account Balance.......................$192

=================================

Deposit Amount:                    $192
Withdrawn Amount:               $200

Insufficient funds for this withdrawal
This is a $25.00 service charge
would you like to continue?  (Y/N): y
Amount Withdrawn................ $200
Amount of Fees.......................... $25
Account Balance.......................$-33
?

windows visual basic vb Windows Forms app i am only using a textbox for display

Answer 1

Here, we have to create a form with four labels, four textboxes and one button.

Component. Name and text property

label1 Deposit Amount

label2. Withdrawn Amount

label4. Amount of Fees

label5. Account Balance

TextBox1 . txtDeposit

TextBox2 . txtWithdrawn

TextBox4. txtFees

TextBox5. txtBalance

Button1. btnWithdraw

Drag and drop all these components to the form. Then do the following.

• Change the text property of all the label to above mentioned text
• Change the name property of all the textboxes to above mentioned way.
• Change the name and text property of button into btnWithdraw and Withdraw respectively.
• Double click the button, you will redirected to the code.
• Write the code in the following manner

Private Sub btnWithdraw_Click()
dim deposit as Integer
'deposit variable for storing deposit amount
dim withdraw, balance as Integer
Dim result as Integer
'result for storing msgbox response.
deposit=val(txtDeposit.Text)
'deposit stores value from textbox
withdraw=val(txtWithdraw.Text)
'withdraw stores value from txtwithdraw

if withdraw > deposit and deposit > = 0 Then
result=MsgBox("insufficient funds for this withdrawal. This is a $25.00 service charge. Would you like to continue...(Y/N)?", vbYesNo)

'we have to check the withdraw amount is greater or not than the deposit amount, if yes then this if block will executed. 
'Also, There should arise a message box with yes or no button. result variables stores the response.
if result=vbYes Then
txtFees.Text="$25"
'If we click on yes, then txtFees assignes a fees of $25.
balance=(deposit-withdraw)-25
'calculate balance as above
txtBalance.Text= CStr(balance)
'convert integer value balance to string and assign it to textbox
end If
else if deposit < 0 Then
MsgBox("You cannot withdraw money, because of your account has not suffient balance")
'if deposot is a negative value, then transaction not possible message will occur

else If withdraw>500 Then
MsgBox("Maximum amount to withdraw is 500")
'if withdraw amount is greater than 500, then it also shows aboce message

else if withdraw>300 and withdraw<=500 Then
b=(withdraw-300)*(4/100)
'b stores fees by 4%
txtFees.Text=CStr(b)
'convert b to string and assign it to txtFees textbox
balance=(deposit-withdraw)-b
txtBalance.Text=CStr(balance)
'if withdraw amount is greater than 300 and less than 500, user should pay 4% tax of amount increased.
Else
balance=deposit-withdraw
txtFees.Text="$0"
txtBalance=CStr(balance)
'If withdraw amount is with the range and below 300, then fees assign to 0, balance calculated as usual way.
End If
End Sub