Question

A fitness tracking app company has asked you to develop a windows application using a GUI to determine the total amount of hours somebody has exercised during their lifetime, assuming on average a user has exercises 2.5 hours per week.

When the user uses the app, they will enter the following:

First Name:

Last Name:

Date of Birth (in mm/dd/yyyy):

Current Date (in mm/dd/yyyy)

This program should display the users name and the number of hours the user has exercised in their lifetime. The program should output in a label widget the users name and the number of hours exercised in their life time. The user can click a Clear button to Clear all entries and results and and Exit button to exit the application.

Note: This should be done in Windows Form App .VB

**I am mostly struggling to make the calculations with the dates as they are being entered into a text box.

Answer 1

VB Application:

File: Form1.Designer.vb

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form

'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtFirstName = New System.Windows.Forms.TextBox()
Me.txtLastName = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtDOB = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtCurrDate = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.lblResult = New System.Windows.Forms.Label()
Me.btnCalculate = New System.Windows.Forms.Button()
Me.btnClear = New System.Windows.Forms.Button()
Me.btnExit = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(94, 30)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(60, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "First Name:"
'
'txtFirstName
'
Me.txtFirstName.Location = New System.Drawing.Point(190, 27)
Me.txtFirstName.Name = "txtFirstName"
Me.txtFirstName.Size = New System.Drawing.Size(100, 20)
Me.txtFirstName.TabIndex = 1
'
'txtLastName
'
Me.txtLastName.Location = New System.Drawing.Point(190, 66)
Me.txtLastName.Name = "txtLastName"
Me.txtLastName.Size = New System.Drawing.Size(100, 20)
Me.txtLastName.TabIndex = 3
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(94, 69)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Last Name:"
'
'txtDOB
'
Me.txtDOB.Location = New System.Drawing.Point(190, 106)
Me.txtDOB.Name = "txtDOB"
Me.txtDOB.Size = New System.Drawing.Size(100, 20)
Me.txtDOB.TabIndex = 5
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(37, 109)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(147, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Date of Birth (in mm/dd/yyyy):"
'
'txtCurrDate
'
Me.txtCurrDate.Location = New System.Drawing.Point(190, 145)
Me.txtCurrDate.Name = "txtCurrDate"
Me.txtCurrDate.Size = New System.Drawing.Size(100, 20)
Me.txtCurrDate.TabIndex = 7
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(37, 148)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(148, 13)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Current Date (in mm/dd/yyyy):"
'
'lblResult
'
Me.lblResult.AutoSize = True
Me.lblResult.Font = New System.Drawing.Font("Lucida Sans Unicode", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblResult.Location = New System.Drawing.Point(37, 257)
Me.lblResult.Name = "lblResult"
Me.lblResult.Size = New System.Drawing.Size(0, 16)
Me.lblResult.TabIndex = 8
'
'btnCalculate
'
Me.btnCalculate.Location = New System.Drawing.Point(40, 198)
Me.btnCalculate.Name = "btnCalculate"
Me.btnCalculate.Size = New System.Drawing.Size(75, 23)
Me.btnCalculate.TabIndex = 9
Me.btnCalculate.Text = "Calculate"
Me.btnCalculate.UseVisualStyleBackColor = True
'
'btnClear
'
Me.btnClear.Location = New System.Drawing.Point(148, 198)
Me.btnClear.Name = "btnClear"
Me.btnClear.Size = New System.Drawing.Size(75, 23)
Me.btnClear.TabIndex = 10
Me.btnClear.Text = "Clear"
Me.btnClear.UseVisualStyleBackColor = True
'
'btnExit
'
Me.btnExit.Location = New System.Drawing.Point(255, 198)
Me.btnExit.Name = "btnExit"
Me.btnExit.Size = New System.Drawing.Size(75, 23)
Me.btnExit.TabIndex = 11
Me.btnExit.Text = "Exit"
Me.btnExit.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(393, 324)
Me.Controls.Add(Me.btnExit)
Me.Controls.Add(Me.btnClear)
Me.Controls.Add(Me.btnCalculate)
Me.Controls.Add(Me.lblResult)
Me.Controls.Add(Me.txtCurrDate)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtDOB)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtLastName)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtFirstName)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Exercise"
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtFirstName As System.Windows.Forms.TextBox
Friend WithEvents txtLastName As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtDOB As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtCurrDate As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents lblResult As System.Windows.Forms.Label
Friend WithEvents btnCalculate As System.Windows.Forms.Button
Friend WithEvents btnClear As System.Windows.Forms.Button
Friend WithEvents btnExit As System.Windows.Forms.Button

End Class

File: Form1.vb

Public Class Form1

' Calculate button click event handler
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click

' Fetching name
Dim fName, lName As String
fName = txtFirstName.Text
lName = txtLastName.Text

' Fetching Date of Birth
Dim DOB As String
DOB = txtDOB.Text

' Extracting day, month, year
Dim dd, mm, yyyy As Integer
dd = DOB.Split("/")(1)
mm = DOB.Split("/")(0)
yyyy = DOB.Split("/")(2)

' Creating a date
Dim DOBDate As New Date(yyyy, mm, dd)

' Fetching Current date
Dim curr As String
curr = txtCurrDate.Text

' Extracting day, month, year
dd = curr.Split("/")(1)
mm = curr.Split("/")(0)
yyyy = curr.Split("/")(2)

' Creating a date
Dim currDate As New Date(yyyy, mm, dd)

' Extracting number of days
Dim days As Double = (currDate - DOBDate).TotalDays()

' Calculating Hours Exercised
Dim hrsExercised As Double
' 2.5 Hours per week
hrsExercised = (days / 7.0) * 2.5

' Results
lblResult.Text = "User Name: " & fName & " " & lName & vbNewLine & "Number of hours exercised: " & hrsExercised.ToString("##.#")

End Sub

' Clear button click event handler
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
' Clearing all entries
txtFirstName.Clear()
txtLastName.Clear()
txtDOB.Clear()
txtCurrDate.Clear()
lblResult.Text = ""
End Sub

' Exit button click event handler
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Application.Exit()
End Sub
End Class
______________________________________________________________________________________________________

Sample Run: