Great Deal! Get Instant $10 FREE in Account on First Order + 10% Cashback on Every Order Order Now

Faculty of Business and Information Technology Assignment 3 Value: 7.5%, Due: Nov. 18th @ 11:59 PM This assignment should be completed individually. We take academic integrity seriously. Any student...

1 answer below »
Faculty of Business and Information Technology
Assignment 3
Value: 7.5%, Due: Nov. 18th @ 11:59 PM
This assignment should be completed individually. We take academic integrity seriously. Any
student found to be involved in plagiarism or cheating will be penalized in accordance to the
Ontario Tech University Calendar, Section 5.15.
To assert that you have not given or received, or used unauthorized assistance, write the following
pledge in the comment textbox when you submit your files through Canvas system.
"I have not given, received, or used any unauthorized assistance."
Durham Auto (100 Points) Start-up file needed for this exercise: None
Durham Auto is a family-owned new and used car dealership, specializing in quality GM models for every
udget and style. You have been recently hired as a salesperson and you decided to create a simple VBA
application to help you calculate auto loan payments based on the following information.
The interest rates and periodic payments are calculated as follows:
1) Interest Rate
• If the loan term is less than or equal to 3 years, the interest rate is 1.5%.
• If the loan term is greater than 3 years but less than or equal to 5 years, the interest
ate is 2.5%.
• If the loan term is greater than 5 years, the interest rate is 4%.
2) The loan payment calculations done using a VBA function called Pmt(Rate, NPER, PV).
Rate: is a number specifying interest rate per period. For example, if you get a car loan at an
annual percentage rate (APR) of 10 percent and make monthly payments, the rate per period is
0.1/12, or 0.0083
NPER: is a number specifying total number of payment periods in the annuity. For example, if
you make monthly payments on a four-year car loan, your loan has a total of 4 * 12 (or 48)
payment periods.
PV: is an amount specifying present value (or loan amount). For example, when you bo
ow
money to buy a car, the loan amount is the present value to the lender of the monthly car
payments you will make.
Note: for the bi-weekly payment you must divide the rate by 26 and multiply the term by 26.
Also, for the weekly payment you must divide the rate by 26 and multiply the term by 26.
For your reference you can use the Assignment3.xlsm file attached as you complete this assignment.
Your task is to create an application similar to this file. Note that the code in this file is password-
protected.
Task 1: Prepare Excel Macro-Enabled file
Refer to Fig. 1 as you complete Task 1.
(a) Create a Macro-Enabled workbook named Durham Auto.xlsm. Insert a Documentation
worksheet and add appropriate title for the workbook in cell A1. In cell B3 enter your name.
In cell B4 enter your student number. In cell B5 enter the completion date of your assignment
and in cell B6 enter a sentence to describe the purpose of the workbook. In cell A100, enter
your ontariotechu.net email address.
(b) Add a new worksheet called Auto Loan Calculator.
(c) Add a button (from the ActiveX Control group). Change the caption to display Open Calculator.
(d) Add a button (from the ActiveX Control group). Change the caption to display Reset Worksheet.
(e) Create a reporting area similar to Fig. 1 (the company logo is included in the assignment document).
Save your file.
Task 2: Create Income Tax Calculator User Form
Refer to Fig. 2 as you complete Task 2.
Create a user form similar to the design shown in Fig. 2. Be sure to change the user form caption to
Durham Auto Financing Calculator (the company logo is included in the assignment document).

Fig. 1: Initial Setup
Fig. 2: Durham Auto Loan Calculator User Form
Task 3: Write codes for each button
Refer to Fig. 3 as you complete Task 3.
(a) The Calculate Payment button should compute and display the monthly, bi-weekly, and weekly
payment amounts based on the information provided by a user (do not forget to format this value).
(b) The Reset Form button should clear the user form (three textboxes and three labels).
(c) The Generate Report button compute should display the required information onto the Auto Loan
Calculator worksheet as shown in Fig. 3.
(d) The Exit button should close the user form.
Task 4: ActiveX Buttons and E
or Handling
(a) The Open Calculator ActiveX control button should open the Auto Loan Calculator user form.
(b) The Reset Worksheet ActiveX control button should clear the contents of the worksheet (C13:C16
and C19:C21).
(c) The Auto Loan Calculator user form should have an e
or handling mechanism to avoid application
malfunction due to empty textboxes. For example, if any of the textboxes is empty, then the program
should display an e
or message as shown in Fig. 4.
(d) Test your application. Save and close your workbook.
NOTE: ALL CALCULATION SHOULD BE DONE THROUGH VBA.

