QCC Casino Royale offers its customers 2 ways to go home with big bucks playing its
“Guess The Number” and “Dice” games.

The Guess The Number game is played by asking customer to guess a number between 1 and 10. If customers correctly guess the number they win and the odds are 10 to 1 so that if customers bet 1 dollar and win, they receive 11 dollars.

The Dice game is played by asking customers to roll a pair of dice. If customers roll a seven or 11, they win; any other roll and the customer loses. The odds of rolling a seven is 6 to 1 so that if customers bet 1 dollar and win, they receive 7 dollars. The odds of rolling an eleven are 18 to 1 so that if customers bet 1 dollar and win, they receive nineteen dollars.

Upon entering the casino, customers must be greeted with an appropriate welcoming message. They must be asked to indicate which game they want to play and the amount of money that is in their bankroll to play. Customers cannot enter the casino with a bankroll greater than $1,000. Customers must play the games in rounds of 10 plays and the minimum bet for each play is 5 dollars; the maximum bet is 50 dollars.

For each try at either guessing a number, or rolling the dice, customers must be asked how much they want to bet and for each try must be informed of the result and the changes to their bankroll.

At the end of each round, customers must be informed of the amount in their bankroll and whether they want to continue playing or switch to another game or leave the casino.

If customers lose all their money during the course of playing a round, they must be informed that they are busted and be told to leave the casino and go home.

When customers are leaving the casino, they must be informed of how many rounds of “Guess The Number” was played and how much money was lost or won. The same must be done for the Dice game.

Upon leaving the casino, customers must also be given a departing message and the message should be appropriate based on their winnings or losses.

Solution PreviewSolution Preview

These solutions may offer step-by-step problem-solving explanations or good writing examples that include modern styles of formatting and construction of bibliographies out of text citations and references. Students may use these solutions for personal skill-building and practice. Unethical use is strictly forbidden.

Public Class FrmCasinoMain
    Private Sub FrmCasinoMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' Welcome message
       MessageBox.Show("Welcome to Casino! Enjoy your stay.", "Ope's Casino: Welcome Message")
       Integer.TryParse(InputBox("Please enter the amount of money in your bank roll?", "Ope's Casino: Bank Roll Entry"), dblBankRoll)
       While dblBankRoll > 1000
            Integer.TryParse(InputBox("Error: The bank roll amount entered was greater than 1000. \nPlease enter the amount of money in your bank roll?", "Ope's Casino: Welcome Message"), dblBankRoll)
       End While
       lblBankRollN.Text = Convert.ToString(dblBankRoll)
       lblRuningTotalN.Text = Convert.ToString(dblRunningTotal)
    End Sub

    Private Sub BtnGuessNo_Click(sender As Object, e As EventArgs) Handles BtnGuessNo.Click

    End Sub

    Private Sub BtnRollDice_Click(sender As Object, e As EventArgs) Handles BtnRollDice.Click

    End Sub

    Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click
       ' Exit Button Event Procedure
       ' Request the user if they want to leave the casino
       If MsgBox("Do you want to leave?", MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2, "Ope's Casino: Leaving Casino") = Windows.Forms.DialogResult.Yes Then...

By purchasing this solution you'll be able to access the following files:

for this solution

or FREE if you
register a new account!

PayPal, G Pay, ApplePay, Amazon Pay, and all major credit cards accepted.

Find A Tutor

View available Visual Basic Programming Tutors

Get College Homework Help.

Are you sure you don't want to upload any files?

Fast tutor response requires as much info as possible.

Upload a file
Continue without uploading

We couldn't find that subject.
Please select the best match from the list below.

We'll send you an email right away. If it's not in your inbox, check your spam folder.

  • 1
  • 2
  • 3
Live Chats