Can smbd help me to convert some values from real to virtual?

Visual Basic Help with coding?

• Here's the problem: A local recording studio rents its facilities for $200 per hour, but charges only for the number of minutes used. Your form should allow input of the name of the group and the number of minutes used in the studio. Your program should calculate (and display) the recording charge for this session, as well as accumulate the total charges for all groups. Display summary information in a group box. Display the total charges for all groups, the total number of groups, and the average charge per group. Format all output appropriately. Include Calculate, Clear for Next Group (does not clear summary info), and Exit buttons. Do not allow bad input to cancel the program. I have the form all made up, I just need help figuring out the coding for the calculations. This is my coding so far for my claculations Private Sub CalculateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateButton.Click 'Calculate the price Dim MinutesUsedInteger, TotalChargesInteger As Integer Dim AmountDue, AverageCharge As Decimal Try 'Convert minutes used to numeric variable MinutesUsedInteger = Integer.Parse(MinutesUsedTextBox.Text) Try 'convert price if minutes used was successful AmountDue = Decimal.Parse(AmountDueTextBox.Text) 'Calculate values for sale AmountDue = MinutesUsedInteger * CHARGE_PER_HOUR 'calculate summary values TotalChargesSumInteger += TotalChargesInteger TotalNumberOfGroups += 1 AverageCharge = TotalChargesSumInteger / TotalNumberOfGroups 'Format and Display answers for the sale AmountDueTextBox.Text = AmountDue.ToString("C") 'Format and Display summary values TotalChargesTextBox.Text = NumberOfGroupsTextBox.Text= AverageChargeTextBox.Text = TotalChargeAllGroupsTextBox.Text= Catch ex As Exception End Try Catch ex As Exception Catch AnException As Exception ' Handle any other exception MessageBox.Show("Error: " & AnException.Message) End Try End Sub End Class

• Answer:

  The biggest point of the calculations is that they only get charged foe the minutes they used, but the prices are based on the hour. To get the correct total: Dim totalHours As Integer Dim totalMinutes As Integer totalHours = minutesUsedInteger / 60 'Finds the integer number of hours totalMinutes = MinutesUsedInteger Mod 60 'Finds the extra minutes AmountDue = (totalHours * CHARGE_PER_HOUR) + (totalMinutes * (CHARGE_PER_HOUR / 60))