Computer Science Canada

Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
Author:  Dllsys32 [ Tue Jan 09, 2007 5:51 pm ]
Post subject:  Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
OK so i'm in Gr.10 and this is my first year of turing and we just got a huge assignment on making a blackjack program. I'm making the flowchart for it right now using the rules of blackjack with the doubledown and stuff but I am really having trouble starting it off.

Some stuff I need help with ;

how many variables will I need? (I'm guessing one for every card plus your current score, one for the dealer's cards and the dealer (when he is allowed to hit and so on), one for when you surrender, doubledown, stand or hit and some other's)
How do I get pictures into the program?
How will I use the randint statement?
How will I get a variable to be represented by a card on screen?

I have so many other questions but I just want to know if someone can help me with these few questions as random as they are. I'm not asking anyone to do my homework or something like that but I really need help.
Author:  Tony [ Tue Jan 09, 2007 6:10 pm ]
Post subject:  RE:Really need help with this blackjack program I\'m trying to make (I\'m a nub ;_;)
You could always add more variables as needed, don't limit yourself to a set number.

Though it will probably make your life much easier to represent the cards involved as elements of an array. This way you can access cards as card[1], card[2], card[x]

For pictures you use the Pic. module

randint assigns a random value to a variable, although it's depressiated and the prefered method is
code:

value := Rand.Int(low,high)


If you know the value of the card, you can then load a picture by the same name and use that on screen.

Otherwise check out the Turing Walkthrough, Tutorials, and continue asking specific questions. You're doing well so far, welcome Smile
Author:  Dllsys32 [ Tue Jan 09, 2007 6:30 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
if answer = "yes" then
put "Let's Begin!"

elsif answer = "no" then
put "hope to play with you soon!"
end if

I read the if elsif and else tutorial over on the tutorial board and I thought that this would work (just started an already an error) and it says "Operands of comparison must be of the same type". What does that mean?

Also thank you for the help I'm going to check out the walkthrough and array tutorial now.
Author:  ericfourfour [ Tue Jan 09, 2007 6:49 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
That means answer is not a string.

One (rhetorical) question, how many times will you be in a situation that needs a "yes" or "no" answer, or a "true" or "false" answer? Many times obviously. Because of this I recommend making a function to deal with this situation. I'll get you started:
Turing:
fcn getChoice (trueChoice, falseChoice : string) : boolean
    %(get input make sure it is valid)
    result %(if the user entered the true choice make it return true, if the user entered the false choice make it return false)
end fcn


When complete, you can use that function like this:

Turing:
f getChoice ("yes", "no") then
put "Let's Begin!"
else
put "hope to play with you soon!"
end if
Author:  Clayton [ Tue Jan 09, 2007 6:52 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
it means that answer is not the same type as your comparison, in this case, answer is not a string, like the comparison is.
Author:  Dllsys32 [ Tue Jan 09, 2007 7:00 pm ]
Post subject:  RE:Really need help with this blackjack program I\'m trying to make (I\'m a nub ;_;)
Thank you ericfourfour and freakman for your help on that problem.

Unfortunately ericfourfour I have no clue what "fcn" is I don't really have that great of a teacher, also we haven't learned arrays yet so I don't think I will use them.

Also I how do you get it to go to a new page (make the same one blank again only this time with 2 cards for you 2 for the computer one facing up other facing down and a put statement)?
Author:  Dllsys32 [ Tue Jan 09, 2007 7:04 pm ]
Post subject:  RE:Really need help with this blackjack program I\'m trying to make (I\'m a nub ;_;)
One last thing (sorry for the double post) if I wanted to use array how would I make it so it would be a random element?
Author:  ericfourfour [ Tue Jan 09, 2007 7:09 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
Blackjack can be made without arrays. It will just be overly difficult to do. I recommend looking up the arrays tutorial. Functions ("fcn" or "function") are also a very important concept and looking into them will greatly benefit you.
Author:  Dllsys32 [ Tue Jan 09, 2007 7:19 pm ]
Post subject:  RE:Really need help with this blackjack program I\'m trying to make (I\'m a nub ;_;)
Well I looked at the tutorials just in case you said that and was hoping you can answer that question (thank you in advance).

(How come you appear offline?)
Author:  ericfourfour [ Tue Jan 09, 2007 10:42 pm ]
Post subject:  Re: RE:Really need help with this blackjack program I\'m trying to make (I\'m a nub ;_;)
Dllsys32 @ Tue Jan 09, 2007 7:04 pm wrote:
One last thing (sorry for the double post) if I wanted to use array how would I make it so it would be a random element?

Do you mean you want to select a random element? If that is the case combine your knowledge of selecting an array's element and getting a random number.
Author:  Piro24 [ Tue Jan 09, 2007 11:44 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
I'm in my first year of Turing as well and I was actually just thinking of making a blackJack game myself. I started but I found it way too hard (or I was lazy - or a mix).

What I thought of for my game was to make a 2d array which held all of the cards and you could choose from randomly.

Ex. 1 - 13 is value of card, 1-4 is suit...

code:
var cards : array 1 .. 13, 1 .. 4 of int
var num, suit : int := 0

for i : 1 .. 13   %1 represents an 'available card'
    for j : 1 .. 4
        cards (i, j) := 1
    end for
end for

randint (num, 1, 13) %randomly picks a card
randint (suit, 1, 4)

if cards (num, suit) = 1 then % if it's available then
    cards (num, suit) := 0 %make it 'unavailable' to draw again
end if


You should make the random card chooser and eliminator a function you can repeat. Since suit has no relavence in Blackjack, you could add another variable (to make things easier to understand) like 'cardValue'. It would be = to your randint (num). 1 being an ace...13 a king.

If you want to draw cards, I thought make you could make a case in a for loop

like
code:
for i : 1 .. 4
    if suit = i then
        case card of
            label 1 :
                Pic.Draw ("Ace" + i + ".JPG")
            label 2 :
                Pic.Draw ("Two" + i + ".JPG")
            end if
    end case
end for


You would just have to name your pictures to like "Two3". Two representing the value, 3 representing the suit. Those are just really basic basic concepts I thought 'might' work...But again I'm new as hell to Turing or programming for that matter, so I doubt this holds much validity...But I gave it a shot.
Author:  Clayton [ Wed Jan 10, 2007 12:21 am ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
Turing:

var cards : array 1 .. 13, 1 .. 4 of int
var num, suit : int := 0

for i : 1 .. 13   %1 represents an 'available card'
    for j : 1 .. 4
        cards (i, j) := 1
    end for
end for

randint (num, 1, 13) %randomly picks a card
randint (suit, 1, 4)

if cards (num, suit) = 1 then % if it's available then
    cards (num, suit) := 0 %make it 'unavailable' to draw again
end if


your 2D array would be better suited to using booleans instead of integers (as you only have two options, available and unavailable)

Turing:

var cards : array 1 .. 13, 1 .. 4 of boolean

for i : 1 .. 13
    for j : 1 .. 4
        cards (i, j) := true
    end for
end for

cards (Rand.Int (1, 13), Rand.Int (1, 4)) := false %card has been picked randomly


or even better, you can make that a record of cards:

Turing:

var cards : array 1 .. 52 of
    record :
        value : int
        suit : int
        picked : boolean
    end record

for i : 1 .. 4
    for j : 1 .. 13
        cards(i * j).value := j
        cards(i * j).suit := i
        cards(i * j).picked := false
    end for
end for

cards(Rand.Int(1, 52)).picked := true


Very Happy
[/syntax]

and work from there
Author:  Dllsys32 [ Wed Jan 10, 2007 8:14 am ]
Post subject:  RE:Really need help with this blackjack program I\'m trying to make (I\'m a nub ;_;)
You guys are amazing thank you for your help! (I have more questions but I am going to school now)
Author:  Piro24 [ Wed Jan 10, 2007 3:16 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
Just out of curiosity, what's the benefit of using boolean anyways?
Author:  ericfourfour [ Wed Jan 10, 2007 4:42 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
A boolean is a variable that is either true or false, 1 or 0. It only occupies 1 bit and is therefore more efficient to use. If you have ever used an if statement, you would have realized that it code only executes if the condition is true.

Try this:
Turing:
if true then
    put "This will appear on the screen."
end if

if false then
    put "Obviously, this will not appear on the screen."
end if


Now apply that knowledge to boolean variables. Since they contain either true or false you can use them in if statements:

Turing:
var somethingChanged : boolean

if somethingChanged then

end if

%Instead of:
if somethingChanged = true then

end if


Boolean variables also increase the readability of your code:

Turing:
fcn collision (object1, object2 : ObjectType) : boolean
    result %collision conditions
end collision

if collision (object1, object2) then

end if


As compared to integers, setting there value based on a condition is a lot easier and shorter as well:

Turing:
var oldSpeed, newSpeed : real
var speedChanged : boolean
...
speedChanged = oldSpeed not= newSpeed

%As compared to:
var oldSpeed, newSpeed : real
var speedChanged : int
...
if oldSpeed not= newSpeed then
    speedChanged := 1
else
    speedChanged := 0
end if


You can look into zylum's tutorial on Bitwise Operators for more information about how this works on a machine level.
Author:  Dllsys32 [ Wed Jan 10, 2007 7:45 pm ]
Post subject:  RE:Really need help with this blackjack program I\'m trying to make (I\'m a nub ;_;)
Alright new problem, how do I import pictures into my program (I need to do that in order to use the array stuff).
Author:  ericfourfour [ Wed Jan 10, 2007 8:00 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
Look up the Pic module in Turing help. Specifically look up Pic.FileNew and Pic.Draw. If you have any trouble with it just ask. Smile
Author:  Dllsys32 [ Wed Jan 10, 2007 8:07 pm ]
Post subject:  RE:Really need help with this blackjack program I\'m trying to make (I\'m a nub ;_;)
I looked it up and it doesn't make any sense at all (Bare with me I haven't learned how to do this yet).

EDIT: Ok it makes sense now, but I have to make four arrays one for each suit right?
Author:  ericfourfour [ Wed Jan 10, 2007 9:07 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
Yes an array of each suit (4X13) will work well.

This is just another way of doing it using enums:
Turing:
type suit : enum (hearts, diamonds, clubs, spades)
type value : enum (ace, one, two, three, four, five, six, seven, eight, nine,
    ten, jack, queen, king)

type card :
    record
        picked : boolean
    end record

type deck : array value, suit of card

fcn fillDeck (picked : boolean) : deck
    var cards : deck

    var currentValue : value := value.ace
    var currentSuit : suit := suit.hearts
    loop
        cards (currentValue, currentSuit).picked := picked

        if currentValue = value.king then

            exit when currentSuit = suit.spades

            currentValue := value.ace
            currentSuit := succ (currentSuit)

        else
            currentValue := succ (currentValue)
        end if
    end loop

    result cards
end fillDeck

var cards : deck

cards := fillDeck (false)
Author:  Dllsys32 [ Wed Jan 10, 2007 10:18 pm ]
Post subject:  RE:Really need help with this blackjack program I\'m trying to make (I\'m a nub ;_;)
Never heard of enums XD
Author:  ericfourfour [ Wed Jan 10, 2007 10:49 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
Don't worry about it, stick to arrays for this one. It should be easier.
Author:  Dllsys32 [ Thu Jan 11, 2007 6:38 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
I have a new problem (finally got back to this) when I try to run the program it says "Too few subscripts of 'card_array'" What does that mean?


Quote:
card_array (1) := Pic.FileNew ("c1.bmp")
card_array (2) := Pic.FileNew ("c2.bmp")
card_array (3) := Pic.FileNew ("c3.bmp")
card_array (4) := Pic.FileNew ("c4.bmp")
card_array (5) := Pic.FileNew ("c5.bmp")
card_array (6) := Pic.FileNew ("c6.bmp")
card_array (7) := Pic.FileNew ("c7.bmp")
card_array (8) := Pic.FileNew ("c8.bmp")
card_array (9) := Pic.FileNew ("c9.bmp")
card_array (10) := Pic.FileNew ("c10.bmp")
card_array (10) := Pic.FileNew ("c11.bmp")
card_array (10) := Pic.FileNew ("c12.bmp")
card_array (10) := Pic.FileNew ("c13.bmp")


Also I understand how to make the rand.int I just don't know why it doesn't show up when I try to run (it doesn't pick a number or even run at all).
Author:  ericfourfour [ Thu Jan 11, 2007 9:20 pm ]
Post subject:  Re: Really need help with this blackjack program I'm trying to make (I'm a nub ;_;)
Look at where you declare the card array. Does it range from 1 - 13?

Two more things.

You assign the a different picture id to the same card 3 times here. That is a quick fix. Smile
Turing:
card_array (10) := Pic.FileNew ("c11.bmp")
card_array (10) := Pic.FileNew ("c12.bmp")
card_array (10) := Pic.FileNew ("c13.bmp")


Also, I'm sure you have noticed, both the index and the card share the same number: card_array (1) := Pic.FileNew ("c1.bmp"). Don't you wish there was a way you could convert an integer to a string so you could assign all of these cards in 3 lines using a for loop? Well there is actually. It is called intstr. I'll give you an example of it being used:
Turing:
for i : 1 .. 10
    put "This is number " + intstr (i) + "."
end for

instr converts an integer to a string so you can use it in calculations that require strings.

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy