I also use double-click for when the cards can clear to the ace home cells. The Freecell game uses the MouseDown, MouseMove, and MouseUp events to move the cards. Public Function NextOppositeSuite( ByVal CardValue As Byte) As Byte()Įnd Function ' method for returning suit value. OppCards( 0) = CByte(f * 4 + Suit.SPADES)Įnd Function ' Returns two bytes that equal the card values for next 2 higer ' cards in opposite suit, like in FreeCell, when sorting cards ' in columns. OppCards( 1) = CByte(f * 4 + Suit.HEARTS) OppCards( 0) = CByte(f * 4 + Suit.DIAMONDS) Public Function PrevOppositeSuite( ByVal CardValue As Byte) As Byte()ĭim OppCards( 1) As Byte Dim f As Face = Me.CardFaceValue(CardValue, s) Return SuitColor.BlackĮnd Select End Get End Property ' Returns two bytes that equal the card values for next 2 lower ' cards in opposite suit, like in FreeCell, when sorting cards ' in columns. Public ReadOnly Property OppositeSuit( ByVal CardValue As Byte) As SuitColor Return CByte(s + Face.King * 4)Įnd If End Get End Property ' Returns the opposite color for CardValue argument. If f 3 Then Return CByte(s + (f - 1) * 4)Įlse ' Current card is an ace, so return the king in same suit. Public ReadOnly Property NextFaceValue( ByVal CardValue As Byte) As Byte Get ' Determine face and suit for current card value. If card is an ace, the two in same suit ' is returned. If card is a king, the ace in ' same suit is returned. Get Return CType(CardFaceValue(CardValue, SuitValue(CardValue)), Face)Įnd Get End Property ' This property returns the "raw" Card Value for next higher card ' in sequence in the same suit. Return CType((CardValue - suite) / 4, Face)Įnd Function Public ReadOnly Property FaceValue( ByVal CardValue As Byte) As Face ' The formula for card value is (card = face * 4 + Suit) Private Function CardFaceValue( ByVal CardValue As Byte, ByVal suite As Suit) As Face ' Method for returning face value based on raw card value.
All other card backs and fronts are bitmaps, so setting this has no effect for any other card back. Clr: Sets the background color for the CrossHatch card back.Set this value to zero to draw the card face, and one to draw the card back. Type: Specifies to draw the face, back, or inverted face of the card.Either the face value of the card, or the value for the pattern to draw if drawing the card back. Y: The y-axis origin for the card image.X: The x-axis origin for the card image.hDC: The Handle for the object that the card image will be drawn on.This function takes the following arguments: cdtInit: This function initializes the cards library, and must be called first.ĭeclare Function cdtDraw Lib " cards.dll" ( ByVal hDC As IntPtr, ByVal x As Integer, _īyVal y As Integer, ByVal Card As Integer, _īyVal Type As Integer, ByVal clr As Integer) As Integer.Ĭards.dll exposes four functions and one sub routine. If you are not familiar with the cards library, I recommend you read Matt Pietrek's article on the subject.
Card game freecell how to#
There are many good articles on the net on how to use the Cards dynamic link library. This project uses the Cards.dll library to draw the playing cards.
Card game freecell code#
I really liked the interface he used, so I decided to code a modern version of his original FreeCell Game.
Card game freecell 32 bit#
It still works today on 32 bit Windows XP and Vista, but it is a 16 bit application, so it can't run on Vista or XP 64. Allen programmed and published one of the better FreeCell games available for Windows. There are many good articles on the net on how to use the Cards dynamic link library, so I thought it would be fun to make my favorite one player card game, FreeCell.
0 kommentar(er)
