Post: *BlackJack Program*
Options
10-05-2010, 04:37 PM
#1
sMoKiNyOo
Banned
Not totally sure if its in the right section but if its not please, mod move it where its supposed to be.. Anyways i wanted to post something, it simulates the game of blackjack, not too graphical, but its an interactive game. It was coded with MS-DOS QBASIC, Was my first program to ever code, now im coding my own patches, so its just to show that programming isnt too hard, if your a techy person then you can do it. heres the code, its a .BAS file so if you want to play it then just load the code into any program that supports .BAS, im pretty sure that the only program that supports it is MS-DOS QBASICbut I could be wrong.
Hope you all like it!
If you do try it out, send me your feedback by posting a comment, really appreciated!
-Jesse
REM BlackJack v1.0
REM Author: Jesse Huntress
REM **********
CLS
RANDOMIZE TIMER
REM Dealing User Cards
CARD1 = INT(RND * (13 - 1 + 1)) + 1
IF CARD1 > 10 THEN
CARD1 = 10
END IF
CARD2 = INT(RND * (13 - 1 + 1)) + 1
IF CARD2 > 10 THEN
CARD2 = 10
END IF
COLOR 5
LOCATE 1, 22
PRINT "Your first two cards are"; CARD1; "and"; CARD2
IF CARD1 = 1 THEN
LOCATE 3, 19
INPUT "Do you want this card to be a 1 or 11:"; A
CARD1 = A
END IF
IF CARD2 = 1 THEN
LOCATE 3, 19
INPUT "Do you want this card to be a 1 or 11:"; B
CARD2 = B
END IF
LET TOTAL = CARD1 + CARD2
COLOR 5
LOCATE 2, 24
PRINT "The total of your cards is"; TOTAL
LOCATE 4, 1
COLOR 7
PRINT "--------------------------------------------------------------------------------"
REM Dealing Additional Card
LOCATE 5, 25
COLOR 5
INPUT "Would you like another card"; AC1$
IF AC1$ = "yes" THEN
CARD3 = INT(RND * (13 - 1 + 1)) + 1
COLOR 4
LOCATE 6, 25
PRINT "The card you recieved is a"; CARD3
END IF
IF AC1$ = "Yes" THEN
CARD3 = INT(RND * (13 - 1 + 1)) + 1
COLOR 4
LOCATE 6, 25
PRINT "The card you recieved is a"; CARD3
END IF
REM Dealing Additional Card
LOCATE 7, 25
COLOR 5
INPUT "Would you like another card"; AC2$
IF AC2$ = "Yes" THEN
CARD4 = INT(RND * (13 - 1 + 1)) + 1
COLOR 4
LOCATE 8, 25
PRINT "The card you recieved is a"; CARD4
END IF
IF AC2$ = "yes" THEN
CARD4 = INT(RND * (13 - 1 + 1)) + 1
COLOR 4
LOCATE 8, 25
PRINT "The card you recieved is a"; CARD4
END IF
REM Dealing Additional Card
LOCATE 9, 25
COLOR 5
INPUT "Would you like another card"; AC3$
IF AC3$ = "Yes" THEN
CARD5 = INT(RND * (13 - 1 + 1)) + 1
COLOR 4
LOCATE 10, 25
PRINT "The card you recieved is a"; CARD5
END IF
IF AC3$ = "yes" THEN
CARD5 = INT(RND * (13 - 1 + 1)) + 1
COLOR 4
LOCATE 10, 25
PRINT "The card you recieved is a"; CARD5
END IF
REM Totaling User Cards
LOCATE 11, 22
LET UGTOTAL = CARD1 + CARD2 + CARD3 + CARD4 + CARD5
COLOR 4
PRINT "The grand total of your cards is"; UGTOTAL
COLOR 7
PRINT "--------------------------------------------------------------------------------"
REM Dealing Computers Cards
CPUCARD1 = INT(RND * (13 - 1 + 1)) + 1
IF CPUCARD1 > 10 THEN
CPUCARD1 = 10
END IF
CPUCARD2 = INT(RND * (13 - 1 + 1)) + 1
IF CPUCARD2 > 10 THEN
CPUCARD2 = 10
END IF
LOCATE 13, 19
COLOR 5
PRINT "The computers first two cards are"; CPUCARD1; "and"; CPUCARD2
LET TOTAL = CPUCARD1 + CPUCARD2
LOCATE 14, 20
PRINT "The total of the computers cards is"; TOTAL
IF CPUCARD1 = 1 THEN
LET GTOTAL = TOTAL + 10
IF GTOTAL > 21 THEN
LET CGTOTAL = TOTAL
ELSE
LET CGTOTAL = GTOTAL
END IF
ELSE
CGTOTAL = TOTAL
END IF
IF CGTOTAL < UGTOTAL THEN
CPUCARD3 = INT(RND * (13 - 1 + 1)) + 1
END IF
IF CPUCARD3 > 10 THEN
CPUCARD3 = 10
LOCATE 16, 27
PRINT "The computer was dealt a"; CPUCARD3
CGTOTAL = CGTOTAL + CPUCARD3
END IF
IF CGTOTAL < UGTOTAL THEN
CPUCARD4 = INT(RND * (13 - 1 + 1)) + 1
END IF
IF CPUCARD4 > 10 THEN
CPUCARD4 = 10
END IF
IF CGTOTAL < UGTOTAL THEN
LOCATE 18, 27
PRINT "The computer was dealt a"; CPUCARD4
CGTOTAL = CGTOTAL + CPUCARD4
END IF
IF CGTOTAL < UGTOTAL THEN
CPUCARD5 = INT(RND * (13 - 1 + 1)) + 1
END IF
IF CGTOTAL < UGTOTAL THEN
LOCATE 20, 27
PRINT "The computer was dealt a"; CPUCARD5
CGTOTAL = CGTOTAL + CPUCARD5
END IF
COLOR 4
LOCATE 22, 18
PRINT "The grand total of the computers cards is"; CGTOTAL
REM Comparing / Printing Scores
LOCATE 23, 1
COLOR 7
PRINT "********************************************************************************"
IF CGTOTAL > UGTOTAL AND CGTOTAL <= 21 THEN
COLOR 6
LOCATE 24, 23
PRINT "Computer Closer to 21. You Lose. ):"
END IF
IF UGTOTAL > CGTOTAL AND UGTOTAL <= 21 THEN
COLOR 3
LOCATE 24, 28
PRINT "Closer To 21. You Win! 
"
END IF
IF CGTOTAL > 21 AND UGTOTAL < 21 THEN
COLOR 3
LOCATE 24, 26
PRINT "Computer over 21. You Win! "
END IF
IF UGTOTAL > 21 AND CGTOTAL < 21 THEN
COLOR 6
LOCATE 24, 31
PRINT "Over 21. You Lose ):"
END IF
IF UGTOTAL = CGTOTAL THEN
COLOR 14
LOCATE 24, 34
PRINT "It Was A Draw!"
END IF
IF UGTOTAL > 21 AND UGTOTAL < CGTOTAL THEN
COLOR 3
LOCATE 24, 28
PRINT "Closer To 21. You Win! "
END IF
IF CGTOTAL > 21 AND CGTOTAL < UGTOTAL THEN
COLOR 6
LOCATE 24, 23
PRINT "Computer Closer To 21. You Lose. ):"
END IF
LOCATE 23, 34
COLOR 7
PRINT "********************************************************************************"
Copyright © 2026, NextGenUpdate.
All Rights Reserved.
