'Challenge 25 Blackjack

'Jun Jia Liu

'22/09/2021

​

Imports System

Public Module MainModule

    'Variables - SETUP

    Dim random As New Random()

    Dim Money As Decimal = 500

    Dim betMoney As Decimal

​

    Dim userNumberInput As Decimal

    Dim userCharacterInput As Char

​

    Dim userCard1 As Integer

    Dim userCard2 As Integer

    Dim userCard3 As Integer

    Dim userCard4 As Integer

    Dim userCard5 As Integer

    Dim dealerCard1 As Integer

    Dim dealerCard2 As Integer

    Dim dealerCard3 As Integer

    Dim dealerCard4 As Integer

    Dim dealerCard5 As Integer

​

    'Variables - INITIALISATION

    Public Sub Main()

        '-----------------

        Console.WriteLine("You have: £" & Money & " remaining.")

        Console.WriteLine("How much money would you like to bet? Must be a value no higher than your balance!")

        userNumberInput = Console.ReadLine()

        If userNumberInput > Money Then

            Console.WriteLine("You do not have enough money!")

        Else If (userNumberInput <= Money) Then

                betMoney = userNumberInput

                Money -= userNumberInput

                Console.WriteLine("Your balance is now: £" & Money & "!")

        End If      

            startupGame()

        '-----------------

        Console.ReadLine()

    End Sub

        Public Sub startupGame()

            Console.WriteLine("Handing out cards...")

            userCard1 = generateCard(5,10)

            dealerCard1 = generateCard(5,10)

            userCard2 = generateCard(1,10)

            dealerCard2 = generateCard(1,10)

            Console.WriteLine("User cards: " & userCard1 & ", " & userCard2)

            Console.WriteLine("Dealer cards: " & dealerCard1 & ", " & dealerCard2)

            Console.WriteLine("Hit or Stand? Please enter H/S!")

            userCharacterInput = Console.ReadLine()

            userCard3 = getInputChoice(userCharacterInput)

            dealerCard3 = generateCard(1,10)

            Console.WriteLine("User cards: " & userCard1 & ", " & userCard2 & ", " & userCard3)

            Console.WriteLine("Dealer cards: " & dealerCard1 & ", " & dealerCard2 & ", " & dealerCard3)

            If userCard1 + userCard2 + userCard3 > 21 and dealerCard1 + dealerCard2 + dealerCard3 <= 21 Then

                Console.WriteLine("Bust!")

                startupGame()

            Else If userCard1 + userCard2 + userCard3 <= 21 and dealerCard1 + dealerCard2 + dealerCard3 > 21 Then

                Console.WriteLine("Win!")

                startupGame()

            Else If userCard1 + userCard2 + userCard3 >= 21 and dealerCard1 + dealerCard2 + dealerCard3 >= 21 Then

                Console.WriteLine("Refund!")

                startupGame()

            End If

            Console.WriteLine("Hit or Stand? Please enter H/S!")

            userCharacterInput = Console.ReadLine()

            userCard4 = getInputChoice(userCharacterInput)

            dealerCard4 = generateCard(1,10)

            Console.WriteLine("User cards: " & userCard1 & ", " & userCard2 & ", " & userCard3 & ", " & userCard4)

            Console.WriteLine("Dealer cards: " & dealerCard1 & ", " & dealerCard2 & ", " & dealerCard3 & ", " & dealerCard4)

            If userCard1 + userCard2 + userCard3 + userCard4 > 21 and dealerCard1 + dealerCard2 + dealerCard3 + dealerCard4 <= 21 Then

                Console.WriteLine("Bust!")

                startupGame()

            Else If userCard1 + userCard2 + userCard3 + userCard4 <= 21 and dealerCard1 + dealerCard2 + dealerCard3 + dealerCard4 > 21 Then

                Console.WriteLine("Win!")

                startupGame()

            Else If userCard1 + userCard2 + userCard3 + userCard4 >= 21 and dealerCard1 + dealerCard2 + dealerCard3 + dealerCard4 >= 21 Then

                Console.WriteLine("Refund!")

                startupGame()

            End If

        End Sub

        Public Function generateCard(min,max)

            'Returns a random card between the minimum and maximum value!

            Dim minRange As Integer = min

            Dim maxRange As integer = max

            Dim Generator As System.Random = New System.Random()

            Microsoft.VisualBasic.VBMath.Randomize()

            Return random.Next(minRange,maxRange)

        End Function

    Public Function getInputChoice(key)

        If key = "H" Then

            Return generateCard(1,10)

        Else If key = "S" Then

            Return 0

        End If

    End Function

End Module