Add project files.

remotes/origin/master v1.0.0
CrystalMoogle 2023-07-15 22:00:20 +01:00
parent 2fef761acb
commit 626b57c982
77 changed files with 1853 additions and 0 deletions

25
BlackjackGUI.sln 100644
View File

@ -0,0 +1,25 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 17
VisualStudioVersion = 17.6.33829.357
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BlackjackGUI", "BlackjackGUI\BlackjackGUI.vbproj", "{12F28866-04C6-40F4-B941-A2E9D1449E2A}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{12F28866-04C6-40F4-B941-A2E9D1449E2A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{12F28866-04C6-40F4-B941-A2E9D1449E2A}.Debug|Any CPU.Build.0 = Debug|Any CPU
{12F28866-04C6-40F4-B941-A2E9D1449E2A}.Release|Any CPU.ActiveCfg = Release|Any CPU
{12F28866-04C6-40F4-B941-A2E9D1449E2A}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {B9B0BC55-80B2-40BA-8742-D46D2F293ECD}
EndGlobalSection
EndGlobal

View File

@ -0,0 +1,29 @@
Imports Microsoft.VisualBasic.ApplicationServices
Namespace My
' The following events are available for MyApplication:
' Startup: Raised when the application starts, before the startup form is created.
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
' UnhandledException: Raised if the application encounters an unhandled exception.
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
' **NEW** ApplyApplicationDefaults: Raised when the application queries default values to be set for the application.
' Example:
' Private Sub MyApplication_ApplyApplicationDefaults(sender As Object, e As ApplyApplicationDefaultsEventArgs) Handles Me.ApplyApplicationDefaults
'
' ' Setting the application-wide default Font:
' e.Font = New Font(FontFamily.GenericSansSerif, 12, FontStyle.Regular)
'
' ' Setting the HighDpiMode for the Application:
' e.HighDpiMode = HighDpiMode.PerMonitorV2
'
' ' If a splash dialog is used, this sets the minimum display time:
' e.MinimumSplashScreenDisplayTime = 4000
' End Sub
Partial Friend Class MyApplication
End Class
End Namespace

View File

@ -0,0 +1,45 @@
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<OutputType>WinExe</OutputType>
<TargetFramework>net6.0-windows</TargetFramework>
<StartupObject>Sub Main</StartupObject>
<UseWindowsForms>true</UseWindowsForms>
<MyType>WindowsForms</MyType>
</PropertyGroup>
<ItemGroup>
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Update="My Project\Application.Designer.vb">
<DesignTime>True</DesignTime>
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Update="My Project\Resources.Designer.vb">
<DesignTime>True</DesignTime>
<AutoGen>True</AutoGen>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Update="My Project\Resources.resx">
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Update="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
</Project>

287
BlackjackGUI/Form1.Designer.vb generated 100644
View File

@ -0,0 +1,287 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
HitButton = New Button()
StandButton = New Button()
PlayerCard1 = New PictureBox()
PlayerCard2 = New PictureBox()
PlayerCard3 = New PictureBox()
PlayerCard4 = New PictureBox()
PlayerCard5 = New PictureBox()
PlayerCard6 = New PictureBox()
PlayerCard7 = New PictureBox()
PlayerCard8 = New PictureBox()
PlayerCard9 = New PictureBox()
PlayerCard10 = New PictureBox()
StartGame = New Button()
PlayerTotal = New Label()
DealerTotal = New Label()
WinMessage = New Label()
CType(PlayerCard1, ComponentModel.ISupportInitialize).BeginInit()
CType(PlayerCard2, ComponentModel.ISupportInitialize).BeginInit()
CType(PlayerCard3, ComponentModel.ISupportInitialize).BeginInit()
CType(PlayerCard4, ComponentModel.ISupportInitialize).BeginInit()
CType(PlayerCard5, ComponentModel.ISupportInitialize).BeginInit()
CType(PlayerCard6, ComponentModel.ISupportInitialize).BeginInit()
CType(PlayerCard7, ComponentModel.ISupportInitialize).BeginInit()
CType(PlayerCard8, ComponentModel.ISupportInitialize).BeginInit()
CType(PlayerCard9, ComponentModel.ISupportInitialize).BeginInit()
CType(PlayerCard10, ComponentModel.ISupportInitialize).BeginInit()
SuspendLayout()
'
' HitButton
'
HitButton.Anchor = AnchorStyles.Top Or AnchorStyles.Right
HitButton.Enabled = False
HitButton.Font = New Font("Segoe UI", 36.0F, FontStyle.Regular, GraphicsUnit.Point)
HitButton.Location = New Point(100, 490)
HitButton.Name = "HitButton"
HitButton.Size = New Size(400, 150)
HitButton.TabIndex = 0
HitButton.Text = "Hit"
HitButton.UseVisualStyleBackColor = True
'
' StandButton
'
StandButton.Anchor = AnchorStyles.Top Or AnchorStyles.Right
StandButton.Enabled = False
StandButton.Font = New Font("Segoe UI", 36.0F, FontStyle.Regular, GraphicsUnit.Point)
StandButton.Location = New Point(780, 490)
StandButton.Name = "StandButton"
StandButton.Size = New Size(400, 150)
StandButton.TabIndex = 1
StandButton.Text = "Stand"
StandButton.UseVisualStyleBackColor = True
'
' PlayerCard1
'
PlayerCard1.Anchor = AnchorStyles.Top Or AnchorStyles.Right
PlayerCard1.ErrorImage = My.Resources.Resources.blue2
PlayerCard1.Image = My.Resources.Resources.blue
PlayerCard1.InitialImage = My.Resources.Resources.blue2
PlayerCard1.Location = New Point(150, 284)
PlayerCard1.Name = "PlayerCard1"
PlayerCard1.Size = New Size(125, 175)
PlayerCard1.TabIndex = 2
PlayerCard1.TabStop = False
'
' PlayerCard2
'
PlayerCard2.Anchor = AnchorStyles.Top Or AnchorStyles.Right
PlayerCard2.ErrorImage = My.Resources.Resources.blue2
PlayerCard2.Image = My.Resources.Resources.blue
PlayerCard2.InitialImage = My.Resources.Resources.blue2
PlayerCard2.Location = New Point(375, 284)
PlayerCard2.Name = "PlayerCard2"
PlayerCard2.Size = New Size(125, 175)
PlayerCard2.TabIndex = 3
PlayerCard2.TabStop = False
'
' PlayerCard3
'
PlayerCard3.Anchor = AnchorStyles.Top Or AnchorStyles.Right
PlayerCard3.ErrorImage = Nothing
PlayerCard3.InitialImage = Nothing
PlayerCard3.Location = New Point(578, 284)
PlayerCard3.Name = "PlayerCard3"
PlayerCard3.Size = New Size(125, 175)
PlayerCard3.TabIndex = 4
PlayerCard3.TabStop = False
'
' PlayerCard4
'
PlayerCard4.Anchor = AnchorStyles.Top Or AnchorStyles.Right
PlayerCard4.ErrorImage = Nothing
PlayerCard4.InitialImage = Nothing
PlayerCard4.Location = New Point(780, 284)
PlayerCard4.Name = "PlayerCard4"
PlayerCard4.Size = New Size(125, 175)
PlayerCard4.TabIndex = 5
PlayerCard4.TabStop = False
'
' PlayerCard5
'
PlayerCard5.Anchor = AnchorStyles.Top Or AnchorStyles.Right
PlayerCard5.ErrorImage = Nothing
PlayerCard5.InitialImage = Nothing
PlayerCard5.Location = New Point(1005, 284)
PlayerCard5.Name = "PlayerCard5"
PlayerCard5.Size = New Size(125, 175)
PlayerCard5.TabIndex = 6
PlayerCard5.TabStop = False
'
' PlayerCard6
'
PlayerCard6.Anchor = AnchorStyles.Top Or AnchorStyles.Right
PlayerCard6.BackgroundImageLayout = ImageLayout.None
PlayerCard6.ErrorImage = My.Resources.Resources.blue2
PlayerCard6.Image = My.Resources.Resources.blue
PlayerCard6.InitialImage = My.Resources.Resources.blue2
PlayerCard6.Location = New Point(1005, 12)
PlayerCard6.Name = "PlayerCard6"
PlayerCard6.Size = New Size(125, 175)
PlayerCard6.SizeMode = PictureBoxSizeMode.Zoom
PlayerCard6.TabIndex = 11
PlayerCard6.TabStop = False
'
' PlayerCard7
'
PlayerCard7.Anchor = AnchorStyles.Top Or AnchorStyles.Right
PlayerCard7.ErrorImage = My.Resources.Resources.blue2
PlayerCard7.Image = My.Resources.Resources.blue
PlayerCard7.InitialImage = My.Resources.Resources.blue2
PlayerCard7.Location = New Point(780, 12)
PlayerCard7.Name = "PlayerCard7"
PlayerCard7.Size = New Size(125, 175)
PlayerCard7.TabIndex = 10
PlayerCard7.TabStop = False
'
' PlayerCard8
'
PlayerCard8.Anchor = AnchorStyles.Top Or AnchorStyles.Right
PlayerCard8.ErrorImage = Nothing
PlayerCard8.InitialImage = Nothing
PlayerCard8.Location = New Point(578, 12)
PlayerCard8.Name = "PlayerCard8"
PlayerCard8.Size = New Size(125, 175)
PlayerCard8.TabIndex = 9
PlayerCard8.TabStop = False
'
' PlayerCard9
'
PlayerCard9.Anchor = AnchorStyles.Top Or AnchorStyles.Right
PlayerCard9.ErrorImage = Nothing
PlayerCard9.InitialImage = Nothing
PlayerCard9.Location = New Point(375, 12)
PlayerCard9.Name = "PlayerCard9"
PlayerCard9.Size = New Size(125, 175)
PlayerCard9.TabIndex = 8
PlayerCard9.TabStop = False
'
' PlayerCard10
'
PlayerCard10.Anchor = AnchorStyles.Top Or AnchorStyles.Right
PlayerCard10.ErrorImage = Nothing
PlayerCard10.InitialImage = Nothing
PlayerCard10.Location = New Point(150, 12)
PlayerCard10.Name = "PlayerCard10"
PlayerCard10.Size = New Size(125, 175)
PlayerCard10.TabIndex = 7
PlayerCard10.TabStop = False
'
' StartGame
'
StartGame.Anchor = AnchorStyles.Top Or AnchorStyles.Right
StartGame.Font = New Font("Segoe UI", 26.25F, FontStyle.Regular, GraphicsUnit.Point)
StartGame.Location = New Point(535, 490)
StartGame.Name = "StartGame"
StartGame.Size = New Size(210, 70)
StartGame.TabIndex = 12
StartGame.Text = "Start Game"
StartGame.UseVisualStyleBackColor = True
'
' PlayerTotal
'
PlayerTotal.AutoSize = True
PlayerTotal.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point)
PlayerTotal.Location = New Point(535, 561)
PlayerTotal.Name = "PlayerTotal"
PlayerTotal.Size = New Size(141, 30)
PlayerTotal.TabIndex = 13
PlayerTotal.Text = "Player Total: 0"
'
' DealerTotal
'
DealerTotal.AutoSize = True
DealerTotal.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point)
DealerTotal.Location = New Point(535, 610)
DealerTotal.Name = "DealerTotal"
DealerTotal.Size = New Size(145, 30)
DealerTotal.TabIndex = 14
DealerTotal.Text = "Dealer Total: 0"
'
' WinMessage
'
WinMessage.AutoSize = True
WinMessage.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point)
WinMessage.Location = New Point(565, 221)
WinMessage.Name = "WinMessage"
WinMessage.Size = New Size(0, 30)
WinMessage.TabIndex = 15
'
' Form1
'
AutoScaleMode = AutoScaleMode.Inherit
ClientSize = New Size(1264, 681)
Controls.Add(WinMessage)
Controls.Add(DealerTotal)
Controls.Add(PlayerTotal)
Controls.Add(StartGame)
Controls.Add(PlayerCard6)
Controls.Add(PlayerCard7)
Controls.Add(PlayerCard8)
Controls.Add(PlayerCard9)
Controls.Add(PlayerCard10)
Controls.Add(PlayerCard5)
Controls.Add(PlayerCard4)
Controls.Add(PlayerCard3)
Controls.Add(PlayerCard2)
Controls.Add(PlayerCard1)
Controls.Add(StandButton)
Controls.Add(HitButton)
MinimumSize = New Size(1280, 720)
Name = "Form1"
StartPosition = FormStartPosition.CenterScreen
Text = "Blackjack"
CType(PlayerCard1, ComponentModel.ISupportInitialize).EndInit()
CType(PlayerCard2, ComponentModel.ISupportInitialize).EndInit()
CType(PlayerCard3, ComponentModel.ISupportInitialize).EndInit()
CType(PlayerCard4, ComponentModel.ISupportInitialize).EndInit()
CType(PlayerCard5, ComponentModel.ISupportInitialize).EndInit()
CType(PlayerCard6, ComponentModel.ISupportInitialize).EndInit()
CType(PlayerCard7, ComponentModel.ISupportInitialize).EndInit()
CType(PlayerCard8, ComponentModel.ISupportInitialize).EndInit()
CType(PlayerCard9, ComponentModel.ISupportInitialize).EndInit()
CType(PlayerCard10, ComponentModel.ISupportInitialize).EndInit()
ResumeLayout(False)
PerformLayout()
End Sub
Friend WithEvents HitButton As Button
Friend WithEvents StandButton As Button
Friend WithEvents PlayerCard1 As PictureBox
Friend WithEvents PlayerCard2 As PictureBox
Friend WithEvents PlayerCard3 As PictureBox
Friend WithEvents PlayerCard4 As PictureBox
Friend WithEvents PlayerCard5 As PictureBox
Friend WithEvents PlayerCard6 As PictureBox
Friend WithEvents PlayerCard7 As PictureBox
Friend WithEvents PlayerCard8 As PictureBox
Friend WithEvents PlayerCard9 As PictureBox
Friend WithEvents PlayerCard10 As PictureBox
Friend WithEvents StartGame As Button
Friend WithEvents PlayerTotal As Label
Friend WithEvents DealerTotal As Label
Friend WithEvents WinMessage As Label
End Class

