Yes this is for a homework assignment. I am getting closer to what I need but am running into a block. my code shows how far I have gotten. I am pretty sure I can handle the washer gallons and cost part. its the second section I am aving problems with. I have included the requirements below. I have done something similar in Java to do an amortization table for a mortgage calculator. I am just really unsure of how to get it to display what i need. Any advice in the right direction would be great.
The user should be able to do the following:

• Enter the cost per kilowatt-hour.
• Select from a list of home appliances which includes a washer, among other appliances.
• Enter the power needed in kilowatts (kW) for the selected appliance.
• Enter the number of hours used per day for the selected appliance.
• If the washer is selected, enter both the number of gallons of water used by the washer per hour and the cost per gallon.

The program should do the following:

• Validate that the data entered has the correct format, and is within a reasonable range.
• Calculate and display the cost for operating a home appliance as soon as the data is entered.
• Create a listing area to display each of the following for each appliance entered:

o Home appliance
o Number of hours per day
o Cost
o Display and update the total cost of all appliances, as soon as a new entry is added to the listing area.

``````Public Class Form1

Dim Power As Double
Dim Hours As Double
Dim Price As Double
Dim Estimated As Double

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtCostPerHour.Text = "1"
txtHours.Text = "1"
txtPower.Text = "1"
txtEstimated.Text = ""
Power = CDbl(txtPower.Text)
Hours = CDbl(txtHours.Text)
Price = CDbl(txtCostPerHour.Text)
'Estimated = ((Power * Hours) * Price) * 365
'txtEstimated.Text = Estimated.ToString("C")
cbxAppliances.SelectedIndex = -1
cbxAppliances.Focus()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click

Power = CDbl(txtPower.Text)
Hours = CDbl(txtHours.Text)
Price = CDbl(txtCostPerHour.Text)
Estimated = ((Power * Hours) * Price) * 365
txtEstimated.Text = Estimated.ToString("C")

End Sub

Private Sub txtPower_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPower.TextChanged

If txtPower.TextLength = 0 Then
MessageBox.Show("You must enter an amount here")
End If

If Not IsNumeric(txtPower.Text) Then
End If

End Sub

Private Sub txtHours_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtHours.TextChanged

If Not IsNumeric(txtHours.Text) Then
txtHours.Clear()
End If

If txtHours.TextLength = 0 Then
MessageBox.Show("You must enter an amount here")
End If

End Sub

Private Sub txtCostPerHour_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCostPerHour.TextChanged

If txtCostPerHour.TextLength = 0 Then
MessageBox.Show("You must enter an amount here")
End If

If Not IsNumeric(txtCostPerHour.Text) Then
End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Set ListView Properties
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.HideSelection = False
ListView1.MultiSelect = False

ListView1.Columns.Add("Total Annual Cost for All Items")

Dim tempValue As Integer = 0

For i As Integer = 1 To 9

' Create List View Item (Row)
Dim lvi As New ListViewItem

' First Column can be the listview item's Text
lvi.Text = i.ToString

' Second Column is the first sub item
tempValue = tempValue + 1

' Third Column is the second sub item
tempValue = tempValue + 1
' Fourth Column is the second sub item
tempValue = tempValue + 1
' Fifth Column is the second sub item
tempValue = tempValue + 1

' Add the ListViewItem to the ListView

Next

End Sub

End Class
``````
``````Public Class Form1
Dim Power As Double
Dim Hours As Double
Dim Price As Double
Dim Estimated As Double

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtCostPerHour.Text = "1"
txtHours.Text = "1"
txtPower.Text = "1"
txtEstimated.Text = ""
Power = CDbl(txtPower.Text)
Hours = CDbl(txtHours.Text)
Price = CDbl(txtCostPerHour.Text)
'Estimated = ((Power * Hours) * Price) * 365
'txtEstimated.Text = Estimated.ToString("C")
cbxAppliances.SelectedIndex = -1
cbxAppliances.Focus()
End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()

End Sub

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
Power = CDbl(txtPower.Text)
Hours = CDbl(txtHours.Text)
Price = CDbl(txtCostPerHour.Text)
Estimated = ((Power * Hours) * Price) * 365
txtEstimated.Text = Estimated.ToString("C")

End Sub

Private Sub txtPower_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPower.TextChanged
If txtPower.TextLength = 0 Then
MessageBox.Show("You must enter an amount here")
End If
If Not IsNumeric(txtPower.Text) Then
End If
End Sub

Private Sub txtHours_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtHours.TextChanged
If Not IsNumeric(txtHours.Text) Then
txtHours.Clear()
End If
If txtHours.TextLength = 0 Then
MessageBox.Show("You must enter an amount here")
End If

End Sub

Private Sub txtCostPerHour_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCostPerHour.TextChanged
If txtCostPerHour.TextLength = 0 Then
MessageBox.Show("You must enter an amount here")
End If
If Not IsNumeric(txtCostPerHour.Text) Then
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Set ListView Properties
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.HideSelection = False
ListView1.MultiSelect = False

ListView1.Columns.Add("Total Annual Cost for All Items")

Dim tempValue As Integer = 0

For i As Integer = 1 To 9

' Create List View Item (Row)
Dim lvi As New ListViewItem

' First Column can be the listview item's Text
lvi.Text = i.ToString

' Second Column is the first sub item
tempValue = tempValue + 1

' Third Column is the second sub item
tempValue = tempValue + 1
' Fourth Column is the second sub item
tempValue = tempValue + 1
' Fifth Column is the second sub item
tempValue = tempValue + 1