Fig. 3: Durham Auto Loan Calculator Sample Run

Fig. 4: Durham Auto Loan Calculator E
or Message
Submission Guideline:
Using the Canvas system, please submit your ONE solution file by no later than Nov. 18th, 2020
at 11:59PM.
Answered Same Day Nov 10, 2021

Solution

Mohd answered on Nov 17 2021
151 Votes
solution/WindowsFormApplication3/.vs/WindowsFormApplication3/v16/.suo
solution/WindowsFormApplication3/WindowsFormApplication3.sln
Microsoft Visual Studio Solution File, Format Version 11.00
# Visual Studio 2010
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "WindowsFormApplication3", "WindowsFormApplication3\WindowsFormApplication3.vbproj", "{B7B02A3F-B706-41AE-BC2A-EBD36F432741}"
EndProject
Global
    GlobalSection(SolutionConfigurationPlatforms) = preSolution
        Debug|x86 = Debug|x86
        Release|x86 = Release|x86
    EndGlobalSection
    GlobalSection(ProjectConfigurationPlatforms) = postSolution
        {B7B02A3F-B706-41AE-BC2A-EBD36F432741}.Debug|x86.ActiveCfg = Debug|x86
        {B7B02A3F-B706-41AE-BC2A-EBD36F432741}.Debug|x86.Build.0 = Debug|x86
        {B7B02A3F-B706-41AE-BC2A-EBD36F432741}.Release|x86.ActiveCfg = Release|x86
        {B7B02A3F-B706-41AE-BC2A-EBD36F432741}.Release|x86.Build.0 = Release|x86
    EndGlobalSection
    GlobalSection(SolutionProperties) = preSolution
        HideSolutionNode = FALSE
    EndGlobalSection
EndGlobal
solution/WindowsFormApplication3/WindowsFormApplication3.suo
solution/WindowsFormApplication3/WindowsFormApplication3/App.config




solution/WindowsFormApplication3/WindowsFormApplication3
in/Debug/WindowsFormApplication3.exe
solution/WindowsFormApplication3/WindowsFormApplication3
in/Debug/WindowsFormApplication3.pd
solution/WindowsFormApplication3/WindowsFormApplication3
in/Debug/WindowsFormApplication3.vshost.exe
solution/WindowsFormApplication3/WindowsFormApplication3
in/Debug/WindowsFormApplication3.vshost.exe.manifest









solution/WindowsFormApplication3/WindowsFormApplication3
in/Debug/WindowsFormApplication3.xml



WindowsFormApplication3



A strongly-typed resource class, for looking up localized strings, etc.


Returns the cached ResourceManager instance used by this class.


Ove
ides the cu
ent thread's Cu
entUICulture property for all
resource lookups using this strongly typed resource class.


Looks up a localized resource of type System.Drawing.Bitmap.
solution/WindowsFormApplication3/WindowsFormApplication3
in/Release/WindowsFormApplication3.exe
solution/WindowsFormApplication3/WindowsFormApplication3
in/Release/WindowsFormApplication3.pd
solution/WindowsFormApplication3/WindowsFormApplication3
in/Release/WindowsFormApplication3.vshost.exe
solution/WindowsFormApplication3/WindowsFormApplication3
in/Release/WindowsFormApplication3.vshost.exe.manifest









solution/WindowsFormApplication3/WindowsFormApplication3
in/Release/WindowsFormApplication3.xml



WindowsFormApplication3



A strongly-typed resource class, for looking up localized strings, etc.


