Wednesday, December 08, 2004

Paint Calculator Program

I had some trouble initially getting the software to work, but then I struggled through the program and managed to come up with a working program.

Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Dim longwall As Integer
Dim shortwall As Integer
Dim height As Integer
Dim paint As Decimal
Dim gallons As Integer
Dim total As Decimal

longwall = updlongwall.Value
shortwall = updshortwall.Value
height = updheight.Value
cost = Val(Txtcost.Text)
gallons = (((shortwall * height) * 2) + ((longwall * height) * 2)) / 400
total = cost * gallons
lblgallons.Text = (gallons)
lblcost.Text = FormatCurrency(total)

End Sub

Paint Caclulator Screenshot


Post a Comment

<< Home