Function tasks database Learn programming Visual Basic (VB.net)



Lesson:

Functions


Exercise:

Function tasks database


Objetive:

Create an improved version of the "tasks database", splitting it into functions.


Code:

Imports System
Public Class exercise117
    Structure DateType
        Public year As UShort
        Public month As Byte
        Public day As Byte
    End Structure

    Structure TaskType
        Public date As DateType
        Public description As String
        Public level As Byte
        Public category As String
    End Structure

    Shared counter As Integer = 0
    Shared capacity As Integer = 2000
    Shared tasks As TaskType() = New TaskType(capacity - 1) {}

    Public Shared Sub Add()
        If counter < capacity Then
            Console.Write("Enter the Description of the task: ")
            tasks(counter).description = Console.ReadLine()
            Console.Write("Enter the Level of the task (1-10): ")
            tasks(counter).level = Convert.ToByte(Console.ReadLine())
            Console.Write("Enter the Category of the task: ")
            tasks(counter).category = Console.ReadLine()

            Do
                Console.Write("Enter the Day of the task (1 to 31): ")
                tasks(counter).date.day = Convert.ToByte(Console.ReadLine())
                If tasks(counter).date.day < 1 OrElse tasks(counter).date.day > 31 Then Console.WriteLine("Not a valid day!")
            Loop While tasks(counter).date.day < 1 OrElse tasks(counter).date.day > 31

            Do
                Console.Write("Enter the Month of the task (1 to 12): ")
                tasks(counter).date.month = Convert.ToByte(Console.ReadLine())
                If tasks(counter).date.month < 1 OrElse tasks(counter).date.month > 12 Then Console.WriteLine("Not a valid month!")
            Loop While tasks(counter).date.month < 1 OrElse tasks(counter).date.month > 12

            Do
                Console.Write("Enter the Year of the task: ")
                tasks(counter).date.year = Convert.ToUInt16(Console.ReadLine())
                If tasks(counter).date.year < 1000 OrElse tasks(counter).date.year > 3000 Then Console.WriteLine("Not a valid year!")
            Loop While tasks(counter).date.year < 1000 OrElse tasks(counter).date.year > 3000

            counter += 1
        Else
            Console.WriteLine("Database full.")
        End If
    End Sub

    Public Shared Sub Show()
        If counter >= 1 Then
            Dim startDay, startMonth As Byte
            Dim startYear As UShort
            Dim endDay, endMonth As Byte
            Dim endYear As UShort
            Console.WriteLine("Starting day: ")
            Dim number As String = Console.ReadLine()

            If number = "" Then
                startDay = Convert.ToByte(DateTime.Now.Day)
            Else
                startDay = Convert.ToByte(number)
            End If

            Console.WriteLine("Starting month: ")
            number = Console.ReadLine()

            If number = "" Then
                startMonth = Convert.ToByte(DateTime.Now.Month)
            Else
                startMonth = Convert.ToByte(number)
            End If

            Console.WriteLine("Starting year: ")
            number = Console.ReadLine()

            If number = "" Then
                startYear = Convert.ToUInt16(DateTime.Now.Year)
            Else
                startYear = Convert.ToUInt16(number)
            End If

            Console.WriteLine("Final day: ")
            number = Console.ReadLine()

            If number = "" Then
                endDay = Convert.ToByte(DateTime.Now.Day)
            Else
                endDay = Convert.ToByte(number)
            End If

            Console.WriteLine("Final month: ")
            number = Console.ReadLine()

            If number = "" Then
                endMonth = Convert.ToByte(DateTime.Now.Month)
            Else
                endMonth = Convert.ToByte(number)
            End If

            Console.WriteLine("Final year: ")
            number = Console.ReadLine()

            If number = "" Then
                endYear = Convert.ToUInt16(DateTime.Now.Year)
            Else
                endYear = Convert.ToUInt16(number)
            End If

            Dim startDate As String = "" & startYear & startMonth.ToString("00") & startDay.ToString("00")
            Dim endDate As String = "" & endYear & endMonth.ToString("00") & endDay.ToString("00")

            For i As Integer = 0 To counter - 1
                Dim currentDate As String = "" & tasks(i).date.year & tasks(i).date.month.ToString("00") & tasks(i).date.day.ToString("00")

                If currentDate.CompareTo(startDate) >= 0 AndAlso currentDate.CompareTo(endDate) <= 0 Then
                    Console.WriteLine("The number is {0}: {1}/{2}/" & "{3} - {4} - {5} - {6}.", i + 1, tasks(i).date.day, tasks(i).date.month, tasks(i).date.year, tasks(i).description, tasks(i).category, tasks(i).level)
                End If
            Next
        Else
            Console.WriteLine("Database empty.")
        End If
    End Sub

    Public Shared Sub Find()
        Dim search As String
        Dim found As Boolean

        If counter >= 1 Then
            Console.Write("Enter the text to search: ")
            search = Console.ReadLine()
            found = False
            Dim newValue5 As String

            For i As Integer = 0 To counter - 1

                If tasks(i).description.IndexOf(search) >= 0 OrElse tasks(i).category.IndexOf(search) >= 0 Then

                    If tasks(i).description.Length > 50 Then
                        newValue5 = tasks(i).description.Substring(0, 50)
                    Else
                        newValue5 = tasks(i).description
                    End If

                    found = True
                    Console.WriteLine("{0}: {1}/{2}/{3} - {4}", i + 1, tasks(i).date.day, tasks(i).date.month, tasks(i).date.year, newValue5)
                End If
            Next

            If Not found Then Console.WriteLine("Not found.")
        Else
            Console.WriteLine("Database empty.")
        End If
    End Sub

    Public Shared Sub Update()
        Dim newValue As String

        If counter >= 1 Then
            Console.Write("Enter the number of the task to update: ")
            Dim update As Integer = Convert.ToInt32(Console.ReadLine()) - 1

            If (update >= 0) AndAlso (update < counter) Then
                Console.Write("Description ({0}): ", tasks(update).description)
                newValue = Console.ReadLine()
                If newValue <> "" Then tasks(update).description = newValue
                Console.WriteLine("Level ({0}): ", tasks(update).level)
                newValue = Console.ReadLine()
                If newValue <> "" Then tasks(update).level = Convert.ToByte(newValue)
                Console.WriteLine("Category ({0}): ", tasks(update).category)
                newValue = Console.ReadLine()
                If newValue <> "" Then tasks(update).category = newValue
                Console.WriteLine("Year ({0}): ", tasks(update).date.year)
                newValue = Console.ReadLine()
                If newValue <> "" Then tasks(update).date.year = Convert.ToUInt16(newValue)
                Console.WriteLine("Month ({0}): ", tasks(update).date.month)
                newValue = Console.ReadLine()
                If newValue <> "" Then tasks(update).date.month = Convert.ToByte(newValue)
                Console.WriteLine("Day ({0}): ", tasks(update).date.day)
                newValue = Console.ReadLine()
                If newValue <> "" Then tasks(update - 1).date.day = Convert.ToByte(newValue)
            Else
                Console.WriteLine("Wrong number entered.")
            End If
        Else
            Console.WriteLine("Database empty.")
        End If
    End Sub

    Public Shared Sub Delete()
        If counter >= 1 Then
            Console.Write("Enter the first number of data to delete: ")
            Dim delete As Integer = Convert.ToInt32(Console.ReadLine()) - 1
            Console.Write("Enter the second number of data to delete: ")
            Dim delete2 As Integer = Convert.ToInt32(Console.ReadLine()) - 1

            For pos As Integer = delete To delete2

                For i As Integer = delete2 To counter - 1
                    tasks(i) = tasks(i + 1)
                Next

                counter -= 1
            Next
        Else
            Console.WriteLine("Database empty.")
        End If
    End Sub

    Public Shared Sub Sort()
        For i As Integer = 0 To counter - 1 - 1
            Dim firstDate As String = "" & tasks(i).date.year & tasks(i).date.month.ToString("00") & tasks(i).date.day.ToString("00") & tasks(i).description

            For j As Integer = i + 1 To counter - 1
                Dim secondDate As String = "" & tasks(j).date.year & tasks(j).date.month.ToString("00") & tasks(j).date.day.ToString("00") & tasks(j).description

                If firstDate.CompareTo(secondDate) > 0 Then
                    Dim aux As TaskType = tasks(i)
                    tasks(i) = tasks(j)
                    tasks(j) = aux
                End If
            Next
        Next
    End Sub

    Public Shared Sub FindDuplicates()
        For i As Integer = 0 To counter - 1 - 1

            For j As Integer = i + 1 To counter - 1

                If tasks(i).description = tasks(j).description Then
                    Console.WriteLine("{0} - {1}/{2}/{3}", tasks(i).description, tasks(i).date.day, tasks(i).date.month, tasks(i).date.year)
                    Console.WriteLine("{0} - {1}/{2}/{3}", tasks(j).description, tasks(j).date.day, tasks(j).date.month, tasks(j).date.year)
                End If
            Next
        Next
    End Sub

    Public Shared Sub Main()
        Dim [option] As Char

        Do
            Console.WriteLine()
            Console.WriteLine("Tasks database")
            Console.WriteLine()
            Console.WriteLine("1- Add a new task.")
            Console.WriteLine("2- Show the tasks between two certain dates.")
            Console.WriteLine("3- Find tasks that contain a certain text.")
            Console.WriteLine("4- Update a record.")
            Console.WriteLine("5- Delete some data, between two positions indicated.")
            Console.WriteLine("6- Sort the data alphabetically by date.")
            Console.WriteLine("7- Find Duplicates.")
            Console.WriteLine("Q- Quit.")
            Console.WriteLine("Enter an option:")
            [option] = Convert.ToChar(Console.ReadLine().ToUpper())

            Select Case [option]
                Case "1"c
                    Add()
                Case "2"c
                    Show()
                Case "3"c
                    Find()
                Case "4"c
                    Update()
                Case "5"c
                    Delete()
                Case "6"c
                    Sort()
                Case "7"c
                    FindDuplicates()
                Case "Q"c
                    Console.WriteLine("Quitting...")
                Case Else
                    Console.WriteLine("You entered a wrong option. Please re-enter it.")
            End Select
        Loop While [option] <> "Q"c
    End Sub
End Class



Juan A. Ripoll - Systems Tutorials and Programming Courses ©  All rights reserved.  Legal Conditions.