CSIS 208 Programming Assignment 3

Mark 16:15
He said to them, “ Go into all the world and preach the good news to all creation”

It is very important to share the Word with others. One of the ways to do this is through mission trips where not only are you the hands and feet of Jesus but also you provide His Word.

This week you are going to create a Visual Basic program which produces a quote for mission teams. The user should enter the Name of the Group, the location of the mission trip, the number of people going on the trip, the number of days, and the choice of insurance.

  1. Design your screen to look like the one below.
  2. Store the amounts entered by the user in variables and use these variables in the formula.
  3. A processing fee in the amount of $250 must be stored in a constant variable
  4. The following locations should be stored in a listbox:
    1. Africa – price per day $500
    2. United States – price per day $100
    3. Haiti – price per day $400
    4. Mexico – price per day $200
  5. Use appropriate naming conventions for controls and variables.
  6. Include internal documentation to describe the logic in your program (i.e. put comments in your code).
  7. Tab Control must flow in order and not go to the lstbox.
  8. The Calculate Button will do the following:
    1. The results listbox should be cleared before displaying the new results.
    2. The information that was entered should be checked to make sure there are values entered. If the user entry contains null values, the user should be so advised, and the user should be directed to the text box that contains the error. Make sure your error messages are meaningful.
    3. Determine if insurance is wanted based on the value of the checked box. Set the value of insurance to zero if the option is not checked and 300 if the option is checked.
    4. Determine the price per day depending on the location selection. You must show you can use a case statement for this decision.
    5. Calculate the cost for the total trip using the calculation below:
      ((number of people) * (daily cost of trip) * (number of days)) + insurance amount + fee
      
    6. Using the output below, display the following information using the appropriate spacing
      1. *****In the lstBox you must include the mission coordinator (your instructor) and the guide (your name). This is a requirement for the assignment to be accepted.
      2. The Group Name – Must be converted to upper case before displaying
      3. The Location of the Trip
      4. The number of people going
      5. The daily cost per person
      6. The number of days
      7. The insurance amount for the trip formatted as currency
      8. Total cost of trip formatted as currency



This slideshow requires JavaScript.



This assignment includes a Visual Studio (Visual Basic) project

  • Attachments
    • CSIS208_Programming_Assignment_3.zip (99.00 KB)
      • CSIS208-Programming-Assignment-3-Screenshot.png
      • Visual Studio project
        • CSIS208ProgrammingAssignment3
          • CSIS208ProgrammingAssignment3
            • App.config
            • bin
              • Debug
                • CSIS208ProgrammingAssignment3.vshost.exe
                • CSIS208ProgrammingAssignment3.vshost.exe.config
              • Release
              • CSIS208ProgrammingAssignment3.vbproj
              • MissionTripCalculator.Designer.vb
              • MissionTripCalculator.vb
              • My Project
                • Application.Designer.vb
                • Application.myapp
                • AssemblyInfo.vb
                • Resources.Designer.vb
                • Settings.Designer.vb
                • Settings.settings
              • obj
                • Debug
                  • DesignTimeResolveAssemblyReferences.cache
                  • DesignTimeResolveAssemblyReferencesInput.cache
                  • TempPE
                    • My Project.Resources.Designer.vb.dll
            • CSIS208ProgrammingAssignment3.sln
            • CSIS208ProgrammingAssignment3.v12.suo
      Preview random excerpt
      xxxxxx xxxxx
      xxx xxx
      xxx xxxxxxxx
      xxxxxxx xxx xxxxxxxxxxxx_xxxxx(xxxxxx xx xxxxxx, x xx xxxxxxxxx) xxxxxxx xxxxxxxxxxxx.xxxxx
      Dim s As String
      xxx
      list As List(Of String) =
      xxx
      xxxx
      (
      xx
      String)
      xxx
      xxxxxx
      .Items.Clear()
      x
      = "Mission Coordinator:
      x
      &
      xxxxxxxxxxxxxxxxxxxx
      &
      xxxxxx
      xxxx
      .Add(s)
      x
      =
      xxxxxxxx
      Guide:
      x
      & YOUR_NAME & vbCrLf
      xxxx
      .Add(
      x
      )
      xx
      String.IsNullOrEmpty(txtGroupName.
      xxxx
      )
      xxxx
      xxxxx
      xxx
      Exception("Group name can not be
      xxxxxx
      )
      xxx xx
      x = "xxxxx xxxx: " & xxxxxxxxxxxx.xxxx.xxxxxxx & xxxxxx
      xxxx.xxx(x)
      - - - more text follows - - -

      • MissionTeams.zip (74.96 KB)
        • .vs
          • MissionTeams
            • v14
              • .suo
        • MissionTeams
          • App.config
          • bin
            • Debug
              • MissionTeams.exe
              • MissionTeams.exe.config
              • MissionTeams.pdb
              • MissionTeams.vshost.exe
              • MissionTeams.vshost.exe.config
              • MissionTeams.xml
            • Release
            • MissionTeams.vbproj
            • MissionTripCalculator.Designer.vb
            • MissionTripCalculator.vb
            • My Project
              • Application.Designer.vb
              • Application.myapp
              • AssemblyInfo.vb
              • Resources.Designer.vb
              • Settings.Designer.vb
              • Settings.settings
            • obj
              • Debug
                • DesignTimeResolveAssemblyReferences.cache
                • DesignTimeResolveAssemblyReferencesInput.cache
                • MissionTeams.exe
                • MissionTeams.pdb
                • MissionTeams.Resources.resources
                • MissionTeams.vbproj.FileListAbsolute.txt
                • MissionTeams.vbproj.GenerateResource.Cache
                • MissionTeams.vbprojResolveAssemblyReference.cache
                • MissionTeams.xml
                • TempPE
                  • My Project.Resources.Designer.vb.dll
          • MissionTeams.sln
        Preview random excerpt
        xxxxxx xxxxx
        xxx xxx
        xxx xxxxxxxx
        xxxxxxx xxx xxxxxxxxxxxx_xxxxx(xxxxxx xx xxxxxx, x xx xxxxxxxxx) xxxxxxx xxxxxxxxxxxx.xxxxx
        Dim
        x
        As
        xxxxxx
        xxx
        list As List(
        xx
        String) =
        xxx
        List(
        xx
        xxxxxx
        )
        xxx
        xxxxxx
        .Items.Clear()
        x
        = "Mission Coordinator:
        x
        &
        xxxxxxxxxxxxxxxxxxxx
        & vbCrLf
        xxxx
        .
        xxx
        (
        x
        )
        x
        =
        xxxxxxxx
        Guide:
        x
        &
        xxxxxxxxx
        & vbCrLf
        xxxx
        .Add(
        x
        )
        xx
        String.IsNullOrEmpty(
        xxxxxxxxxxxx
        .Text)
        xxxx
        xxxxx
        New Exception("Group name can not be
        xxxxxx
        )
        xxx xx
        x = "xxxxx xxxx: " & xxxxxxxxxxxx.xxxx.xxxxxxx & xxxxxx
        xxxx.xxx(x)
        - - - more text follows - - -



      Purchasing Instruction
      List Price: $19
      Buy Now

      Buy More Save More
      Buy at least TWO items & save up to 30% OFF your ENTIRE order!
      Rack up instant rebates in your shopping cart. Simply add items to your cart, and see the savings add up.
      Discounts will automatically be applied on eligible orders.

      Add to Cart