Lesson 37: Console Applications Part 1

Module Module1
    Sub Main()
        ' Display a welcome message
        Console.WriteLine("=== Welcome to VB2022 Console ===")
        Console.WriteLine()
        
        ' Get user input
        Console.Write("Please enter your name: ")
        Dim userName As String = Console.ReadLine()
        
        ' Display personalized message
        Console.WriteLine($"Hello, {userName}! Welcome to console programming.")
        Console.WriteLine()
        
        ' Wait for key press before exiting
        Console.WriteLine("Press any key to exit...")
        Console.ReadKey(True)
    End Sub
End Module

Module Calculator
    Sub Main()
        Console.WriteLine("===== SIMPLE CALCULATOR =====")
        Console.WriteLine()
        
        ' Get first number
        Console.Write("Enter first number: ")
        Dim num1 As Double = Console.ReadLine()
        
        ' Get second number
        Console.Write("Enter second number: ")
        Dim num2 As Double = Console.ReadLine()
        
        ' Perform calculations
        Console.WriteLine()
        Console.WriteLine("RESULTS:")
        Console.WriteLine($"{num1} + {num2} = {num1 + num2}")
        Console.WriteLine($"{num1} - {num2} = {num1 - num2}")
        Console.WriteLine($"{num1} * {num2} = {num1 * num2}")
        
        ' Check for division by zero
        If num2 <> 0 Then
            Console.WriteLine($"{num1} / {num2} = {num1 / num2}")
        Else
            Console.WriteLine("Cannot divide by zero!")
        End If
        
        Console.WriteLine()
        Console.WriteLine("Press Enter to exit...")
        Console.ReadLine()
    End Sub
End Module

Module GuessingGame
    Sub Main()
        ' Initialize random number generator
        Dim rand As New Random()
        Dim secretNumber As Integer = rand.Next(1, 101)
        Dim guess As Integer
        Dim attempts As Integer = 0
        
        Console.WriteLine("=== NUMBER GUESSING GAME ===")
        Console.WriteLine("I'm thinking of a number between 1 and 100.")
        Console.WriteLine()
        
        ' Game loop
        Do
            Console.Write("Enter your guess: ")
            
            ' Validate input
            If Not Integer.TryParse(Console.ReadLine(), guess) Then
                Console.WriteLine("Please enter a valid number!")
                Continue Do
            End If
            
            attempts += 1
            
            ' Check guess
            If guess < secretNumber Then
                Console.WriteLine("Too low! Try again.")
            ElseIf guess > secretNumber Then
                Console.WriteLine("Too high! Try again.")
            Else
                Console.WriteLine()
                Console.WriteLine($"Correct! You guessed it in {attempts} attempts.")
            End If
        Loop Until guess = secretNumber
        
        Console.WriteLine("Thanks for playing!")
        Console.ReadLine()
    End Sub
End Module

Imports System.IO

Module FileProcessor
    Sub Main()
        Console.WriteLine("=== FILE PROCESSING DEMO ===")
        Console.WriteLine()
        
        ' Create a new file
        Dim filePath As String = "sample.txt"
        
        Console.WriteLine("Writing to file...")
        File.WriteAllText(filePath, "Hello, VB2022 Console!" & Environment.NewLine)
        File.AppendAllText(filePath, "This is a second line." & Environment.NewLine)
        
        Console.WriteLine("File created successfully.")
        Console.WriteLine()
        
        ' Read and display file content
        Console.WriteLine("Reading file content:")
        Console.WriteLine("----------------------")
        
        Dim fileContent As String = File.ReadAllText(filePath)
        Console.WriteLine(fileContent)
        
        Console.WriteLine()
        Console.WriteLine("Press Enter to exit...")
        Console.ReadLine()
    End Sub
End Module