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