View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing"">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@ -0,0 +1,258 @@
Public Class Form1
Inherits Form
Dim player As New Player()
Dim dealer As New Dealer()
Dim deck As New List(Of String)
Dim gameRunning As Boolean = True
Private Sub StartGame_Click(sender As Object, e As EventArgs) Handles StartGame.Click
PlayGame()
End Sub
Private Sub HitButton_Click(sender As Object, e As EventArgs) Handles HitButton.Click
If gameRunning And player.hand.Count < 5 And player.ingame Then
DealCard(player)
CheckPlayer(player)
End If
End Sub
Private Sub StandButton_Click(sender As Object, e As EventArgs) Handles StandButton.Click
If gameRunning And player.ingame Then
player.ingame = False
DealerTurn()
End If
End Sub
Private Sub ResetCards()
Dim pictureBoxes() As PictureBox = {PlayerCard1, PlayerCard2, PlayerCard3, PlayerCard4, PlayerCard5, PlayerCard6, PlayerCard7, PlayerCard8, PlayerCard9, PlayerCard10}
For Each box In pictureBoxes
box.Image = Nothing
Next
End Sub
Sub PlayGame()
InitGame()
End Sub
Sub InitGame()
ResetCards()
WinMessage.ResetText()
HitButton.Enabled = True
StandButton.Enabled = True
StartGame.Enabled = False
gameRunning = True
player.Start()
dealer.Start()
CreateDeck()
DealCard(player)
DealCard(dealer, isDealer:=True)
DealCard(player)
DealCard(dealer, isDealer:=True)
CheckPlayer(player)
End Sub
Sub CreateDeck()
deck.Clear()
Dim nums As String() = {"A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K"}
Dim suits As String() = {"Hearts", "Diamonds", "Spades", "Clubs"}
For Each s As String In suits
For Each n As String In nums
deck.Add(n + " of " + s)
Next
Next
Shuffle(deck)
End Sub
Sub Shuffle(deck)
Dim max As Integer = deck.Count - 1
Dim random As New Random()
For x As Integer = 0 To max
Dim rand As Integer = random.Next(0, max)
Dim temp As String = deck(x)
deck(x) = deck(rand)
deck(rand) = temp
Next
End Sub
Sub DealCard(player, Optional suppress = False, Optional isDealer = False)
Dim card = deck(0)
player.hand.Add(card)
deck.RemoveAt(0)
GetTotal(player)
Dim cardNumber As String = If(isDealer, (player.hand.count + 5).ToString(), player.hand.count)
Dim pictureBox As PictureBox = CType(Me.Controls.Find("PlayerCard" + cardNumber, True).First(), PictureBox)
pictureBox.Image = GetCardImage(card)
SetTotalLabels()
End Sub
Sub GetTotal(player)
Dim cards As List(Of String) = player.hand
If cards.Count = 0 Then
player.total = 0
Return
End If
Dim t As Integer = 0
Dim a As Integer = 0
For Each x As String In cards
Dim card As String = x
Dim num As String = card.Split(" "c)(0)
If num = "K" Or num = "Q" Or num = "J" Then
num = 10
End If
If num = "A" Then
num = 11
a += 1
End If
num = Integer.Parse(num)
t += num
Next
While (a > 0 And t > 21)
a -= 1
t = t - 10
End While
player.total = t
End Sub
Sub SetTotalLabels()
Dim dealerLabelTotal As String = DealerTotal.Text.Split(": ")(0)
Dim playerLabelTotal As String = PlayerTotal.Text.Split(": ")(0)
DealerTotal.Text = dealerLabelTotal + ": " + dealer.total.ToString()
PlayerTotal.Text = playerLabelTotal + ": " + player.total.ToString()
End Sub
Sub CheckPlayer(player)
If player.total = 21 And player.hand.count = 2 Then
player.winType = WinCondition.Blackjack
player.ingame = False
dealer.ingame = False
DealerTurn()
ElseIf player.total > 21 Then
player.winType = WinCondition.Bust
player.ingame = False
DealerTurn()
ElseIf player.total < 22 And player.hand.count = 5 Then
player.winType = WinCondition.FiveCard
player.ingame = False
dealer.ingame = False
DealerTurn()
End If
If player.total = 21 Then
player.ingame = False
DealerTurn()
End If
End Sub
Sub DealerTurn()
If dealer.ingame Then
If dealer.total = 21 And dealer.hand.Count = 2 Then
dealer.winType = WinCondition.Blackjack
dealer.ingame = False
ElseIf dealer.total > 21 Then
dealer.winType = WinCondition.Bust
player.ingame = False
ElseIf dealer.total < dealer.limit Then
DealCard(dealer, isDealer:=True)
DealerTurn()
Else
dealer.winType = WinCondition.NormalWin
End If
End If
CheckGame()
End Sub
Sub CheckGame()
WinMessage.Text = GetResults()
HitButton.Enabled = False
StandButton.Enabled = False
StartGame.Enabled = True
End Sub
Function GetResults()
If dealer.winType = WinCondition.Blackjack Then
If player.winType = WinCondition.Blackjack Then
PrintCurrentGame()
Return "Player ties with Blackjack!"
Else
PrintCurrentGame()
Return "Dealer wins with Blackjack!"
End If
End If
If player.winType = WinCondition.Blackjack Then
PrintCurrentGame()
Return "Player wins with Blackjack!"
End If
If player.winType = WinCondition.FiveCard Then
PrintCurrentGame()
Return "Player wins with Five Card Charlie!"
End If
If player.winType = WinCondition.Bust Then
PrintCurrentGame()
Return "Player busts!"
End If
If dealer.winType = WinCondition.Bust Then
PrintCurrentGame()
Return "Dealer busts!"
End If
If player.total > dealer.total Then
PrintCurrentGame()
Return "Player wins with total of " + player.total.ToString() + "!"
End If
If player.total = dealer.total Then
PrintCurrentGame()
Return "Tie!"
End If
If player.total < dealer.total Then
PrintCurrentGame()
Return "Dealer wins with total of " + dealer.total.ToString() + "!"
End If
PrintCurrentGame()
Return "error"
End Function
Function GetCardImage(card) As Image
Dim num As String = card.split(" ")(0)
Dim suit As String = card.split(" ")(2)
Select Case num
Case "K"
num = "king"
Case "Q"
num = "queen"
Case "J"
num = "jack"
Case "A"
num = "ace"
End Select
Dim img As String = suit + "_" + num
Return My.Resources.ResourceManager.GetObject(img.ToLower())
End Function
Sub PrintCurrentGame()
Console.WriteLine("Dealer Hand: " + String.Join(", ", dealer.hand) + " Total: " + dealer.total.ToString())
Console.WriteLine("Player Hand: " + String.Join(", ", player.hand) + " Total: " + player.total.ToString())
End Sub
End Class
Public Class Player
Private _winCondition As WinCondition
Public Property hand As New List(Of String)
Public Property total As Integer
Public Property ingame As Boolean
Public Property winType
Get
Return _winCondition
End Get
Set
_winCondition = Value
End Set
End Property
Sub Start()
hand.Clear()
total = 0
ingame = True
winType = WinCondition.NormalWin
End Sub
End Class
Public Class Dealer
Inherits Player
Public Property limit As Integer = 17
End Class
Enum WinCondition
Bust
NormalWin
FiveCard
Blackjack
End Enum

