Imports System

​

Module Program

    Sub main()

​

        Dim bank As Double

        Dim stake As Double

        Dim prediction As Integer

        Dim actual As Integer

        Dim choice As Char

        Dim continuePlaying As Boolean

​

        bank = 10

​

        While bank > 0 Or continuePlaying = False

​

            casino()

​

            Console.WriteLine("You have £" & bank & " in the bank")

            Console.WriteLine("How much do you want to bet?")

            nerd()

            stake = Console.ReadLine()

            If stake > bank Then

                stake = bank

            End If

​

            casino()

            Console.WriteLine()

            Console.WriteLine("What number will be rolled? (1-6)")

            nerd()

            prediction = Console.ReadLine()

​

            casino()

​

            actual = diceRoll()

            Console.WriteLine()

            Console.WriteLine("You rolled a " & actual)

​

            If actual = prediction Then

                bank = bank + stake * 6

                Console.WriteLine()

                Console.WriteLine("You have won £" & (stake * 6))

            Else

                bank = bank - stake

                If bank = 0 Then

                    Console.WriteLine("You have lost all of your money.")

                Else

                    Console.WriteLine("You have lost £" & stake)

                End If

            End If

​

            casino()

​

            If bank > 0 Then

                Console.WriteLine("Do you want to quit? (y/n)")

                nerd()

                choice = Console.ReadLine()

​

                If choice = "y" Then

                    continuePlaying = False

                Else

                    continuePlaying = True

                End If

​

                Console.Clear()

            End If

​

        End While

​

        Console.ForegroundColor = ConsoleColor.DarkYellow

        Console.BackgroundColor = ConsoleColor.Black

        Console.WriteLine()

        Console.WriteLine("Game over!")

        Console.ForegroundColor = ConsoleColor.Black

​

    End Sub

    Function diceRoll()

​

        Dim r As New Random

        Dim result As Integer

​

        result = r.Next(1, 7)

​

        Return result

​

    End Function

    Sub casino()

        Console.ForegroundColor = ConsoleColor.White

        Console.BackgroundColor = ConsoleColor.DarkRed

    End Sub

    Sub nerd()

        Console.ForegroundColor = ConsoleColor.DarkBlue

        Console.BackgroundColor = ConsoleColor.White

    End Sub

​

End Module