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 »
hi, I have an assignment for the course "business computer application", it's excel work



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 budget 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 rate 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 borrow 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 Error 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 error 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 error 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 Error 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 DayNov 10, 2021

Answer To: Faculty of Business and Information Technology Assignment 3 Value: 7.5%, Due: Nov. 18th @ 11:59 PM...

Mohd answered on Nov 17 2021
137 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/bin/Debug/WindowsFormApplication3.exe
solution/WindowsFormAppl
ication3/WindowsFormApplication3/bin/Debug/WindowsFormApplication3.pdb
solution/WindowsFormApplication3/WindowsFormApplication3/bin/Debug/WindowsFormApplication3.vshost.exe
solution/WindowsFormApplication3/WindowsFormApplication3/bin/Debug/WindowsFormApplication3.vshost.exe.manifest









solution/WindowsFormApplication3/WindowsFormApplication3/bin/Debug/WindowsFormApplication3.xml



WindowsFormApplication3



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


Returns the cached ResourceManager instance used by this class.


Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.


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









solution/WindowsFormApplication3/WindowsFormApplication3/bin/Release/WindowsFormApplication3.xml



WindowsFormApplication3



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


Returns the cached ResourceManager instance used by this class.


Overrides the current thread's CurrentUICulture 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.vb
_
Partial Class Form1
Inherits System.Windows.Forms.Form
_
Protected Overrides 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 Sub
Private components As System.ComponentModel.IContainer
_
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.Center
'
'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.Center
'
'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.Center
'
'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.Center
'
'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