Sir, Could you ask spacific questions sir. We do not wish to evaluate your entire program for you. That takes away from the learning experience! If you ask spacific questions, perhaps someone could offer you a spacific answer and explain why what you did doesn't work and why what they showed you does. I applaud your learning desire. However, how much are you learning by sending your entire code and having people to evaluate it. Thanks! Charles E. Black 4127 Pinehaven Ct. Columbia, SC 29205 Phone: (803) 790-5586 Cell: (803) 201-0499 Email: charlesblackusc@xxxxxxxxx -----Original Message----- From: programmingblind-bounce@xxxxxxxxxxxxx [mailto:programmingblind-bounce@xxxxxxxxxxxxx] On Behalf Of Marvin Hunkin Sent: Wednesday, November 05, 2008 12:56 AM To: programmingblind@xxxxxxxxxxxxx Subject: VB Videos Programming Help 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 __________ View the list's information and change your settings at //www.freelists.org/list/programmingblind __________ View the list's information and change your settings at //www.freelists.org/list/programmingblind