[blind-it] Re: Beginning vb student needs help
- From: "Al Puzzuoli" <alpuzz@xxxxxxx>
- To: <blind-it@xxxxxxxxxxxxx>
- Date: Wed, 5 Nov 2008 08:13:17 -0500
Hi Marvin,
This question is not on topic for the list, and would be better directed
to a list such as blind-programming.
Thanks,
Al Puzzuoli
Information Technologist
Resource Center for Persons with Disabilities 517-884-1915 120 Bessey
Hall East Lansing, MI 48824-1033 http://www.rcpd.msu.edu
-----Original Message-----
From: blind-it-bounce@xxxxxxxxxxxxx
[mailto:blind-it-bounce@xxxxxxxxxxxxx] On Behalf Of Marvin Hunkin
Sent: Wednesday, November 05, 2008 4:51 AM
To: blind-it@xxxxxxxxxxxxx
Subject: [blind-it] Beginning vb student needs 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
_______________________________________________
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.
_______________________________________________
_______________________________________________
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.
_______________________________________________
Other related posts:
