Module Module1 Sub Main() Dim hours1 As Double Dim hours2 As Double Dim hours3 A

ID: 3609469 • Letter: M

Question

Module Module1

    Sub Main()
      Dim hours1 As Double
      Dim hours2 As Double
      Dim hours3 As Double

      Console.WriteLine("Entercustomer1 parking hours: " & hours1)
      hours1 = Console.ReadLine()
      Console.Write("Hours" & vbTab& "charge")
      Console.WriteLine()
      Console.WriteLine(hours1 & vbTab& CalculateCharges(hours1))

      Console.WriteLine("Entercustomer2 parking hours: " & hours2)
      hours2 = Console.ReadLine()
      Console.Write("Hours" & vbTab& "charge")
      Console.WriteLine()
      Console.WriteLine(hours2 & vbTab& CalculateCharges(hours2))

      Console.WriteLine("Entercustomer3 parking hours: " & hours3)
      hours3 = Console.ReadLine()
      Console.Write("Hours" & vbTab& "charge")
      Console.WriteLine()
      Console.WriteLine(hours3 & vbTab& CalculateCharges(hours3))



   End Sub

   Function CalculateCharges(ByVal hours As Double)

      Dim charges As Double = 0
      If hours < 3 Then
         charges = 2.0
      Else
         charges = 2.0 +0.5 * Math.Ceiling(-3 + hours)

      End If
      If charges > 10.0 Then
         charges = 10.0

      End If
      Return charges

   End Function

End Module

this was the console application I wrote.

I need to write a Forms application with one button(to calculatecharges) and one textbox( to enter the hours) and three textboxes(to display the charges for each customer).

I am having trouble.

Explanation / Answer

Private SubCommand1_Click()
Text2.Text = CalculateCharges(CDbl(Text1.Text))
End Sub

      Dim charges As Double
      charges = 0
      If hours < 3 Then
         charges = 2#
      Else
         charges = 2# + 0.5* (Int(-3 + hours) + 1)

      End If
      If charges > 10# Then
         charges =10#

      End If

      CalculateCharges = charges

EndFunction

Navigate

Module Largest1 Sub Main() \'Program that prints the largest of 10numbers \'Allo

Module Module1 Sub Main() \'Program that prints miles per gallon Dim totalMiles

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.

Module Module1 Sub Main() Dim hours1 As Double Dim hours2 As Double Dim hours3 A

Question

Explanation / Answer

Related Questions

Navigate