Create a Windows Forms application. Use the following names for the project and
ID: 3757342 • Letter: C
Question
Create a Windows Forms application. Use the following names for the project and solution, respectively: Moonbucks Project and Moonbucks Solution. Save the appli- cation in the VB2017Chap02 folder. Change the appropriate properties of the form. Also, be sure to verify the name of the startup form. Use the Planning Chart shown in Figure 2-21 to build an appropriate interface. Code the Exit button. (You do not need to code the button that calculates and displays the two amounts.) Save the solution and then start the application. Test the access keys, tab order, and Exit button then close the solution, help!
Explanation / Answer
Answer :
Public Class Moonbucks
Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click
Dim current, increase, total As Double 'current is for enter current sales amount, increase for 10% increase amount, total for storing total amount
current = txtCurrent.Text 'store in enered value to the current variable
increase = (txtCurrent.Text * 10) / 100 'calcualte the 10 percent divided by 100 or just multiply by .10 to get 10%
total = current + increase 'store the total value
lblIncrease.Text = increase 'Display the 10% amount in label lblIncrease
lblProjected.Text = total 'Display the total amount in label lblProjected
End Sub
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close() 'this will close the application
End Sub
Private Sub Moonbucks_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Set the txtCurrent, lblIncrease,lblProjected to the blank
txtCurrent.Text = ""
lblIncrease.Text = ""
lblProjected.Text = ""
End Sub
End Class