8. If the user leaves the Customer, Hours, or Parts textboxes blank, produce an error message (using a MessageBox) that informs the user to enter the appropriate information and do not display the information in the listbox.
9. Create variables to hold the customer, phone, hours, and parts information. Name the variables customer, phone, hours, and parts. Their data types should be string, string, double, and double, respectively.
10. When the user clicks the Display Bill button, prompt the user to enter in the date of the services. Store this information in a variable called service_date. Display this date and the date the invoice is due (30 days from the date entered) in the listbox as shown below. [Hint: use the AddDays function]. Store the due date in a variable called due_date.
11. Convert the customer name variable to upper case before displaying it in the listbox.
12. Whenever the user clicks the Display Bill button, the listbox should be cleared before displaying the new results.
13. To calculate the amounts, create three variables (labor_cost, parts_cost, and total_cost), and display these amounts in the listbox as shown below.
14. Be sure to use currency format where appropriate.
15. Be sure that the columns line up appropriately. [Hint: you can use the built-in Visual Basic constant “vbTab” to create neat columns in your listbox.]
THE FOLLOWING IS WHAT I DID BUT I AM GETTING AN ERROR
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplayBill.Click
Dim Customer As String
Dim Phone As String
Dim Hours As Double
Dim Parts As Double
If txtCustomer.Text.Length = 0 AndAlso
txtHours.Text.Length < 0 AndAlso txtParts.Text.Length = 0 Then
'display an instructive MessageBox
MessageBox.Show("Please enter the appropriate information in the empty boxes! Please" & vbCrLf & "complete the empty boxes.", "Illegal operation", _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Else
' Do Calculations
Customer = CStr(txtCustomer.Text)
Phone = CStr(mtbPhone.Text)
Hours = CDbl(txtHours.Text)
Parts = CDbl(txtParts.Text)
lstBill.Items.Clear()
lstBill.Items.Add("Customer:" & Customer)
lstBill.Items.Add("Phone:" & Phone)
lstBill.Items.Add("Hours Cost:" & Hours * 35)
lstBill.Items.Add("Parts Cost:" & Parts * 0.05)
lstBill.Items.Add("Total Cost:" & Hours * 35 + Parts * 0.05)
End If
End Sub
End Class
PLEASEEEEEEE HELP!!!
Featured
Writing your app was the hard part, but it’s not the last part. You still need to sell your app. Here's how to make sure your description puts your app in the best light. |
|
Reply With Quote
using the Thread Tools menu ...
