Household accounts Learn programming Visual Basic (


Arrays, Structures and Strings


Household accounts 46


Create a program in Visual Basic ( that can store up to 10000 costs and revenues, to create a small domestic accounting system. For each expense (or income), should be allowed to save the following information:

• Date (8 characters: YYYYMMDD format)
• Description of expenditure or revenue
• Category
• Amount (if positive income, negative if an expense)

The program should allow the user to perform the following operations:

1 - Add a new expense (the date should "look right": day 01 to 31 months from 01 to 12 years between 1000 and 3000). The description must not be empty. Needless to validate the other data.

2 - Show all expenses of a certain category (eg, "studies") between two certain dates (eg between "20110101" and "20111231"). Number is displayed, date (format DD / MM / YYYY), description, category in parentheses, and amount to two decimal places, all in the same line, separated by hyphens. At the end of all data show the total amount of data displayed.

3 - Search costs containing a certain text (in the description or category without distinguishing case sensitive). Number is displayed, the date and description (the description is displayed in the sixth truncated blank, if any spaces six or more).

4 - Modify a tab (tab number prompt the user, it will show the previous value of each field and press Enter to not be able to modify any of the data). Should be advised (but not re-order) if the user enters a wrong card number. Needless to validate any data.

5 - Delete some data, from the number that you enter. Should be advised (but not re-order) if you enter an incorrect number. It should show the card to be clear and prompt prior to deletion.

6 - Sort data alphabetically, by date and (if matched) description.

7 - Normalize descriptions: remove trailing spaces, spaces and mirror sites. If a description is all uppercase, will be converted to lowercase (except for the first letter, kept in uppercase).

T-End the use of the application (as we store the information, the data will be lost).


Imports System
Public Class exercise96
    Structure accountData
        Public date As String
        Public description As String
        Public category As String
        Public amount As Double
    End Structure

    Public Shared Sub Main()
        Dim capacity As Integer = 10000
        Dim data As accountData() = New accountData(capacity - 1) {}
        Dim repeat As Boolean = True
        Dim [option] As String
        Dim amountOfData As Integer = 0

            Console.WriteLine("Household accounts")
            Console.WriteLine("1.- Add data.")
            Console.WriteLine("2.- View all data.")
            Console.WriteLine("3.- Search data.")
            Console.WriteLine("4.- Modify data.")
            Console.WriteLine("5.- Delete data.")
            Console.WriteLine("6.- Sort alphabetically")
            Console.WriteLine("7.- Fix spaces")
            Console.Write("Option: ")
            [option] = Console.ReadLine()

            Select Case [option]
                Case "1"

                    If amountOfData > capacity - 1 Then
                        Console.WriteLine("Database full!")

                            Console.Write("Enter date (YYYYMMDD): ")
                            data(amountOfData).date = Console.ReadLine()
                        Loop While data(amountOfData).date.Length = 0

                            Console.Write("Enter Description: ")
                            data(amountOfData).description = Console.ReadLine()
                            If data(amountOfData).description.Length = 0 Then Console.Write("Cannot be empty")
                        Loop While data(amountOfData).description.Length = 0

                        Console.Write("Enter category: ")
                        data(amountOfData).category = Console.ReadLine()
                        Console.Write("Enter the amount: ")
                        data(amountOfData).amount = Convert.ToDouble(Console.ReadLine())
                        amountOfData += 1
                    End If

                Case "2"

                    If amountOfData = 0 Then
                        Console.WriteLine("No data!")
                        Console.Write("Enter the category: ")
                        Dim categ As String = Console.ReadLine()
                        Console.Write("Enter the start date (YYYYMMDD): ")
                        Dim startDate As String = Console.ReadLine()
                        Console.Write("Enter the end date (YYYYMMDD): ")
                        Dim endDate As String = Console.ReadLine()

                        For i As Integer = 0 To amountOfData - 1

                            If (data(i).category = categ) AndAlso (data(i).date.CompareTo(startDate) >= 0) AndAlso (data(i).date.CompareTo(endDate) <= 0) Then
                                Console.WriteLine("{0} - {1}/{2}/{3} - {4} -({5}) - {6}", i + 1, data(i).date.Substring(6, 2), data(i).date.Substring(4, 2), data(i).date.Substring(0, 4), data(i).description, data(i).category, data(i).amount.ToString("N2"))
                            End If
                    End If

                Case "3"
                    Console.Write("Enter part of the description or category: ")
                    Dim search As String = Console.ReadLine().ToUpper()
                    Dim found As Boolean = False

                    For i As Integer = 0 To amountOfData - 1

                        If data(i).description.ToUpper().Contains(search) OrElse data(i).category.ToUpper().Contains(search) Then
                            Console.WriteLine("{0}: {1} - {2}", i + 1, data(i).date, data(i).description)
                            found = True
                        End If

                    If Not found Then Console.WriteLine("Not found!")
                Case "4"
                    Console.Write("Enter the record number: ")
                    Dim recNumber As Integer = Convert.ToInt32(Console.ReadLine()) - 1

                    If (recNumber > amountOfData) OrElse (recNumber < 0) Then
                        Console.Write("Out of range!")
                        Console.Write("Date (was {0}; hit ENTER to leave as is): ", data(recNumber).date)
                        Dim newText As String = Console.ReadLine()
                        If newText <> "" Then data(recNumber).date = newText
                        Console.Write("Description (was {0}; hit ENTER to leave as is): ", data(recNumber).description)
                        newText = Console.ReadLine()
                        If newText <> "" Then data(recNumber).description = newText
                        Console.Write("Category (was {0}; hit ENTER to leave as is): ", data(recNumber).category)
                        newText = Console.ReadLine()
                        If newText <> "" Then data(recNumber).category = newText
                        Console.Write("Amount (was {0}; hit ENTER to leave as is): ", data(recNumber).amount)
                        newText = Console.ReadLine()
                        If newText <> "" Then data(recNumber).amount = Convert.ToDouble(newText)
                    End If

                Case "5"
                    Dim position As Integer = 0
                    Console.Write("Enter the position number to delete: ")
                    position = Convert.ToInt32(Console.ReadLine()) - 1

                    If position > amountOfData Then
                        Console.WriteLine("Error: out of range")

                        For i As Integer = position To amountOfData - 1
                            data(i) = data(i + 1)

                        amountOfData -= 1
                    End If

                Case "6"
                    Dim aux As accountData

                    For i As Integer = 0 To amountOfData - 1 - 1

                        For j As Integer = i + 1 To amountOfData - 1
                            Dim data1 As String = data(i).date & data(i).description
                            Dim data2 As String = data(j).date & data(j).description

                            If data1.CompareTo(data2) > 0 Then
                                aux = data(i)
                                data(i) = data(j)
                                data(j) = aux
                            End If

                Case "7"

                    For i As Integer = 0 To amountOfData - 1
                        data(i).description = data(i).description.Trim()

                        While data(i).description.Contains("  ")
                            data(i).description = data(i).description.Replace("  ", " ")
                        End While

                        If data(i).description = data(i).description.ToUpper() Then data(i).description = data(i).description.Substring(0, 1).ToUpper() & data(i).description.Substring(1).ToLower()

                Case "T", "t", "Q", "q"
                    repeat = False
                Case Else
                    Console.WriteLine("Wrong option!")
            End Select
        Loop While repeat <> False

    End Sub
End Class