Textbook problem #3 on Page 232/234

Public Class Form1

Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click Dim Visited As String = "", Dates As String = "", Location As String = "" 'Declaring information entered in txtboxes 1-3 Dim Meals As Double, Airfare As Double, Lodging As Double, Taxifare As Double 'Declaring information entered in txtboxes 4-7 DisplayBox.Visible = True Inputs(Visited, Dates, Location, Meals, Airfare, Lodging, Taxifare) Displayexpenses(Visited, Dates, Location, Meals, Airfare, Lodging, Taxifare) End Sub Sub Inputs(ByRef Visited As String, ByRef Dates As String, ByRef Location As String, _
ByRef Meals As Double, ByRef Airfare As Double, ByRef Lodging As Double, ByRef Taxifare As Double) 'all wordlike inputs as string, all number inputs being recognized as double Visited = CStr(TxtBox1.Text) 'telling us where information is located on the form Dates = CStr(TxtBox2.Text) Location = CStr(TxtBox3.Text) Meals = CDbl(TxtBox4.Text) Airfare = CDbl(TxtBox5.Text) Lodging = CDbl(TxtBox6.Text) Taxifare = CDbl(TxtBox7.Text) End Sub Sub Displayexpenses(ByVal Visited As String, ByVal Dates As String, ByVal Location As String, ByVal Meals As Double, ByVal Airfare As Double, ByVal Lodging As Double, ByVal Taxifare As Double) 'Display Expenses as per book instructions DisplayBox.Items.Clear() DisplayBox.Items.Add("Business Travel Expense") 'Begining the formatting of the listbox DisplayBox.Items.Add("") DisplayBox.Items.Add("Trip to attend meeting of:") DisplayBox.Items.Add(Visited) DisplayBox.Items.Add(Dates & " in " & Location) DisplayBox.Items.Add("") Dim fmtStr As String = "{0, -26}{1, 8:C}" DisplayBox.Items.Add(String.Format(fmtStr, "Meals and entertainment", Meals)) DisplayBox.Items.Add(String.Format(fmtStr, "Airplane fare", Airfare)) DisplayBox.Items.Add(String.Format(fmtStr, "Lodging", Lodging)) DisplayBox.Items.Add(String.Format(fmtStr, "Taxifare Fares", Taxifare)) DisplayBox.Items.Add("") DisplayBox.Items.Add("Total other than meals and entertainment: " & (FormatCurrency(othertotal(Airfare, Lodging, Taxifare)))) DisplayBox.Items.Add("50% of meals and entertainment: " & (FormatCurrency(halfmeals(Meals)))) End Sub Function othertotal(ByVal Airfare As Double, ByVal Lodging As Double, ByVal Taxifare As Double) Return Airfare + Lodging + Taxifare End Function Function halfmeals(ByVal Meals As Double) As Double Return Meals * 0.5 End Function Private Sub Btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn2.Click TxtBox1.Text = "" TxtBox2.Text = "" TxtBox3.Text = "" TxtBox4.Text = "" TxtBox5.Text = "" TxtBox6.Text = "" TxtBox7.Text = "" DisplayBox.Items.Clear()

End Sub

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

Private Sub Btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn4.Click DisplayBox.Visible = False End Sub
End Class

SIGCSE 2008
March 12 – 15
Portland, Oregon
190.10
250.15
675.35
45.00