zana
/
BlackjackGUI
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add a message for dealer's turn, also an event to add any message if needed in the future

master
CrystalMoogle 2023-07-16 17:40:28 +01:00
parent 20f702b537
commit 2455812fb2
3 changed files with 43 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
BlackjackGUI/BlackjackGUI.vbproj
View File

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

4
BlackjackGUI/GameWindow.vb
View File

@ -59,6 +59,10 @@
StandButton.Enabled = False StandButton.Enabled = False
End Sub End Sub
Private Sub MessageLabel(message) Handles game.MessageLabel
WinMessage.Text = message
End Sub
Private Sub EndGame(message) Handles game.EndGame Private Sub EndGame(message) Handles game.EndGame
WinMessage.Text = message WinMessage.Text = message
HitButton.Enabled = False HitButton.Enabled = False

2
BlackjackGUI/game.vb
View File

@ -5,6 +5,7 @@
Public Event ShowDealerCard(card) Public Event ShowDealerCard(card)
Public Event EndPlayerTurn() Public Event EndPlayerTurn()
Public Event EndGame(winMessage) Public Event EndGame(winMessage)
Public Event MessageLabel(message)
Private player As Player Private player As Player
Private dealer As Dealer Private dealer As Dealer
@ -108,6 +109,7 @@
Sub DealerTurn() Sub DealerTurn()
GetTotal(dealer) GetTotal(dealer)
RaiseEvent MessageLabel("Dealer's turn...")
RaiseEvent EndPlayerTurn() RaiseEvent EndPlayerTurn()
RaiseEvent SetTotalLabels(player.total, dealer.total) RaiseEvent SetTotalLabels(player.total, dealer.total)
RaiseEvent ShowDealerCard(dealer.hidden) RaiseEvent ShowDealerCard(dealer.hidden)