Question

: LP 4: Assignment 4 - Penny or Nickel Challenge in visual basic 2017, I am stuck need help on form and code in c++ this is for practice to get my right form and coding to be able to do my in-class assignment. The instructor said to perfect this and when we did class program we will be able to do it all. Oh hello, I am struggling on getting it right especially looping. Thank you, your answer may help me see where I'm going wrong.

Answer 1

Do like and comment if you have any queries.

Code to copy:

Public Class Form1

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
Dim no_of_days As Integer
Const decimal_Penny As Decimal = 0.01D
Const decimal_Nickel As Decimal = 0.05D
Dim Chosen_Pay As Decimal
  

If IsNumeric(Me.txtNumberOfDays.Text) Then
   no_of_days = Convert.ToInt32(Me.txtNumberOfDays.Text)
Dim decimal_Salary As Decimal = 0

If radio_Penny.Checked = True Then
   Chosen_Pay = decimal_Penny
ElseIf radNickel.Checked = True Then
   Chosen_Pay = decimal_Nickel
End If

For int_Day As Integer = 1 To no_of_days
   If int_Day = 1 Then
   decimal_Salary = Chosen_Pay
   Else
       decimal_Salary *= 2
   End If
   Next int_Day
   Me.lblAmountDisplay.Text = "Total Paid: " & decimal_Salary.ToString("C")
   Else
       Me.lblAmountDisplay.Text = "Wrong InPut"
   End If
End Sub

Private Sub ClearToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearToolStripMenuItem.Click
   Me.txtNumberOfDays.Clear()
   Me.radNickel.Checked = False
   Me.radio_Penny.Checked = True
   Me.lblAmountDisplay.Visible = False
   Me.btnCalculate.Enabled = True
End Sub

Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
   Me.Close()
End Sub
End Class

Output Screenshot: