Older Version
Newer Version
Alyce
Jul 9, 2011
=QCard DLL Lesson 5= <span style="text-align: right; display: block; color: 0;">[[QCard04|Lesson 4]] [[QCard06|Lesson 6]]</span> ---- [[user:Alyce]] [[toc|flat]] ---- See [[QCard01|Lesson 1]] for QCard DLL and WAV files needed for the demo code. =Getting Card Info= In earlier lessons, we discussed dealing the cards, showing their fronts or their backs, and changing the card back design. To create a playable game, we must ascertain the suit and value of a card selected by the user. In Lesson 4, we discovered the card that was clicked by the user and found its index in our card array. With that index, we can find out more about the card. =Suit?= Remember, we have filled an array called card() with a set of shuffled cards. When we know which card from the array was selected by the user, we check the value of that card and place it into a variable called clickCard . See Lesson 4 to refresh your memory on this. There is a function in the Qcard DLL to get the suit of a card, called GetCardSuit() It requires the index number of the card, and returns the suit as a number. A return of 1 means the card is a club, 2 means it is a diamond, 3 means it is a heart and 4 means that it is a spade. [[code format="lb"]] calldll #qc, "GetCardSuit",_ nIndex as long,_ 'index of card to query suit as long 'returns 1=Clubs, 2=Diamonds, 3=Hearts, 4=Spades. [[code]] Here is the API call, wrapped in a Liberty BASIC function: [[code format="lb"]] Function GetCardSuit(nC) 'returns 1=Clubs, 2=Diamonds, 3=Hearts, 4=Spades. calldll #qc, "GetCardSuit",nC as long,_ GetCardSuit as long End Function [[code]] =Value?= In a very similar way, we can get the value of the card. The function from the DLL is GetCardValue . The first argument is the index of the card to query. The function returns the value of the card, where an ace is 1, a deuce is 2, and so on, up to 11 for jack, 12 for queen, and 13 for king. [[code format="lb"]] calldll #qc, "GetCardValue",_ nIndex as long,_ 'index of card to query value as long 'ace=1,deuce=2....jack=11,queen=12,king=13 [[code]] Here is the API call, wrapped in a Liberty BASIC function: [[code format="lb"]] Function GetCardValue(nC) 'ace=1,deuce=2....jack=11,queen=12,king=13 calldll #qc, "GetCardValue",nC as long,_ GetCardValue as long End Function [[code]] =Color?= We don't need to know the color of a card in our demo, but there is a function for this in the Qcard DLL. The first argument is the index of the card, and it returns the color. A return of 1 means the card is black, while 2 means that it is red. [[code format="lb"]] calldll #qc, "GetCardColor",_ nIndex as long,_ 'index of card to query color as long '1=black, 2=red [[code]] =Status?= In our demo we've used the function SetCardStatus to cause either the back or the front of a card to be displayed. There is also a function to GetCardStatus in the DLL. The first argument is the index of the card to query, and the return is the card's status. A status of 1 means that the card is face up, while 0 means that it is face down. [[code format="lb"]] calldll #qc, "GetCardStatus",_ nIndex as long,_ 'index of card to query status as long '1=face up, 0=face down [[code]] =DEMO= See [[QCard01|Lesson 1]] for QCard DLL and WAV files needed for the demo code. The demo program that accompanies this lesson allows the user to click on one of the cards, and the program ascertains the suit and value of the card. It then gives the user a message stating which suit and value were chosen. [[image:cardgame3.jpg]] [[code format="lb"]]'coming soon'An open project card game, begun by Alyce Watson, May 27, 2003. 'Uses Qcard32.dll, a freeware library of playing card images. 'DLL by Stephen Murphy. Qcard32.DLL website: 'http://www.telusplanet.net/public/stevem/ 'new in cards5.bas: 'This demo determines the suits and values of cards clicked, 'and displays a message about them. [varSetup] i=0 'i will be our counter var in for/next loops design=1 'default design is circles dim card(24)'array to hold cards newIndex=0 'used when shuffling tempCard=0 'temp var used when shuffling clickCard=0 'index of current card clicked by user gosub [fillCardArray] 'fill array with card values nomainwin WindowWidth=640:WindowHeight=480 UpperLeftX=1:UpperLeftY=1 menu #1, "&File", "&New",[new],"E&xit", [quit] menu #1, "&Card Back Design","&Circles",[circles],"&Blue",[blue],_ "&Red",[red],"&Mountain",[mountain],"&Purple",[purple],"M&usic",[music] graphicbox #1.g, 0, 0, 640, 440 open "Memory Card Game" for window_nf as #1 #1 "trapclose [quit]" 'trap mouse clicks: #1.g "setfocus; when leftButtonUp [checkIndex]" 'get graphicbox handle hBox=hwnd(#1.g) 'open the dll open "qcard32.dll" for dll as #qc 'initialize the deck Call InitializeDeck hBox [new] Call SetDefaultValues Call SetCurrentBack design 'draw a nice background #1.g "down; fill 10 190 225" #1.g "backcolor 10 190 225" 'temp message for this demo only #1.g "place 10 420" #1.g "\Try Menu File -> New Game to shuffle deck." gosub [shuffleCards] 'set xy location to start deal x=10:y=2 for i = 1 to 24 'set status of all cards to 0, which is face down Call SetCardStatus card(i), 0 'deal cards Call DealCard hBox,card(i),x,y x=x+100 if x>510 then 'move to next row x=10 y=y+100 end if playwave "card.wav",sync 'pause 100 milliseconds between cards call Pause 100 scan next wait [checkIndex] clickCard=0:x=0:y=0 'reset values mx=MouseX : my=MouseY 'mouse x and y location 'Cards are placed in a grid that is 100x100, 'so it is easy to determine which card is clicked 'by checking mouse position. Card height is about '100, and width is about 80. 'Index of clicked card is placed in var called clickCard 'and x,y locations are placed in vars called x and y. 'MouseY determines row, and MouseX determines column. select case case my<=102 'first row y=2 if mx<=90 then clickCard=1:x=10 if (mx>=110) and (mx<=190) then clickCard=2:x=110 if (mx>=210) and (mx<=290) then clickCard=3:x=210 if (mx>=310) and (mx<=390) then clickCard=4:x=310 if (mx>=410) and (mx<=490) then clickCard=5:x=410 if (mx>=510) and (mx<=590) then clickCard=6:x=510 case (my>=102) and (my<202) 'second row y=102 if mx<=90 then clickCard=7:x=10 if (mx>=110) and (mx<=190) then clickCard=8:x=110 if (mx>=210) and (mx<=290) then clickCard=9:x=210 if (mx>=310) and (mx<=390) then clickCard=10:x=310 if (mx>=410) and (mx<=490) then clickCard=11:x=410 if (mx>=510) and (mx<=590) then clickCard=12:x=510 case (my>=202) and (my<302) 'third row y=202 if mx<=90 then clickCard=13:x=10 if (mx>=110) and (mx<=190) then clickCard=14:x=110 if (mx>=210) and (mx<=290) then clickCard=15:x=210 if (mx>=310) and (mx<=390) then clickCard=16:x=310 if (mx>=410) and (mx<=490) then clickCard=17:x=410 if (mx>=510) and (mx<=590) then clickCard=18:x=510 case (my>=302) and (my<402) 'fourth row y=302 if mx<=90 then clickCard=19:x=10 if (mx>=110) and (mx<=190) then clickCard=20:x=110 if (mx>=210) and (mx<=290) then clickCard=21:x=210 if (mx>=310) and (mx<=390) then clickCard=22:x=310 if (mx>=410) and (mx<=490) then clickCard=23:x=410 if (mx>=510) and (mx<=590) then clickCard=24:x=510 case else clickCard=0 end select if clickCard=0 then wait 'turn card so that it is face up Call SetCardStatus card(clickCard), 1 'deal card again so that it displays face up Call DealCard hBox, card(clickCard), x, y gosub [readValue] wait [readValue] thisVal = GetCardValue(card(clickCard)) 'ace=1,deuce=2....jack=11,queen=12,king=13 value$="Ace Deuce Trey Four Five Six Seven Eight Nine Ten Jack Queen King" thisSuit = GetCardSuit(card(clickCard)) 'returns 1=Clubs, 2=Diamonds, 3=Hearts, 4=Spades. suit$="Clubs Diamonds Hearts Spades" 'This routine is for this demo, just for fun. 'Values are 1-13, so placing the words that correspond 'to the values in a string, we can extract the word that 'matches the numeric value with the word$ function. 'In the same way, suits are 1-4, so placing the suit names 'in a string in order so that the names correspond with the 'values allows us to extract the word from the string with 'the word$ function. thisVal$=word$(value$,thisVal) thisSuit$=word$(suit$,thisSuit) msg$="Card clicked is the ";thisVal$;" and the suit is ";thisSuit$ #1.g "place 10 420" #1.g "\" ; msg$; space$(400) RETURN 'setting new card back doesn't restart game, 'so new back won't show until new game is started: [circles] design=1:goto [setDesign] [blue] design=2:goto [setDesign] [red] design=3:goto [setDesign] [mountain] design=4:goto [setDesign] [purple] design=5:goto [setDesign] [music] design=6:goto [setDesign] [setDesign] Call SetCurrentBack design 'design can be 1,2,3,4,5,6 for 6 possible designs wait [fillCardArray] 'fill card array 'cards 1 to 52 are in the first deck 'cards 53 to 104 are in the second deck 'use cards Jack through King in each suit, first deck card(1)=11 'jack of clubs card(2)=12 'queen card(3)=13 'king card(4)=24 'jack of diamonds card(5)=25 'queen card(6)=26 'king card(7)=37 'jack of hearts card(8)=38 'queen card(9)=39 'king card(10)=50 'jack of spades card(11)=51 'queen card(12)=52 'king 'now use second deck, to fill second half of array for i = 1 to 12 card(i+12)=card(i)+52 next RETURN [shuffleCards] playwave "shuffle.wav",async 'now shuffle cards for i = 1 to 24 newIndex=int(rnd(0)*24)+1 tempCard=card(i) 'temp var to allow switching values card(i)=card(newIndex) 'this index now contains value from random index card(newIndex)=tempCard 'random index now contains value from other index 'now card(i) has switched values with a random card in the array next playwave "shuffle.wav",sync RETURN [quit] close #qc:close #1:end '''''''''''''''''''' 'subs and functions: Sub Pause ms 'pause ms number of milliseconds calldll #kernel32,"Sleep",_ ms as long, re as void End Sub Function GetCardSuit(nC) 'returns 1=Clubs, 2=Diamonds, 3=Hearts, 4=Spades. calldll #qc, "GetCardSuit",nC as long,_ GetCardSuit as long End Function Function GetCardValue(nC) 'ace=1,deuce=2....jack=11,queen=12,king=13 calldll #qc, "GetCardValue",nC as long,_ GetCardValue as long End Function Sub InitializeDeck hndle calldll #qc, "InitializeDeck",_ hndle as ulong,r as long End Sub Sub SetCardStatus nC,face 'nC is number of card - 1-52 in first deck and '53-104 in second deck, if used 'face: 0=facedown,1=faceup calldll #qc, "SetCardStatus",nC as long,_ face as long,r as void End Sub Sub DealCard hndle,nC,x,y 'places card on window whose handle is hndle at x,y 'nC is number of card - 1-52 in first deck and '53-104 in second deck, if used calldll #qc, "DealCard",hndle as ulong,nC as long,_ x as long,y as long,r as void End Sub Sub SetCurrentBack nV 'nV can be 1,2,3,4,5,6 for 6 possible designs calldll #qc, "SetCurrentBack",nV as long,r as void End Sub Sub SetDefaultValues 'reset all card properties back to their default values. calldll #qc, "SetDefaultValues",r as void End Sub [[code]] ---- [[toc|flat]] ---- <span style="text-align: right; display: block; color: 0;">[[QCard04|Lesson 4]] [[QCard06|Lesson 6]]</span>