Returns the cached ResourceManager instance used by this class.


Ove
ides the cu
ent thread's Cu
entUICulture property for all
resource lookups using this strongly typed resource class.


Looks up a localized resource of type System.Drawing.Bitmap.
solution/WindowsFormApplication3/WindowsFormApplication3/durham.bmp
solution/WindowsFormApplication3/WindowsFormApplication3/Form1.Designer.v
Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
_
Protected Ove
ides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Su
Private components As System.ComponentModel.IContaine
_
Private Sub InitializeComponent()
Me.Button2 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.TextBox5 = New System.Windows.Forms.TextBox()
Me.TextBox6 = New System.Windows.Forms.TextBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button2
'
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.Location = New System.Drawing.Point(24, 652)
Me.Button2.Margin = New System.Windows.Forms.Padding(4)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(212, 38)
Me.Button2.TabIndex = 5
Me.Button2.Text = "Reset Form"
Me.Button2.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(24, 373)
Me.TextBox1.Margin = New System.Windows.Forms.Padding(4)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(212, 44)
Me.TextBox1.TabIndex = 6
Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Cente
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(90, 336)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 20)
Me.Label1.TabIndex = 8
Me.Label1.Text = "Price"
'
'Button3
'
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.Location = New System.Drawing.Point(278, 454)
Me.Button3.Margin = New System.Windows.Forms.Padding(4)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(216, 47)
Me.Button3.TabIndex = 10
Me.Button3.Text = "Calculate Payment"
Me.Button3.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button6.Location = New System.Drawing.Point(278, 652)
Me.Button6.Margin = New System.Windows.Forms.Padding(4)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(216, 39)
Me.Button6.TabIndex = 17
Me.Button6.Text = "Generate Report"
Me.Button6.UseVisualStyleBackColor = True
'
'Button7
'
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button7.Location = New System.Drawing.Point(549, 650)
Me.Button7.Margin = New System.Windows.Forms.Padding(4)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(232, 43)
Me.Button7.TabIndex = 24
Me.Button7.Text = "Exit"
Me.Button7.UseVisualStyleBackColor = True
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(324, 336)
Me.Label9.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(122, 20)
Me.Label9.TabIndex = 29
Me.Label9.Text = "Down Payment"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(608, 336)
Me.Label10.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(108, 20)
Me.Label10.TabIndex = 30
Me.Label10.Text = "Term (Years)"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(71, 596)
Me.Label11.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(67, 20)
Me.Label11.TabIndex = 34
Me.Label11.Text = "Monthly"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(324, 596)
Me.Label12.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(81, 20)
Me.Label12.TabIndex = 35
Me.Label12.Text = "Bi-weekly"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(626, 596)
Me.Label13.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(63, 20)
Me.Label13.TabIndex = 36
Me.Label13.Text = "Weekly"
'
'TextBox2
'
Me.TextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox2.Location = New System.Drawing.Point(278, 373)
Me.TextBox2.Margin = New System.Windows.Forms.Padding(4)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(216, 44)
Me.TextBox2.TabIndex = 37
Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Cente
'
'TextBox3
'
Me.TextBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox3.Location = New System.Drawing.Point(549, 373)
Me.TextBox3.Margin = New System.Windows.Forms.Padding(4)
Me.TextBox3.Multiline = True
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(232, 44)
Me.TextBox3.TabIndex = 38
Me.TextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Cente
'
'TextBox4
'
Me.TextBox4.Enabled = False
Me.TextBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox4.Location = New System.Drawing.Point(24, 535)
Me.TextBox4.Margin = New System.Windows.Forms.Padding(4)
Me.TextBox4.Multiline = True
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.TextBox4.Size = New System.Drawing.Size(212, 44)
Me.TextBox4.TabIndex = 39
Me.TextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Cente
'
'TextBox5
'
Me.TextBox5.Enabled = False
Me.TextBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular,...
SOLUTION.PDF

Answer To This Question Is Available To Download

Related Questions & Answers

More Questions »

Submit New Assignment

Copy and Paste Your Assignment Here