Hi. doing this book for a programming subject, and now need some help, not to do my home work for me, but to give me pointers how to fix the problems and the calculations. or maybe point me to some good online examples. really struggling, and need some help. and please be gentle with me, tried looking at the msdn, help, and tried searching on google and altavista for some simple examples, similar to this case study, but could only find really complext examples. so, if you could help me out, let me know either on or off list. cheers Marvin. ps: will post the project description and my code below. Video Bonanza Design and code a project to calculate the amount due and provide a summary of rentals. All movies rent for $1.80 and all customers receive a 10 percent dis- count. The form should contain input for the member number and the number of movies rented. Inside a group box, display the rental amount, the 10 percent discount, and the amount due. Inside a second group box, display the number of customers served and the total rental income (after discount). Include buttons for Calculate, Clear, and Exit. The Clear button clears the information for the current rental but does not clear the summary information. Do not allow bad input data to cancel the program; in- stead display a message to the user. 'Program: VBVideos 'Programmer: Marvin Hunkin 'Date: Tuesday November 4 2008 'Description: Keep track of video rentals Public Class frmVBVideos 'Declare Module Level Variable. Dim intCustomerCount As Integer = 0 Private Sub btnCalculateButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCalculateButton.Click 'Declare Variables. Dim intMembership As Integer Dim intVideoOrder As Integer Dim decRentals As Decimal = 2 Dim decDiscount As Decimal = 0.1 Dim decAmountDue As Decimal Dim decTotals As Decimal 'Convert Variables. If IsNumeric(tbMembershipNumberTextBox.Text) Then intMembership = CInt(tbMembershipNumberTextBox.Text) Else MessageBox.Show("You Did Not Enter A Valid Numeric Value for Membership Number.", "Data Error", _ MessageBoxButtons.OK, MessageBoxIcon.Exclamation) tbMembershipNumberTextBox.Focus() Return End If If IsNumeric(tbVideoRentalNumberTextBox.Text) Then intVideoOrder = CInt(tbVideoRentalNumberTextBox.Text) Else MessageBox.Show("You Did Not Enter A Valid Numeric Value for Number Of Video Rentals.", "Data Error", _ MessageBoxButtons.OK, MessageBoxIcon.Exclamation) tbVideoRentalNumberTextBox.Focus() Return End If 'Calculate Rentals. decRentals = decRentals * intVideoOrder decDiscount = decRentals - intVideoOrder decAmountDue = decAmountDue * decRentals intCustomerCount = intCustomerCount + 1 decTotals = decRentals - decDiscount 'Format Text Boxes. tbMembershipNumberTextBox.Text = intMembership.ToString() tbVideoRentalNumberTextBox.Text = intVideoOrder.ToString() tbVideoRentalsTextBox.Text = decRentals.ToString("C") tbDiscountTextBox.Text = decDiscount.ToString("C") tbAmountDueTextBox.Text = decAmountDue.ToString("C") tbCustomerNumberTextBox.Text = intCustomerCount.ToString() tbTotalRentalsTextBox.Text = decTotals.ToString("C") tbMembershipNumberTextBox.Focus() End Sub Private Sub btnClearButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClearButton.Click 'Clear Text Boxes. tbMembershipNumberTextBox.Clear() tbVideoRentalNumberTextBox.Clear() tbVideoRentalsTextBox.Clear() tbDiscountTextBox.Clear() tbAmountDueTextBox.Clear() tbCustomerNumberTextBox.Clear() tbTotalRentalsTextBox.Clear() tbMembershipNumberTextBox.Focus() End Sub Private Sub btnExitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExitButton.Click 'Exit the project. Me.Close() End Sub End Class _______________________________________________ The Blind-IT mailing list. Archive at //www.freelists.org/archives/blind-it To unsubscribe, send an email to blind-it-request@xxxxxxxxxxxxx with the word 'unsubscribe' in the subject. _______________________________________________