No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
|
[CODE]Private Sub btnBill_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBill.Click item = txtItem.Text duration = txtduration.Text Dim fmtstr As String = "{0, -15} {1, 17:c2}" '----------------------------------------------------------------------------------------------- lstResult2.Items.Add(" Receipt from Eddie's Equipment Rental") Select Case item.ToUpper & duration.ToUpper Case "1", "h" lstResult2.Items.Add(String.Format(fmtstr, "Rug cleaner", 16)) Case "2", "h" lstResult2.Items.Add(String.Format(fmtstr, … 
|
|
|
[CODE]Public Class Form1 Private Sub btnCompute_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCompute.Click Dim percent, calories As Double Dim grams As Double Dim allow_amount As Double = 30 grams = txtGrams.Text calories = txtCalories.Text percent = (grams * 9) / calories * 100 Dim fmtstr As String = …
|
|
|
[CODE]Public Class Form1 Private Sub btnCompute_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCompute.Click Dim percent As Double percent = (txtGrams.Text * 9) / txtCalories.Text * 100 Dim fmtstr As String = "{0, -15:p3}" lstResult.Items.Clear() lstResult.Items.Add(String.Format(fmtstr, txtFood.Text & " containts " & percent & _ " calories from fat.")) …
|
|
|
[code] Private sub btnCompute_click () handles btnCompute.click Dim Total, labor, customer As String labor = cdbl(txthour.text * 35) parts = cdbl(txtpart.text + 5%) Total = labor + parts customer = txtname.text lstResult.Items.add.clear() lstResult.Items.add("customer" & customer) lstResult.Items.add("Labor cost" & Labor) lstResult.Items.add("Parts Cost" & Parts) lstResult.Items.add(" Total Cost" & Total) end sub …
|