View File

@ -0,0 +1,37 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()>
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = False
Me.EnableVisualStyles = True
Me.SaveMySettingsOnExit = True
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()>
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Form1
End Sub
End Class
End Namespace

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@ -0,0 +1,723 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("BlackjackGUI.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property abstract() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("abstract", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property abstract_clouds() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("abstract_clouds", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property abstract_scene() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("abstract_scene", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property astronaut() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("astronaut", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property blue() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("blue", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property blue2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("blue2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property cars() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("cars", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property castle() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("castle", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_10() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_10", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_3() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_3", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_4() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_4", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_5() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_5", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_6() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_6", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_7() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_7", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_8() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_8", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_9() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_9", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_ace() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_ace", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_jack() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_jack", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_king() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_king", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property clubs_queen() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("clubs_queen", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_10() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_10", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_3() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_3", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_4() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_4", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_5() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_5", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_6() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_6", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_7() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_7", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_8() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_8", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_9() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_9", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_ace() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_ace", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_jack() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_jack", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_king() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_king", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property diamonds_queen() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("diamonds_queen", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property fish() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("fish", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property frog() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("frog", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_10() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_10", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_3() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_3", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_4() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_4", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_5() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_5", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_6() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_6", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_7() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_7", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_8() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_8", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_9() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_9", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_ace() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_ace", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_jack() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_jack", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_king() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_king", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property hearts_queen() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("hearts_queen", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property joker_black() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("joker_black", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property joker_red() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("joker_red", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property red() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("red", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property red2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("red2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_10() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_10", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_3() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_3", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_4() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_4", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_5() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_5", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_6() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_6", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_7() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_7", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_8() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_8", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_9() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_9", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_ace() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_ace", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_jack() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_jack", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_king() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_king", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property spades_queen() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("spades_queen", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

View File

@ -0,0 +1,319 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="abstract" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\abstract.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abstract_clouds" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\abstract_clouds.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abstract_scene" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\abstract_scene.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="astronaut" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\astronaut.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="blue2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\blue2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cars" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\cars.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="castle" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\castle.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_10" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_10.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_6.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_7" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_7.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_8" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_8.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_9" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_9.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_ace" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_ace.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_jack" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_jack.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_king" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_king.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="clubs_queen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\clubs_queen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_10" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_10.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_6.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_7" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_7.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_8" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_8.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_9" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_9.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_ace" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_ace.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_jack" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_jack.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_king" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_king.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="diamonds_queen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\diamonds_queen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fish" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\fish.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="frog" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\frog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_10" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_10.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_6.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_7" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_7.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_8" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_8.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_9" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_9.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_ace" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_ace.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_jack" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_jack.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_king" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_king.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hearts_queen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\hearts_queen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="joker_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\joker_black.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="joker_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\joker_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="red2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardBacks\red2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_10" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_10.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_6.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_7" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_7.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_8" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_8.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_9" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_9.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_ace" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_ace.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_jack" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_jack.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_king" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_king.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spades_queen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CardFronts\spades_queen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

Binary file not shown.

After

Width:  |  Height:  |  Size: 51 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 42 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 38 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 14 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 14 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 20 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 19 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 17 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 20 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 11 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 16 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 17 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 21 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 28 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 26 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 28 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.0 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 30 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 27 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 26 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.0 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 28 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 28 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 27 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 14 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.0 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.0 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 27 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 26 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 26 KiB