first visual basic code upload

This commit is contained in:
Ghassan Yusuf 2020-02-16 03:39:56 +03:00
parent 93697318e4
commit 5e53ab7d73
101 changed files with 21213 additions and 0 deletions

Binary file not shown.

After

Width:  |  Height:  |  Size: 438 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 MiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 402 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.0 MiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 391 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 547 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 263 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 MiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 134 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 214 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 MiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.4 MiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 127 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 169 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 218 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 23 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 21 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 19 KiB

View File

@ -0,0 +1,22 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 14
VisualStudioVersion = 14.0.24720.0
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TAKEONE EMASS", "Timer Library\TAKEONE EMASS.vbproj", "{8572539F-1758-4227-AE30-E25D75BD6BF4}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{8572539F-1758-4227-AE30-E25D75BD6BF4}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{8572539F-1758-4227-AE30-E25D75BD6BF4}.Debug|Any CPU.Build.0 = Debug|Any CPU
{8572539F-1758-4227-AE30-E25D75BD6BF4}.Release|Any CPU.ActiveCfg = Release|Any CPU
{8572539F-1758-4227-AE30-E25D75BD6BF4}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

View File

@ -0,0 +1,69 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="TAKEONE_EMASS.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
</startup>
<userSettings>
<TAKEONE_EMASS.My.MySettings>
<setting name="server" serializeAs="String">
<value>localhost</value>
</setting>
<setting name="userid" serializeAs="String">
<value>root</value>
</setting>
<setting name="password" serializeAs="String">
<value />
</setting>
<setting name="database" serializeAs="String">
<value>test</value>
</setting>
<setting name="port" serializeAs="String">
<value>3306</value>
</setting>
<setting name="match_num" serializeAs="String">
<value>0</value>
</setting>
<setting name="match_rounds" serializeAs="String">
<value>0</value>
</setting>
<setting name="match_round_time_minutes" serializeAs="String">
<value>0</value>
</setting>
<setting name="match_round_time_seconds" serializeAs="String">
<value>0</value>
</setting>
<setting name="match_break_time_minutes" serializeAs="String">
<value>0</value>
</setting>
<setting name="match_break_time_seconds" serializeAs="String">
<value>0</value>
</setting>
<setting name="match_court_number" serializeAs="String">
<value>0</value>
</setting>
<setting name="match_enable_sudden_death" serializeAs="String">
<value>False</value>
</setting>
<setting name="database_enable" serializeAs="String">
<value>False</value>
</setting>
<setting name="video_capture_enable" serializeAs="String">
<value>False</value>
</setting>
<setting name="video_intro_enable" serializeAs="String">
<value>False</value>
</setting>
<setting name="video_intro_path" serializeAs="String">
<value />
</setting>
<setting name="match_enable_max_difference" serializeAs="String">
<value>0</value>
</setting>
</TAKEONE_EMASS.My.MySettings>
</userSettings>
</configuration>

View File

@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <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 = Global.TAKEONE_EMASS.frm_main
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>frm_main</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("Timer Library")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Timer Library")>
<Assembly: AssemblyCopyright("Copyright © 2019")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("bd28187e-db63-477a-a352-c8f09e1aff1a")>
' Version information for an assembly consists of the following four values:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@ -0,0 +1,83 @@
'------------------------------------------------------------------------------
' <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", "4.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("TAKEONE_EMASS.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 _8i6oer5KT() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("8i6oer5KT", 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 user_group_icon() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("user-group-icon", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

View File

@ -0,0 +1,127 @@
<?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="8i6oer5KT" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\8i6oer5KT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="user-group-icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user-group-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

View File

@ -0,0 +1,289 @@
'------------------------------------------------------------------------------
' <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
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("localhost")> _
Public Property server() As String
Get
Return CType(Me("server"),String)
End Get
Set
Me("server") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("root")> _
Public Property userid() As String
Get
Return CType(Me("userid"),String)
End Get
Set
Me("userid") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property password() As String
Get
Return CType(Me("password"),String)
End Get
Set
Me("password") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("test")> _
Public Property database() As String
Get
Return CType(Me("database"),String)
End Get
Set
Me("database") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("3306")> _
Public Property port() As Integer
Get
Return CType(Me("port"),Integer)
End Get
Set
Me("port") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property match_num() As Integer
Get
Return CType(Me("match_num"),Integer)
End Get
Set
Me("match_num") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property match_rounds() As Integer
Get
Return CType(Me("match_rounds"),Integer)
End Get
Set
Me("match_rounds") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property match_round_time_minutes() As Integer
Get
Return CType(Me("match_round_time_minutes"),Integer)
End Get
Set
Me("match_round_time_minutes") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property match_round_time_seconds() As Integer
Get
Return CType(Me("match_round_time_seconds"),Integer)
End Get
Set
Me("match_round_time_seconds") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property match_break_time_minutes() As Integer
Get
Return CType(Me("match_break_time_minutes"),Integer)
End Get
Set
Me("match_break_time_minutes") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property match_break_time_seconds() As Integer
Get
Return CType(Me("match_break_time_seconds"),Integer)
End Get
Set
Me("match_break_time_seconds") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property match_court_number() As Integer
Get
Return CType(Me("match_court_number"),Integer)
End Get
Set
Me("match_court_number") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property match_enable_sudden_death() As Boolean
Get
Return CType(Me("match_enable_sudden_death"),Boolean)
End Get
Set
Me("match_enable_sudden_death") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property database_enable() As Boolean
Get
Return CType(Me("database_enable"),Boolean)
End Get
Set
Me("database_enable") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property video_capture_enable() As Boolean
Get
Return CType(Me("video_capture_enable"),Boolean)
End Get
Set
Me("video_capture_enable") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property video_intro_enable() As Boolean
Get
Return CType(Me("video_intro_enable"),Boolean)
End Get
Set
Me("video_intro_enable") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property video_intro_path() As String
Get
Return CType(Me("video_intro_path"),String)
End Get
Set
Me("video_intro_path") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property match_enable_max_difference() As Integer
Get
Return CType(Me("match_enable_max_difference"),Integer)
End Get
Set
Me("match_enable_max_difference") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.TAKEONE_EMASS.My.MySettings
Get
Return Global.TAKEONE_EMASS.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@ -0,0 +1,60 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="server" Type="System.String" Scope="User">
<Value Profile="(Default)">localhost</Value>
</Setting>
<Setting Name="userid" Type="System.String" Scope="User">
<Value Profile="(Default)">root</Value>
</Setting>
<Setting Name="password" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="database" Type="System.String" Scope="User">
<Value Profile="(Default)">test</Value>
</Setting>
<Setting Name="port" Type="System.Int32" Scope="User">
<Value Profile="(Default)">3306</Value>
</Setting>
<Setting Name="match_num" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="match_rounds" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="match_round_time_minutes" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="match_round_time_seconds" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="match_break_time_minutes" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="match_break_time_seconds" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="match_court_number" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="match_enable_sudden_death" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="database_enable" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="video_capture_enable" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="video_intro_enable" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="video_intro_path" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="match_enable_max_difference" Type="System.Int32" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
</Settings>
</SettingsFile>

Binary file not shown.

After

Width:  |  Height:  |  Size: 63 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

View File

@ -0,0 +1,292 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{8572539F-1758-4227-AE30-E25D75BD6BF4}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>TAKEONE_EMASS.My.MyApplication</StartupObject>
<RootNamespace>TAKEONE_EMASS</RootNamespace>
<AssemblyName>TAKEONE EMASS</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>TAKEONE EMASS.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>TAKEONE EMASS.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="MySql.Data, Version=8.0.17.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL" />
<Reference Include="Newtonsoft.Json, Version=12.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.12.0.2\lib\net45\Newtonsoft.Json.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="forms\entities\classes\age.vb" />
<Compile Include="forms\entities\classes\club.vb" />
<Compile Include="forms\entities\classes\country.vb" />
<Compile Include="forms\entities\classes\location.vb" />
<Compile Include="forms\entities\classes\weight.vb" />
<Compile Include="forms\event\classes\match.vb" />
<Compile Include="forms\event\classes\platformevent.vb" />
<Compile Include="forms\entities\classes\referee.vb" />
<Compile Include="forms\entities\classes\person.vb" />
<Compile Include="forms\event\frm_add_participants.Designer.vb">
<DependentUpon>frm_add_participants.vb</DependentUpon>
</Compile>
<Compile Include="forms\event\frm_add_participants.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\event\frm_arrange_matches.Designer.vb">
<DependentUpon>frm_arrange_matches.vb</DependentUpon>
</Compile>
<Compile Include="forms\event\frm_arrange_matches.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\friendly\classes\friendly_fighter.vb" />
<Compile Include="forms\friendly\frm_friendly_match.designer.vb">
<DependentUpon>frm_friendly_match.vb</DependentUpon>
</Compile>
<Compile Include="forms\friendly\frm_friendly_match.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\event\frm_ranking.Designer.vb">
<DependentUpon>frm_ranking.vb</DependentUpon>
</Compile>
<Compile Include="forms\event\frm_ranking.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\event\frm_scoreboard.Designer.vb">
<DependentUpon>frm_scoreboard.vb</DependentUpon>
</Compile>
<Compile Include="forms\event\frm_scoreboard.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\friendly\frm_friendly_scorecontrol.Designer.vb">
<DependentUpon>frm_friendly_scorecontrol.vb</DependentUpon>
</Compile>
<Compile Include="forms\friendly\frm_friendly_scorecontrol.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="includes\modules\functions.vb" />
<Compile Include="includes\modules\mysql.vb" />
<Compile Include="includes\classes\dataset.vb" />
<Compile Include="forms\entities\person\frm_add_person.designer.vb">
<DependentUpon>frm_add_person.vb</DependentUpon>
</Compile>
<Compile Include="forms\entities\person\frm_add_person.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\event\frm_event_control.designer.vb">
<DependentUpon>frm_event_control.vb</DependentUpon>
</Compile>
<Compile Include="forms\event\frm_event_control.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\main\frm_main.designer.vb">
<DependentUpon>frm_main.vb</DependentUpon>
</Compile>
<Compile Include="forms\main\frm_main.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\event\frm_fighter_statistics.designer.vb">
<DependentUpon>frm_fighter_statistics.vb</DependentUpon>
</Compile>
<Compile Include="forms\event\frm_fighter_statistics.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\event\frm_match_fighters.Designer.vb">
<DependentUpon>frm_match_fighters.vb</DependentUpon>
</Compile>
<Compile Include="forms\event\frm_match_fighters.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\event\frm_create_event.designer.vb">
<DependentUpon>frm_create_event.vb</DependentUpon>
</Compile>
<Compile Include="forms\event\frm_create_event.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\main\frm_settings.designer.vb">
<DependentUpon>frm_settings.vb</DependentUpon>
</Compile>
<Compile Include="forms\main\frm_settings.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\entities\country\frm_update_flag.designer.vb">
<DependentUpon>frm_update_flag.vb</DependentUpon>
</Compile>
<Compile Include="forms\entities\country\frm_update_flag.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\event\frm_scorecontrol.designer.vb">
<DependentUpon>frm_scorecontrol.vb</DependentUpon>
</Compile>
<Compile Include="forms\event\frm_scorecontrol.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="forms\friendly\classes\friendly_match.vb" />
<Compile Include="forms\entities\club\frm_update_logo.Designer.vb">
<DependentUpon>frm_update_logo.vb</DependentUpon>
</Compile>
<Compile Include="forms\entities\club\frm_update_logo.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="includes\modules\platform.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="includes\classes\match_timer.vb" />
<Compile Include="forms\event\classes\fighter.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="forms\entities\person\frm_add_person.resx">
<DependentUpon>frm_add_person.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\event\frm_add_participants.resx">
<DependentUpon>frm_add_participants.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\event\frm_arrange_matches.resx">
<DependentUpon>frm_arrange_matches.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\friendly\frm_friendly_match.resx">
<DependentUpon>frm_friendly_match.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\event\frm_event_control.resx">
<DependentUpon>frm_event_control.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\main\frm_main.resx">
<DependentUpon>frm_main.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\event\frm_fighter_statistics.resx">
<DependentUpon>frm_fighter_statistics.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\event\frm_match_fighters.resx">
<DependentUpon>frm_match_fighters.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\event\frm_create_event.resx">
<DependentUpon>frm_create_event.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\event\frm_ranking.resx">
<DependentUpon>frm_ranking.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\main\frm_settings.resx">
<DependentUpon>frm_settings.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\entities\country\frm_update_flag.resx">
<DependentUpon>frm_update_flag.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\event\frm_scoreboard.resx">
<DependentUpon>frm_scoreboard.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\event\frm_scorecontrol.resx">
<DependentUpon>frm_scorecontrol.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\entities\club\frm_update_logo.resx">
<DependentUpon>frm_update_logo.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="forms\friendly\frm_friendly_scorecontrol.resx">
<DependentUpon>frm_friendly_scorecontrol.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<None Include="packages.config" />
<None Include="Resources\8i6oer5KT.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\user-group-icon.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

View File

@ -0,0 +1,134 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{8572539F-1758-4227-AE30-E25D75BD6BF4}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Timer_Library.My.MyApplication</StartupObject>
<RootNamespace>Timer_Library</RootNamespace>
<AssemblyName>Timer Library</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Timer Library.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Timer Library.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="MySql.Data, Version=8.0.17.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="classes\fighter.vb" />
<Compile Include="classes\mysql.vb" />
<Compile Include="forms\frm_scorecontrol.designer.vb">
<DependentUpon>frm_scorecontrol.vb</DependentUpon>
</Compile>
<Compile Include="forms\frm_scorecontrol.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="classes\match.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="classes\timer.vb" />
<Compile Include="classes\scores.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="forms\frm_scorecontrol.resx">
<DependentUpon>frm_scorecontrol.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

View File

@ -0,0 +1,53 @@
' Age Class To Generate Age From Date Of Birth
Public Class age
Private _days As Integer
Private _monthes As Integer
Private _years As Integer
Private _birthdate As Date
Public Sub New(Birthdate As Date)
_birthdate = Birthdate
Calculate(Birthdate)
End Sub
ReadOnly Property Birthdate As Date
Get
Return _birthdate
End Get
End Property
ReadOnly Property Years As Integer
Get
Return _years
End Get
End Property
ReadOnly Property Monthes As Integer
Get
Return _monthes
End Get
End Property
ReadOnly Property Days As Integer
Get
Return _days
End Get
End Property
ReadOnly Property Printable As String
Get
Return "You Are " & _years & " Years " & _monthes & " Monthes " & _days & " Old"
End Get
End Property
Private Sub Calculate(Birthdate As Date)
' Breaking Down The Date Difference Into Year, Monthes and Days
_years = DateDiff(DateInterval.Year, Birthdate, Now)
_monthes = DateDiff(DateInterval.Month, Birthdate, Now) Mod 12
_days = DateDiff(DateInterval.Day, Birthdate, Now) Mod 30 - 10
End Sub
End Class

View File

@ -0,0 +1,139 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class club
Private _id As Integer
Private _title As String
Private _owner As person
Private _country As country
Private _address As String
Private _location As String
Private _logo As MemoryStream
Public Sub New(ID As Integer)
GetClubData(ID)
End Sub
ReadOnly Property ID As Integer
Get
Return _id
End Get
End Property
ReadOnly Property Title As String
Get
Return _title
End Get
End Property
ReadOnly Property Country As country
Get
Return _country
End Get
End Property
ReadOnly Property Location As String
Get
Return _location
End Get
End Property
ReadOnly Property Logo As MemoryStream
Get
Return _logo
End Get
End Property
Public Sub GetClubData(ID As Integer)
Dim QRY As String = "select * from clubs where id = " & ID & " limit 1"
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
_id = Int(RDR("id"))
Catch ex As Exception
_id = 0
End Try
Try
_title = RDR("title")
Catch ex As Exception
_title = Nothing
End Try
Try
_country = New country(Int(RDR("country")))
Catch ex As Exception
_country = Nothing
End Try
Try
_location = RDR("location")
Catch ex As Exception
_location = Nothing
End Try
Try ' Club Logo -----------------------------------------
Dim data As Byte() = DirectCast(RDR("logo"), Byte())
_logo = New System.IO.MemoryStream(data)
Catch ex As Exception
_logo = Nothing
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Public Sub Create(Title As String, Country As country, Location As String, Logo As MemoryStream)
End Sub
Public Sub UpdateLogo(LogoPictureBox As PictureBox)
' To Avoid Wrong Execution Of Code
If _id = 0 Then Exit Sub
' Query To Update
Dim QRY As String = "update clubs set logo = @logo where id=" & _id
' Connection
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
' Preparing The Image
Dim Picture As New MemoryStream
LogoPictureBox.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
Dim arrImage() As Byte = Picture.GetBuffer
Picture.Close()
Try
CON.Open()
COM.Parameters.AddWithValue("@logo", arrImage)
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
End Class

View File

@ -0,0 +1,228 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class country
Private _id As Integer
Private _name As String
Private _flag As MemoryStream
Private _flat_flag As String
Private _shiny_flag As String
Private _iso As String
Private _iso3 As String
Private _num_code As Integer
Private _call_code As Integer
Private _currency As String
Public Sub New()
End Sub
Public Sub New(id As Integer)
GetCountryData(id)
End Sub
ReadOnly Property ID As Integer
Get
Return _id
End Get
End Property
ReadOnly Property Name As String
Get
Return _name
End Get
End Property
ReadOnly Property Flag As MemoryStream
Get
Return _flag
End Get
End Property
ReadOnly Property FlatFlag As String
Get
Return _flat_flag
End Get
End Property
ReadOnly Property ShinyFlag As String
Get
Return _shiny_flag
End Get
End Property
ReadOnly Property ISO As String
Get
Return _iso
End Get
End Property
ReadOnly Property ISO3 As String
Get
Return _iso3
End Get
End Property
ReadOnly Property NumCode As Integer
Get
Return _num_code
End Get
End Property
ReadOnly Property CallCode As Integer
Get
Return _call_code
End Get
End Property
ReadOnly Property Currency As String
Get
Return _currency
End Get
End Property
Private Sub GetCountryData(ID As Integer)
Dim QRY As String = ("select * from countries where id = " & ID & " limit 1")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try ' ID
_id = RDR("id")
Catch ex As Exception
_id = 0
End Try
Try ' First Name
_name = RDR("name")
Catch ex As Exception
_name = Nothing
End Try
Try ' Middle Name
_flat_flag = RDR("flatFlag")
Catch ex As Exception
_flat_flag = Nothing
End Try
Try ' Last Name
_shiny_flag = RDR("shinyFlag")
Catch ex As Exception
_shiny_flag = Nothing
End Try
Try ' Gender
_iso = RDR("iso")
Catch ex As Exception
_iso = Nothing
End Try
Try ' Birthday
_iso3 = RDR("iso3")
Catch ex As Exception
_iso3 = Nothing
End Try
Try ' Age
_num_code = RDR("numcode")
Catch ex As Exception
_num_code = 0
End Try
Try ' Weight
_call_code = RDR("callcode")
Catch ex As Exception
_call_code = 0
End Try
Try ' Category
_currency = RDR("currency")
Catch ex As Exception
_currency = Nothing
End Try
Try ' Country Flag --------------------------------------
Dim data As Byte() = DirectCast(RDR("flag"), Byte())
_flag = New System.IO.MemoryStream(data)
Catch ex As Exception
_flag = Nothing
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
End Sub
Public Sub UpdateFlag(FlagPictureBox As PictureBox)
' To Avoid Wrong Execution Of Code
If _id = 0 Then Exit Sub
' Query To Update
Dim QRY As String = "update countries set flag = @flag where id=" & _id
' Connection
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
' Preparing The Image
Dim Picture As New MemoryStream
FlagPictureBox.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
Dim arrImage() As Byte = Picture.GetBuffer
Picture.Close()
Try
CON.Open()
COM.Parameters.AddWithValue("@flag", arrImage)
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Public Function GetCountryList() As List(Of country)
Dim QRY As String = "select * from countries order by name asc"
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of country)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New country(RDR("id")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return LST
End Function
End Class

View File

@ -0,0 +1,41 @@
Imports Newtonsoft.Json
Public Class location
Private _latitude As Double
Private _longitude As Double
Private _altitude As Double
Private product As Object
Public Sub New(latitude, longitude)
_latitude = latitude
_longitude = longitude
End Sub
Public Sub New(latitude, longitude, altitude)
_latitude = latitude
_longitude = longitude
_altitude = altitude
End Sub
ReadOnly Property Latitude As Double
Get
Return _latitude
End Get
End Property
ReadOnly Property Longitude As Double
Get
Return _longitude
End Get
End Property
ReadOnly Property Altitude As Double
Get
Return _altitude
End Get
End Property
End Class

View File

@ -0,0 +1,371 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class person
' Person Data Variables
Private _id As Integer ' Member ID
Private _first_name As String ' First Name
Private _middle_name As String ' Middle Name
Private _last_name As String ' Last Name
Private _gender As String ' Gender
Private _birthday As Date ' Date Of Birth
Private _age As age ' Calculated From Birthday
Private _weight As weight ' Weight
Private _picture As MemoryStream ' Picture
' Person Country
Private _nationality As country ' Country Object
' Person Team / Club
Private _team As club ' Club Object
'--------------------------------------------------------------------------------------
' CONSTRUCTORS
'--------------------------------------------------------------------------------------
Public Sub New(Fname As String, Sname As String, Lname As String, DateOfBirth As String, Gender As String, Weight As String, CPR As String, Country As Integer, Mobile As String, Email As String, Address As String, Club As Integer, PictureBox As PictureBox)
' Create A New Person
CREATE(Fname, Sname, Lname, DateOfBirth, Gender, Weight, CPR, Country, Mobile, Email, Address, Club, PictureBox)
' Get Person Data From Returned ID
GetPersonData(_id)
End Sub
Public Sub New(ID As Integer)
If ID = 0 Then
ZeroID()
Else
GetPersonData(ID)
End If
End Sub
'--------------------------------------------------------------------------------------
' PROPERTIES
'--------------------------------------------------------------------------------------
Public Property ID As Integer
Get
Return _id
End Get
Set(value As Integer)
_id = value
GetPersonData(_id)
End Set
End Property
ReadOnly Property FirstName As String
Get
Return _first_name
End Get
End Property
ReadOnly Property LastName As String
Get
Return _last_name
End Get
End Property
ReadOnly Property MiddleName As String
Get
Return _first_name + " " + _last_name
End Get
End Property
ReadOnly Property ShortName As String
Get
Return _first_name + " " + _last_name
End Get
End Property
ReadOnly Property FullName As String
Get
Return _first_name + " " + _middle_name + " " + _last_name
End Get
End Property
ReadOnly Property Age As age
Get
Return _age
End Get
End Property
ReadOnly Property Birthday As Date
Get
Return _birthday
End Get
End Property
ReadOnly Property Weight As weight
Get
Return _weight
End Get
End Property
ReadOnly Property Gender As String
Get
Return _gender
End Get
End Property
ReadOnly Property Team As club
Get
Return _team
End Get
End Property
ReadOnly Property Nationality As country
Get
Return _nationality
End Get
End Property
ReadOnly Property Picture As MemoryStream
Get
Return _picture
End Get
End Property
'--------------------------------------------------------------------------------------
' Create Section
'--------------------------------------------------------------------------------------
Public Sub CREATE(Fname As String, Sname As String, Lname As String, DateOfBirth As String, Gender As String, Weight As String, CPR As String, Country As Integer, Mobile As String, Email As String, Address As String, Club As Integer, PictureBox As PictureBox)
Dim QRY As String = ("
insert into
person (fname, mname, lname, country, gender, date_of_birth, weight, cpr, mobile, email, address, club, picture)
values ('" & Fname & "', '" & Sname & "', '" & Lname & "', " & Country & ", '" & Gender & "', '" & DateOfBirth & "', '" & Weight & "', '" & CPR & "', '" & Mobile & "', '" & Email & "', '" & Address & "', " & Club & ", @picture);
select last_insert_id() as 'id';
")
' Generate Weight Object
_weight = New weight(ReadMySQLDate(DateOfBirth), Gender, CDbl(Val(Weight)))
' Connection
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim Picture As New MemoryStream
PictureBox.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
Dim arrImage() As Byte = Picture.GetBuffer
Picture.Close()
Dim RDR As MySqlDataReader
Try
CON.Open()
COM.Parameters.AddWithValue("@picture", arrImage)
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try ' ID
_id = RDR("id")
Catch ex As Exception
_id = 0
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
' Updating Weight
UpdateWeight(CDbl(Val(Weight)))
End Sub
'--------------------------------------------------------------------------------------
' Update Section
'--------------------------------------------------------------------------------------
Public Sub UpdatePicture(PictureBox As PictureBox)
' Query To Update
Dim QRY As String = "update person set picture = @picture where id=" & _id
' Connection
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
' Preparing The Image
Dim Picture As New MemoryStream
PictureBox.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
Dim arrImage() As Byte = Picture.GetBuffer
Picture.Close()
Try
CON.Open()
COM.Parameters.AddWithValue("@picture", arrImage)
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
'--------------------------------------------------------------------------------------
' SUBROUTINES
'--------------------------------------------------------------------------------------
Private Sub GetPersonData(FighterID As Integer)
Dim QRY As String =
("
select
person.id as 'pid',
person.fname,
person.mname,
person.lname,
TIMESTAMPDIFF(YEAR, person.date_of_birth, CURDATE()) as 'age',
person.date_of_birth,
person.weight,
person.gender,
person.country as 'country',
clubs.id as 'club',
person.picture as 'picture'
FROM
person
left join
clubs on person.club = clubs.id
left join
countries on clubs.country = countries.id
where
person.id=" + FighterID.ToString
)
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try ' ID
_id = RDR("pid")
Catch ex As Exception
_id = 0
End Try
Try ' First Name
_first_name = RDR("fname")
Catch ex As Exception
_first_name = Nothing
End Try
Try ' Middle Name
_middle_name = RDR("mname")
Catch ex As Exception
_middle_name = Nothing
End Try
Try ' Last Name
_last_name = RDR("lname")
Catch ex As Exception
_last_name = Nothing
End Try
Try ' Gender
_gender = RDR("gender")
Catch ex As Exception
_gender = Nothing
End Try
Try ' Birthday
_birthday = CDate(RDR("date_of_birth"))
Catch ex As Exception
_birthday = Nothing
End Try
Try ' Age
_age = New age(_birthday)
Catch ex As Exception
_age = Nothing
End Try
Try ' Weight
_weight = New weight(_birthday, _gender, RDR("weight"))
Catch ex As Exception
_weight = Nothing
End Try
Try ' Team Name
_team = New club(RDR("club"))
Catch ex As Exception
_team = Nothing
End Try
Try ' Country
_nationality = New country(RDR("country"))
Catch ex As Exception
_nationality = Nothing
End Try
Try ' Fighter Picture -------------------------------------------
Dim data As Byte() = DirectCast(RDR("picture"), Byte())
_picture = New System.IO.MemoryStream(data)
Catch ex As Exception
_picture = Nothing
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
End Sub
'--------------------------------------------------------------------------------------
' FUNCTIONS
'--------------------------------------------------------------------------------------
Public Sub UpdateWeight(Weight As Double)
' This Updates The Weight Of The Person
_weight.UpdateWeight(Me._id, Weight)
End Sub
'--------------------------------------------------------------------------------------
' Zero ID Person
'--------------------------------------------------------------------------------------
Private Sub ZeroID()
_id = 0
_first_name = "B"
_middle_name = "Y"
_last_name = "E"
_gender = "EXGEN"
_birthday = ""
_age = Nothing
_weight = Nothing
_picture = Nothing
_team = Nothing
_nationality = Nothing
End Sub
End Class

View File

@ -0,0 +1,209 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class referee
' Referee Data Variables
Private _id As Integer ' Member ID
Private _first_name As String ' First Name
Private _middle_name As String ' Middle Name
Private _last_name As String ' Last Name
Private _gender As String ' Gender
Private _birthday As Date ' Date Of Birth
Private _age As Integer ' Calculated From Birthday
Private _picture As MemoryStream ' Picture
' Referee Team / Club
Private _team As club ' Team Within Country
' Referee Country
Private _nationality As country ' Country Name
'--------------------------------------------------------------------------------------
' CONSTRUCTORS
'--------------------------------------------------------------------------------------
' With Initial Parameter
Public Sub New(ID As Integer)
GetRefereeData(ID)
End Sub
'--------------------------------------------------------------------------------------
' PROPERTIES
'--------------------------------------------------------------------------------------
Public Property ID As Integer
Get
Return _id
End Get
Set(value As Integer)
_id = value
GetRefereeData(_id)
End Set
End Property
ReadOnly Property FirstNAME As String
Get
Return _first_name
End Get
End Property
ReadOnly Property LastNAME As String
Get
Return _last_name
End Get
End Property
ReadOnly Property MiddleNAME As String
Get
Return _first_name + " " + _last_name
End Get
End Property
ReadOnly Property ShortName As String
Get
Return _first_name + " " + _last_name
End Get
End Property
ReadOnly Property FullName As String
Get
Return _first_name + " " + _middle_name + " " + _last_name
End Get
End Property
ReadOnly Property Age As Integer
Get
Return _age
End Get
End Property
ReadOnly Property Birthday As Date
Get
Return _birthday
End Get
End Property
ReadOnly Property Country As country
Get
Return _nationality
End Get
End Property
ReadOnly Property Team As club
Get
Return _team
End Get
End Property
ReadOnly Property Picture As MemoryStream
Get
Return _picture
End Get
End Property
'--------------------------------------------------------------------------------------
' SUBROUTINES
'--------------------------------------------------------------------------------------
Private Sub GetRefereeData(FighterID As Integer)
Dim QRY As String =
("
select
person.id as 'pid',
person.fname,
person.mname,
person.lname,
TIMESTAMPDIFF(YEAR, person.date_of_birth, CURDATE()) as 'age',
person.date_of_birth,
person.gender,
person.club as 'club',
person.country as 'country',
person.picture
FROM
person
where
person.id=" + FighterID.ToString
)
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
_id = RDR("pid")
Catch ex As Exception
_id = 0
End Try
Try
_first_name = RDR("fname")
Catch ex As Exception
_first_name = Nothing
End Try
Try
_middle_name = RDR("mname")
Catch ex As Exception
_middle_name = Nothing
End Try
Try
_last_name = RDR("lname")
Catch ex As Exception
_last_name = Nothing
End Try
Try
_gender = RDR("gender")
Catch ex As Exception
_gender = Nothing
End Try
Try
_birthday = CDate(RDR("date_of_birth"))
Catch ex As Exception
_birthday = Nothing
End Try
Try
_age = RDR("age")
Catch ex As Exception
_age = 0
End Try
Try
_team = New club(Int(RDR("club")))
Catch ex As Exception
_team = Nothing
End Try
Try
_nationality = New country(Int(RDR("country")))
Catch ex As Exception
_nationality = Nothing
End Try
Try ' Fighter Personal Picture ----------------------------------
Dim arrImage() As Byte = DirectCast(RDR("picture"), Byte())
_picture = New MemoryStream(arrImage)
Catch ex As Exception
_picture = Nothing
End Try '--------------------------------------------------------
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
End Sub
End Class

View File

@ -0,0 +1,205 @@
Imports System.IO
Imports MySql.Data.MySqlClient
' Weight Class To Generate Weight (Category, Class) From Gender, Weight, Date Of Birth.
Public Class weight
Private _id As Integer ' Weight Profile ID
Private _age As age ' Age Object (years, monthes, days)
Private _gender As String ' Weight Filter Gender
Private _weight As Double ' Weight In KG
Private _weight_class As String ' Weight Class Name
Private _weight_category As String ' Weight Category Name
Public Sub New(Birthdate As Date, Gender As String, Weight As Double)
_age = New age(Birthdate)
_gender = Gender
_weight = Weight
' Weight Filter That Gets
WeightFilter(_age.Years, Weight, Gender)
End Sub
ReadOnly Property WeightFilterID As Integer
Get
Return _id
End Get
End Property
ReadOnly Property Weight As String
Get
Return Math.Round(_weight, 1).ToString
End Get
End Property
ReadOnly Property WeightClass As String
Get
Return _weight_class
End Get
End Property
ReadOnly Property WeightCategory As String
Get
Return _weight_category
End Get
End Property
Private Sub WeightFilter(Age As Integer, Weight As String, Gender As String)
Dim QRY As String = ("
SELECT
id,
Category,
ClassName
FROM
weight_divisions
WHERE
('" & Age & "' BETWEEN weight_divisions.minAge AND weight_divisions.maxAge)
AND
(weight_divisions.gender = '" & Gender & "')
AND
('" & Weight & "' > weight_divisions.minWeight AND '" & Weight & "' <= weight_divisions.maxWeight)
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
_id = RDR("id")
_weight_category = RDR("Category")
_weight_class = RDR("ClassName")
End While
End If
CON.Close()
Catch ex As MySqlException
_weight_category = Nothing
_weight_class = Nothing
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Private Sub GetPersonWeight(PersonID As Integer)
Dim QRY As String =
("
select
person.weight,
person.gender,
person.date_of_birth,
FROM
person
where
person.id=" + PersonID.ToString
)
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
_age = New age(RDR("date_of_birth"))
Catch ex As Exception
End Try
Try
_weight = RDR("weight")
Catch ex As Exception
_weight = 0
End Try
Try
_gender = RDR("gender")
Catch ex As Exception
_gender = Nothing
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
End Sub
Public Sub UpdateWeight(PersonID As Integer, NewWeight As Double)
' If Person ID = 0 Just Dont Do any Thing
If PersonID = 0 Then Exit Sub
Dim QRY As String = ("
/* Take The New Reading */
SET @pid = " & PersonID.ToString & "; /* Person ID */
SET @weight = " & NewWeight.ToString & "; /* New Weight Reading */
SET SQL_SAFE_UPDATES = 0; /* Disable Safe Mode For Updates */
/* Update Person Weight */
UPDATE person SET weight = @weight WHERE id = @pid;
/* Update Participants Weight Classes */
UPDATE
person
LEFT JOIN
weight_divisions
ON
(YEAR(CURDATE()) - YEAR(person.date_of_birth) BETWEEN weight_divisions.minAge AND weight_divisions.maxAge) AND
(weight_divisions.gender = person.gender) AND
(person.weight > weight_divisions.minWeight AND person.weight <= weight_divisions.maxWeight)
SET
person.wp = weight_divisions.id,
person.category = weight_divisions.category,
person.weight_Class = weight_divisions.className
WHERE
person.id = @pid;
/* Take Snap Shot Copy Current Weight To Person Body As A History */
INSERT INTO person_body (pid, weight, category, weight_class) SELECT id, weight, category, weight_class FROM person WHERE id = @pid;
/* Enable Safe Mode For Updates */
SET SQL_SAFE_UPDATES = 1;
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Try
CON.Open()
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
End Class

View File

@ -0,0 +1,104 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_update_logo
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()
Me.cbo_clubs = New System.Windows.Forms.ComboBox()
Me.btn_save = New System.Windows.Forms.Button()
Me.btn_open = New System.Windows.Forms.Button()
Me.pb_logo = New System.Windows.Forms.PictureBox()
CType(Me.pb_logo, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'cbo_clubs
'
Me.cbo_clubs.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.cbo_clubs.DropDownHeight = 100
Me.cbo_clubs.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.cbo_clubs.ForeColor = System.Drawing.Color.White
Me.cbo_clubs.FormattingEnabled = True
Me.cbo_clubs.IntegralHeight = False
Me.cbo_clubs.Location = New System.Drawing.Point(5, 335)
Me.cbo_clubs.Name = "cbo_clubs"
Me.cbo_clubs.Size = New System.Drawing.Size(325, 30)
Me.cbo_clubs.TabIndex = 9
'
'btn_save
'
Me.btn_save.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_save.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_save.ForeColor = System.Drawing.Color.White
Me.btn_save.Location = New System.Drawing.Point(170, 370)
Me.btn_save.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btn_save.Name = "btn_save"
Me.btn_save.Size = New System.Drawing.Size(160, 45)
Me.btn_save.TabIndex = 8
Me.btn_save.Text = "Save"
Me.btn_save.UseVisualStyleBackColor = True
'
'btn_open
'
Me.btn_open.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_open.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_open.ForeColor = System.Drawing.Color.White
Me.btn_open.Location = New System.Drawing.Point(5, 370)
Me.btn_open.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btn_open.Name = "btn_open"
Me.btn_open.Size = New System.Drawing.Size(160, 45)
Me.btn_open.TabIndex = 7
Me.btn_open.Text = "Open"
Me.btn_open.UseVisualStyleBackColor = True
'
'pb_logo
'
Me.pb_logo.Location = New System.Drawing.Point(5, 5)
Me.pb_logo.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.pb_logo.Name = "pb_logo"
Me.pb_logo.Size = New System.Drawing.Size(325, 325)
Me.pb_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_logo.TabIndex = 6
Me.pb_logo.TabStop = False
'
'frm_update_logo
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(336, 421)
Me.Controls.Add(Me.cbo_clubs)
Me.Controls.Add(Me.btn_save)
Me.Controls.Add(Me.btn_open)
Me.Controls.Add(Me.pb_logo)
Me.ForeColor = System.Drawing.Color.White
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "frm_update_logo"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Update Club Logo"
CType(Me.pb_logo, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents cbo_clubs As ComboBox
Friend WithEvents btn_save As Button
Friend WithEvents btn_open As Button
Friend WithEvents pb_logo As PictureBox
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,54 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class frm_update_logo
Private Sub btn_open_Click(sender As Object, e As EventArgs) Handles btn_open.Click
If IsNothing(pb_logo.Image) Then
' Loads And Image And Resize It In PNG Format
ResizePicture(pb_logo, 500, 500)
ElseIf Not IsNothing(pb_logo.Image) Then
Dim iPictureUpdate As DialogResult = MessageBox.Show("Would You Like To Update The Club Logo ?", "Club Logo Update", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If iPictureUpdate = DialogResult.Yes Then
' Loads And Image And Resize It In PNG Format
ResizePicture(pb_logo, 500, 500)
End If
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' List Down Clubs
GetClubsList(cbo_clubs)
End Sub
Private Sub btn_save_Click(sender As Object, e As EventArgs) Handles btn_save.Click
' Updates A Club Logo
UpdateClubLogo(pb_logo, cbo_clubs.SelectedValue)
End Sub
Private Sub cbo_clubs_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_clubs.SelectedIndexChanged
Try
' Displays Clubs Logo
GetClubLogo(pb_logo, cbo_clubs.SelectedValue)
Catch ex As Exception
End Try
End Sub
End Class

View File

@ -0,0 +1,105 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frm_update_flag
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()
Me.pb_country_flag = New System.Windows.Forms.PictureBox()
Me.btn_open = New System.Windows.Forms.Button()
Me.btn_save = New System.Windows.Forms.Button()
Me.cbo_countries = New System.Windows.Forms.ComboBox()
CType(Me.pb_country_flag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pb_country_flag
'
Me.pb_country_flag.Location = New System.Drawing.Point(5, 5)
Me.pb_country_flag.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.pb_country_flag.Name = "pb_country_flag"
Me.pb_country_flag.Size = New System.Drawing.Size(325, 205)
Me.pb_country_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_country_flag.TabIndex = 0
Me.pb_country_flag.TabStop = False
'
'btn_open
'
Me.btn_open.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_open.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_open.Location = New System.Drawing.Point(5, 250)
Me.btn_open.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btn_open.Name = "btn_open"
Me.btn_open.Size = New System.Drawing.Size(160, 45)
Me.btn_open.TabIndex = 1
Me.btn_open.Text = "Open"
Me.btn_open.UseVisualStyleBackColor = True
'
'btn_save
'
Me.btn_save.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_save.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_save.Location = New System.Drawing.Point(170, 250)
Me.btn_save.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btn_save.Name = "btn_save"
Me.btn_save.Size = New System.Drawing.Size(160, 45)
Me.btn_save.TabIndex = 2
Me.btn_save.Text = "Save"
Me.btn_save.UseVisualStyleBackColor = True
'
'cbo_countries
'
Me.cbo_countries.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.cbo_countries.DropDownHeight = 100
Me.cbo_countries.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.cbo_countries.ForeColor = System.Drawing.Color.White
Me.cbo_countries.FormattingEnabled = True
Me.cbo_countries.IntegralHeight = False
Me.cbo_countries.Location = New System.Drawing.Point(5, 215)
Me.cbo_countries.Name = "cbo_countries"
Me.cbo_countries.Size = New System.Drawing.Size(325, 30)
Me.cbo_countries.TabIndex = 3
'
'frm_update_flag
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(336, 301)
Me.Controls.Add(Me.cbo_countries)
Me.Controls.Add(Me.btn_save)
Me.Controls.Add(Me.btn_open)
Me.Controls.Add(Me.pb_country_flag)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ForeColor = System.Drawing.Color.White
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "frm_update_flag"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Update Flag"
CType(Me.pb_country_flag, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pb_country_flag As PictureBox
Friend WithEvents btn_open As Button
Friend WithEvents btn_save As Button
Friend WithEvents cbo_countries As ComboBox
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,78 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class frm_update_flag
Private Country As country
Private Sub btn_open_Click(sender As Object, e As EventArgs) Handles btn_open.Click
If IsNothing(pb_country_flag.Image) Then
' Open Picture File
ResizePicture(pb_country_flag, 236, 156)
' Making Sure The Isntance Is Ready
Country = New country(cbo_countries.SelectedValue)
' Store The Picture
Country.UpdateFlag(pb_country_flag)
ElseIf Not IsNothing(pb_country_flag.Image) Then
Dim iPictureUpdate As DialogResult = MessageBox.Show("Would You Like To Update The Country Flag ?", "Country Flag Update", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If iPictureUpdate = DialogResult.Yes Then
' Open Picture File
ResizePicture(pb_country_flag, 236, 156)
' Making Sure The Isntance Is Ready
Country = New country(cbo_countries.SelectedValue)
' Store The Picture
Country.UpdateFlag(pb_country_flag)
End If
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
' Read All Countries To ComboBox
GetCountryList(cbo_countries)
Catch ex As Exception
cbo_countries.Items.Clear()
cbo_countries.DataSource = Nothing
End Try
End Sub
Private Sub btn_save_Click(sender As Object, e As EventArgs) Handles btn_save.Click
Try
' Read Created Function To Update Country Flag In Functions Module
Country = New country(cbo_countries.SelectedValue)
Country.UpdateFlag(pb_country_flag)
Catch ex As Exception
pb_country_flag.Image = Nothing
End Try
End Sub
Private Sub cbo_countries_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_countries.SelectedIndexChanged
Try
' Read Country Flag Image From Database To Picture Box
Country = New country(cbo_countries.SelectedValue)
pb_country_flag.Image = Image.FromStream(Country.Flag)
Catch ex As Exception
pb_country_flag.Image = Nothing
End Try
End Sub
End Class

View File

@ -0,0 +1,473 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_add_person
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()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txt_fname = New System.Windows.Forms.TextBox()
Me.txt_mname = New System.Windows.Forms.TextBox()
Me.date_birthday = New System.Windows.Forms.DateTimePicker()
Me.Label4 = New System.Windows.Forms.Label()
Me.txt_lname = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.cbo_gender = New System.Windows.Forms.ComboBox()
Me.txt_mobile = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txt_cpr = New System.Windows.Forms.TextBox()
Me.txt_weight = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.txt_address = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.cbo_club = New System.Windows.Forms.ComboBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.btn_add_person = New System.Windows.Forms.Button()
Me.pb_person_picture = New System.Windows.Forms.PictureBox()
Me.lbl_picture = New System.Windows.Forms.Label()
Me.cbo_country = New System.Windows.Forms.ComboBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txt_email = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.pb_flag = New System.Windows.Forms.PictureBox()
Me.pb_club = New System.Windows.Forms.PictureBox()
CType(Me.pb_person_picture, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_club, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(235, 10)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(145, 30)
Me.Label1.TabIndex = 2
Me.Label1.Text = "First Name"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label2.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(235, 45)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(145, 30)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Middle Name"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_fname
'
Me.txt_fname.BackColor = System.Drawing.Color.White
Me.txt_fname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txt_fname.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_fname.ForeColor = System.Drawing.Color.Black
Me.txt_fname.Location = New System.Drawing.Point(390, 10)
Me.txt_fname.Name = "txt_fname"
Me.txt_fname.Size = New System.Drawing.Size(339, 29)
Me.txt_fname.TabIndex = 5
'
'txt_mname
'
Me.txt_mname.BackColor = System.Drawing.Color.White
Me.txt_mname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txt_mname.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_mname.ForeColor = System.Drawing.Color.Black
Me.txt_mname.Location = New System.Drawing.Point(390, 45)
Me.txt_mname.Name = "txt_mname"
Me.txt_mname.Size = New System.Drawing.Size(340, 29)
Me.txt_mname.TabIndex = 6
'
'date_birthday
'
Me.date_birthday.CustomFormat = "yyyy-MM-dd"
Me.date_birthday.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.date_birthday.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.date_birthday.Location = New System.Drawing.Point(390, 185)
Me.date_birthday.Name = "date_birthday"
Me.date_birthday.Size = New System.Drawing.Size(340, 29)
Me.date_birthday.TabIndex = 8
'
'Label4
'
Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label4.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(235, 185)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(145, 30)
Me.Label4.TabIndex = 9
Me.Label4.Text = "Birthdate"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_lname
'
Me.txt_lname.BackColor = System.Drawing.Color.White
Me.txt_lname.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txt_lname.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_lname.ForeColor = System.Drawing.Color.Black
Me.txt_lname.Location = New System.Drawing.Point(390, 80)
Me.txt_lname.Name = "txt_lname"
Me.txt_lname.Size = New System.Drawing.Size(340, 29)
Me.txt_lname.TabIndex = 11
'
'Label3
'
Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label3.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(235, 80)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(145, 30)
Me.Label3.TabIndex = 10
Me.Label3.Text = "Last Name"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label5
'
Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label5.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(235, 150)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(145, 30)
Me.Label5.TabIndex = 12
Me.Label5.Text = "Gender"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cbo_gender
'
Me.cbo_gender.BackColor = System.Drawing.Color.White
Me.cbo_gender.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbo_gender.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbo_gender.ForeColor = System.Drawing.Color.Black
Me.cbo_gender.FormattingEnabled = True
Me.cbo_gender.Items.AddRange(New Object() {"MALE", "FEMALE"})
Me.cbo_gender.Location = New System.Drawing.Point(390, 150)
Me.cbo_gender.Name = "cbo_gender"
Me.cbo_gender.Size = New System.Drawing.Size(340, 30)
Me.cbo_gender.TabIndex = 13
Me.cbo_gender.Text = "MALE"
'
'txt_mobile
'
Me.txt_mobile.BackColor = System.Drawing.Color.White
Me.txt_mobile.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txt_mobile.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_mobile.ForeColor = System.Drawing.Color.Black
Me.txt_mobile.Location = New System.Drawing.Point(390, 290)
Me.txt_mobile.Name = "txt_mobile"
Me.txt_mobile.Size = New System.Drawing.Size(340, 29)
Me.txt_mobile.TabIndex = 19
'
'Label6
'
Me.Label6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label6.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(235, 290)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(145, 30)
Me.Label6.TabIndex = 18
Me.Label6.Text = "Mobile"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_cpr
'
Me.txt_cpr.BackColor = System.Drawing.Color.White
Me.txt_cpr.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txt_cpr.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_cpr.ForeColor = System.Drawing.Color.Black
Me.txt_cpr.Location = New System.Drawing.Point(390, 255)
Me.txt_cpr.MaxLength = 9
Me.txt_cpr.Name = "txt_cpr"
Me.txt_cpr.Size = New System.Drawing.Size(340, 29)
Me.txt_cpr.TabIndex = 17
'
'txt_weight
'
Me.txt_weight.BackColor = System.Drawing.Color.White
Me.txt_weight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txt_weight.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_weight.ForeColor = System.Drawing.Color.Black
Me.txt_weight.Location = New System.Drawing.Point(390, 220)
Me.txt_weight.Name = "txt_weight"
Me.txt_weight.Size = New System.Drawing.Size(340, 29)
Me.txt_weight.TabIndex = 16
'
'Label7
'
Me.Label7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label7.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor = System.Drawing.Color.White
Me.Label7.Location = New System.Drawing.Point(235, 255)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(145, 30)
Me.Label7.TabIndex = 15
Me.Label7.Text = "CPR"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label8
'
Me.Label8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label8.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(235, 220)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(145, 30)
Me.Label8.TabIndex = 14
Me.Label8.Text = "Weight"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_address
'
Me.txt_address.BackColor = System.Drawing.Color.White
Me.txt_address.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txt_address.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_address.ForeColor = System.Drawing.Color.Black
Me.txt_address.Location = New System.Drawing.Point(390, 360)
Me.txt_address.Name = "txt_address"
Me.txt_address.Size = New System.Drawing.Size(340, 29)
Me.txt_address.TabIndex = 23
'
'Label10
'
Me.Label10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label10.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.ForeColor = System.Drawing.Color.White
Me.Label10.Location = New System.Drawing.Point(235, 360)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(145, 30)
Me.Label10.TabIndex = 22
Me.Label10.Text = "Address"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cbo_club
'
Me.cbo_club.BackColor = System.Drawing.Color.White
Me.cbo_club.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbo_club.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbo_club.ForeColor = System.Drawing.Color.Black
Me.cbo_club.FormattingEnabled = True
Me.cbo_club.Items.AddRange(New Object() {"ACES", "WARRIOR TAEKWONDO ACADEMY", "BAHRAIN TAEKWONDO SCHOOL"})
Me.cbo_club.Location = New System.Drawing.Point(390, 395)
Me.cbo_club.Name = "cbo_club"
Me.cbo_club.Size = New System.Drawing.Size(340, 30)
Me.cbo_club.TabIndex = 25
Me.cbo_club.Text = "Select Participant Club"
'
'Label11
'
Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label11.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.ForeColor = System.Drawing.Color.White
Me.Label11.Location = New System.Drawing.Point(235, 395)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(145, 30)
Me.Label11.TabIndex = 24
Me.Label11.Text = "Club"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btn_add_person
'
Me.btn_add_person.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_add_person.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_add_person.ForeColor = System.Drawing.Color.White
Me.btn_add_person.Location = New System.Drawing.Point(10, 360)
Me.btn_add_person.Name = "btn_add_person"
Me.btn_add_person.Size = New System.Drawing.Size(215, 65)
Me.btn_add_person.TabIndex = 26
Me.btn_add_person.Text = "ADD PERSON"
Me.btn_add_person.UseVisualStyleBackColor = True
'
'pb_person_picture
'
Me.pb_person_picture.Image = Global.TAKEONE_EMASS.My.Resources.Resources._8i6oer5KT
Me.pb_person_picture.Location = New System.Drawing.Point(10, 45)
Me.pb_person_picture.Name = "pb_person_picture"
Me.pb_person_picture.Size = New System.Drawing.Size(215, 235)
Me.pb_person_picture.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_person_picture.TabIndex = 27
Me.pb_person_picture.TabStop = False
'
'lbl_picture
'
Me.lbl_picture.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_picture.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_picture.ForeColor = System.Drawing.Color.White
Me.lbl_picture.Location = New System.Drawing.Point(10, 10)
Me.lbl_picture.Name = "lbl_picture"
Me.lbl_picture.Size = New System.Drawing.Size(215, 30)
Me.lbl_picture.TabIndex = 28
Me.lbl_picture.Text = "Person Picture"
Me.lbl_picture.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'cbo_country
'
Me.cbo_country.BackColor = System.Drawing.Color.White
Me.cbo_country.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbo_country.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbo_country.ForeColor = System.Drawing.Color.Black
Me.cbo_country.FormattingEnabled = True
Me.cbo_country.Items.AddRange(New Object() {"WHITE", "YELLOW", "GREEN", "BLUE", "RED", "POOM", "BLACK DAN 1", "BLACK DAN 2", "BLACK DAN 3", "BLACK DAN 4", "BLACK DAN 5", "BLACK DAN 6", "BLACK DAN 7", "BLACK DAN 8", "BLACK DAN 9", "BLACK DAN 10"})
Me.cbo_country.Location = New System.Drawing.Point(390, 115)
Me.cbo_country.Name = "cbo_country"
Me.cbo_country.Size = New System.Drawing.Size(340, 30)
Me.cbo_country.TabIndex = 30
Me.cbo_country.Text = "Select Your Nationality"
'
'Label12
'
Me.Label12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label12.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.ForeColor = System.Drawing.Color.White
Me.Label12.Location = New System.Drawing.Point(235, 115)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(145, 30)
Me.Label12.TabIndex = 29
Me.Label12.Text = "Nationality"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_email
'
Me.txt_email.BackColor = System.Drawing.Color.White
Me.txt_email.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txt_email.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_email.ForeColor = System.Drawing.Color.Black
Me.txt_email.Location = New System.Drawing.Point(390, 325)
Me.txt_email.Name = "txt_email"
Me.txt_email.Size = New System.Drawing.Size(340, 29)
Me.txt_email.TabIndex = 32
'
'Label9
'
Me.Label9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label9.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ForeColor = System.Drawing.Color.White
Me.Label9.Location = New System.Drawing.Point(235, 325)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(145, 30)
Me.Label9.TabIndex = 31
Me.Label9.Text = "Em@il"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'pb_flag
'
Me.pb_flag.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.pb_flag.Location = New System.Drawing.Point(110, 290)
Me.pb_flag.Name = "pb_flag"
Me.pb_flag.Size = New System.Drawing.Size(100, 60)
Me.pb_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_flag.TabIndex = 37
Me.pb_flag.TabStop = False
'
'pb_club
'
Me.pb_club.BackColor = System.Drawing.Color.Transparent
Me.pb_club.Location = New System.Drawing.Point(20, 285)
Me.pb_club.Name = "pb_club"
Me.pb_club.Size = New System.Drawing.Size(70, 70)
Me.pb_club.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_club.TabIndex = 38
Me.pb_club.TabStop = False
'
'frm_add_person
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(740, 436)
Me.Controls.Add(Me.pb_club)
Me.Controls.Add(Me.pb_flag)
Me.Controls.Add(Me.txt_email)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.cbo_country)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.lbl_picture)
Me.Controls.Add(Me.btn_add_person)
Me.Controls.Add(Me.cbo_club)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txt_address)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.txt_mobile)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txt_cpr)
Me.Controls.Add(Me.txt_weight)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.cbo_gender)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txt_lname)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.date_birthday)
Me.Controls.Add(Me.txt_mname)
Me.Controls.Add(Me.txt_fname)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.pb_person_picture)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "frm_add_person"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Add New Person"
CType(Me.pb_person_picture, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_club, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents txt_fname As TextBox
Friend WithEvents txt_mname As TextBox
Friend WithEvents date_birthday As DateTimePicker
Friend WithEvents Label4 As Label
Friend WithEvents txt_lname As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents Label5 As Label
Friend WithEvents cbo_gender As ComboBox
Friend WithEvents txt_mobile As TextBox
Friend WithEvents Label6 As Label
Friend WithEvents txt_cpr As TextBox
Friend WithEvents txt_weight As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents Label8 As Label
Friend WithEvents txt_address As TextBox
Friend WithEvents Label10 As Label
Friend WithEvents cbo_club As ComboBox
Friend WithEvents Label11 As Label
Friend WithEvents btn_add_person As Button
Friend WithEvents pb_person_picture As PictureBox
Friend WithEvents lbl_picture As Label
Friend WithEvents cbo_country As ComboBox
Friend WithEvents Label12 As Label
Friend WithEvents txt_email As TextBox
Friend WithEvents Label9 As Label
Friend WithEvents pb_flag As PictureBox
Friend WithEvents pb_club As PictureBox
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,139 @@
Imports System.ComponentModel
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class frm_add_person
Private Sub add_person()
Dim person As New person(txt_fname.Text, txt_mname.Text, txt_lname.Text, date_birthday.Text, cbo_gender.Text, txt_weight.Text, txt_cpr.Text, cbo_country.SelectedValue, txt_mobile.Text, txt_email.Text, txt_address.Text, cbo_club.SelectedValue, pb_person_picture)
End Sub
Private Sub Load_Picture()
'Creating A New Dialog
Dim OpenPictureFile As New OpenFileDialog
'Filtering The Types
OpenPictureFile.Filter = "Image Files | *.jpg; *.jpeg; *.bmp; *.png; *.gif;"
'Openning The File
If OpenPictureFile.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Try
' Getting File Path
Dim FilePath As String = OpenPictureFile.FileName()
Dim FileName As String = System.IO.Path.GetFileName(OpenPictureFile.FileName)
' Picture File
Dim Picture As New MemoryStream
' Define New Image Size
Dim LogoSize As New Size(385, 500)
' Resizing The Image
Dim ResizedImage = New Bitmap(Image.FromFile(FilePath), LogoSize)
' Display The Image
pb_person_picture.Image = ResizedImage
' Saving The Image As PNG Format
pb_person_picture.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
' Read The Image As Bytes
Dim arrImage() As Byte = Picture.GetBuffer
' Closing The Picture
Picture.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Private Sub btn_add_person_Click(sender As Object, e As EventArgs) Handles btn_add_person.Click
add_person()
Me.Close()
End Sub
Private Sub frm_add_person_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
' List Down The Countries
GetCountryList(cbo_country)
Catch ex As Exception
End Try
Try
' List Down Clubs
GetClubsList(cbo_club)
Catch ex As Exception
End Try
End Sub
Private Sub cbo_country_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_country.SelectedIndexChanged
Dim QRY As String
Try
QRY = "select flag from countries where id=" & cbo_country.SelectedValue
Catch ex As Exception
Exit Sub
End Try
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
Dim data As Byte() = DirectCast(RDR("flag"), Byte())
Dim flag As New System.IO.MemoryStream(data)
pb_flag.Image = Image.FromStream(flag)
Catch ex As Exception
pb_flag.Image = Nothing
Exit Sub
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Private Sub pb_person_picture_Click(sender As Object, e As EventArgs) Handles pb_person_picture.Click
'Load_Picture()
ResizePicture(pb_person_picture, 385, 500)
End Sub
Private Sub cbo_club_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_club.SelectedIndexChanged
Try
GetClubLogo(pb_club, cbo_club.SelectedValue)
Catch ex As Exception
End Try
End Sub
End Class

View File

@ -0,0 +1,187 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class fighter
' Scoring Information
Private _event As Integer ' Event Number
Private _match As Integer ' Match Number
Private _person As person ' Fighter ID
Private _score As Integer ' Total Score
Private _gamjum As Integer ' Total Gamgum Foul
Private _tranfer As Integer ' Transfered Point From Opponent Gam Jum
'-----------------------------------------------------------------------------------------------------------
' Properties
'-----------------------------------------------------------------------------------------------------------
Public Sub New(FighterID As Integer, EventID As Integer, MatchID As Integer)
_person = New person(FighterID)
_event = EventID
_match = MatchID
_score = 0
_gamjum = 0
End Sub
'-----------------------------------------------------------------------------------------------------------
' Properties
'-----------------------------------------------------------------------------------------------------------
ReadOnly Property Person As person
Get
Return _person
End Get
End Property
ReadOnly Property Score As Integer
Get
Return _score
End Get
End Property
ReadOnly Property Gamjum As Integer
Get
Return _gamjum
End Get
End Property
'-----------------------------------------------------------------------------------------------------------
' Subroutines
'-----------------------------------------------------------------------------------------------------------
Public Sub AdjustScore(Amount As Integer)
_score += Amount
RegisterScore(Amount, 0)
End Sub
Public Sub AdjustGamjum(Amount As Integer)
_gamjum += Amount
RegisterScore(0, Amount)
End Sub
'-----------------------------------------------------------------------------------------------------------
' Subroutines
'-----------------------------------------------------------------------------------------------------------
Public Sub RegisterScore(Score As Integer, Gamjum As Integer)
Dim QRY As String = ("
insert into event_matches_scores (eid, mid, pid, score, gamjum) values (" & _event & ", " & _match & ", " & _person.ID & ", " & Score & ", " & Gamjum & ");
select sum(score) as 'score', sum(gamjum) as 'gamjum' from event_matches_scores where eid = " & _event & " and mid = " & _match & " and pid = " & _person.ID & ";
")
' Connection
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try ' Score
_score = RDR("score")
Catch ex As Exception
_score = 0
End Try
Try ' Gamjum
_gamjum = RDR("gamjum")
Catch ex As Exception
_gamjum = 0
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub GetMatchScores()
Dim QRY As String = ("select sum(score) as 'score', sum(gamjum) as 'gamjum' from event_matches_scores where eid = " & _event & " and mid = " & _match & " and pid = " & _person.ID & ";")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try ' Score
_score = RDR("score")
Catch ex As Exception
_score = 0
End Try
Try ' Gamjum
_gamjum = RDR("gamjum")
Catch ex As Exception
_gamjum = 0
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
End Sub
Public Function GetPointsList() As List(Of country)
Dim QRY As String = ("
select
score,
gamjum
from
event_matches_scores
where
eid = " & _event & " and mid = " & _match & " and pid = " & _person.ID & "
order by
eid,
mid
desc;
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of country)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New country(RDR("id")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return LST
End Function
End Class

View File

@ -0,0 +1,409 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class match
'--[MATCH FIGHTERS]---------------
Public BlueFighter As fighter ' Blue Fighter Information
Public RedFighter As fighter ' Red Fighter Information
'--[MATCH REFEREE]----------------
Public Referee As person ' Referee Information
'--[MATCH RECORD NUMBER]----------
Private _eventID As Integer ' Event Record Number & Also The Event Number
Private _courtID As Integer ' Court Record Number
Private _matchID As Integer ' Match Record Number
'--[EVENT MATCH NUMBERS]----------
Private _eventRound As Integer ' Event Phase Number (Which Phase Is The Event Matches)
Private _matchNumber As Integer ' Match Event Round Match Number
Private _courtNumber As Integer ' Match Court Number
'--[MATCH SETTINGS]---------------
Private _maxRound As Integer ' Max Number Of Rounds
Private _maxRoundMin As Integer ' Max Round Minutes
Private _maxRoundSec As Integer ' Max Round Sec
Private _maxBreakMin As Integer ' Max Break Minutes
Private _maxBreakSec As Integer ' Max Break Seconds
Private _maxScoreDif As Integer ' Max Score Difference
Private _enaMaxSdiff As Boolean ' End Match When Difference Reached
Private _enaSudenDth As Boolean ' Enable Forth Round When Score Are Equal
'--[Display Numbers]--------------
Private _RoundNum As Integer = 1 ' Round Number
Private _RoundMin As Integer ' Round Minutes
Private _RoundSec As Integer ' Round Seconds
Private _BreakMin As Integer ' Break Minutes
Private _BreakSec As Integer ' Break Seconds
'--[CONSTRUCTORS]-------------------------------------------------
ReadOnly Property ID As Integer
Get
Return _matchID
End Get
End Property
ReadOnly Property COURT As Integer
Get
Return _courtID
End Get
End Property
ReadOnly Property ROUND As Integer
Get
Return _RoundNum
End Get
End Property
'--[CONSTRUCTORS]-------------------------------------------------
' Incase you have an event and its match number
Public Sub New(EventID As Integer, MatchNumber As Integer)
_eventID = EventID
_matchID = MatchNumber
GetMatchData()
End Sub
' Incase you want to create instant match
Public Sub New(BlueID As Integer, RedID As Integer, RefereeID As Integer)
BlueFighter = New fighter(BlueID, _eventID, _matchID)
RedFighter = New fighter(RedID, _eventID, _matchID)
Referee = New person(RefereeID)
SetDefault()
ReTime_Round()
ReTime_Break()
End Sub
'-----------------------------------------------------------------
' READING MATCH NUMBER
'-----------------------------------------------------------------
Private Sub SetDefault()
_RoundNum = 1
_maxRound = My.Settings.match_rounds
_maxRoundMin = My.Settings.match_round_time_minutes
_maxRoundSec = My.Settings.match_round_time_seconds
_maxBreakMin = My.Settings.match_break_time_minutes
_maxBreakSec = My.Settings.match_break_time_seconds
_enaSudenDth = My.Settings.match_enable_sudden_death
End Sub
Private Sub ReTime_Round()
_RoundMin = _maxRoundMin
_RoundSec = _maxRoundSec
End Sub
Private Sub ReTime_Break()
_BreakMin = _maxBreakMin
_BreakSec = _maxBreakSec
End Sub
Public Function Time_CountDown() As Boolean
If _RoundMin > 0 Then
If _RoundSec > 0 And _RoundSec < 60 Then
_RoundSec -= 1
Return False
Else
_RoundMin -= 1
_RoundSec = 59
Return False
End If
Else
If _RoundSec > 0 And _RoundSec < 60 Then
_RoundSec -= 1
Return False
Else
_RoundSec = 59
Return True
End If
End If
End Function
'-----------------------------------------------------------------
' READING MATCH NUMBER
'-----------------------------------------------------------------
' THIS FUNCTION GETS THE NEWLY CREATED MATCH NUMBER
Private Sub GetMatchData()
Dim QRY As String = "SELECT ecn, ern, emn, blue_fighter, red_fighter FROM test.event_matches where emn = " & _matchID & " and started = 0 and ended = 0 and (not isnull(red_fighter)) and (not isnull(blue_fighter)) order by ern, emn asc"
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
_courtID = RDR("ecn")
Catch ex As Exception
_courtID = 0
End Try
Try
_eventRound = RDR("ern")
Catch ex As Exception
_eventRound = 0
End Try
Try
BlueFighter = New fighter(RDR("blue_fighter"), _eventID, _matchID)
Catch ex As Exception
BlueFighter = Nothing
End Try
Try
RedFighter = New fighter(RDR("red_fighter"), _eventID, _matchID)
Catch ex As Exception
RedFighter = Nothing
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
' THIS FUNCTION RETURNS AVAILABLE NUMBER FOR A NEW MATCH
Private Function GetAvailableNewMatchID() As Integer
' Select the Unstarted Matches From The Match Sequence
Dim QRY As String = ("
select
person.id as 'pid',
person.fname,
person.mname,
person.lname,
TIMESTAMPDIFF(YEAR, person.date_of_birth, CURDATE()) as 'age',
person.date_of_birth,
person.category,
person.weight,
person.weight_class,
person.gender,
person.picture,
clubs.title as 'club',
clubs.logo as 'logo',
countries.iso3 as 'country',
countries.flatflag as 'flag'
FROM
person
left join
clubs on person.club = clubs.id
left join
countries on person.country = countries.id
where
person.id=1
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim NUM As Integer
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
NUM = RDR("ID")
Catch ex As Exception
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return NUM
End Function
Public Sub StartMatch()
' Update The Table With The Winner ID
Dim QRY As String = ("
SET SQL_SAFE_UPDATES = 0;
UPDATE
`event_matches`
SET
`started` = 1
WHERE
`emn` = " & _matchID & ";
")
' Executing The Command
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Try
CON.Open()
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Public Sub EndMatch()
' Testing This Condition
If _matchID = 0 Or _matchID = Nothing Then Exit Sub
' Update The Table With The Winner ID
Dim QRY As String = ("
SET SQL_SAFE_UPDATES = 0;
UPDATE
`event_matches`
SET
`ended` = 1
WHERE
`emn` = " & _matchID & ";
")
' Executing The Command
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Try
CON.Open()
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
'-----------------------------------------------------------------
' METHODES OF ENDING A MATCH
'-----------------------------------------------------------------
' THIS SUB ENDS THE MATCH AUTOMATICALLY BY CALCULATING THE POINTS
Private Sub AutoEndMatch()
' Winner ID Holder
Dim WinnerID As Integer
' This Is Where We Do Decision Making
If BlueFighter.Score > RedFighter.Score Then
WinnerID = BlueFighter.Person.ID ' Blue Fighter Wins
ElseIf BlueFighter.Score < RedFighter.Score Then
WinnerID = RedFighter.Person.ID ' Red Fighter Wins
End If
' Update The Table With The Winner ID
Dim QRY As String = ("
SET SQL_SAFE_UPDATES = 0;
UPDATE
`event_matches`
SET
`blue_score` = " & BlueFighter.Score & ",
`blue_foul` = " & BlueFighter.Gamjum & ",
`red_score` = " & RedFighter.Score & ",
`red_foul` = " & RedFighter.Gamjum & ",
`winner` = " & WinnerID & ",
`ended` = 1
WHERE
`emn` = " & _matchID & ";
")
' Executing The Command
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Try
CON.Open()
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
' THIS SUB ENDS THE MATCH MANUALLY BY THE MAIN REFEREE IF NEEDED TO
Private Sub ManualEndMatch(WinnerID As Integer, WinnerBy As String, Note As String)
' Update The Table With The Winner ID
Dim QRY As String = ("
SET SQL_SAFE_UPDATES = 0;
UPDATE
`event_matches`
SET
`blue_score` = " & BlueFighter.Score & ",
`blue_foul` = " & BlueFighter.Gamjum & ",
`red_score` = " & RedFighter.Score & ",
`red_foul` = " & RedFighter.Gamjum & ",
`winner` = " & WinnerID & ",
`notes` = '" & Note & "',
`winnerBy` = '" & WinnerBy & "',
`ended` = 1
WHERE
`emn` = " & _matchID & ";
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Try
CON.Open()
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
End Class

View File

@ -0,0 +1,391 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class platformevent
' TAKEONE Event
Private _id As Integer
Private _title As String
Private _organizer As String
Private _type As String
Private _rules As String
' Location
Private _address As String
Private _location As String
Private _country As country
' Event Parameters
Private _court As Integer
Private _enroll_start As Date
Private _enroll_end As Date
Private _weigh_in As Date
Private _event_start As Date
Private _event_end As Date
Private _fee As Double
Private _currency As String
Private _logo As MemoryStream
' Making New Instance Without Any Action
Public Sub New()
End Sub
' Make New Instance Of Event By Reading Data From Its ID
Public Sub New(id As Integer)
GetEventData(id)
End Sub
' Make New Instance Directly By Creating A New Event Record
Public Sub New(EventTitle As String, Type As String, Rounds As Integer, Organizer As String, Country As Integer, Address As String, Location As String, Courts As Integer, Rules As String, Currency As String, Fee As Integer, EnrollStart As String, EnrollEnd As String, WeighIn As String, EventStart As String, EventEnd As String, Logo As PictureBox)
CreateNewEvent(EventTitle, Type, Rounds, Organizer, Country, Address, Location, Courts, Rules, Currency, Fee, EnrollStart, EnrollEnd, WeighIn, EventStart, EventEnd, Logo)
GetEventData(_id)
End Sub
' Set Of Properties
ReadOnly Property ID As Integer
Get
Return _id
End Get
End Property
ReadOnly Property Title As String
Get
Return _title
End Get
End Property
ReadOnly Property Organizer As String
Get
Return _organizer
End Get
End Property
ReadOnly Property Type As String
Get
Return _type
End Get
End Property
ReadOnly Property Country As country
Get
Return _country
End Get
End Property
ReadOnly Property Address As String
Get
Return _address
End Get
End Property
ReadOnly Property Location As String
Get
Return _location
End Get
End Property
ReadOnly Property Courts As Integer
Get
Return _court
End Get
End Property
ReadOnly Property EnrollStartDate As Date
Get
Return _enroll_start
End Get
End Property
ReadOnly Property EnrollEndDate As Date
Get
Return _enroll_end
End Get
End Property
ReadOnly Property WeighInDate As Date
Get
Return _weigh_in
End Get
End Property
ReadOnly Property EventStartDate As Date
Get
Return _event_start
End Get
End Property
ReadOnly Property EventEndDate As Date
Get
Return _event_end
End Get
End Property
ReadOnly Property Rules As String
Get
Return _rules
End Get
End Property
ReadOnly Property Currency As String
Get
Return _currency
End Get
End Property
ReadOnly Property Fee As Integer
Get
Return _fee
End Get
End Property
ReadOnly Property Logo As MemoryStream
Get
Return _logo
End Get
End Property
' Set Of Functions
Public Function EventList()
Dim QRY As String = "select * from event order by event_start asc"
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of platformevent)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New platformevent(RDR("id")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return LST
End Function
Private Sub GetEventData(id As Integer)
Dim QRY As String = ("select event.* from event where event.id = " & id & " LIMIT 1")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
_id = Int(RDR("id"))
Catch ex As Exception
_id = 0
End Try
Try
_title = RDR("title")
Catch ex As Exception
_title = Nothing
End Try
Try
_organizer = RDR("organizor")
Catch ex As Exception
_organizer = Nothing
End Try
Try
_type = RDR("type")
Catch ex As Exception
_type = Nothing
End Try
Try
_country = New country(Int(RDR("country")))
Catch ex As Exception
_country = Nothing
End Try
Try
_address = RDR("address")
Catch ex As Exception
_address = Nothing
End Try
Try
_location = RDR("location")
Catch ex As Exception
_location = Nothing
End Try
Try
_court = RDR("courts")
Catch ex As Exception
_court = 0
End Try
Try
_enroll_start = CDate(RDR("enroll_start"))
Catch ex As Exception
_enroll_start = Now
End Try
Try
_enroll_end = CDate(RDR("enroll_end"))
Catch ex As Exception
_enroll_end = Now
End Try
Try
_weigh_in = CDate(RDR("weigh_in"))
Catch ex As Exception
'_weigh_in = Now
End Try
Try
_event_start = CDate(RDR("event_start"))
Catch ex As Exception
'_event_start = Now
End Try
Try
_event_end = CDate(RDR("event_end"))
Catch ex As Exception
'_event_end = Now
End Try
Try
_rules = RDR("rules")
Catch ex As Exception
_rules = Nothing
End Try
Try
_currency = RDR("currency ")
Catch ex As Exception
_currency = Nothing
End Try
Try
_fee = RDR("participation_fee")
Catch ex As Exception
_fee = 0
End Try
Try ' Event Logo -----------------------------------------
Dim data As Byte() = DirectCast(RDR("logo"), Byte())
_logo = New MemoryStream(data)
Catch ex As Exception
_logo = Nothing
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
' Set Of Routines
Public Sub CreateNewEvent(EventTitle As String, Type As String, Rounds As Integer, Organizer As String, Country As Integer, Address As String, Location As String, Courts As Integer, Rules As String, Currency As String, Fee As Integer, EnrollStart As String, EnrollEnd As String, WeighIn As String, EventStart As String, EventEnd As String, Logo As PictureBox)
' Query To Update
Dim QRY As String = ("
/* This Is To Insert The Information Of The New Event */
insert into
event (title, type, rounds, organizor, country, address, location, courts, rules, currency, fee, enroll_start, enroll_end, weigh_in, event_start, event_end, logo)
values ('" & EventTitle & "', '" & Type & "', '" & Rounds & "', '" & Organizer & "', " & Country & ", '" & Address & "', '" & Location & "', " & Courts & ", '" & Rules & "', '" & Currency & "', " & Fee & ", '" & EnrollStart & "', '" & EnrollEnd & "', '" & WeighIn & "', '" & EventStart & "', '" & EventEnd & "', @logo);
/* This Is To Return The Newly Created Event Record */
select last_insert_id() as 'eid';
")
' Connection
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim Picture As New MemoryStream
Logo.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
Dim arrImage() As Byte = Picture.GetBuffer
Picture.Close()
Dim RDR As MySqlDataReader
Try
CON.Open()
COM.Parameters.AddWithValue("@logo", arrImage)
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try ' ID
_id = RDR("eid")
Catch ex As Exception
_id = 0
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
End Sub
Public Sub UpdateLogo(Logo As PictureBox)
' Query To Update
Dim QRY As String = "update event set logo = @logo where id=" & _id
' Connection
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
' Preparing The Image
Dim Picture As New MemoryStream
Logo.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
Dim arrImage() As Byte = Picture.GetBuffer
Picture.Close()
Try
CON.Open()
COM.Parameters.AddWithValue("@logo", arrImage)
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
End Class

View File

@ -0,0 +1,368 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_add_participants
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()
Me.lst_person = New System.Windows.Forms.ListBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbo_participants_type = New System.Windows.Forms.ComboBox()
Me.btn_remove = New System.Windows.Forms.Button()
Me.btn_add = New System.Windows.Forms.Button()
Me.lst_participants_list = New System.Windows.Forms.ListBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txt_member_search = New System.Windows.Forms.TextBox()
Me.txt_pfilter = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.pb_club_logo = New System.Windows.Forms.PictureBox()
Me.pb_flag = New System.Windows.Forms.PictureBox()
Me.pb_person_picture = New System.Windows.Forms.PictureBox()
Me.lbl_category = New System.Windows.Forms.Label()
Me.lbl_weightclass = New System.Windows.Forms.Label()
Me.lbl_weight = New System.Windows.Forms.Label()
Me.lbl_gender = New System.Windows.Forms.Label()
Me.btn_update = New System.Windows.Forms.Button()
Me.btn_weighin = New System.Windows.Forms.Button()
Me.btn_new = New System.Windows.Forms.Button()
CType(Me.pb_club_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_person_picture, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lst_person
'
Me.lst_person.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lst_person.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lst_person.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lst_person.ForeColor = System.Drawing.Color.White
Me.lst_person.FormattingEnabled = True
Me.lst_person.ItemHeight = 20
Me.lst_person.Location = New System.Drawing.Point(10, 85)
Me.lst_person.Name = "lst_person"
Me.lst_person.Size = New System.Drawing.Size(290, 322)
Me.lst_person.TabIndex = 88
'
'Label1
'
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(305, 50)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(70, 30)
Me.Label1.TabIndex = 87
Me.Label1.Text = "Type :"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cbo_participants_type
'
Me.cbo_participants_type.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbo_participants_type.FormattingEnabled = True
Me.cbo_participants_type.Items.AddRange(New Object() {"Fighter", "Referee", "Admin", "Medic", "Coach", "Organizor"})
Me.cbo_participants_type.Location = New System.Drawing.Point(380, 50)
Me.cbo_participants_type.Name = "cbo_participants_type"
Me.cbo_participants_type.Size = New System.Drawing.Size(180, 28)
Me.cbo_participants_type.TabIndex = 86
'
'btn_remove
'
Me.btn_remove.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_remove.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_remove.ForeColor = System.Drawing.Color.White
Me.btn_remove.Location = New System.Drawing.Point(260, 420)
Me.btn_remove.Name = "btn_remove"
Me.btn_remove.Size = New System.Drawing.Size(115, 45)
Me.btn_remove.TabIndex = 102
Me.btn_remove.Text = "REMOVE"
Me.btn_remove.UseVisualStyleBackColor = True
'
'btn_add
'
Me.btn_add.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_add.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_add.ForeColor = System.Drawing.Color.White
Me.btn_add.Location = New System.Drawing.Point(135, 420)
Me.btn_add.Name = "btn_add"
Me.btn_add.Size = New System.Drawing.Size(115, 45)
Me.btn_add.TabIndex = 101
Me.btn_add.Text = "ADD"
Me.btn_add.UseVisualStyleBackColor = True
'
'lst_participants_list
'
Me.lst_participants_list.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lst_participants_list.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lst_participants_list.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lst_participants_list.ForeColor = System.Drawing.Color.White
Me.lst_participants_list.FormattingEnabled = True
Me.lst_participants_list.ItemHeight = 20
Me.lst_participants_list.Location = New System.Drawing.Point(305, 85)
Me.lst_participants_list.Name = "lst_participants_list"
Me.lst_participants_list.Size = New System.Drawing.Size(335, 322)
Me.lst_participants_list.TabIndex = 103
'
'Label2
'
Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label2.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(10, 50)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(90, 30)
Me.Label2.TabIndex = 104
Me.Label2.Text = "Search :"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_member_search
'
Me.txt_member_search.BackColor = System.Drawing.Color.White
Me.txt_member_search.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txt_member_search.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_member_search.ForeColor = System.Drawing.Color.Black
Me.txt_member_search.Location = New System.Drawing.Point(105, 50)
Me.txt_member_search.Name = "txt_member_search"
Me.txt_member_search.Size = New System.Drawing.Size(195, 29)
Me.txt_member_search.TabIndex = 105
'
'txt_pfilter
'
Me.txt_pfilter.BackColor = System.Drawing.Color.White
Me.txt_pfilter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txt_pfilter.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_pfilter.ForeColor = System.Drawing.Color.Black
Me.txt_pfilter.Location = New System.Drawing.Point(650, 50)
Me.txt_pfilter.Name = "txt_pfilter"
Me.txt_pfilter.Size = New System.Drawing.Size(175, 29)
Me.txt_pfilter.TabIndex = 107
'
'Label3
'
Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label3.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(565, 50)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(80, 30)
Me.Label3.TabIndex = 106
Me.Label3.Text = "Filter :"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label10
'
Me.Label10.BackColor = System.Drawing.Color.Olive
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.ForeColor = System.Drawing.Color.White
Me.Label10.Location = New System.Drawing.Point(10, 10)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(290, 35)
Me.Label10.TabIndex = 108
Me.Label10.Text = "< TAKEONE MEMBERS >"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label4
'
Me.Label4.BackColor = System.Drawing.Color.Green
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(305, 10)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(520, 35)
Me.Label4.TabIndex = 109
Me.Label4.Text = "< EVENT PARTICIPANS LIST >"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pb_club_logo
'
Me.pb_club_logo.BackColor = System.Drawing.Color.Transparent
Me.pb_club_logo.Location = New System.Drawing.Point(650, 285)
Me.pb_club_logo.Name = "pb_club_logo"
Me.pb_club_logo.Size = New System.Drawing.Size(75, 75)
Me.pb_club_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_club_logo.TabIndex = 112
Me.pb_club_logo.TabStop = False
'
'pb_flag
'
Me.pb_flag.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.pb_flag.Location = New System.Drawing.Point(730, 290)
Me.pb_flag.Name = "pb_flag"
Me.pb_flag.Size = New System.Drawing.Size(95, 65)
Me.pb_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_flag.TabIndex = 111
Me.pb_flag.TabStop = False
'
'pb_person_picture
'
Me.pb_person_picture.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_person_picture.Image = Global.TAKEONE_EMASS.My.Resources.Resources._8i6oer5KT
Me.pb_person_picture.Location = New System.Drawing.Point(650, 85)
Me.pb_person_picture.Name = "pb_person_picture"
Me.pb_person_picture.Size = New System.Drawing.Size(175, 195)
Me.pb_person_picture.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_person_picture.TabIndex = 110
Me.pb_person_picture.TabStop = False
'
'lbl_category
'
Me.lbl_category.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_category.Font = New System.Drawing.Font("Arial Rounded MT Bold", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_category.ForeColor = System.Drawing.Color.White
Me.lbl_category.Location = New System.Drawing.Point(650, 400)
Me.lbl_category.Name = "lbl_category"
Me.lbl_category.Size = New System.Drawing.Size(175, 30)
Me.lbl_category.TabIndex = 113
Me.lbl_category.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_weightclass
'
Me.lbl_weightclass.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_weightclass.Font = New System.Drawing.Font("Arial Rounded MT Bold", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_weightclass.ForeColor = System.Drawing.Color.White
Me.lbl_weightclass.Location = New System.Drawing.Point(650, 435)
Me.lbl_weightclass.Name = "lbl_weightclass"
Me.lbl_weightclass.Size = New System.Drawing.Size(175, 30)
Me.lbl_weightclass.TabIndex = 114
Me.lbl_weightclass.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_weight
'
Me.lbl_weight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_weight.Font = New System.Drawing.Font("Arial Rounded MT Bold", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_weight.ForeColor = System.Drawing.Color.White
Me.lbl_weight.Location = New System.Drawing.Point(740, 365)
Me.lbl_weight.Name = "lbl_weight"
Me.lbl_weight.Size = New System.Drawing.Size(85, 30)
Me.lbl_weight.TabIndex = 115
Me.lbl_weight.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_gender
'
Me.lbl_gender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_gender.Font = New System.Drawing.Font("Arial Rounded MT Bold", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_gender.ForeColor = System.Drawing.Color.White
Me.lbl_gender.Location = New System.Drawing.Point(650, 365)
Me.lbl_gender.Name = "lbl_gender"
Me.lbl_gender.Size = New System.Drawing.Size(85, 30)
Me.lbl_gender.TabIndex = 116
Me.lbl_gender.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_update
'
Me.btn_update.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_update.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_update.ForeColor = System.Drawing.Color.White
Me.btn_update.Location = New System.Drawing.Point(385, 420)
Me.btn_update.Name = "btn_update"
Me.btn_update.Size = New System.Drawing.Size(110, 45)
Me.btn_update.TabIndex = 117
Me.btn_update.Text = "UPDATE"
Me.btn_update.UseVisualStyleBackColor = True
'
'btn_weighin
'
Me.btn_weighin.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_weighin.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_weighin.ForeColor = System.Drawing.Color.White
Me.btn_weighin.Location = New System.Drawing.Point(505, 420)
Me.btn_weighin.Name = "btn_weighin"
Me.btn_weighin.Size = New System.Drawing.Size(135, 45)
Me.btn_weighin.TabIndex = 118
Me.btn_weighin.Text = "WEIGH IN"
Me.btn_weighin.UseVisualStyleBackColor = True
'
'btn_new
'
Me.btn_new.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_new.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_new.ForeColor = System.Drawing.Color.White
Me.btn_new.Location = New System.Drawing.Point(10, 420)
Me.btn_new.Name = "btn_new"
Me.btn_new.Size = New System.Drawing.Size(115, 45)
Me.btn_new.TabIndex = 119
Me.btn_new.Text = "NEW"
Me.btn_new.UseVisualStyleBackColor = True
'
'frm_add_participants
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 19.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(834, 481)
Me.Controls.Add(Me.btn_new)
Me.Controls.Add(Me.btn_weighin)
Me.Controls.Add(Me.btn_update)
Me.Controls.Add(Me.lbl_gender)
Me.Controls.Add(Me.lbl_weight)
Me.Controls.Add(Me.lbl_weightclass)
Me.Controls.Add(Me.lbl_category)
Me.Controls.Add(Me.pb_club_logo)
Me.Controls.Add(Me.pb_flag)
Me.Controls.Add(Me.pb_person_picture)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.txt_pfilter)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txt_member_search)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.lst_participants_list)
Me.Controls.Add(Me.btn_remove)
Me.Controls.Add(Me.btn_add)
Me.Controls.Add(Me.lst_person)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cbo_participants_type)
Me.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "frm_add_participants"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Add Participants"
CType(Me.pb_club_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_person_picture, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lst_person As ListBox
Friend WithEvents Label1 As Label
Friend WithEvents cbo_participants_type As ComboBox
Friend WithEvents btn_remove As Button
Friend WithEvents btn_add As Button
Friend WithEvents lst_participants_list As ListBox
Friend WithEvents Label2 As Label
Friend WithEvents txt_member_search As TextBox
Friend WithEvents txt_pfilter As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label10 As Label
Friend WithEvents pb_club_logo As PictureBox
Friend WithEvents pb_flag As PictureBox
Friend WithEvents pb_person_picture As PictureBox
Friend WithEvents lbl_category As Label
Friend WithEvents lbl_weightclass As Label
Friend WithEvents lbl_weight As Label
Friend WithEvents lbl_gender As Label
Friend WithEvents btn_update As Button
Friend WithEvents btn_weighin As Button
Friend WithEvents btn_new As Button
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,234 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Imports System.ComponentModel
Public Class frm_add_participants
Private Sub frm_add_participants_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
frm_event_control.Show()
End Sub
Private Sub frm_add_participants_Load(sender As Object, e As EventArgs) Handles Me.Load
cbo_participants_type.SelectedIndex = 0
Try
SubPopulateListBox(GetPersonList(), lst_person)
Catch ex As Exception
End Try
End Sub
Private Sub cbo_participants_type_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_participants_type.SelectedIndexChanged
Try
SubPopulateListBox(FunListParticipants(cbo_participants_type.Text, SelectedEvent.ID, txt_pfilter.Text), lst_participants_list)
Catch ex As Exception
End Try
End Sub
Private Sub txt_pfilter_KeyDown(sender As Object, e As KeyEventArgs) Handles txt_pfilter.KeyDown
Try
SubPopulateListBox(FunListParticipants(cbo_participants_type.Text, SelectedEvent.ID, txt_pfilter.Text), lst_participants_list)
Catch ex As Exception
ClearListBox(lst_participants_list)
End Try
End Sub
Private Sub txt_member_search_KeyDown(sender As Object, e As KeyEventArgs) Handles txt_member_search.KeyDown
Try
SubPopulateListBox(FunListPerson(txt_member_search.Text), lst_person)
Catch ex As Exception
ClearListBox(lst_person)
End Try
End Sub
Private Sub lst_participants_list_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst_participants_list.SelectedIndexChanged
Dim person As person
Try
person = New person(lst_participants_list.SelectedValue)
Catch ex As Exception
person = Nothing
End Try
Try
DisplayPerson(person)
Catch ex As Exception
End Try
End Sub
'----------------------------------------------------------------------------------
' SPECIAL FUNCTIONS
'----------------------------------------------------------------------------------
Private Sub ClearComboBox(ComboBox As ComboBox)
Try
ComboBox.DataSource = Nothing
ComboBox.Items.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub ClearListBox(ListBox As ListBox)
Try
ListBox.DataSource = Nothing
ListBox.Items.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub DisplayPerson(Person As person)
Try
pb_person_picture.Image = Image.FromStream(Person.Picture)
Catch ex As Exception
pb_person_picture.Image = Nothing
End Try
Try
pb_club_logo.Image = Image.FromStream(Person.Team.Logo)
Catch ex As Exception
pb_club_logo.Image = Nothing
End Try
Try
pb_flag.Image = Image.FromStream(Person.Team.Country.Flag)
Catch ex As Exception
pb_flag.Image = Nothing
End Try
Try
lbl_gender.Text = Person.Gender
Catch ex As Exception
lbl_gender.Text = Nothing
End Try
Try
lbl_category.Text = Person.Weight.WeightCategory
Catch ex As Exception
lbl_category.Text = Nothing
End Try
Try
lbl_weight.Text = Person.Weight.Weight & "Kg"
Catch ex As Exception
lbl_weight.Text = Nothing
End Try
Try
lbl_weightclass.Text = Person.Weight.WeightClass
Catch ex As Exception
lbl_weightclass.Text = Nothing
End Try
End Sub
Private Function FunListParticipants(Type As String, eventID As Integer, Filter As String) As List(Of dataset)
Dim QRY As String = ("
select
distinct
person.id, concat(person.fname, if(isnull(person.mname), '', concat(' ', person.mname)), ' ', person.lname) as name
from
event_participants
left join
person on person.id = event_participants.pid
where
concat(fname, if(isnull(mname), '', concat(' ', mname)), ' ', lname) like '%" & Filter & "%'
and
event_participants.eid = " & eventID & "
and
event_participants.type = '" & Type & "'
order by
fname,
mname,
lname
asc
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("id"), RDR("name")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return LST
End Function
Private Function FunListPerson(Filter As String) As List(Of dataset)
Dim QRY As String = ("
select
distinct
person.id, concat(person.fname, if(isnull(person.mname), '', concat(' ', person.mname)), ' ', person.lname) as name
from
person
where
concat(fname, if(isnull(mname), '', concat(' ', mname)), ' ', lname) like '%" & Filter & "%'
order by
fname,
mname,
lname
asc
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("id"), RDR("name")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return LST
End Function
End Class

View File

@ -0,0 +1,476 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_arrange_matches
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()
Me.Label3 = New System.Windows.Forms.Label()
Me.lbl_total_matches = New System.Windows.Forms.Label()
Me.btn_set = New System.Windows.Forms.Button()
Me.pb_blue_logo = New System.Windows.Forms.PictureBox()
Me.lst_match_numbers = New System.Windows.Forms.ListBox()
Me.pb_blue_fighter = New System.Windows.Forms.PictureBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.lst_blue_fighter = New System.Windows.Forms.ListBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.lst_red_fighter = New System.Windows.Forms.ListBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.pb_red_fighter = New System.Windows.Forms.PictureBox()
Me.pb_red_logo = New System.Windows.Forms.PictureBox()
Me.lst_matches_set = New System.Windows.Forms.ListBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btn_unset = New System.Windows.Forms.Button()
Me.btn_close = New System.Windows.Forms.Button()
Me.Label5 = New System.Windows.Forms.Label()
Me.lbl_set_matches = New System.Windows.Forms.Label()
Me.pb_blue_flag = New System.Windows.Forms.PictureBox()
Me.pb_red_flag = New System.Windows.Forms.PictureBox()
Me.cbo_category = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.cbo_gender = New System.Windows.Forms.ComboBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_blue_fighter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_fighter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.Yellow
Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label3.Font = New System.Drawing.Font("Arial Rounded MT Bold", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.Black
Me.Label3.Location = New System.Drawing.Point(700, 225)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(60, 15)
Me.Label3.TabIndex = 84
Me.Label3.Text = "Total"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_total_matches
'
Me.lbl_total_matches.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_total_matches.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_total_matches.ForeColor = System.Drawing.Color.White
Me.lbl_total_matches.Location = New System.Drawing.Point(695, 230)
Me.lbl_total_matches.Name = "lbl_total_matches"
Me.lbl_total_matches.Size = New System.Drawing.Size(130, 35)
Me.lbl_total_matches.TabIndex = 83
Me.lbl_total_matches.Text = "0"
Me.lbl_total_matches.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btn_set
'
Me.btn_set.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_set.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_set.ForeColor = System.Drawing.Color.White
Me.btn_set.Location = New System.Drawing.Point(695, 330)
Me.btn_set.Name = "btn_set"
Me.btn_set.Size = New System.Drawing.Size(130, 40)
Me.btn_set.TabIndex = 80
Me.btn_set.Text = "SET"
Me.btn_set.UseVisualStyleBackColor = True
'
'pb_blue_logo
'
Me.pb_blue_logo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_blue_logo.Location = New System.Drawing.Point(150, 75)
Me.pb_blue_logo.Name = "pb_blue_logo"
Me.pb_blue_logo.Size = New System.Drawing.Size(60, 60)
Me.pb_blue_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_logo.TabIndex = 91
Me.pb_blue_logo.TabStop = False
'
'lst_match_numbers
'
Me.lst_match_numbers.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lst_match_numbers.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lst_match_numbers.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lst_match_numbers.ForeColor = System.Drawing.Color.White
Me.lst_match_numbers.FormattingEnabled = True
Me.lst_match_numbers.ItemHeight = 15
Me.lst_match_numbers.Location = New System.Drawing.Point(280, 260)
Me.lst_match_numbers.Name = "lst_match_numbers"
Me.lst_match_numbers.Size = New System.Drawing.Size(130, 212)
Me.lst_match_numbers.TabIndex = 86
'
'pb_blue_fighter
'
Me.pb_blue_fighter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_blue_fighter.Location = New System.Drawing.Point(5, 45)
Me.pb_blue_fighter.Name = "pb_blue_fighter"
Me.pb_blue_fighter.Size = New System.Drawing.Size(140, 170)
Me.pb_blue_fighter.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_fighter.TabIndex = 85
Me.pb_blue_fighter.TabStop = False
'
'Label10
'
Me.Label10.BackColor = System.Drawing.Color.Black
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(280, 225)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(130, 30)
Me.Label10.TabIndex = 89
Me.Label10.Text = "< UNSET >"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lst_blue_fighter
'
Me.lst_blue_fighter.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lst_blue_fighter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lst_blue_fighter.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lst_blue_fighter.ForeColor = System.Drawing.Color.White
Me.lst_blue_fighter.FormattingEnabled = True
Me.lst_blue_fighter.ItemHeight = 20
Me.lst_blue_fighter.Location = New System.Drawing.Point(5, 250)
Me.lst_blue_fighter.Name = "lst_blue_fighter"
Me.lst_blue_fighter.Size = New System.Drawing.Size(270, 222)
Me.lst_blue_fighter.TabIndex = 92
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Blue
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(5, 225)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(270, 25)
Me.Label1.TabIndex = 93
Me.Label1.Text = "< BLUE FIGHTER >"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lst_red_fighter
'
Me.lst_red_fighter.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lst_red_fighter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lst_red_fighter.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lst_red_fighter.ForeColor = System.Drawing.Color.White
Me.lst_red_fighter.FormattingEnabled = True
Me.lst_red_fighter.ItemHeight = 20
Me.lst_red_fighter.Location = New System.Drawing.Point(415, 250)
Me.lst_red_fighter.Name = "lst_red_fighter"
Me.lst_red_fighter.Size = New System.Drawing.Size(270, 222)
Me.lst_red_fighter.TabIndex = 94
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.Red
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(415, 225)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(270, 25)
Me.Label2.TabIndex = 95
Me.Label2.Text = "< RED FIGHTER >"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pb_red_fighter
'
Me.pb_red_fighter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_red_fighter.Location = New System.Drawing.Point(690, 45)
Me.pb_red_fighter.Name = "pb_red_fighter"
Me.pb_red_fighter.Size = New System.Drawing.Size(140, 170)
Me.pb_red_fighter.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_fighter.TabIndex = 96
Me.pb_red_fighter.TabStop = False
'
'pb_red_logo
'
Me.pb_red_logo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_red_logo.Location = New System.Drawing.Point(625, 75)
Me.pb_red_logo.Name = "pb_red_logo"
Me.pb_red_logo.Size = New System.Drawing.Size(60, 60)
Me.pb_red_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_logo.TabIndex = 97
Me.pb_red_logo.TabStop = False
'
'lst_matches_set
'
Me.lst_matches_set.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lst_matches_set.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lst_matches_set.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lst_matches_set.ForeColor = System.Drawing.Color.White
Me.lst_matches_set.FormattingEnabled = True
Me.lst_matches_set.ItemHeight = 15
Me.lst_matches_set.Location = New System.Drawing.Point(215, 80)
Me.lst_matches_set.Name = "lst_matches_set"
Me.lst_matches_set.Size = New System.Drawing.Size(405, 137)
Me.lst_matches_set.TabIndex = 98
'
'Label4
'
Me.Label4.BackColor = System.Drawing.Color.Black
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(215, 45)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(405, 30)
Me.Label4.TabIndex = 99
Me.Label4.Text = "< MATCHES ALREADY SET >"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_unset
'
Me.btn_unset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_unset.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_unset.ForeColor = System.Drawing.Color.White
Me.btn_unset.Location = New System.Drawing.Point(695, 380)
Me.btn_unset.Name = "btn_unset"
Me.btn_unset.Size = New System.Drawing.Size(130, 40)
Me.btn_unset.TabIndex = 100
Me.btn_unset.Text = "UNSET"
Me.btn_unset.UseVisualStyleBackColor = True
'
'btn_close
'
Me.btn_close.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_close.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_close.ForeColor = System.Drawing.Color.White
Me.btn_close.Location = New System.Drawing.Point(695, 430)
Me.btn_close.Name = "btn_close"
Me.btn_close.Size = New System.Drawing.Size(130, 40)
Me.btn_close.TabIndex = 101
Me.btn_close.Text = "CLOSE"
Me.btn_close.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.BackColor = System.Drawing.Color.Yellow
Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label5.Font = New System.Drawing.Font("Arial Rounded MT Bold", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.Black
Me.Label5.Location = New System.Drawing.Point(700, 275)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(60, 15)
Me.Label5.TabIndex = 103
Me.Label5.Text = "Set"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_set_matches
'
Me.lbl_set_matches.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_set_matches.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_set_matches.ForeColor = System.Drawing.Color.White
Me.lbl_set_matches.Location = New System.Drawing.Point(695, 280)
Me.lbl_set_matches.Name = "lbl_set_matches"
Me.lbl_set_matches.Size = New System.Drawing.Size(130, 35)
Me.lbl_set_matches.TabIndex = 102
Me.lbl_set_matches.Text = "0"
Me.lbl_set_matches.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'pb_blue_flag
'
Me.pb_blue_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_blue_flag.Location = New System.Drawing.Point(150, 175)
Me.pb_blue_flag.Name = "pb_blue_flag"
Me.pb_blue_flag.Size = New System.Drawing.Size(60, 40)
Me.pb_blue_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_flag.TabIndex = 106
Me.pb_blue_flag.TabStop = False
'
'pb_red_flag
'
Me.pb_red_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_red_flag.Location = New System.Drawing.Point(625, 175)
Me.pb_red_flag.Name = "pb_red_flag"
Me.pb_red_flag.Size = New System.Drawing.Size(60, 40)
Me.pb_red_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_flag.TabIndex = 107
Me.pb_red_flag.TabStop = False
'
'cbo_category
'
Me.cbo_category.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.cbo_category.FormattingEnabled = True
Me.cbo_category.Location = New System.Drawing.Point(445, 5)
Me.cbo_category.Name = "cbo_category"
Me.cbo_category.Size = New System.Drawing.Size(385, 30)
Me.cbo_category.TabIndex = 108
Me.cbo_category.Text = "Select Weight Profile"
'
'Label6
'
Me.Label6.BackColor = System.Drawing.Color.Green
Me.Label6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label6.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(280, 5)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(160, 30)
Me.Label6.TabIndex = 109
Me.Label6.Text = "Weight Profile :"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label7
'
Me.Label7.BackColor = System.Drawing.Color.Green
Me.Label7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label7.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label7.ForeColor = System.Drawing.Color.White
Me.Label7.Location = New System.Drawing.Point(5, 5)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(95, 30)
Me.Label7.TabIndex = 111
Me.Label7.Text = "Gender :"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cbo_gender
'
Me.cbo_gender.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.cbo_gender.FormattingEnabled = True
Me.cbo_gender.Items.AddRange(New Object() {"MALE", "FEMALE"})
Me.cbo_gender.Location = New System.Drawing.Point(105, 5)
Me.cbo_gender.Name = "cbo_gender"
Me.cbo_gender.Size = New System.Drawing.Size(170, 30)
Me.cbo_gender.TabIndex = 110
Me.cbo_gender.Text = "Select Gender"
'
'Label11
'
Me.Label11.BackColor = System.Drawing.Color.Blue
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(150, 45)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(60, 25)
Me.Label11.TabIndex = 114
Me.Label11.Text = "LOGO"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label12
'
Me.Label12.BackColor = System.Drawing.Color.Blue
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(150, 145)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(60, 25)
Me.Label12.TabIndex = 115
Me.Label12.Text = "FLAG"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label13
'
Me.Label13.BackColor = System.Drawing.Color.Red
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(625, 145)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(60, 25)
Me.Label13.TabIndex = 117
Me.Label13.Text = "FLAG"
Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label14
'
Me.Label14.BackColor = System.Drawing.Color.Red
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(625, 45)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(60, 25)
Me.Label14.TabIndex = 116
Me.Label14.Text = "LOGO"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'frm_arrange_matches
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 23.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(834, 481)
Me.Controls.Add(Me.pb_red_fighter)
Me.Controls.Add(Me.pb_blue_fighter)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.cbo_gender)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.cbo_category)
Me.Controls.Add(Me.pb_red_flag)
Me.Controls.Add(Me.pb_blue_flag)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.lbl_set_matches)
Me.Controls.Add(Me.btn_close)
Me.Controls.Add(Me.btn_unset)
Me.Controls.Add(Me.btn_set)
Me.Controls.Add(Me.lst_matches_set)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.pb_red_logo)
Me.Controls.Add(Me.lst_red_fighter)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.lst_blue_fighter)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.pb_blue_logo)
Me.Controls.Add(Me.lst_match_numbers)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.lbl_total_matches)
Me.Font = New System.Drawing.Font("Tahoma", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ForeColor = System.Drawing.Color.White
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Margin = New System.Windows.Forms.Padding(5)
Me.Name = "frm_arrange_matches"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Manual Match Set"
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_blue_fighter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_fighter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Label3 As Label
Friend WithEvents lbl_total_matches As Label
Friend WithEvents btn_set As Button
Friend WithEvents pb_blue_logo As PictureBox
Friend WithEvents lst_match_numbers As ListBox
Friend WithEvents pb_blue_fighter As PictureBox
Friend WithEvents Label10 As Label
Friend WithEvents lst_blue_fighter As ListBox
Friend WithEvents Label1 As Label
Friend WithEvents lst_red_fighter As ListBox
Friend WithEvents Label2 As Label
Friend WithEvents pb_red_fighter As PictureBox
Friend WithEvents pb_red_logo As PictureBox
Friend WithEvents lst_matches_set As ListBox
Friend WithEvents Label4 As Label
Friend WithEvents btn_unset As Button
Friend WithEvents btn_close As Button
Friend WithEvents lbl_set_matches As Label
Friend WithEvents pb_blue_flag As PictureBox
Friend WithEvents pb_red_flag As PictureBox
Friend WithEvents Label5 As Label
Friend WithEvents cbo_category As ComboBox
Friend WithEvents Label6 As Label
Friend WithEvents Label7 As Label
Friend WithEvents cbo_gender As ComboBox
Friend WithEvents Label11 As Label
Friend WithEvents Label12 As Label
Friend WithEvents Label13 As Label
Friend WithEvents Label14 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,475 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Imports System.ComponentModel
Public Class frm_arrange_matches
Private Sub btn_close_Click(sender As Object, e As EventArgs)
Me.Close()
End Sub
Private Sub frm_arrange_matches_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
frm_event_control.Show()
End Sub
Private Sub btn_close_Click_1(sender As Object, e As EventArgs) Handles btn_close.Click
Me.Close()
End Sub
Private Sub frm_arrange_matches_Load(sender As Object, e As EventArgs) Handles Me.Load
FunGetStats()
cbo_gender.SelectedIndex = 0
SubPopulateListBox(FunListSetMatches(cbo_category.SelectedValue), lst_matches_set)
End Sub
Private Sub lst_matches_set_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst_matches_set.SelectedIndexChanged
Try
Load_Match_Data(lst_matches_set.SelectedValue)
Catch ex As Exception
End Try
End Sub
'----------------------------------------------------------------------------------
' SPECIAL FUNCTIONS
'----------------------------------------------------------------------------------
Private Sub DisplayBlueFighter(Person As person)
Try
pb_blue_fighter.Image = Image.FromStream(Person.Picture)
Catch ex As Exception
pb_blue_fighter.Image = Nothing
End Try
Try
pb_blue_logo.Image = Image.FromStream(Person.Team.Logo)
Catch ex As Exception
pb_blue_logo.Image = Nothing
End Try
Try
pb_blue_flag.Image = Image.FromStream(Person.Team.Country.Flag)
Catch ex As Exception
pb_blue_flag.Image = Nothing
End Try
End Sub
Private Sub DisplayRedFighter(Person As person)
Try
pb_red_fighter.Image = Image.FromStream(Person.Picture)
Catch ex As Exception
pb_red_fighter.Image = Nothing
End Try
Try
pb_red_logo.Image = Image.FromStream(Person.Team.Logo)
Catch ex As Exception
pb_red_logo.Image = Nothing
End Try
Try
pb_red_flag.Image = Image.FromStream(Person.Team.Country.Flag)
Catch ex As Exception
pb_red_flag.Image = Nothing
End Try
End Sub
Private Function FunListSetMatches(WeightProfile As Integer) As List(Of dataset)
Dim QRY As String = ("
SELECT
event_matches.id as RecordNumber,
event_matches.eid as EventID,
event_matches.ern as EventRound,
event_matches.emn as MatchNumber,
concat(blue.fname, if(isnull(blue.mname), '', concat(' ', blue.mname)), ' ', blue.lname) as BlueFighter,
concat(red.fname, if(isnull(red.mname), '', concat(' ', red.mname)), ' ', red.lname) as RedFighter,
CASE
WHEN (isNull(event_matches.blue_fighter) = true OR isNull(event_matches.red_fighter) = true) THEN 'FREE'
WHEN (isNull(event_matches.blue_fighter) = false AND isNull(event_matches.red_fighter) = true) THEN 'UNSET'
WHEN (event_matches.blue_fighter != 0 AND event_matches.red_fighter != 0) THEN 'SET'
ELSE 'ERROR'
END as MatchSet,
CASE
WHEN (event_matches.started = 1 AND event_matches.ended = 1) THEN 'FINISHED'
WHEN (event_matches.started = 1 AND event_matches.ended = 0) THEN 'ONGOING'
WHEN (event_matches.started = 0 AND event_matches.ended = 0) THEN 'UPCOMING'
ELSE 'ERROR'
END as MatchStatus
FROM
event_matches
LEFT JOIN
person as blue on blue.id = event_matches.blue_fighter
LEFT JOIN
person as red on red.id = event_matches.red_fighter
WHERE
(blue_fighter != 0 OR red_fighter != 0)
AND
blue.wp = " & WeightProfile & "
AND
red.wp = " & WeightProfile & "
ORDER BY
event_matches.ern,
event_matches.emn;
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("RecordNumber"), "R" & RDR("EventRound") & " M" & RDR("MatchNumber") & " : " & RDR("BlueFighter") & " VS " & RDR("RedFighter")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return LST
End Function
Private Function FunListPerson(Filter As String) As List(Of dataset)
Dim QRY As String = ("
select
distinct
person.id, concat(person.fname, if(isnull(person.mname), '', concat(' ', person.mname)), ' ', person.lname) as name
from
person
where
concat(fname, if(isnull(mname), '', concat(' ', mname)), ' ', lname) like '%" & Filter & "%'
order by
fname,
mname,
lname
asc
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("id"), RDR("name")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return LST
End Function
Private Function FunListParticipants(Type As String, eventID As Integer, Filter As String) As List(Of dataset)
Dim QRY As String = ("
select
distinct
person.id, concat(person.fname, if(isnull(person.mname), '', concat(' ', person.mname)), ' ', person.lname) as name
from
event_participants
left join
person on person.id = event_participants.pid
where
concat(fname, if(isnull(mname), '', concat(' ', mname)), ' ', lname) like '%" & Filter & "%'
and
event_participants.eid = " & eventID & "
and
event_participants.type = '" & Type & "'
order by
fname,
mname,
lname
asc
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("id"), RDR("name")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return LST
End Function
Private Sub FunGetStats()
Dim QRY As String = ("
SELECT
(select count(*) From (select * from event_matches where eid = " & SelectedEvent.ID & ") as TOTALMATCHES) as 'TOTAL',
(select count(*) From (select * from event_matches where eid = " & SelectedEvent.ID & " and (blue_fighter != 0 AND NOT isNull(blue_fighter)) and (red_fighter != 0 AND NOT isNull(red_fighter))) as SETMATCHES) as 'SET'
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
lbl_total_matches.Text = RDR("TOTAL")
Catch ex As Exception
lbl_total_matches.Text = 0
End Try
Try
lbl_set_matches.Text = RDR("SET")
Catch ex As Exception
lbl_set_matches.Text = 0
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Private Sub Load_Match_Data(MatchID As Integer)
Dim QRY As String = ("
/*-----------------------------------------------------
THIS CODE IS FOR SEARCHING THE MATCH
BY MATCH ID NUMBER
-----------------------------------------------------*/
SELECT
event_matches.blue_fighter as 'blue',
event_matches.red_fighter as 'red'
FROM
event_matches
WHERE
(NOT event_matches.blue_fighter = 0 AND NOT isNull(event_matches.blue_fighter))
AND
(NOT event_matches.red_fighter = 0 AND NOT isNull(event_matches.red_fighter))
AND
event_matches.id = " & MatchID & "
AND
event_matches.eid = " & SelectedEvent.ID & "
ORDER BY
ern,
emn
asc
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Dim current_blue_fighter As person
Try
current_blue_fighter = New person(RDR("blue"))
Try
pb_blue_logo.Image = Image.FromStream(current_blue_fighter.Team.Logo)
Catch ex As Exception
pb_blue_logo.Image = Nothing
End Try
Try
pb_blue_flag.Image = Image.FromStream(current_blue_fighter.Team.Country.Flag)
Catch ex As Exception
pb_blue_flag.Image = Nothing
End Try
Try
pb_blue_fighter.Image = Image.FromStream(current_blue_fighter.Picture)
Catch ex As Exception
pb_blue_fighter.Image = Nothing
End Try
Catch ex As Exception
current_blue_fighter = Nothing
End Try
Dim current_red_fighter As person
Try
current_red_fighter = New person(RDR("red"))
Try
pb_red_logo.Image = Image.FromStream(current_red_fighter.Team.Logo)
Catch ex As Exception
pb_red_logo.Image = Nothing
End Try
Try
pb_red_flag.Image = Image.FromStream(current_red_fighter.Team.Country.Flag)
Catch ex As Exception
pb_red_flag.Image = Nothing
End Try
Try
pb_red_fighter.Image = Image.FromStream(current_red_fighter.Picture)
Catch ex As Exception
pb_red_fighter.Image = Nothing
End Try
Catch ex As Exception
current_red_fighter = Nothing
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Private Function Load_Weight_Profiles(Gender As String) As List(Of dataset)
Dim QRY As String = ("
/*-----------------------------------------------------
THIS CODE IS FOR SEARCHING THE MATCH
BY MATCH ID NUMBER
-----------------------------------------------------*/
SELECT
distinct
weight_divisions.id,
weight_divisions.category,
weight_divisions.className
FROM
event_participants
LEFT JOIN
person ON event_participants.pid = person.id
LEFT JOIN
weight_divisions ON weight_divisions.id = person.wp
WHERE
person.gender = '" & Gender & "'
ORDER BY
weight_divisions.category,
weight_divisions.gender,
weight_divisions.className
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("id"), (RDR("category") & " : " & RDR("className"))))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return LST
End Function
Private Sub cbo_gender_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_gender.SelectedIndexChanged
Try
SubPopulateComboBox(Load_Weight_Profiles(cbo_gender.Text), cbo_category)
Catch ex As Exception
End Try
End Sub
Private Sub cbo_category_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_category.SelectedIndexChanged
Try
SubPopulateListBox(FunListSetMatches(cbo_category.SelectedValue), lst_matches_set)
Catch ex As Exception
End Try
End Sub
End Class

View File

@ -0,0 +1,553 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_create_event
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()
Me.lbl_title = New System.Windows.Forms.Label()
Me.txt_title = New System.Windows.Forms.TextBox()
Me.lbl_organizor = New System.Windows.Forms.Label()
Me.txt_organizor = New System.Windows.Forms.TextBox()
Me.cbo_type = New System.Windows.Forms.ComboBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.dtp_start_enroll = New System.Windows.Forms.DateTimePicker()
Me.txt_location = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.dtp_end_enroll = New System.Windows.Forms.DateTimePicker()
Me.Label13 = New System.Windows.Forms.Label()
Me.dtp_start_date = New System.Windows.Forms.DateTimePicker()
Me.Label9 = New System.Windows.Forms.Label()
Me.dtp_end_date = New System.Windows.Forms.DateTimePicker()
Me.dtp_weigh_date = New System.Windows.Forms.DateTimePicker()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.txt_rules = New System.Windows.Forms.TextBox()
Me.btn_cancel = New System.Windows.Forms.Button()
Me.btn_create = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.txt_courts = New System.Windows.Forms.TextBox()
Me.pb_event_logo = New System.Windows.Forms.PictureBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txt_rounds = New System.Windows.Forms.TextBox()
Me.lbl_round = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.cbo_country = New System.Windows.Forms.ComboBox()
Me.pb_flag = New System.Windows.Forms.PictureBox()
Me.lbl_address = New System.Windows.Forms.Label()
Me.txt_address = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbo_currency = New System.Windows.Forms.ComboBox()
Me.txt_fee = New System.Windows.Forms.TextBox()
CType(Me.pb_event_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_flag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl_title
'
Me.lbl_title.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_title.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.lbl_title.ForeColor = System.Drawing.Color.White
Me.lbl_title.Location = New System.Drawing.Point(300, 10)
Me.lbl_title.Name = "lbl_title"
Me.lbl_title.Size = New System.Drawing.Size(175, 30)
Me.lbl_title.TabIndex = 34
Me.lbl_title.Text = "Title :"
Me.lbl_title.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_title
'
Me.txt_title.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.txt_title.Location = New System.Drawing.Point(480, 10)
Me.txt_title.Name = "txt_title"
Me.txt_title.Size = New System.Drawing.Size(355, 29)
Me.txt_title.TabIndex = 1
'
'lbl_organizor
'
Me.lbl_organizor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_organizor.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.lbl_organizor.ForeColor = System.Drawing.Color.White
Me.lbl_organizor.Location = New System.Drawing.Point(300, 115)
Me.lbl_organizor.Name = "lbl_organizor"
Me.lbl_organizor.Size = New System.Drawing.Size(175, 30)
Me.lbl_organizor.TabIndex = 69
Me.lbl_organizor.Text = "Organizor :"
Me.lbl_organizor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_organizor
'
Me.txt_organizor.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.txt_organizor.Location = New System.Drawing.Point(480, 115)
Me.txt_organizor.Name = "txt_organizor"
Me.txt_organizor.Size = New System.Drawing.Size(355, 29)
Me.txt_organizor.TabIndex = 2
'
'cbo_type
'
Me.cbo_type.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.cbo_type.FormattingEnabled = True
Me.cbo_type.Items.AddRange(New Object() {"PLAYOFF", "LEAGUE"})
Me.cbo_type.Location = New System.Drawing.Point(480, 45)
Me.cbo_type.Name = "cbo_type"
Me.cbo_type.Size = New System.Drawing.Size(355, 30)
Me.cbo_type.TabIndex = 3
'
'Label14
'
Me.Label14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label14.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label14.ForeColor = System.Drawing.Color.White
Me.Label14.Location = New System.Drawing.Point(300, 220)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(175, 30)
Me.Label14.TabIndex = 67
Me.Label14.Text = "Location :"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label15
'
Me.Label15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label15.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label15.ForeColor = System.Drawing.Color.White
Me.Label15.Location = New System.Drawing.Point(300, 45)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(175, 30)
Me.Label15.TabIndex = 56
Me.Label15.Text = "Type :"
Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'dtp_start_enroll
'
Me.dtp_start_enroll.CustomFormat = "yyyy-MM-dd"
Me.dtp_start_enroll.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.dtp_start_enroll.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.dtp_start_enroll.Location = New System.Drawing.Point(480, 380)
Me.dtp_start_enroll.Name = "dtp_start_enroll"
Me.dtp_start_enroll.Size = New System.Drawing.Size(140, 29)
Me.dtp_start_enroll.TabIndex = 6
'
'txt_location
'
Me.txt_location.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.txt_location.Location = New System.Drawing.Point(480, 220)
Me.txt_location.Name = "txt_location"
Me.txt_location.Size = New System.Drawing.Size(355, 29)
Me.txt_location.TabIndex = 4
'
'Label12
'
Me.Label12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label12.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label12.ForeColor = System.Drawing.Color.White
Me.Label12.Location = New System.Drawing.Point(300, 380)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(175, 30)
Me.Label12.TabIndex = 62
Me.Label12.Text = "Enrollment :"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'dtp_end_enroll
'
Me.dtp_end_enroll.CustomFormat = "yyyy-MM-dd"
Me.dtp_end_enroll.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.dtp_end_enroll.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.dtp_end_enroll.Location = New System.Drawing.Point(695, 380)
Me.dtp_end_enroll.Name = "dtp_end_enroll"
Me.dtp_end_enroll.Size = New System.Drawing.Size(140, 29)
Me.dtp_end_enroll.TabIndex = 7
'
'Label13
'
Me.Label13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label13.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label13.ForeColor = System.Drawing.Color.White
Me.Label13.Location = New System.Drawing.Point(625, 380)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(65, 30)
Me.Label13.TabIndex = 64
Me.Label13.Text = "till :"
Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'dtp_start_date
'
Me.dtp_start_date.CustomFormat = "yyyy-MM-dd"
Me.dtp_start_date.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.dtp_start_date.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.dtp_start_date.Location = New System.Drawing.Point(480, 450)
Me.dtp_start_date.Name = "dtp_start_date"
Me.dtp_start_date.Size = New System.Drawing.Size(140, 29)
Me.dtp_start_date.TabIndex = 9
'
'Label9
'
Me.Label9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label9.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label9.ForeColor = System.Drawing.Color.White
Me.Label9.Location = New System.Drawing.Point(300, 450)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(175, 30)
Me.Label9.TabIndex = 56
Me.Label9.Text = "Start Date :"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'dtp_end_date
'
Me.dtp_end_date.CustomFormat = "yyyy-MM-dd"
Me.dtp_end_date.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.dtp_end_date.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.dtp_end_date.Location = New System.Drawing.Point(695, 450)
Me.dtp_end_date.Name = "dtp_end_date"
Me.dtp_end_date.Size = New System.Drawing.Size(140, 29)
Me.dtp_end_date.TabIndex = 10
'
'dtp_weigh_date
'
Me.dtp_weigh_date.CustomFormat = "yyyy-MM-dd"
Me.dtp_weigh_date.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.dtp_weigh_date.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.dtp_weigh_date.Location = New System.Drawing.Point(480, 415)
Me.dtp_weigh_date.Name = "dtp_weigh_date"
Me.dtp_weigh_date.Size = New System.Drawing.Size(355, 29)
Me.dtp_weigh_date.TabIndex = 8
'
'Label8
'
Me.Label8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label8.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(300, 290)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(175, 50)
Me.Label8.TabIndex = 36
Me.Label8.Text = "Rules :"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label11
'
Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label11.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label11.ForeColor = System.Drawing.Color.White
Me.Label11.Location = New System.Drawing.Point(300, 415)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(175, 30)
Me.Label11.TabIndex = 60
Me.Label11.Text = "Weigh In :"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_rules
'
Me.txt_rules.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.txt_rules.Location = New System.Drawing.Point(480, 290)
Me.txt_rules.Multiline = True
Me.txt_rules.Name = "txt_rules"
Me.txt_rules.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txt_rules.Size = New System.Drawing.Size(355, 50)
Me.txt_rules.TabIndex = 5
'
'btn_cancel
'
Me.btn_cancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_cancel.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.btn_cancel.ForeColor = System.Drawing.Color.White
Me.btn_cancel.Location = New System.Drawing.Point(10, 415)
Me.btn_cancel.Name = "btn_cancel"
Me.btn_cancel.Size = New System.Drawing.Size(280, 65)
Me.btn_cancel.TabIndex = 18
Me.btn_cancel.Text = "Cancel"
Me.btn_cancel.UseVisualStyleBackColor = True
'
'btn_create
'
Me.btn_create.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_create.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.btn_create.ForeColor = System.Drawing.Color.White
Me.btn_create.Location = New System.Drawing.Point(10, 345)
Me.btn_create.Name = "btn_create"
Me.btn_create.Size = New System.Drawing.Size(280, 65)
Me.btn_create.TabIndex = 17
Me.btn_create.Text = "Create Event"
Me.btn_create.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(300, 255)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(175, 30)
Me.Label1.TabIndex = 69
Me.Label1.Text = "Courts :"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_courts
'
Me.txt_courts.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.txt_courts.Location = New System.Drawing.Point(480, 255)
Me.txt_courts.Name = "txt_courts"
Me.txt_courts.Size = New System.Drawing.Size(355, 29)
Me.txt_courts.TabIndex = 11
'
'pb_event_logo
'
Me.pb_event_logo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_event_logo.Location = New System.Drawing.Point(10, 45)
Me.pb_event_logo.Name = "pb_event_logo"
Me.pb_event_logo.Size = New System.Drawing.Size(280, 295)
Me.pb_event_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_event_logo.TabIndex = 70
Me.pb_event_logo.TabStop = False
'
'Label2
'
Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label2.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(10, 10)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(280, 30)
Me.Label2.TabIndex = 71
Me.Label2.Text = "Event Logo"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'txt_rounds
'
Me.txt_rounds.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.txt_rounds.Location = New System.Drawing.Point(480, 80)
Me.txt_rounds.Name = "txt_rounds"
Me.txt_rounds.Size = New System.Drawing.Size(355, 29)
Me.txt_rounds.TabIndex = 72
Me.txt_rounds.Text = "1"
Me.txt_rounds.Visible = False
'
'lbl_round
'
Me.lbl_round.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_round.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.lbl_round.ForeColor = System.Drawing.Color.White
Me.lbl_round.Location = New System.Drawing.Point(300, 80)
Me.lbl_round.Name = "lbl_round"
Me.lbl_round.Size = New System.Drawing.Size(175, 30)
Me.lbl_round.TabIndex = 73
Me.lbl_round.Text = "Rounds :"
Me.lbl_round.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.lbl_round.Visible = False
'
'Label3
'
Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label3.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(300, 150)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(175, 30)
Me.Label3.TabIndex = 74
Me.Label3.Text = "Country :"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cbo_country
'
Me.cbo_country.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.cbo_country.FormattingEnabled = True
Me.cbo_country.Items.AddRange(New Object() {"PLAYOFF", "LEAGUE"})
Me.cbo_country.Location = New System.Drawing.Point(480, 150)
Me.cbo_country.Name = "cbo_country"
Me.cbo_country.Size = New System.Drawing.Size(305, 30)
Me.cbo_country.TabIndex = 75
'
'pb_flag
'
Me.pb_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_flag.Location = New System.Drawing.Point(790, 150)
Me.pb_flag.Name = "pb_flag"
Me.pb_flag.Size = New System.Drawing.Size(45, 30)
Me.pb_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_flag.TabIndex = 76
Me.pb_flag.TabStop = False
'
'lbl_address
'
Me.lbl_address.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_address.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.lbl_address.ForeColor = System.Drawing.Color.White
Me.lbl_address.Location = New System.Drawing.Point(300, 185)
Me.lbl_address.Name = "lbl_address"
Me.lbl_address.Size = New System.Drawing.Size(175, 30)
Me.lbl_address.TabIndex = 77
Me.lbl_address.Text = "Address :"
Me.lbl_address.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_address
'
Me.txt_address.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.txt_address.Location = New System.Drawing.Point(480, 185)
Me.txt_address.Name = "txt_address"
Me.txt_address.Size = New System.Drawing.Size(355, 29)
Me.txt_address.TabIndex = 78
'
'Label4
'
Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label4.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(625, 450)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(65, 30)
Me.Label4.TabIndex = 79
Me.Label4.Text = "till :"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label5
'
Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label5.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(300, 345)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(175, 30)
Me.Label5.TabIndex = 80
Me.Label5.Text = "Currency :"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label6
'
Me.Label6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label6.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(625, 345)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 30)
Me.Label6.TabIndex = 81
Me.Label6.Text = "Fee :"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cbo_currency
'
Me.cbo_currency.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.cbo_currency.FormattingEnabled = True
Me.cbo_currency.Location = New System.Drawing.Point(480, 345)
Me.cbo_currency.Name = "cbo_currency"
Me.cbo_currency.Size = New System.Drawing.Size(140, 30)
Me.cbo_currency.TabIndex = 82
'
'txt_fee
'
Me.txt_fee.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World)
Me.txt_fee.Location = New System.Drawing.Point(695, 345)
Me.txt_fee.Name = "txt_fee"
Me.txt_fee.Size = New System.Drawing.Size(140, 29)
Me.txt_fee.TabIndex = 83
'
'frm_create_event
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(844, 491)
Me.ControlBox = False
Me.Controls.Add(Me.txt_fee)
Me.Controls.Add(Me.cbo_currency)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txt_address)
Me.Controls.Add(Me.lbl_address)
Me.Controls.Add(Me.pb_flag)
Me.Controls.Add(Me.cbo_country)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.lbl_round)
Me.Controls.Add(Me.txt_rounds)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.pb_event_logo)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btn_cancel)
Me.Controls.Add(Me.txt_courts)
Me.Controls.Add(Me.btn_create)
Me.Controls.Add(Me.lbl_organizor)
Me.Controls.Add(Me.txt_organizor)
Me.Controls.Add(Me.txt_title)
Me.Controls.Add(Me.cbo_type)
Me.Controls.Add(Me.lbl_title)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.txt_rules)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.dtp_start_enroll)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.txt_location)
Me.Controls.Add(Me.dtp_weigh_date)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.dtp_end_enroll)
Me.Controls.Add(Me.dtp_end_date)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.dtp_start_date)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "frm_create_event"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Create Event"
CType(Me.pb_event_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_flag, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lbl_title As System.Windows.Forms.Label
Friend WithEvents txt_title As System.Windows.Forms.TextBox
Friend WithEvents cbo_type As System.Windows.Forms.ComboBox
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents dtp_start_enroll As System.Windows.Forms.DateTimePicker
Friend WithEvents txt_location As System.Windows.Forms.TextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents dtp_end_enroll As System.Windows.Forms.DateTimePicker
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents dtp_start_date As System.Windows.Forms.DateTimePicker
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents dtp_end_date As System.Windows.Forms.DateTimePicker
Friend WithEvents dtp_weigh_date As System.Windows.Forms.DateTimePicker
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents txt_rules As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txt_courts As System.Windows.Forms.TextBox
Friend WithEvents lbl_organizor As System.Windows.Forms.Label
Friend WithEvents txt_organizor As System.Windows.Forms.TextBox
Friend WithEvents btn_cancel As System.Windows.Forms.Button
Friend WithEvents btn_create As System.Windows.Forms.Button
Friend WithEvents pb_event_logo As PictureBox
Friend WithEvents Label2 As Label
Friend WithEvents txt_rounds As TextBox
Friend WithEvents lbl_round As Label
Friend WithEvents Label3 As Label
Friend WithEvents cbo_country As ComboBox
Friend WithEvents pb_flag As PictureBox
Friend WithEvents lbl_address As Label
Friend WithEvents txt_address As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label6 As Label
Friend WithEvents cbo_currency As ComboBox
Friend WithEvents txt_fee As TextBox
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,93 @@
Imports System.IO
Imports System.ComponentModel
Public Class frm_create_event
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cancel.Click
frm_main.Show()
Me.Close()
End Sub
Private Sub frm_championship_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GetCountryList(cbo_country)
cbo_type.SelectedIndex = 1
dtp_start_enroll.MinDate = Date.Today
End Sub
Private Sub dtp_start_enroll_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtp_start_enroll.ValueChanged
dtp_end_enroll.MinDate = dtp_start_enroll.Value
End Sub
Private Sub dtp_end_enroll_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtp_end_enroll.ValueChanged
dtp_weigh_date.MinDate = dtp_end_enroll.Value
End Sub
Private Sub dtp_weigh_date_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtp_weigh_date.ValueChanged
dtp_start_date.MinDate = dtp_weigh_date.Value
End Sub
Private Sub dtp_start_date_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtp_start_date.ValueChanged
dtp_end_date.MinDate = dtp_start_date.Value
End Sub
Private Sub btn_create_Click(sender As Object, e As EventArgs) Handles btn_create.Click
Try
Dim takeone_event As New platformevent(txt_title.Text, cbo_type.Text, txt_rounds.Text, txt_organizor.Text, cbo_country.SelectedValue, txt_address.Text, txt_location.Text, txt_courts.Text, txt_rules.Text, cbo_currency.Text, txt_fee.Text, dtp_start_enroll.Text, dtp_end_enroll.Text, dtp_weigh_date.Text, dtp_start_date.Text, dtp_end_date.Text, pb_event_logo)
EventList(frm_main.lst_events)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub pb_event_logo_Click(sender As Object, e As EventArgs) Handles pb_event_logo.Click
ResizePicture(pb_event_logo, 500, 500)
End Sub
Private Sub frm_create_event_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
frm_main.Show()
End Sub
Private Sub cbo_type_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_type.SelectedIndexChanged
If cbo_type.Text = "LEAGUE" Then
txt_rounds.Visible = True
lbl_round.Visible = True
Else
txt_rounds.Visible = False
lbl_round.Visible = False
End If
End Sub
Private Sub cbo_country_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_country.SelectedIndexChanged
Dim country As country
Try
country = New country(cbo_country.SelectedValue)
pb_flag.Image = Image.FromStream(country.Flag)
Catch ex As Exception
End Try
End Sub
End Class

View File

@ -0,0 +1,517 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frm_event_control
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()
Me.btn_participants = New System.Windows.Forms.Button()
Me.btn_start_event = New System.Windows.Forms.Button()
Me.lbl_event_title_display = New System.Windows.Forms.Label()
Me.btn_clubs_data = New System.Windows.Forms.Button()
Me.btn_draw_managment = New System.Windows.Forms.Button()
Me.btn_event_results = New System.Windows.Forms.Button()
Me.btn_back = New System.Windows.Forms.Button()
Me.lbl_total_rounds = New System.Windows.Forms.Label()
Me.btn_fighter_statistics = New System.Windows.Forms.Button()
Me.pb_event_logo = New System.Windows.Forms.PictureBox()
Me.lbl_total_matches = New System.Windows.Forms.Label()
Me.lbl_total_referees = New System.Windows.Forms.Label()
Me.lbl_total_clubs = New System.Windows.Forms.Label()
Me.btn_swap_match = New System.Windows.Forms.Button()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.lbl_current_round = New System.Windows.Forms.Label()
Me.lbl_remaining_matches = New System.Windows.Forms.Label()
Me.lbl_total_females = New System.Windows.Forms.Label()
Me.lbl_total_males = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
CType(Me.pb_event_logo, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btn_participants
'
Me.btn_participants.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_participants.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_participants.ForeColor = System.Drawing.Color.White
Me.btn_participants.Location = New System.Drawing.Point(15, 215)
Me.btn_participants.Name = "btn_participants"
Me.btn_participants.Size = New System.Drawing.Size(395, 55)
Me.btn_participants.TabIndex = 0
Me.btn_participants.Text = "PARTICIPANTS"
Me.btn_participants.UseVisualStyleBackColor = True
'
'btn_start_event
'
Me.btn_start_event.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Green
Me.btn_start_event.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_start_event.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_start_event.ForeColor = System.Drawing.Color.White
Me.btn_start_event.Location = New System.Drawing.Point(425, 215)
Me.btn_start_event.Name = "btn_start_event"
Me.btn_start_event.Size = New System.Drawing.Size(395, 55)
Me.btn_start_event.TabIndex = 1
Me.btn_start_event.Text = "START EVENT"
Me.btn_start_event.UseVisualStyleBackColor = True
'
'lbl_event_title_display
'
Me.lbl_event_title_display.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_event_title_display.Font = New System.Drawing.Font("Arial Rounded MT Bold", 30.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_event_title_display.ForeColor = System.Drawing.Color.White
Me.lbl_event_title_display.Location = New System.Drawing.Point(210, 20)
Me.lbl_event_title_display.Name = "lbl_event_title_display"
Me.lbl_event_title_display.Size = New System.Drawing.Size(610, 55)
Me.lbl_event_title_display.TabIndex = 11
Me.lbl_event_title_display.Text = "Warrior TaeKwonDo Academy League"
Me.lbl_event_title_display.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_clubs_data
'
Me.btn_clubs_data.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_clubs_data.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_clubs_data.ForeColor = System.Drawing.Color.White
Me.btn_clubs_data.Location = New System.Drawing.Point(425, 280)
Me.btn_clubs_data.Name = "btn_clubs_data"
Me.btn_clubs_data.Size = New System.Drawing.Size(395, 55)
Me.btn_clubs_data.TabIndex = 12
Me.btn_clubs_data.Text = "CLUBS DATA"
Me.btn_clubs_data.UseVisualStyleBackColor = True
'
'btn_draw_managment
'
Me.btn_draw_managment.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_draw_managment.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_draw_managment.ForeColor = System.Drawing.Color.White
Me.btn_draw_managment.Location = New System.Drawing.Point(15, 280)
Me.btn_draw_managment.Name = "btn_draw_managment"
Me.btn_draw_managment.Size = New System.Drawing.Size(395, 55)
Me.btn_draw_managment.TabIndex = 13
Me.btn_draw_managment.Text = "DRAW MANAGMENT"
Me.btn_draw_managment.UseVisualStyleBackColor = True
'
'btn_event_results
'
Me.btn_event_results.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_event_results.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_event_results.ForeColor = System.Drawing.Color.White
Me.btn_event_results.Location = New System.Drawing.Point(425, 410)
Me.btn_event_results.Name = "btn_event_results"
Me.btn_event_results.Size = New System.Drawing.Size(395, 55)
Me.btn_event_results.TabIndex = 14
Me.btn_event_results.Text = "EVENT RESULTS"
Me.btn_event_results.UseVisualStyleBackColor = True
'
'btn_back
'
Me.btn_back.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_back.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_back.ForeColor = System.Drawing.Color.White
Me.btn_back.Location = New System.Drawing.Point(15, 410)
Me.btn_back.Name = "btn_back"
Me.btn_back.Size = New System.Drawing.Size(395, 55)
Me.btn_back.TabIndex = 16
Me.btn_back.Text = "< BACK"
Me.btn_back.UseVisualStyleBackColor = True
'
'lbl_total_rounds
'
Me.lbl_total_rounds.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_total_rounds.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_total_rounds.ForeColor = System.Drawing.Color.White
Me.lbl_total_rounds.Location = New System.Drawing.Point(210, 120)
Me.lbl_total_rounds.Name = "lbl_total_rounds"
Me.lbl_total_rounds.Size = New System.Drawing.Size(110, 35)
Me.lbl_total_rounds.TabIndex = 20
Me.lbl_total_rounds.Text = "0"
Me.lbl_total_rounds.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btn_fighter_statistics
'
Me.btn_fighter_statistics.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_fighter_statistics.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_fighter_statistics.ForeColor = System.Drawing.Color.White
Me.btn_fighter_statistics.Location = New System.Drawing.Point(425, 345)
Me.btn_fighter_statistics.Name = "btn_fighter_statistics"
Me.btn_fighter_statistics.Size = New System.Drawing.Size(395, 55)
Me.btn_fighter_statistics.TabIndex = 22
Me.btn_fighter_statistics.Text = "FIGHTERS DATA"
Me.btn_fighter_statistics.UseVisualStyleBackColor = True
'
'pb_event_logo
'
Me.pb_event_logo.Location = New System.Drawing.Point(15, 20)
Me.pb_event_logo.Name = "pb_event_logo"
Me.pb_event_logo.Size = New System.Drawing.Size(180, 180)
Me.pb_event_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_event_logo.TabIndex = 24
Me.pb_event_logo.TabStop = False
'
'lbl_total_matches
'
Me.lbl_total_matches.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_total_matches.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_total_matches.ForeColor = System.Drawing.Color.White
Me.lbl_total_matches.Location = New System.Drawing.Point(335, 120)
Me.lbl_total_matches.Name = "lbl_total_matches"
Me.lbl_total_matches.Size = New System.Drawing.Size(110, 35)
Me.lbl_total_matches.TabIndex = 25
Me.lbl_total_matches.Text = "0"
Me.lbl_total_matches.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lbl_total_referees
'
Me.lbl_total_referees.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_total_referees.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_total_referees.ForeColor = System.Drawing.Color.White
Me.lbl_total_referees.Location = New System.Drawing.Point(460, 120)
Me.lbl_total_referees.Name = "lbl_total_referees"
Me.lbl_total_referees.Size = New System.Drawing.Size(110, 80)
Me.lbl_total_referees.TabIndex = 26
Me.lbl_total_referees.Text = "0"
Me.lbl_total_referees.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_total_clubs
'
Me.lbl_total_clubs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_total_clubs.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_total_clubs.ForeColor = System.Drawing.Color.White
Me.lbl_total_clubs.Location = New System.Drawing.Point(585, 120)
Me.lbl_total_clubs.Name = "lbl_total_clubs"
Me.lbl_total_clubs.Size = New System.Drawing.Size(110, 80)
Me.lbl_total_clubs.TabIndex = 27
Me.lbl_total_clubs.Text = "0"
Me.lbl_total_clubs.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_swap_match
'
Me.btn_swap_match.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_swap_match.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn_swap_match.ForeColor = System.Drawing.Color.White
Me.btn_swap_match.Location = New System.Drawing.Point(15, 345)
Me.btn_swap_match.Name = "btn_swap_match"
Me.btn_swap_match.Size = New System.Drawing.Size(395, 55)
Me.btn_swap_match.TabIndex = 15
Me.btn_swap_match.Text = "SWAP MATCH"
Me.btn_swap_match.UseVisualStyleBackColor = True
'
'Label10
'
Me.Label10.BackColor = System.Drawing.Color.Black
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.ForeColor = System.Drawing.Color.White
Me.Label10.Location = New System.Drawing.Point(210, 85)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(110, 25)
Me.Label10.TabIndex = 58
Me.Label10.Text = "ROUNDS"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label5
'
Me.Label5.BackColor = System.Drawing.Color.Black
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(335, 85)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(110, 25)
Me.Label5.TabIndex = 59
Me.Label5.Text = "MATCHES"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label6
'
Me.Label6.BackColor = System.Drawing.Color.Black
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(710, 85)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(110, 25)
Me.Label6.TabIndex = 60
Me.Label6.Text = "PLAYERS"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label7
'
Me.Label7.BackColor = System.Drawing.Color.Black
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor = System.Drawing.Color.White
Me.Label7.Location = New System.Drawing.Point(585, 85)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(110, 25)
Me.Label7.TabIndex = 61
Me.Label7.Text = "CLUBS"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label8
'
Me.Label8.BackColor = System.Drawing.Color.Black
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(460, 85)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(110, 25)
Me.Label8.TabIndex = 62
Me.Label8.Text = "REFEREES"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_current_round
'
Me.lbl_current_round.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_current_round.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_current_round.ForeColor = System.Drawing.Color.White
Me.lbl_current_round.Location = New System.Drawing.Point(210, 165)
Me.lbl_current_round.Name = "lbl_current_round"
Me.lbl_current_round.Size = New System.Drawing.Size(110, 35)
Me.lbl_current_round.TabIndex = 72
Me.lbl_current_round.Text = "0"
Me.lbl_current_round.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lbl_remaining_matches
'
Me.lbl_remaining_matches.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_remaining_matches.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_remaining_matches.ForeColor = System.Drawing.Color.White
Me.lbl_remaining_matches.Location = New System.Drawing.Point(335, 165)
Me.lbl_remaining_matches.Name = "lbl_remaining_matches"
Me.lbl_remaining_matches.Size = New System.Drawing.Size(110, 35)
Me.lbl_remaining_matches.TabIndex = 73
Me.lbl_remaining_matches.Text = "0"
Me.lbl_remaining_matches.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lbl_total_females
'
Me.lbl_total_females.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lbl_total_females.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_total_females.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_total_females.ForeColor = System.Drawing.Color.White
Me.lbl_total_females.Location = New System.Drawing.Point(710, 165)
Me.lbl_total_females.Name = "lbl_total_females"
Me.lbl_total_females.Size = New System.Drawing.Size(110, 35)
Me.lbl_total_females.TabIndex = 75
Me.lbl_total_females.Text = "0"
Me.lbl_total_females.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lbl_total_males
'
Me.lbl_total_males.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lbl_total_males.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_total_males.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_total_males.ForeColor = System.Drawing.Color.White
Me.lbl_total_males.Location = New System.Drawing.Point(710, 120)
Me.lbl_total_males.Name = "lbl_total_males"
Me.lbl_total_males.Size = New System.Drawing.Size(110, 35)
Me.lbl_total_males.TabIndex = 74
Me.lbl_total_males.Text = "0"
Me.lbl_total_males.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Yellow
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.Font = New System.Drawing.Font("Arial Rounded MT Bold", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(215, 115)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(60, 15)
Me.Label1.TabIndex = 76
Me.Label1.Text = "Total"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.Yellow
Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label2.Font = New System.Drawing.Font("Arial Rounded MT Bold", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Black
Me.Label2.Location = New System.Drawing.Point(215, 160)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(60, 15)
Me.Label2.TabIndex = 77
Me.Label2.Text = "Current"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.Yellow
Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label3.Font = New System.Drawing.Font("Arial Rounded MT Bold", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.Black
Me.Label3.Location = New System.Drawing.Point(340, 160)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(60, 15)
Me.Label3.TabIndex = 79
Me.Label3.Text = "Remain"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label4
'
Me.Label4.BackColor = System.Drawing.Color.Yellow
Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label4.Font = New System.Drawing.Font("Arial Rounded MT Bold", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.Black
Me.Label4.Location = New System.Drawing.Point(340, 115)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(60, 15)
Me.Label4.TabIndex = 78
Me.Label4.Text = "Total"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label9
'
Me.Label9.BackColor = System.Drawing.Color.Yellow
Me.Label9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label9.Font = New System.Drawing.Font("Arial Rounded MT Bold", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ForeColor = System.Drawing.Color.Black
Me.Label9.Location = New System.Drawing.Point(465, 115)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(60, 15)
Me.Label9.TabIndex = 80
Me.Label9.Text = "Total"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label11
'
Me.Label11.BackColor = System.Drawing.Color.Yellow
Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label11.Font = New System.Drawing.Font("Arial Rounded MT Bold", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.ForeColor = System.Drawing.Color.Black
Me.Label11.Location = New System.Drawing.Point(590, 115)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(60, 15)
Me.Label11.TabIndex = 81
Me.Label11.Text = "Total"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label12
'
Me.Label12.BackColor = System.Drawing.Color.Yellow
Me.Label12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label12.Font = New System.Drawing.Font("Arial Rounded MT Bold", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.ForeColor = System.Drawing.Color.Black
Me.Label12.Location = New System.Drawing.Point(715, 115)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(60, 15)
Me.Label12.TabIndex = 82
Me.Label12.Text = "Male"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label13
'
Me.Label13.BackColor = System.Drawing.Color.Yellow
Me.Label13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label13.Font = New System.Drawing.Font("Arial Rounded MT Bold", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.ForeColor = System.Drawing.Color.Black
Me.Label13.Location = New System.Drawing.Point(715, 160)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(60, 15)
Me.Label13.TabIndex = 83
Me.Label13.Text = "Female"
Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'frm_event_control
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(834, 481)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lbl_total_females)
Me.Controls.Add(Me.lbl_total_males)
Me.Controls.Add(Me.lbl_remaining_matches)
Me.Controls.Add(Me.lbl_current_round)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.lbl_total_clubs)
Me.Controls.Add(Me.lbl_total_referees)
Me.Controls.Add(Me.lbl_total_matches)
Me.Controls.Add(Me.pb_event_logo)
Me.Controls.Add(Me.btn_fighter_statistics)
Me.Controls.Add(Me.lbl_total_rounds)
Me.Controls.Add(Me.btn_back)
Me.Controls.Add(Me.btn_swap_match)
Me.Controls.Add(Me.btn_event_results)
Me.Controls.Add(Me.btn_draw_managment)
Me.Controls.Add(Me.btn_clubs_data)
Me.Controls.Add(Me.lbl_event_title_display)
Me.Controls.Add(Me.btn_start_event)
Me.Controls.Add(Me.btn_participants)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.MaximizeBox = False
Me.Name = "frm_event_control"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Score Control"
CType(Me.pb_event_logo, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents btn_participants As Button
Friend WithEvents btn_start_event As Button
Friend WithEvents lbl_event_title_display As Label
Friend WithEvents btn_clubs_data As Button
Friend WithEvents btn_draw_managment As Button
Friend WithEvents btn_event_results As Button
Friend WithEvents btn_back As Button
Friend WithEvents lbl_total_rounds As Label
Friend WithEvents btn_fighter_statistics As Button
Friend WithEvents pb_event_logo As PictureBox
Friend WithEvents lbl_total_referees As Label
Friend WithEvents lbl_total_clubs As Label
Friend WithEvents lbl_total_matches As Label
Friend WithEvents btn_swap_match As Button
Friend WithEvents Label10 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label6 As Label
Friend WithEvents Label7 As Label
Friend WithEvents Label8 As Label
Friend WithEvents lbl_current_round As Label
Friend WithEvents lbl_remaining_matches As Label
Friend WithEvents lbl_total_males As Label
Friend WithEvents lbl_total_females As Label
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label9 As Label
Friend WithEvents Label11 As Label
Friend WithEvents Label12 As Label
Friend WithEvents Label13 As Label
End Class

View File

@ -0,0 +1,216 @@
<?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>
<metadata name="btn_participants.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="btn_start_event.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="lbl_event_title_display.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="btn_clubs_data.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="btn_draw_managment.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="btn_event_results.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="btn_back.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="lbl_total_rounds.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="btn_fighter_statistics.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="pb_event_logo.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="lbl_total_matches.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="lbl_total_referees.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="lbl_total_clubs.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="btn_swap_match.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label10.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label5.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label6.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label7.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label8.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="lbl_current_round.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="lbl_remaining_matches.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="lbl_total_females.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="lbl_total_males.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label1.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label2.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label3.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label4.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label9.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label11.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label12.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Label13.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="$this.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>

View File

@ -0,0 +1,195 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Imports System.ComponentModel
Public Class frm_event_control
Public EventID As String
Public EventTitle As String
Private Sub EventBasicStats(eventID As Integer)
Dim QRY As String = ("
select
(select count(*) From (select distinct ern from event_matches where eid = " & eventID & ") as TOTALROUNDS) as 'TR',
(select * From (select distinct ern from event_matches where eid = " & eventID & " and started = 0 and ended = 0 limit 1) as CURRENTROUND) as 'CR',
(select count(*) From (select * from event_matches where eid = " & eventID & ") as TOTALMATCHES) as 'TM',
(select count(*) From (select * from event_matches where eid = " & eventID & " and started = 0 and ended = 0) as REMMATCHES) as 'RM',
(select count(*) From (select distinct person.* from event_matches left join person on event_matches.blue_fighter = person.id or event_matches.red_fighter = person.id where person.gender = 'MALE' and event_matches.eid = " & eventID & ") as MALE) as 'GM',
(select count(*) From (select distinct person.* from event_matches left join person on event_matches.blue_fighter = person.id or event_matches.red_fighter = person.id where person.gender = 'FEMALE' and event_matches.eid = " & eventID & ") as FEMALE) as 'GF',
(select count(*) From (select distinct clubs.Title from event_matches left join person on event_matches.blue_fighter = person.id or event_matches.red_fighter = person.id left join clubs on person.club = clubs.id where event_matches.eid = " & eventID & " group by clubs.title) as CLUBS) as 'CL'
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
lbl_total_rounds.Text = RDR("TR")
Catch ex As Exception
lbl_total_rounds.Text = Nothing
End Try
Try
lbl_current_round.Text = RDR("CR")
Catch ex As Exception
lbl_current_round.Text = Nothing
End Try
Try
lbl_total_matches.Text = RDR("TM")
Catch ex As Exception
lbl_total_matches.Text = Nothing
End Try
Try
lbl_remaining_matches.Text = RDR("RM")
Catch ex As Exception
lbl_remaining_matches.Text = Nothing
End Try
Try
lbl_total_clubs.Text = RDR("CL")
Catch ex As Exception
lbl_total_clubs.Text = Nothing
End Try
Try
lbl_total_males.Text = RDR("GM")
Catch ex As Exception
lbl_total_males.Text = Nothing
End Try
Try
lbl_total_females.Text = RDR("GF")
Catch ex As Exception
lbl_total_females.Text = Nothing
End Try
Try
lbl_total_referees.Text = 0
Catch ex As Exception
lbl_total_rounds.Text = Nothing
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Private Sub btn_add_participant_Click(sender As Object, e As EventArgs) Handles btn_participants.Click
frm_add_participants.Show()
Me.Hide()
End Sub
Private Sub frm_event_control_MaximumSizeChanged(sender As Object, e As EventArgs) Handles Me.MaximumSizeChanged
frm_main.Show()
End Sub
Private Sub frm_event_control_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lbl_event_title_display.Text = SelectedEvent.Title
Try
pb_event_logo.Image = Image.FromStream(SelectedEvent.Logo)
Catch ex As Exception
pb_event_logo.Image = Nothing
End Try
Try
EventBasicStats(SelectedEvent.ID)
Catch ex As Exception
End Try
End Sub
Private Sub btn_back_Click(sender As Object, e As EventArgs) Handles btn_back.Click
frm_main.Show()
Me.Close()
End Sub
Private Sub btn_create_matches_Click(sender As Object, e As EventArgs) Handles btn_start_event.Click
frm_scorecontrol.Show()
Me.Hide()
End Sub
Private Sub frm_event_control_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
frm_main.Show()
End Sub
Private Sub pb_event_logo_Click(sender As Object, e As EventArgs) Handles pb_event_logo.Click
If IsNothing(pb_event_logo.Image) Then
' Open Picture File
ResizePicture(pb_event_logo, 500, 500)
' Store The Picture
SelectedEvent.UpdateLogo(pb_event_logo)
ElseIf Not IsNothing(pb_event_logo.Image) Then
Dim iPictureUpdate As DialogResult = MessageBox.Show("Would You Like To Update The Players Picture ?", "Picture Update", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If iPictureUpdate = DialogResult.Yes Then
' Open Picture File
ResizePicture(pb_event_logo, 500, 500)
' Store The Picture
SelectedEvent.UpdateLogo(pb_event_logo)
End If
End If
End Sub
Private Sub btn_statistics_Click(sender As Object, e As EventArgs) Handles btn_fighter_statistics.Click
If Not SelectedEvent.ID = 0 Then
frm_fighter_statistics.Show()
Me.Hide()
End If
End Sub
Private Sub btn_event_results_Click(sender As Object, e As EventArgs) Handles btn_event_results.Click
frm_ranking.Show()
Me.Hide()
End Sub
Private Sub btn_draw_managment_Click(sender As Object, e As EventArgs) Handles btn_draw_managment.Click
frm_arrange_matches.Show()
Me.Hide()
End Sub
End Class

View File

@ -0,0 +1,703 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frm_fighter_statistics
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()
Me.pb_fighter = New System.Windows.Forms.PictureBox()
Me.lst_fighters = New System.Windows.Forms.ListBox()
Me.txt_search = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.lbl_loss = New System.Windows.Forms.Label()
Me.lbl_wins = New System.Windows.Forms.Label()
Me.lbl_nationality = New System.Windows.Forms.Label()
Me.lbl_gender = New System.Windows.Forms.Label()
Me.lbl_name = New System.Windows.Forms.Label()
Me.lbl_category = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label()
Me.lst_matches = New System.Windows.Forms.ListBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.lbl_age = New System.Windows.Forms.Label()
Me.btn_preview = New System.Windows.Forms.Button()
Me.btn_opponent = New System.Windows.Forms.Button()
Me.btn_close = New System.Windows.Forms.Button()
Me.pb_flag = New System.Windows.Forms.PictureBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.lbl_match_number = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.lbl_court_number = New System.Windows.Forms.Label()
Me.lbl_blue_fighter = New System.Windows.Forms.Label()
Me.lbl_red_fighter = New System.Windows.Forms.Label()
Me.lbl_blue_score = New System.Windows.Forms.Label()
Me.Label21 = New System.Windows.Forms.Label()
Me.lbl_winner = New System.Windows.Forms.Label()
Me.lbl_red_score = New System.Windows.Forms.Label()
Me.Label27 = New System.Windows.Forms.Label()
Me.Label28 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.lbl_rank = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
Me.lbl_referee = New System.Windows.Forms.Label()
Me.pb_referee_flag = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.lbl_last_weight = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.lbl_weight_class = New System.Windows.Forms.Label()
Me.pb_blue_logo = New System.Windows.Forms.PictureBox()
Me.pb_red_logo = New System.Windows.Forms.PictureBox()
CType(Me.pb_fighter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pb_fighter
'
Me.pb_fighter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_fighter.Location = New System.Drawing.Point(285, 10)
Me.pb_fighter.Name = "pb_fighter"
Me.pb_fighter.Size = New System.Drawing.Size(160, 180)
Me.pb_fighter.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_fighter.TabIndex = 6
Me.pb_fighter.TabStop = False
'
'lst_fighters
'
Me.lst_fighters.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lst_fighters.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lst_fighters.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lst_fighters.ForeColor = System.Drawing.Color.White
Me.lst_fighters.FormattingEnabled = True
Me.lst_fighters.ItemHeight = 20
Me.lst_fighters.Location = New System.Drawing.Point(10, 80)
Me.lst_fighters.Name = "lst_fighters"
Me.lst_fighters.Size = New System.Drawing.Size(265, 262)
Me.lst_fighters.TabIndex = 7
'
'txt_search
'
Me.txt_search.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.txt_search.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txt_search.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txt_search.ForeColor = System.Drawing.Color.White
Me.txt_search.Location = New System.Drawing.Point(95, 10)
Me.txt_search.Name = "txt_search"
Me.txt_search.Size = New System.Drawing.Size(180, 26)
Me.txt_search.TabIndex = 8
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(450, 10)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(110, 25)
Me.Label3.TabIndex = 11
Me.Label3.Text = "Name :"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(450, 40)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(110, 25)
Me.Label4.TabIndex = 13
Me.Label4.Text = "Nationality :"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(450, 100)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(110, 25)
Me.Label5.TabIndex = 12
Me.Label5.Text = "Gender :"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(665, 100)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(75, 25)
Me.Label6.TabIndex = 14
Me.Label6.Text = "Win :"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(665, 130)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(75, 25)
Me.Label7.TabIndex = 15
Me.Label7.Text = "Lose :"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lbl_loss
'
Me.lbl_loss.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_loss.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_loss.Location = New System.Drawing.Point(745, 130)
Me.lbl_loss.Name = "lbl_loss"
Me.lbl_loss.Size = New System.Drawing.Size(80, 25)
Me.lbl_loss.TabIndex = 21
Me.lbl_loss.Text = "0"
Me.lbl_loss.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_wins
'
Me.lbl_wins.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_wins.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_wins.Location = New System.Drawing.Point(745, 100)
Me.lbl_wins.Name = "lbl_wins"
Me.lbl_wins.Size = New System.Drawing.Size(80, 25)
Me.lbl_wins.TabIndex = 20
Me.lbl_wins.Text = "0"
Me.lbl_wins.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_nationality
'
Me.lbl_nationality.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_nationality.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_nationality.Location = New System.Drawing.Point(610, 40)
Me.lbl_nationality.Name = "lbl_nationality"
Me.lbl_nationality.Size = New System.Drawing.Size(215, 25)
Me.lbl_nationality.TabIndex = 19
Me.lbl_nationality.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_gender
'
Me.lbl_gender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_gender.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_gender.Location = New System.Drawing.Point(565, 100)
Me.lbl_gender.Name = "lbl_gender"
Me.lbl_gender.Size = New System.Drawing.Size(95, 25)
Me.lbl_gender.TabIndex = 18
Me.lbl_gender.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_name
'
Me.lbl_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_name.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_name.Location = New System.Drawing.Point(565, 10)
Me.lbl_name.Name = "lbl_name"
Me.lbl_name.Size = New System.Drawing.Size(260, 25)
Me.lbl_name.TabIndex = 17
Me.lbl_name.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lbl_category
'
Me.lbl_category.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_category.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_category.Location = New System.Drawing.Point(565, 130)
Me.lbl_category.Name = "lbl_category"
Me.lbl_category.Size = New System.Drawing.Size(95, 25)
Me.lbl_category.TabIndex = 25
Me.lbl_category.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label19
'
Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label19.Location = New System.Drawing.Point(450, 130)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(110, 25)
Me.Label19.TabIndex = 26
Me.Label19.Text = "Category :"
Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lst_matches
'
Me.lst_matches.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lst_matches.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lst_matches.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lst_matches.ForeColor = System.Drawing.Color.White
Me.lst_matches.FormattingEnabled = True
Me.lst_matches.ItemHeight = 20
Me.lst_matches.Location = New System.Drawing.Point(285, 220)
Me.lst_matches.Name = "lst_matches"
Me.lst_matches.Size = New System.Drawing.Size(540, 122)
Me.lst_matches.TabIndex = 28
'
'Label20
'
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.Location = New System.Drawing.Point(665, 70)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(75, 25)
Me.Label20.TabIndex = 29
Me.Label20.Text = "Age :"
Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lbl_age
'
Me.lbl_age.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_age.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_age.Location = New System.Drawing.Point(745, 70)
Me.lbl_age.Name = "lbl_age"
Me.lbl_age.Size = New System.Drawing.Size(80, 25)
Me.lbl_age.TabIndex = 30
Me.lbl_age.Text = "0"
Me.lbl_age.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_preview
'
Me.btn_preview.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_preview.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_preview.Location = New System.Drawing.Point(650, 350)
Me.btn_preview.Name = "btn_preview"
Me.btn_preview.Size = New System.Drawing.Size(175, 35)
Me.btn_preview.TabIndex = 31
Me.btn_preview.Text = "Preview"
Me.btn_preview.UseVisualStyleBackColor = True
'
'btn_opponent
'
Me.btn_opponent.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_opponent.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_opponent.Location = New System.Drawing.Point(650, 390)
Me.btn_opponent.Name = "btn_opponent"
Me.btn_opponent.Size = New System.Drawing.Size(175, 35)
Me.btn_opponent.TabIndex = 32
Me.btn_opponent.Text = "Opponent"
Me.btn_opponent.UseVisualStyleBackColor = True
'
'btn_close
'
Me.btn_close.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_close.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_close.Location = New System.Drawing.Point(650, 430)
Me.btn_close.Name = "btn_close"
Me.btn_close.Size = New System.Drawing.Size(175, 35)
Me.btn_close.TabIndex = 35
Me.btn_close.Text = "Close"
Me.btn_close.UseVisualStyleBackColor = True
'
'pb_flag
'
Me.pb_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_flag.Location = New System.Drawing.Point(565, 40)
Me.pb_flag.Name = "pb_flag"
Me.pb_flag.Size = New System.Drawing.Size(40, 25)
Me.pb_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_flag.TabIndex = 36
Me.pb_flag.TabStop = False
'
'Label11
'
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(130, 350)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(70, 25)
Me.Label11.TabIndex = 39
Me.Label11.Text = "Match"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_match_number
'
Me.lbl_match_number.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_match_number.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_match_number.Location = New System.Drawing.Point(130, 380)
Me.lbl_match_number.Name = "lbl_match_number"
Me.lbl_match_number.Size = New System.Drawing.Size(70, 25)
Me.lbl_match_number.TabIndex = 40
Me.lbl_match_number.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label13
'
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(130, 410)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(70, 25)
Me.Label13.TabIndex = 41
Me.Label13.Text = "Court"
Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_court_number
'
Me.lbl_court_number.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_court_number.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_court_number.Location = New System.Drawing.Point(130, 440)
Me.lbl_court_number.Name = "lbl_court_number"
Me.lbl_court_number.Size = New System.Drawing.Size(70, 25)
Me.lbl_court_number.TabIndex = 42
Me.lbl_court_number.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_fighter
'
Me.lbl_blue_fighter.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_fighter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_fighter.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_fighter.Location = New System.Drawing.Point(425, 350)
Me.lbl_blue_fighter.Name = "lbl_blue_fighter"
Me.lbl_blue_fighter.Size = New System.Drawing.Size(170, 25)
Me.lbl_blue_fighter.TabIndex = 46
Me.lbl_blue_fighter.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_fighter
'
Me.lbl_red_fighter.BackColor = System.Drawing.Color.Red
Me.lbl_red_fighter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_fighter.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_fighter.Location = New System.Drawing.Point(425, 380)
Me.lbl_red_fighter.Name = "lbl_red_fighter"
Me.lbl_red_fighter.Size = New System.Drawing.Size(170, 25)
Me.lbl_red_fighter.TabIndex = 48
Me.lbl_red_fighter.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_score
'
Me.lbl_blue_score.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_score.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_score.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_score.Location = New System.Drawing.Point(600, 350)
Me.lbl_blue_score.Name = "lbl_blue_score"
Me.lbl_blue_score.Size = New System.Drawing.Size(40, 25)
Me.lbl_blue_score.TabIndex = 50
Me.lbl_blue_score.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label21
'
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label21.Location = New System.Drawing.Point(330, 440)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(90, 25)
Me.Label21.TabIndex = 51
Me.Label21.Text = "Winner :"
Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lbl_winner
'
Me.lbl_winner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_winner.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_winner.Location = New System.Drawing.Point(425, 440)
Me.lbl_winner.Name = "lbl_winner"
Me.lbl_winner.Size = New System.Drawing.Size(215, 25)
Me.lbl_winner.TabIndex = 52
Me.lbl_winner.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_score
'
Me.lbl_red_score.BackColor = System.Drawing.Color.Red
Me.lbl_red_score.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_score.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_score.Location = New System.Drawing.Point(600, 380)
Me.lbl_red_score.Name = "lbl_red_score"
Me.lbl_red_score.Size = New System.Drawing.Size(40, 25)
Me.lbl_red_score.TabIndex = 53
Me.lbl_red_score.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label27
'
Me.Label27.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label27.Location = New System.Drawing.Point(330, 350)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(90, 25)
Me.Label27.TabIndex = 54
Me.Label27.Text = "Blue :"
Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label28
'
Me.Label28.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label28.Location = New System.Drawing.Point(330, 380)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(90, 25)
Me.Label28.TabIndex = 55
Me.Label28.Text = "Red :"
Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label8
'
Me.Label8.BackColor = System.Drawing.Color.Black
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(285, 195)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(540, 25)
Me.Label8.TabIndex = 56
Me.Label8.Text = "< FIGHTING HISTORY >"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label10
'
Me.Label10.BackColor = System.Drawing.Color.Black
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(10, 55)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(265, 25)
Me.Label10.TabIndex = 57
Me.Label10.Text = "< SELECT A FIGHTER >"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label12
'
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(330, 410)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(90, 25)
Me.Label12.TabIndex = 58
Me.Label12.Text = "Referee :"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lbl_rank
'
Me.lbl_rank.BackColor = System.Drawing.Color.Yellow
Me.lbl_rank.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_rank.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_rank.ForeColor = System.Drawing.Color.Black
Me.lbl_rank.Location = New System.Drawing.Point(745, 160)
Me.lbl_rank.Name = "lbl_rank"
Me.lbl_rank.Size = New System.Drawing.Size(80, 25)
Me.lbl_rank.TabIndex = 64
Me.lbl_rank.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label22
'
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label22.Location = New System.Drawing.Point(665, 160)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(75, 25)
Me.Label22.TabIndex = 63
Me.Label22.Text = "Points :"
Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lbl_referee
'
Me.lbl_referee.BackColor = System.Drawing.Color.Yellow
Me.lbl_referee.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_referee.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_referee.ForeColor = System.Drawing.Color.Black
Me.lbl_referee.Location = New System.Drawing.Point(425, 410)
Me.lbl_referee.Name = "lbl_referee"
Me.lbl_referee.Size = New System.Drawing.Size(170, 25)
Me.lbl_referee.TabIndex = 66
Me.lbl_referee.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pb_referee_flag
'
Me.pb_referee_flag.BackColor = System.Drawing.Color.Yellow
Me.pb_referee_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_referee_flag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.pb_referee_flag.Location = New System.Drawing.Point(600, 410)
Me.pb_referee_flag.Name = "pb_referee_flag"
Me.pb_referee_flag.Size = New System.Drawing.Size(40, 25)
Me.pb_referee_flag.TabIndex = 67
Me.pb_referee_flag.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Button1.Location = New System.Drawing.Point(10, 10)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(80, 30)
Me.Button1.TabIndex = 68
Me.Button1.Text = "SEARCH"
Me.Button1.UseVisualStyleBackColor = True
'
'lbl_last_weight
'
Me.lbl_last_weight.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_last_weight.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_last_weight.Location = New System.Drawing.Point(565, 70)
Me.lbl_last_weight.Name = "lbl_last_weight"
Me.lbl_last_weight.Size = New System.Drawing.Size(95, 25)
Me.lbl_last_weight.TabIndex = 69
Me.lbl_last_weight.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(450, 70)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(110, 25)
Me.Label1.TabIndex = 70
Me.Label1.Text = "Weight :"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(450, 160)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(110, 25)
Me.Label2.TabIndex = 71
Me.Label2.Text = "Class :"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lbl_weight_class
'
Me.lbl_weight_class.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_weight_class.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_weight_class.Location = New System.Drawing.Point(565, 160)
Me.lbl_weight_class.Name = "lbl_weight_class"
Me.lbl_weight_class.Size = New System.Drawing.Size(95, 25)
Me.lbl_weight_class.TabIndex = 72
Me.lbl_weight_class.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pb_blue_logo
'
Me.pb_blue_logo.Location = New System.Drawing.Point(10, 350)
Me.pb_blue_logo.Name = "pb_blue_logo"
Me.pb_blue_logo.Size = New System.Drawing.Size(115, 115)
Me.pb_blue_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_logo.TabIndex = 73
Me.pb_blue_logo.TabStop = False
'
'pb_red_logo
'
Me.pb_red_logo.Location = New System.Drawing.Point(205, 350)
Me.pb_red_logo.Name = "pb_red_logo"
Me.pb_red_logo.Size = New System.Drawing.Size(115, 115)
Me.pb_red_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_logo.TabIndex = 74
Me.pb_red_logo.TabStop = False
'
'frm_fighter_statistics
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.ClientSize = New System.Drawing.Size(834, 471)
Me.Controls.Add(Me.pb_red_logo)
Me.Controls.Add(Me.pb_blue_logo)
Me.Controls.Add(Me.lbl_weight_class)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lbl_last_weight)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.pb_referee_flag)
Me.Controls.Add(Me.lbl_referee)
Me.Controls.Add(Me.lbl_rank)
Me.Controls.Add(Me.Label22)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label28)
Me.Controls.Add(Me.Label27)
Me.Controls.Add(Me.lbl_red_score)
Me.Controls.Add(Me.lbl_winner)
Me.Controls.Add(Me.Label21)
Me.Controls.Add(Me.lbl_blue_score)
Me.Controls.Add(Me.lbl_red_fighter)
Me.Controls.Add(Me.lbl_blue_fighter)
Me.Controls.Add(Me.lbl_court_number)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.lbl_match_number)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.pb_flag)
Me.Controls.Add(Me.btn_close)
Me.Controls.Add(Me.btn_opponent)
Me.Controls.Add(Me.btn_preview)
Me.Controls.Add(Me.lbl_age)
Me.Controls.Add(Me.Label20)
Me.Controls.Add(Me.lst_matches)
Me.Controls.Add(Me.Label19)
Me.Controls.Add(Me.lbl_category)
Me.Controls.Add(Me.lbl_loss)
Me.Controls.Add(Me.lbl_wins)
Me.Controls.Add(Me.lbl_nationality)
Me.Controls.Add(Me.lbl_gender)
Me.Controls.Add(Me.lbl_name)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txt_search)
Me.Controls.Add(Me.lst_fighters)
Me.Controls.Add(Me.pb_fighter)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label8)
Me.ForeColor = System.Drawing.Color.White
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frm_fighter_statistics"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TAKEONE"
CType(Me.pb_fighter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents pb_fighter As System.Windows.Forms.PictureBox
Friend WithEvents lst_fighters As System.Windows.Forms.ListBox
Friend WithEvents txt_search As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents lbl_loss As System.Windows.Forms.Label
Friend WithEvents lbl_wins As System.Windows.Forms.Label
Friend WithEvents lbl_nationality As System.Windows.Forms.Label
Friend WithEvents lbl_gender As System.Windows.Forms.Label
Friend WithEvents lbl_name As System.Windows.Forms.Label
Friend WithEvents lbl_category As System.Windows.Forms.Label
Friend WithEvents Label19 As System.Windows.Forms.Label
Friend WithEvents lst_matches As System.Windows.Forms.ListBox
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents lbl_age As System.Windows.Forms.Label
Friend WithEvents btn_preview As System.Windows.Forms.Button
Friend WithEvents btn_opponent As System.Windows.Forms.Button
Friend WithEvents btn_close As System.Windows.Forms.Button
Friend WithEvents pb_flag As System.Windows.Forms.PictureBox
Friend WithEvents Label11 As Label
Friend WithEvents lbl_match_number As Label
Friend WithEvents Label13 As Label
Friend WithEvents lbl_court_number As Label
Friend WithEvents lbl_blue_fighter As Label
Friend WithEvents lbl_red_fighter As Label
Friend WithEvents lbl_blue_score As Label
Friend WithEvents Label21 As Label
Friend WithEvents lbl_winner As Label
Friend WithEvents lbl_red_score As Label
Friend WithEvents Label27 As Label
Friend WithEvents Label28 As Label
Friend WithEvents Label8 As Label
Friend WithEvents Label10 As Label
Friend WithEvents Label12 As Label
Friend WithEvents lbl_rank As Label
Friend WithEvents Label22 As Label
Friend WithEvents lbl_referee As Label
Friend WithEvents pb_referee_flag As Label
Friend WithEvents Button1 As Button
Friend WithEvents lbl_last_weight As Label
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents lbl_weight_class As Label
Friend WithEvents pb_blue_logo As PictureBox
Friend WithEvents pb_red_logo As PictureBox
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,512 @@
Imports System.ComponentModel
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class frm_fighter_statistics
Private Sub frm_fighter_statistics_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = SelectedEvent.Title
Try
list_fighters("", SelectedEvent.ID)
Catch ex As Exception
End Try
End Sub
Private Sub Load_Fighter_Data(FighterID As Integer)
Dim person As New person(FighterID)
lbl_age.Text = person.Age.Years
lbl_gender.Text = person.Gender
lbl_name.Text = person.FullName
lbl_nationality.Text = person.Nationality.Name
lbl_last_weight.Text = person.Weight.Weight & "Kg"
lbl_category.Text = person.Weight.WeightCategory
lbl_weight_class.Text = person.Weight.WeightClass
Try
pb_fighter.Image = Image.FromStream(person.PICTURE)
Catch ex As Exception
pb_fighter.Image = Nothing
End Try
Try
pb_flag.Image = Image.FromStream(person.Team.Country.Flag)
Catch ex As Exception
pb_flag.Image = Nothing
End Try
End Sub
Private Sub Load_Fighter_Matches(FighterID As Integer, EventID As Integer)
Dim QRY As String = ("
/*-----------------------------------------------------
THIS CODE IS FOR SEARCHING THE MATCHES
FOR A FIGHTER BY HIS/HER ID NUMBER
-----------------------------------------------------*/
SELECT
event_matches.id as 'MatchID',
event_matches.emn as 'MatchNo',
event_matches.ern as 'EventRound',
if(" & FighterID & " = blue.id, concat(red.fname, ' ', if(isnull(red.mname), '', red.mname), ' ', red.lname), concat(blue.fname, ' ', if(isnull(blue.mname), '', blue.mname), ' ', blue.lname)) as 'Opponent',
if(" & FighterID & " = winner.id, 'WIN', 'LOSE') as 'Result'
FROM
event_matches
LEFT JOIN
person as winner ON winner.id = event_matches.winner
LEFT JOIN
clubs as winner_club ON winner_club.id = winner.club
LEFT JOIN
person as blue ON blue.id = event_matches.blue_fighter
LEFT JOIN
clubs as blue_club ON blue_club.id = blue.club
LEFT JOIN
person as red ON red.id = event_matches.red_fighter
LEFT JOIN
clubs as red_club ON red_club.id = red.club
Where
(blue_fighter = " & FighterID & " or red_fighter = " & FighterID & ")
and
event_matches.started = true
and
event_matches.ended = true
and
event_matches.eid = " & EventID & "
order by
ern,
emn
asc
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Dim MatchDisplayText As String = "Match No. " & Zero(RDR("MatchNo")) & ", Round " & RDR("EventRound") & ", " & RDR("Opponent") & " - " & RDR("Result")
LST.Add(New dataset(RDR("MatchID"), MatchDisplayText))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
lst_matches.DataSource = LST
lst_matches.ValueMember = "ID"
lst_matches.DisplayMember = "name"
End Sub
Private Sub Load_Fighter_Points(FighterID As Integer, EventID As Integer)
Dim QRY As String = ("
/*-----------------------------------------------------
THIS CODE IS FOR SEARCHING THE MATCH
DATA OF WINS LOSSES AND COLLECTED POINTS
-----------------------------------------------------*/
Select
(select count(*) as WIN from event_matches inner join event on event_matches.eid = event.id where event_matches.eid = " & EventID & " And event_matches.started = true And event_matches.ended = true And (blue_fighter = " & FighterID & " Or red_fighter = " & FighterID & ") And winner = " & FighterID & ") as 'WIN',
(select count(*) as WIN from event_matches inner join event on event_matches.eid = event.id where event_matches.eid = " & EventID & " And event_matches.started = true And event_matches.ended = true And (blue_fighter = " & FighterID & " Or red_fighter = " & FighterID & ") And winner != " & FighterID & ") as 'LOSS',
(select count(*) as WIN from event_matches inner join event on event_matches.eid = event.id where event_matches.eid = " & EventID & " And event_matches.started = true And event_matches.ended = true And (blue_fighter = " & FighterID & " Or red_fighter = " & FighterID & ") And winner = " & FighterID & ") * 3 as 'POINTS'
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
lbl_wins.Text = RDR("WIN")
lbl_loss.Text = RDR("LOSS")
lbl_rank.Text = RDR("POINTS")
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Private Sub Load_Match_Data(MatchID As Integer)
Dim QRY As String = ("
/*-----------------------------------------------------
THIS CODE IS FOR SEARCHING THE MATCH
BY MATCH ID NUMBER
-----------------------------------------------------*/
SELECT
event_matches.id as 'MatchID',
event_matches.ecn as 'Court',
event_matches.emn as 'MatchNo',
event_matches.ern as 'EventRound',
concat(blue.fname, ' ', blue.mname, ' ', blue.lname) as 'BlueName',
blue_club.title as 'BlueClub',
blue_club.logo as 'BlueLogo',
blue_score as 'BlueScore',
blue_foul as 'BlueFoul',
concat(red.fname, ' ', red.mname, ' ', red.lname) as 'RedName',
red_club.title as 'RedClub',
red_club.logo as 'RedLogo',
red_score as 'RedScore',
red_foul as 'RedFoul',
concat(winner.fname, ' ', winner.mname, ' ', winner.lname) as 'Winner'
FROM
event_matches
LEFT JOIN
person as winner ON winner.id = event_matches.winner
LEFT JOIN
clubs as winner_club ON winner_club.id = winner.club
LEFT JOIN
person as blue ON blue.id = event_matches.blue_fighter
LEFT JOIN
clubs as blue_club ON blue_club.id = blue.club
LEFT JOIN
person as red ON red.id = event_matches.red_fighter
LEFT JOIN
clubs as red_club ON red_club.id = red.club
Where
event_matches.started = true
and
event_matches.ended = true
and
event_matches.id = " & MatchID & "
order by
ern,
emn
asc
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
lbl_match_number.Text = RDR("MatchNo")
Catch ex As Exception
End Try
Try
lbl_court_number.Text = RDR("Court")
Catch ex As Exception
End Try
Try
lbl_blue_fighter.Text = RDR("BlueName")
Catch ex As Exception
End Try
Try
lbl_blue_score.Text = RDR("BlueScore")
Catch ex As Exception
End Try
Try
Dim data As Byte() = DirectCast(RDR("bluelogo"), Byte())
Dim BlueLogo = New System.IO.MemoryStream(data)
pb_blue_logo.Image = Image.FromStream(BlueLogo)
Catch ex As Exception
pb_blue_logo.Image = Nothing
End Try
Try
lbl_red_fighter.Text = RDR("RedName")
Catch ex As Exception
End Try
Try
lbl_red_score.Text = RDR("RedScore")
Catch ex As Exception
End Try
Try
Dim data As Byte() = DirectCast(RDR("redlogo"), Byte())
Dim RedLogo = New System.IO.MemoryStream(data)
pb_red_logo.Image = Image.FromStream(RedLogo)
Catch ex As Exception
pb_red_logo.Image = Nothing
End Try
Try
lbl_winner.Text = RDR("Winner")
Catch ex As Exception
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Public Sub ClearList()
Try
lst_fighters.DataSource = Nothing
lst_fighters.Items.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub txt_search_TextChanged(sender As Object, e As EventArgs) Handles txt_search.TextChanged
ClearList()
Try
list_fighters(txt_search.Text, SelectedEvent.ID)
Catch ex As Exception
End Try
End Sub
Private Sub lst_fighters_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst_fighters.SelectedIndexChanged
Try
Load_Fighter_Data(lst_fighters.SelectedValue)
Load_Fighter_Matches(lst_fighters.SelectedValue, SelectedEvent.ID)
Load_Fighter_Points(lst_fighters.SelectedValue, SelectedEvent.ID)
Catch ex As Exception
End Try
End Sub
Private Sub btn_close_Click(sender As Object, e As EventArgs) Handles btn_close.Click
Me.Close()
End Sub
Private Sub frm_fighter_statistics_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
'frm_main.Show()
frm_event_control.Show()
End Sub
Private Sub pb_fighter_Click(sender As Object, e As EventArgs) Handles pb_fighter.Click
If IsNothing(pb_fighter.Image) Then
' Open Picture File
open_picture_file()
' Store The Picture
update_fighter_picture()
ElseIf Not IsNothing(pb_fighter.Image) Then
Dim iPictureUpdate As DialogResult = MessageBox.Show("Would You Like To Update The Players Picture ?", "Picture Update", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If iPictureUpdate = DialogResult.Yes Then
' Open Picture File
open_picture_file()
' Store The Picture
update_fighter_picture()
End If
End If
End Sub
Private Sub open_picture_file()
'Creating A New Dialog
Dim OpenPictureFile As New OpenFileDialog
'Filtering The Types
OpenPictureFile.Filter = "Image Files | *.jpg; *.jpeg; *.bmp; *.png; *.gif;"
'Openning The File
If OpenPictureFile.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Try
' Getting File Path
Dim FilePath As String = OpenPictureFile.FileName()
Dim FileName As String = System.IO.Path.GetFileName(OpenPictureFile.FileName)
' Picture File
Dim Picture As New MemoryStream
' Define New Image Size
Dim LogoSize As New Size(385, 500)
' Resizing The Image
Dim ResizedImage = New Bitmap(Image.FromFile(FilePath), LogoSize)
' Display The Image
pb_fighter.Image = ResizedImage
' Saving The Image As PNG Format
pb_fighter.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
' Read The Image As Bytes
Dim arrImage() As Byte = Picture.GetBuffer
' Closing The Picture
Picture.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Private Sub update_fighter_picture()
' Query To Update
Dim QRY As String = "update person set picture = @picture where id=" & lst_fighters.SelectedValue
' Connection
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
' Preparing The Image
Dim Picture As New MemoryStream
pb_fighter.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
Dim arrImage() As Byte = Picture.GetBuffer
Picture.Close()
Try
CON.Open()
COM.Parameters.AddWithValue("@picture", arrImage)
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Public Function Zero(Number As Integer) As String
If Number >= 0 And Number < 10 Then
Return "00" & Number
ElseIf Number >= 10 And Number < 100 Then
Return "0" & Number
Else
Return Number
End If
End Function
Private Sub list_fighters(filter As String, eventID As Integer)
Dim QRY As String = ("
select
distinct
person.id, concat(person.fname, if(isnull(person.mname), '', concat(' ', person.mname)), ' ', person.lname) as name
from
person
left join
event_matches on (person.id = coalesce(event_matches.blue_fighter, 0) or person.id = coalesce(event_matches.red_fighter, 0))
where
concat(fname, if(isnull(mname), '', concat(' ', mname)), ' ', lname) like '%" & filter & "%'
and
event_matches.eid = " & eventID & "
order by
fname,
mname,
lname
asc
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("id"), RDR("name")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
lst_fighters.DataSource = LST
lst_fighters.ValueMember = "ID"
lst_fighters.DisplayMember = "name"
End Sub
Private Sub lst_matches_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst_matches.SelectedIndexChanged
Try
Load_Match_Data(lst_matches.SelectedValue)
Catch ex As Exception
End Try
End Sub
End Class

View File

@ -0,0 +1,146 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_match_fighters
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_match_fighters))
Me.pb_blue_picture = New System.Windows.Forms.PictureBox()
Me.pb_red_picture = New System.Windows.Forms.PictureBox()
Me.pb_blue_flag = New System.Windows.Forms.PictureBox()
Me.pb_red_flag = New System.Windows.Forms.PictureBox()
Me.pb_blue_logo = New System.Windows.Forms.PictureBox()
Me.pb_red_logo = New System.Windows.Forms.PictureBox()
Me.lbl_court_number = New System.Windows.Forms.Label()
CType(Me.pb_blue_picture, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_picture, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pb_blue_picture
'
Me.pb_blue_picture.Image = CType(resources.GetObject("pb_blue_picture.Image"), System.Drawing.Image)
Me.pb_blue_picture.Location = New System.Drawing.Point(5, 5)
Me.pb_blue_picture.Name = "pb_blue_picture"
Me.pb_blue_picture.Size = New System.Drawing.Size(395, 470)
Me.pb_blue_picture.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_picture.TabIndex = 0
Me.pb_blue_picture.TabStop = False
'
'pb_red_picture
'
Me.pb_red_picture.Image = CType(resources.GetObject("pb_red_picture.Image"), System.Drawing.Image)
Me.pb_red_picture.Location = New System.Drawing.Point(435, 5)
Me.pb_red_picture.Name = "pb_red_picture"
Me.pb_red_picture.Size = New System.Drawing.Size(395, 470)
Me.pb_red_picture.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_picture.TabIndex = 1
Me.pb_red_picture.TabStop = False
'
'pb_blue_flag
'
Me.pb_blue_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_blue_flag.Location = New System.Drawing.Point(15, 405)
Me.pb_blue_flag.Name = "pb_blue_flag"
Me.pb_blue_flag.Size = New System.Drawing.Size(105, 60)
Me.pb_blue_flag.TabIndex = 2
Me.pb_blue_flag.TabStop = False
'
'pb_red_flag
'
Me.pb_red_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_red_flag.Location = New System.Drawing.Point(715, 405)
Me.pb_red_flag.Name = "pb_red_flag"
Me.pb_red_flag.Size = New System.Drawing.Size(105, 60)
Me.pb_red_flag.TabIndex = 3
Me.pb_red_flag.TabStop = False
'
'pb_blue_logo
'
Me.pb_blue_logo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_blue_logo.Location = New System.Drawing.Point(290, 365)
Me.pb_blue_logo.Name = "pb_blue_logo"
Me.pb_blue_logo.Size = New System.Drawing.Size(100, 100)
Me.pb_blue_logo.TabIndex = 4
Me.pb_blue_logo.TabStop = False
'
'pb_red_logo
'
Me.pb_red_logo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_red_logo.Location = New System.Drawing.Point(445, 365)
Me.pb_red_logo.Name = "pb_red_logo"
Me.pb_red_logo.Size = New System.Drawing.Size(100, 100)
Me.pb_red_logo.TabIndex = 5
Me.pb_red_logo.TabStop = False
'
'lbl_court_number
'
Me.lbl_court_number.BackColor = System.Drawing.Color.Transparent
Me.lbl_court_number.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_court_number.Font = New System.Drawing.Font("Microsoft Sans Serif", 75.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_court_number.ForeColor = System.Drawing.Color.Yellow
Me.lbl_court_number.Location = New System.Drawing.Point(315, 170)
Me.lbl_court_number.Name = "lbl_court_number"
Me.lbl_court_number.Size = New System.Drawing.Size(205, 80)
Me.lbl_court_number.TabIndex = 22
Me.lbl_court_number.Text = "VS"
Me.lbl_court_number.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'frm_match_fighters
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(834, 481)
Me.Controls.Add(Me.lbl_court_number)
Me.Controls.Add(Me.pb_red_logo)
Me.Controls.Add(Me.pb_blue_logo)
Me.Controls.Add(Me.pb_red_flag)
Me.Controls.Add(Me.pb_blue_flag)
Me.Controls.Add(Me.pb_red_picture)
Me.Controls.Add(Me.pb_blue_picture)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frm_match_fighters"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frm_match_fighters"
CType(Me.pb_blue_picture, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_picture, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pb_blue_picture As PictureBox
Friend WithEvents pb_red_picture As PictureBox
Friend WithEvents pb_blue_flag As PictureBox
Friend WithEvents pb_red_flag As PictureBox
Friend WithEvents pb_blue_logo As PictureBox
Friend WithEvents pb_red_logo As PictureBox
Friend WithEvents lbl_court_number As Label
End Class

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,3 @@
Public Class frm_match_fighters
End Class

View File

@ -0,0 +1,133 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_ranking
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()
Me.cbo_display_type = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.lst_type = New System.Windows.Forms.ListBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.lst_results = New System.Windows.Forms.ListBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'cbo_display_type
'
Me.cbo_display_type.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbo_display_type.FormattingEnabled = True
Me.cbo_display_type.Items.AddRange(New Object() {"Players", "Clubs"})
Me.cbo_display_type.Location = New System.Drawing.Point(110, 10)
Me.cbo_display_type.Name = "cbo_display_type"
Me.cbo_display_type.Size = New System.Drawing.Size(190, 28)
Me.cbo_display_type.TabIndex = 0
'
'Label1
'
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.Font = New System.Drawing.Font("Arial Rounded MT Bold", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(10, 10)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(95, 30)
Me.Label1.TabIndex = 28
Me.Label1.Text = "Display :"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lst_type
'
Me.lst_type.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lst_type.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lst_type.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lst_type.ForeColor = System.Drawing.Color.White
Me.lst_type.FormattingEnabled = True
Me.lst_type.ItemHeight = 20
Me.lst_type.Location = New System.Drawing.Point(10, 80)
Me.lst_type.Name = "lst_type"
Me.lst_type.Size = New System.Drawing.Size(290, 382)
Me.lst_type.TabIndex = 55
'
'Label10
'
Me.Label10.BackColor = System.Drawing.Color.Black
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.ForeColor = System.Drawing.Color.White
Me.Label10.Location = New System.Drawing.Point(10, 50)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(290, 30)
Me.Label10.TabIndex = 85
Me.Label10.Text = "< SELECT FROM LIST >"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lst_results
'
Me.lst_results.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lst_results.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lst_results.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lst_results.ForeColor = System.Drawing.Color.White
Me.lst_results.FormattingEnabled = True
Me.lst_results.ItemHeight = 20
Me.lst_results.Location = New System.Drawing.Point(310, 40)
Me.lst_results.MultiColumn = True
Me.lst_results.Name = "lst_results"
Me.lst_results.Size = New System.Drawing.Size(510, 422)
Me.lst_results.TabIndex = 86
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.Black
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(310, 10)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(510, 30)
Me.Label2.TabIndex = 87
Me.Label2.Text = "< LIST FROM FIRST TO LAST >"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'frm_ranking
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(834, 471)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.lst_results)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.lst_type)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cbo_display_type)
Me.ForeColor = System.Drawing.Color.White
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "frm_ranking"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Event Ranking & Results"
Me.ResumeLayout(False)
End Sub
Friend WithEvents cbo_display_type As ComboBox
Friend WithEvents Label1 As Label
Friend WithEvents lst_type As ListBox
Friend WithEvents Label10 As Label
Friend WithEvents lst_results As ListBox
Friend WithEvents Label2 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,68 @@
Imports System.ComponentModel
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class frm_ranking
Private Sub frm_ranking_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
frm_event_control.Show()
End Sub
Private Sub frm_ranking_Load(sender As Object, e As EventArgs) Handles Me.Load
cbo_display_type.SelectedIndex = 0
End Sub
Private Sub cbo_display_type_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_display_type.SelectedIndexChanged
End Sub
Private Sub list_weight_classes(eventID As Integer)
Dim QRY As String = ("
select
distinct
person.gender, person.category, person.weight_class
from
person
left join
event_matches on (person.id = coalesce(event_matches.blue_fighter, 0) or person.id = coalesce(event_matches.red_fighter, 0))
where
event_matches.eid = " & eventID & "
order by
category,
gender,
weight_class
asc
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("weight_class"), RDR("category")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
lst_type.DataSource = LST
lst_type.ValueMember = "ID"
lst_type.DisplayMember = "name"
End Sub
End Class

View File

@ -0,0 +1,391 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_scoreboard
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()
Me.lbl_round = New System.Windows.Forms.Label()
Me.lbl_red_gfaul = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.lbl_red_code_3 = New System.Windows.Forms.Label()
Me.lbl_match_number = New System.Windows.Forms.Label()
Me.lbl_time = New System.Windows.Forms.Label()
Me.lbl_court_number = New System.Windows.Forms.Label()
Me.lbl_red_team = New System.Windows.Forms.Label()
Me.lbl_red_score = New System.Windows.Forms.Label()
Me.lbl_red_fighter_name = New System.Windows.Forms.Label()
Me.lbl_blue_gfaul = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.lbl_blue_code_3 = New System.Windows.Forms.Label()
Me.lbl_blue_team = New System.Windows.Forms.Label()
Me.lbl_blue_score = New System.Windows.Forms.Label()
Me.lbl_blue_fighter_name = New System.Windows.Forms.Label()
Me.pb_red_logo = New System.Windows.Forms.PictureBox()
Me.pb_blue_logo = New System.Windows.Forms.PictureBox()
Me.pb_red_flag = New System.Windows.Forms.PictureBox()
Me.pb_blue_flag = New System.Windows.Forms.PictureBox()
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl_round
'
Me.lbl_round.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl_round.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lbl_round.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_round.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_round.ForeColor = System.Drawing.Color.Lime
Me.lbl_round.Location = New System.Drawing.Point(435, 370)
Me.lbl_round.Name = "lbl_round"
Me.lbl_round.Size = New System.Drawing.Size(90, 95)
Me.lbl_round.TabIndex = 100
Me.lbl_round.Text = "1"
Me.lbl_round.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_gfaul
'
Me.lbl_red_gfaul.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl_red_gfaul.BackColor = System.Drawing.Color.Red
Me.lbl_red_gfaul.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_gfaul.Font = New System.Drawing.Font("Microsoft Sans Serif", 52.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_gfaul.ForeColor = System.Drawing.Color.White
Me.lbl_red_gfaul.Location = New System.Drawing.Point(840, 395)
Me.lbl_red_gfaul.Name = "lbl_red_gfaul"
Me.lbl_red_gfaul.Size = New System.Drawing.Size(115, 85)
Me.lbl_red_gfaul.TabIndex = 98
Me.lbl_red_gfaul.Text = "00"
Me.lbl_red_gfaul.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label5
'
Me.Label5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(840, 345)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(115, 45)
Me.Label5.TabIndex = 97
Me.Label5.Text = "GFOUL"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_code_3
'
Me.lbl_red_code_3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lbl_red_code_3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_code_3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_code_3.ForeColor = System.Drawing.Color.White
Me.lbl_red_code_3.Location = New System.Drawing.Point(5, 90)
Me.lbl_red_code_3.Name = "lbl_red_code_3"
Me.lbl_red_code_3.Size = New System.Drawing.Size(115, 50)
Me.lbl_red_code_3.TabIndex = 96
Me.lbl_red_code_3.Text = "CTRY"
Me.lbl_red_code_3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_match_number
'
Me.lbl_match_number.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl_match_number.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_match_number.Font = New System.Drawing.Font("Microsoft Sans Serif", 75.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_match_number.ForeColor = System.Drawing.Color.Yellow
Me.lbl_match_number.Location = New System.Drawing.Point(635, 5)
Me.lbl_match_number.Name = "lbl_match_number"
Me.lbl_match_number.Size = New System.Drawing.Size(320, 80)
Me.lbl_match_number.TabIndex = 87
Me.lbl_match_number.Text = "M000"
Me.lbl_match_number.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_time
'
Me.lbl_time.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl_time.Font = New System.Drawing.Font("Microsoft Sans Serif", 85.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_time.ForeColor = System.Drawing.Color.Lime
Me.lbl_time.Location = New System.Drawing.Point(330, 0)
Me.lbl_time.Name = "lbl_time"
Me.lbl_time.Size = New System.Drawing.Size(300, 90)
Me.lbl_time.TabIndex = 86
Me.lbl_time.Text = "00:00"
Me.lbl_time.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_court_number
'
Me.lbl_court_number.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl_court_number.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_court_number.Font = New System.Drawing.Font("Microsoft Sans Serif", 75.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_court_number.ForeColor = System.Drawing.Color.Yellow
Me.lbl_court_number.Location = New System.Drawing.Point(5, 5)
Me.lbl_court_number.Name = "lbl_court_number"
Me.lbl_court_number.Size = New System.Drawing.Size(320, 80)
Me.lbl_court_number.TabIndex = 85
Me.lbl_court_number.Text = "C000"
Me.lbl_court_number.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_team
'
Me.lbl_red_team.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl_red_team.BackColor = System.Drawing.Color.Red
Me.lbl_red_team.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_team.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_team.ForeColor = System.Drawing.Color.White
Me.lbl_red_team.Location = New System.Drawing.Point(485, 485)
Me.lbl_red_team.Name = "lbl_red_team"
Me.lbl_red_team.Size = New System.Drawing.Size(470, 50)
Me.lbl_red_team.TabIndex = 84
Me.lbl_red_team.Text = "BLUE TEAM"
Me.lbl_red_team.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_score
'
Me.lbl_red_score.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl_red_score.BackColor = System.Drawing.Color.Red
Me.lbl_red_score.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_score.Font = New System.Drawing.Font("Microsoft Sans Serif", 170.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_score.ForeColor = System.Drawing.Color.White
Me.lbl_red_score.Location = New System.Drawing.Point(485, 145)
Me.lbl_red_score.Name = "lbl_red_score"
Me.lbl_red_score.Size = New System.Drawing.Size(350, 335)
Me.lbl_red_score.TabIndex = 83
Me.lbl_red_score.Text = "00"
Me.lbl_red_score.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_fighter_name
'
Me.lbl_red_fighter_name.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl_red_fighter_name.BackColor = System.Drawing.Color.Red
Me.lbl_red_fighter_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_fighter_name.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_fighter_name.ForeColor = System.Drawing.Color.White
Me.lbl_red_fighter_name.Location = New System.Drawing.Point(485, 90)
Me.lbl_red_fighter_name.Name = "lbl_red_fighter_name"
Me.lbl_red_fighter_name.Size = New System.Drawing.Size(350, 50)
Me.lbl_red_fighter_name.TabIndex = 82
Me.lbl_red_fighter_name.Text = "RED FIGHTER"
Me.lbl_red_fighter_name.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_gfaul
'
Me.lbl_blue_gfaul.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lbl_blue_gfaul.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_gfaul.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_gfaul.Font = New System.Drawing.Font("Microsoft Sans Serif", 52.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_gfaul.ForeColor = System.Drawing.Color.White
Me.lbl_blue_gfaul.Location = New System.Drawing.Point(5, 395)
Me.lbl_blue_gfaul.Name = "lbl_blue_gfaul"
Me.lbl_blue_gfaul.Size = New System.Drawing.Size(115, 85)
Me.lbl_blue_gfaul.TabIndex = 80
Me.lbl_blue_gfaul.Text = "00"
Me.lbl_blue_gfaul.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label11
'
Me.Label11.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Label11.ForeColor = System.Drawing.Color.White
Me.Label11.Location = New System.Drawing.Point(5, 345)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(115, 45)
Me.Label11.TabIndex = 79
Me.Label11.Text = "GFOUL"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_code_3
'
Me.lbl_blue_code_3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl_blue_code_3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_code_3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_code_3.ForeColor = System.Drawing.Color.White
Me.lbl_blue_code_3.Location = New System.Drawing.Point(840, 90)
Me.lbl_blue_code_3.Name = "lbl_blue_code_3"
Me.lbl_blue_code_3.Size = New System.Drawing.Size(115, 50)
Me.lbl_blue_code_3.TabIndex = 78
Me.lbl_blue_code_3.Text = "CTRY"
Me.lbl_blue_code_3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_team
'
Me.lbl_blue_team.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lbl_blue_team.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_team.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_team.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_team.ForeColor = System.Drawing.Color.White
Me.lbl_blue_team.Location = New System.Drawing.Point(5, 485)
Me.lbl_blue_team.Name = "lbl_blue_team"
Me.lbl_blue_team.Size = New System.Drawing.Size(470, 50)
Me.lbl_blue_team.TabIndex = 77
Me.lbl_blue_team.Text = "BLUE TEAM"
Me.lbl_blue_team.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_score
'
Me.lbl_blue_score.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lbl_blue_score.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_score.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_score.Font = New System.Drawing.Font("Microsoft Sans Serif", 170.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_score.ForeColor = System.Drawing.Color.White
Me.lbl_blue_score.Location = New System.Drawing.Point(125, 145)
Me.lbl_blue_score.Name = "lbl_blue_score"
Me.lbl_blue_score.Size = New System.Drawing.Size(350, 335)
Me.lbl_blue_score.TabIndex = 76
Me.lbl_blue_score.Text = "00"
Me.lbl_blue_score.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_fighter_name
'
Me.lbl_blue_fighter_name.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl_blue_fighter_name.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_fighter_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_fighter_name.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_fighter_name.ForeColor = System.Drawing.Color.White
Me.lbl_blue_fighter_name.Location = New System.Drawing.Point(125, 90)
Me.lbl_blue_fighter_name.Name = "lbl_blue_fighter_name"
Me.lbl_blue_fighter_name.Size = New System.Drawing.Size(350, 50)
Me.lbl_blue_fighter_name.TabIndex = 75
Me.lbl_blue_fighter_name.Text = "BLUE FIGHTER"
Me.lbl_blue_fighter_name.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pb_red_logo
'
Me.pb_red_logo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.pb_red_logo.BackColor = System.Drawing.Color.Transparent
Me.pb_red_logo.Location = New System.Drawing.Point(5, 225)
Me.pb_red_logo.Name = "pb_red_logo"
Me.pb_red_logo.Size = New System.Drawing.Size(115, 115)
Me.pb_red_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_logo.TabIndex = 116
Me.pb_red_logo.TabStop = False
'
'pb_blue_logo
'
Me.pb_blue_logo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pb_blue_logo.BackColor = System.Drawing.Color.Transparent
Me.pb_blue_logo.Location = New System.Drawing.Point(840, 225)
Me.pb_blue_logo.Name = "pb_blue_logo"
Me.pb_blue_logo.Size = New System.Drawing.Size(115, 115)
Me.pb_blue_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_logo.TabIndex = 115
Me.pb_blue_logo.TabStop = False
'
'pb_red_flag
'
Me.pb_red_flag.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.pb_red_flag.BackColor = System.Drawing.Color.Transparent
Me.pb_red_flag.Location = New System.Drawing.Point(5, 145)
Me.pb_red_flag.Name = "pb_red_flag"
Me.pb_red_flag.Size = New System.Drawing.Size(115, 75)
Me.pb_red_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_flag.TabIndex = 99
Me.pb_red_flag.TabStop = False
'
'pb_blue_flag
'
Me.pb_blue_flag.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pb_blue_flag.BackColor = System.Drawing.Color.Transparent
Me.pb_blue_flag.Location = New System.Drawing.Point(840, 145)
Me.pb_blue_flag.Name = "pb_blue_flag"
Me.pb_blue_flag.Size = New System.Drawing.Size(115, 75)
Me.pb_blue_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_flag.TabIndex = 81
Me.pb_blue_flag.TabStop = False
'
'frm_scoreboard
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(16.0!, 31.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(960, 540)
Me.Controls.Add(Me.lbl_round)
Me.Controls.Add(Me.pb_red_logo)
Me.Controls.Add(Me.pb_blue_logo)
Me.Controls.Add(Me.pb_red_flag)
Me.Controls.Add(Me.lbl_red_gfaul)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.lbl_red_code_3)
Me.Controls.Add(Me.lbl_match_number)
Me.Controls.Add(Me.lbl_time)
Me.Controls.Add(Me.lbl_court_number)
Me.Controls.Add(Me.lbl_red_team)
Me.Controls.Add(Me.lbl_red_score)
Me.Controls.Add(Me.lbl_red_fighter_name)
Me.Controls.Add(Me.pb_blue_flag)
Me.Controls.Add(Me.lbl_blue_gfaul)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.lbl_blue_code_3)
Me.Controls.Add(Me.lbl_blue_team)
Me.Controls.Add(Me.lbl_blue_score)
Me.Controls.Add(Me.lbl_blue_fighter_name)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ForeColor = System.Drawing.Color.White
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Margin = New System.Windows.Forms.Padding(5, 7, 5, 7)
Me.Name = "frm_scoreboard"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frm_scoreboard"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pb_red_logo As PictureBox
Friend WithEvents pb_blue_logo As PictureBox
Friend WithEvents lbl_round As Label
Friend WithEvents pb_red_flag As PictureBox
Friend WithEvents lbl_red_gfaul As Label
Friend WithEvents Label5 As Label
Friend WithEvents lbl_red_code_3 As Label
Friend WithEvents lbl_match_number As Label
Friend WithEvents lbl_time As Label
Friend WithEvents lbl_court_number As Label
Friend WithEvents lbl_red_team As Label
Friend WithEvents lbl_red_score As Label
Friend WithEvents lbl_red_fighter_name As Label
Friend WithEvents pb_blue_flag As PictureBox
Friend WithEvents lbl_blue_gfaul As Label
Friend WithEvents Label11 As Label
Friend WithEvents lbl_blue_code_3 As Label
Friend WithEvents lbl_blue_team As Label
Friend WithEvents lbl_blue_score As Label
Friend WithEvents lbl_blue_fighter_name 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,9 @@
Public Class frm_scoreboard
Private Sub lbl_red_code_3_Click(sender As Object, e As EventArgs) Handles lbl_red_code_3.Click
End Sub
Private Sub frm_scoreboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class

View File

@ -0,0 +1,832 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frm_scorecontrol
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()
Me.components = New System.ComponentModel.Container()
Me.lbl_blue_fighter_name = New System.Windows.Forms.Label()
Me.lbl_blue_score = New System.Windows.Forms.Label()
Me.lbl_blue_team = New System.Windows.Forms.Label()
Me.lbl_blue_code_3 = New System.Windows.Forms.Label()
Me.lbl_blue_gamjum = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.pb_blue_flag = New System.Windows.Forms.PictureBox()
Me.lbl_red_team = New System.Windows.Forms.Label()
Me.lbl_red_score = New System.Windows.Forms.Label()
Me.lbl_red_fighter_name = New System.Windows.Forms.Label()
Me.lbl_court_number = New System.Windows.Forms.Label()
Me.lbl_time = New System.Windows.Forms.Label()
Me.lbl_match_number = New System.Windows.Forms.Label()
Me.btn_blue_shkp = New System.Windows.Forms.Button()
Me.btn_blue_shkn = New System.Windows.Forms.Button()
Me.btn_blue_dhkn = New System.Windows.Forms.Button()
Me.btn_blue_dhkp = New System.Windows.Forms.Button()
Me.btn_blue_sbkn = New System.Windows.Forms.Button()
Me.btn_blue_sbkp = New System.Windows.Forms.Button()
Me.btn_blue_dbkn = New System.Windows.Forms.Button()
Me.btn_blue_dbkp = New System.Windows.Forms.Button()
Me.pb_red_flag = New System.Windows.Forms.PictureBox()
Me.lbl_red_gamjum = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.lbl_red_code_3 = New System.Windows.Forms.Label()
Me.lbl_round = New System.Windows.Forms.Label()
Me.btn_red_dhkn = New System.Windows.Forms.Button()
Me.btn_red_dhkp = New System.Windows.Forms.Button()
Me.btn_red_sbkn = New System.Windows.Forms.Button()
Me.btn_red_sbkp = New System.Windows.Forms.Button()
Me.btn_red_dbkn = New System.Windows.Forms.Button()
Me.btn_red_dbkp = New System.Windows.Forms.Button()
Me.btn_red_shkn = New System.Windows.Forms.Button()
Me.btn_red_shkp = New System.Windows.Forms.Button()
Me.tmr_display = New System.Windows.Forms.Timer(Me.components)
Me.btn_start = New System.Windows.Forms.Button()
Me.btn_end = New System.Windows.Forms.Button()
Me.round_countdown = New System.Windows.Forms.Timer(Me.components)
Me.btn_blue_ngf = New System.Windows.Forms.Button()
Me.btn_blue_pgf = New System.Windows.Forms.Button()
Me.btn_red_ngf = New System.Windows.Forms.Button()
Me.btn_red_pgf = New System.Windows.Forms.Button()
Me.break_countdown = New System.Windows.Forms.Timer(Me.components)
Me.pb_blue_logo = New System.Windows.Forms.PictureBox()
Me.pb_red_logo = New System.Windows.Forms.PictureBox()
Me.btn_dec_match = New System.Windows.Forms.Button()
Me.btn_inc_match = New System.Windows.Forms.Button()
Me.lbl_blue_weight_class = New System.Windows.Forms.Label()
Me.lbl_red_weight_class = New System.Windows.Forms.Label()
Me.lbl_blue_weight_category = New System.Windows.Forms.Label()
Me.lbl_red_weight_category = New System.Windows.Forms.Label()
Me.lbl_blue_gender = New System.Windows.Forms.Label()
Me.lbl_red_gender = New System.Windows.Forms.Label()
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl_blue_fighter_name
'
Me.lbl_blue_fighter_name.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_fighter_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_fighter_name.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_fighter_name.ForeColor = System.Drawing.Color.White
Me.lbl_blue_fighter_name.Location = New System.Drawing.Point(100, 90)
Me.lbl_blue_fighter_name.Name = "lbl_blue_fighter_name"
Me.lbl_blue_fighter_name.Size = New System.Drawing.Size(315, 40)
Me.lbl_blue_fighter_name.TabIndex = 0
Me.lbl_blue_fighter_name.Text = "BLUE FIGHTER"
Me.lbl_blue_fighter_name.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_score
'
Me.lbl_blue_score.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_score.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_score.Font = New System.Drawing.Font("Microsoft Sans Serif", 170.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_score.ForeColor = System.Drawing.Color.White
Me.lbl_blue_score.Location = New System.Drawing.Point(100, 135)
Me.lbl_blue_score.Name = "lbl_blue_score"
Me.lbl_blue_score.Size = New System.Drawing.Size(315, 235)
Me.lbl_blue_score.TabIndex = 0
Me.lbl_blue_score.Text = "00"
Me.lbl_blue_score.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_team
'
Me.lbl_blue_team.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_team.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_team.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_team.ForeColor = System.Drawing.Color.White
Me.lbl_blue_team.Location = New System.Drawing.Point(100, 375)
Me.lbl_blue_team.Name = "lbl_blue_team"
Me.lbl_blue_team.Size = New System.Drawing.Size(315, 40)
Me.lbl_blue_team.TabIndex = 2
Me.lbl_blue_team.Text = "BLUE TEAM"
Me.lbl_blue_team.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_code_3
'
Me.lbl_blue_code_3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_code_3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_code_3.ForeColor = System.Drawing.Color.White
Me.lbl_blue_code_3.Location = New System.Drawing.Point(5, 90)
Me.lbl_blue_code_3.Name = "lbl_blue_code_3"
Me.lbl_blue_code_3.Size = New System.Drawing.Size(90, 40)
Me.lbl_blue_code_3.TabIndex = 6
Me.lbl_blue_code_3.Text = "ISO3"
Me.lbl_blue_code_3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_gamjum
'
Me.lbl_blue_gamjum.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_gamjum.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_gamjum.Font = New System.Drawing.Font("Microsoft Sans Serif", 52.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_gamjum.ForeColor = System.Drawing.Color.White
Me.lbl_blue_gamjum.Location = New System.Drawing.Point(5, 340)
Me.lbl_blue_gamjum.Name = "lbl_blue_gamjum"
Me.lbl_blue_gamjum.Size = New System.Drawing.Size(90, 75)
Me.lbl_blue_gamjum.TabIndex = 10
Me.lbl_blue_gamjum.Text = "00"
Me.lbl_blue_gamjum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label11
'
Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.ForeColor = System.Drawing.Color.White
Me.Label11.Location = New System.Drawing.Point(5, 295)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(90, 40)
Me.Label11.TabIndex = 9
Me.Label11.Text = "GAMJUM"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pb_blue_flag
'
Me.pb_blue_flag.BackColor = System.Drawing.Color.Transparent
Me.pb_blue_flag.Location = New System.Drawing.Point(5, 135)
Me.pb_blue_flag.Name = "pb_blue_flag"
Me.pb_blue_flag.Size = New System.Drawing.Size(90, 60)
Me.pb_blue_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_flag.TabIndex = 11
Me.pb_blue_flag.TabStop = False
'
'lbl_red_team
'
Me.lbl_red_team.BackColor = System.Drawing.Color.Red
Me.lbl_red_team.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_team.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_team.ForeColor = System.Drawing.Color.White
Me.lbl_red_team.Location = New System.Drawing.Point(420, 375)
Me.lbl_red_team.Name = "lbl_red_team"
Me.lbl_red_team.Size = New System.Drawing.Size(315, 40)
Me.lbl_red_team.TabIndex = 14
Me.lbl_red_team.Text = "BLUE TEAM"
Me.lbl_red_team.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_score
'
Me.lbl_red_score.BackColor = System.Drawing.Color.Red
Me.lbl_red_score.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_score.Font = New System.Drawing.Font("Microsoft Sans Serif", 170.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_score.ForeColor = System.Drawing.Color.White
Me.lbl_red_score.Location = New System.Drawing.Point(420, 135)
Me.lbl_red_score.Name = "lbl_red_score"
Me.lbl_red_score.Size = New System.Drawing.Size(315, 235)
Me.lbl_red_score.TabIndex = 13
Me.lbl_red_score.Text = "00"
Me.lbl_red_score.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_fighter_name
'
Me.lbl_red_fighter_name.BackColor = System.Drawing.Color.Red
Me.lbl_red_fighter_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_fighter_name.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_fighter_name.ForeColor = System.Drawing.Color.White
Me.lbl_red_fighter_name.Location = New System.Drawing.Point(420, 90)
Me.lbl_red_fighter_name.Name = "lbl_red_fighter_name"
Me.lbl_red_fighter_name.Size = New System.Drawing.Size(315, 40)
Me.lbl_red_fighter_name.TabIndex = 12
Me.lbl_red_fighter_name.Text = "RED FIGHTER"
Me.lbl_red_fighter_name.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_court_number
'
Me.lbl_court_number.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_court_number.Font = New System.Drawing.Font("Microsoft Sans Serif", 75.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_court_number.ForeColor = System.Drawing.Color.Yellow
Me.lbl_court_number.Location = New System.Drawing.Point(5, 5)
Me.lbl_court_number.Name = "lbl_court_number"
Me.lbl_court_number.Size = New System.Drawing.Size(275, 80)
Me.lbl_court_number.TabIndex = 21
Me.lbl_court_number.Text = "C000"
Me.lbl_court_number.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_time
'
Me.lbl_time.Font = New System.Drawing.Font("Microsoft Sans Serif", 85.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_time.ForeColor = System.Drawing.Color.Lime
Me.lbl_time.Location = New System.Drawing.Point(285, -5)
Me.lbl_time.Name = "lbl_time"
Me.lbl_time.Size = New System.Drawing.Size(265, 95)
Me.lbl_time.TabIndex = 22
Me.lbl_time.Text = "00:00"
Me.lbl_time.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_match_number
'
Me.lbl_match_number.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_match_number.Font = New System.Drawing.Font("Microsoft Sans Serif", 75.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_match_number.ForeColor = System.Drawing.Color.Yellow
Me.lbl_match_number.Location = New System.Drawing.Point(555, 5)
Me.lbl_match_number.Name = "lbl_match_number"
Me.lbl_match_number.Size = New System.Drawing.Size(275, 80)
Me.lbl_match_number.TabIndex = 23
Me.lbl_match_number.Text = "M000"
Me.lbl_match_number.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_blue_shkp
'
Me.btn_blue_shkp.BackColor = System.Drawing.Color.Blue
Me.btn_blue_shkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_shkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_shkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_shkp.Location = New System.Drawing.Point(5, 420)
Me.btn_blue_shkp.Name = "btn_blue_shkp"
Me.btn_blue_shkp.Size = New System.Drawing.Size(95, 25)
Me.btn_blue_shkp.TabIndex = 24
Me.btn_blue_shkp.Text = "+ 4"
Me.btn_blue_shkp.UseVisualStyleBackColor = False
'
'btn_blue_shkn
'
Me.btn_blue_shkn.BackColor = System.Drawing.Color.Blue
Me.btn_blue_shkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_shkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_shkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_shkn.Location = New System.Drawing.Point(5, 450)
Me.btn_blue_shkn.Name = "btn_blue_shkn"
Me.btn_blue_shkn.Size = New System.Drawing.Size(95, 25)
Me.btn_blue_shkn.TabIndex = 25
Me.btn_blue_shkn.Text = "- 4"
Me.btn_blue_shkn.UseVisualStyleBackColor = False
'
'btn_blue_dhkn
'
Me.btn_blue_dhkn.BackColor = System.Drawing.Color.Blue
Me.btn_blue_dhkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dhkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dhkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_dhkn.Location = New System.Drawing.Point(105, 450)
Me.btn_blue_dhkn.Name = "btn_blue_dhkn"
Me.btn_blue_dhkn.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dhkn.TabIndex = 27
Me.btn_blue_dhkn.Text = "- 3"
Me.btn_blue_dhkn.UseVisualStyleBackColor = False
'
'btn_blue_dhkp
'
Me.btn_blue_dhkp.BackColor = System.Drawing.Color.Blue
Me.btn_blue_dhkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dhkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dhkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_dhkp.Location = New System.Drawing.Point(105, 420)
Me.btn_blue_dhkp.Name = "btn_blue_dhkp"
Me.btn_blue_dhkp.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dhkp.TabIndex = 26
Me.btn_blue_dhkp.Text = "+ 3"
Me.btn_blue_dhkp.UseVisualStyleBackColor = False
'
'btn_blue_sbkn
'
Me.btn_blue_sbkn.BackColor = System.Drawing.Color.Blue
Me.btn_blue_sbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_sbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_sbkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_sbkn.Location = New System.Drawing.Point(210, 450)
Me.btn_blue_sbkn.Name = "btn_blue_sbkn"
Me.btn_blue_sbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_sbkn.TabIndex = 29
Me.btn_blue_sbkn.Text = "- 2"
Me.btn_blue_sbkn.UseVisualStyleBackColor = False
'
'btn_blue_sbkp
'
Me.btn_blue_sbkp.BackColor = System.Drawing.Color.Blue
Me.btn_blue_sbkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_sbkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_sbkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_sbkp.Location = New System.Drawing.Point(210, 420)
Me.btn_blue_sbkp.Name = "btn_blue_sbkp"
Me.btn_blue_sbkp.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_sbkp.TabIndex = 28
Me.btn_blue_sbkp.Text = "+ 2"
Me.btn_blue_sbkp.UseVisualStyleBackColor = False
'
'btn_blue_dbkn
'
Me.btn_blue_dbkn.BackColor = System.Drawing.Color.Blue
Me.btn_blue_dbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dbkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_dbkn.Location = New System.Drawing.Point(315, 450)
Me.btn_blue_dbkn.Name = "btn_blue_dbkn"
Me.btn_blue_dbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dbkn.TabIndex = 31
Me.btn_blue_dbkn.Text = "- 1"
Me.btn_blue_dbkn.UseVisualStyleBackColor = False
'
'btn_blue_dbkp
'
Me.btn_blue_dbkp.BackColor = System.Drawing.Color.Blue
Me.btn_blue_dbkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dbkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dbkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_dbkp.Location = New System.Drawing.Point(315, 420)
Me.btn_blue_dbkp.Name = "btn_blue_dbkp"
Me.btn_blue_dbkp.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dbkp.TabIndex = 30
Me.btn_blue_dbkp.Text = "+ 1"
Me.btn_blue_dbkp.UseVisualStyleBackColor = False
'
'pb_red_flag
'
Me.pb_red_flag.BackColor = System.Drawing.Color.Transparent
Me.pb_red_flag.Location = New System.Drawing.Point(740, 135)
Me.pb_red_flag.Name = "pb_red_flag"
Me.pb_red_flag.Size = New System.Drawing.Size(90, 60)
Me.pb_red_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_flag.TabIndex = 45
Me.pb_red_flag.TabStop = False
'
'lbl_red_gamjum
'
Me.lbl_red_gamjum.BackColor = System.Drawing.Color.Red
Me.lbl_red_gamjum.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_gamjum.Font = New System.Drawing.Font("Microsoft Sans Serif", 52.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_gamjum.ForeColor = System.Drawing.Color.White
Me.lbl_red_gamjum.Location = New System.Drawing.Point(740, 340)
Me.lbl_red_gamjum.Name = "lbl_red_gamjum"
Me.lbl_red_gamjum.Size = New System.Drawing.Size(90, 75)
Me.lbl_red_gamjum.TabIndex = 44
Me.lbl_red_gamjum.Text = "00"
Me.lbl_red_gamjum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label5
'
Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(740, 295)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(90, 40)
Me.Label5.TabIndex = 43
Me.Label5.Text = "GAMJUM"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_code_3
'
Me.lbl_red_code_3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_code_3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_code_3.ForeColor = System.Drawing.Color.White
Me.lbl_red_code_3.Location = New System.Drawing.Point(740, 90)
Me.lbl_red_code_3.Name = "lbl_red_code_3"
Me.lbl_red_code_3.Size = New System.Drawing.Size(90, 40)
Me.lbl_red_code_3.TabIndex = 40
Me.lbl_red_code_3.Text = "ISO3"
Me.lbl_red_code_3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_round
'
Me.lbl_round.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lbl_round.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_round.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_round.ForeColor = System.Drawing.Color.Lime
Me.lbl_round.Location = New System.Drawing.Point(375, 185)
Me.lbl_round.Name = "lbl_round"
Me.lbl_round.Size = New System.Drawing.Size(85, 100)
Me.lbl_round.TabIndex = 46
Me.lbl_round.Text = "1"
Me.lbl_round.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_red_dhkn
'
Me.btn_red_dhkn.BackColor = System.Drawing.Color.Red
Me.btn_red_dhkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_dhkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_dhkn.ForeColor = System.Drawing.Color.White
Me.btn_red_dhkn.Location = New System.Drawing.Point(630, 450)
Me.btn_red_dhkn.Name = "btn_red_dhkn"
Me.btn_red_dhkn.Size = New System.Drawing.Size(100, 25)
Me.btn_red_dhkn.TabIndex = 54
Me.btn_red_dhkn.Text = "3 -"
Me.btn_red_dhkn.UseVisualStyleBackColor = False
'
'btn_red_dhkp
'
Me.btn_red_dhkp.BackColor = System.Drawing.Color.Red
Me.btn_red_dhkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_dhkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_dhkp.ForeColor = System.Drawing.Color.White
Me.btn_red_dhkp.Location = New System.Drawing.Point(630, 420)
Me.btn_red_dhkp.Name = "btn_red_dhkp"
Me.btn_red_dhkp.Size = New System.Drawing.Size(100, 25)
Me.btn_red_dhkp.TabIndex = 53
Me.btn_red_dhkp.Text = "3 +"
Me.btn_red_dhkp.UseVisualStyleBackColor = False
'
'btn_red_sbkn
'
Me.btn_red_sbkn.BackColor = System.Drawing.Color.Red
Me.btn_red_sbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_sbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_sbkn.ForeColor = System.Drawing.Color.White
Me.btn_red_sbkn.Location = New System.Drawing.Point(525, 450)
Me.btn_red_sbkn.Name = "btn_red_sbkn"
Me.btn_red_sbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_red_sbkn.TabIndex = 52
Me.btn_red_sbkn.Text = "2 -"
Me.btn_red_sbkn.UseVisualStyleBackColor = False
'
'btn_red_sbkp
'
Me.btn_red_sbkp.BackColor = System.Drawing.Color.Red
Me.btn_red_sbkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_sbkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_sbkp.ForeColor = System.Drawing.Color.White
Me.btn_red_sbkp.Location = New System.Drawing.Point(525, 420)
Me.btn_red_sbkp.Name = "btn_red_sbkp"
Me.btn_red_sbkp.Size = New System.Drawing.Size(100, 25)
Me.btn_red_sbkp.TabIndex = 51
Me.btn_red_sbkp.Text = "2 +"
Me.btn_red_sbkp.UseVisualStyleBackColor = False
'
'btn_red_dbkn
'
Me.btn_red_dbkn.BackColor = System.Drawing.Color.Red
Me.btn_red_dbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_dbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_dbkn.ForeColor = System.Drawing.Color.White
Me.btn_red_dbkn.Location = New System.Drawing.Point(420, 450)
Me.btn_red_dbkn.Name = "btn_red_dbkn"
Me.btn_red_dbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_red_dbkn.TabIndex = 50
Me.btn_red_dbkn.Text = "1 -"
Me.btn_red_dbkn.UseVisualStyleBackColor = False
'
'btn_red_dbkp
'
Me.btn_red_dbkp.BackColor = System.Drawing.Color.Red
Me.btn_red_dbkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_dbkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_dbkp.ForeColor = System.Drawing.Color.White
Me.btn_red_dbkp.Location = New System.Drawing.Point(420, 420)
Me.btn_red_dbkp.Name = "btn_red_dbkp"
Me.btn_red_dbkp.Size = New System.Drawing.Size(100, 25)
Me.btn_red_dbkp.TabIndex = 49
Me.btn_red_dbkp.Text = "1 +"
Me.btn_red_dbkp.UseVisualStyleBackColor = False
'
'btn_red_shkn
'
Me.btn_red_shkn.BackColor = System.Drawing.Color.Red
Me.btn_red_shkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_shkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_shkn.ForeColor = System.Drawing.Color.White
Me.btn_red_shkn.Location = New System.Drawing.Point(735, 450)
Me.btn_red_shkn.Name = "btn_red_shkn"
Me.btn_red_shkn.Size = New System.Drawing.Size(95, 25)
Me.btn_red_shkn.TabIndex = 48
Me.btn_red_shkn.Text = "4 -"
Me.btn_red_shkn.UseVisualStyleBackColor = False
'
'btn_red_shkp
'
Me.btn_red_shkp.BackColor = System.Drawing.Color.Red
Me.btn_red_shkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_shkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_shkp.ForeColor = System.Drawing.Color.White
Me.btn_red_shkp.Location = New System.Drawing.Point(735, 420)
Me.btn_red_shkp.Name = "btn_red_shkp"
Me.btn_red_shkp.Size = New System.Drawing.Size(95, 25)
Me.btn_red_shkp.TabIndex = 47
Me.btn_red_shkp.Text = "4 +"
Me.btn_red_shkp.UseVisualStyleBackColor = False
'
'tmr_display
'
Me.tmr_display.Enabled = True
Me.tmr_display.Interval = 1
'
'btn_start
'
Me.btn_start.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_start.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_start.ForeColor = System.Drawing.Color.White
Me.btn_start.Location = New System.Drawing.Point(375, 295)
Me.btn_start.Name = "btn_start"
Me.btn_start.Size = New System.Drawing.Size(85, 30)
Me.btn_start.TabIndex = 55
Me.btn_start.Text = "START"
Me.btn_start.UseVisualStyleBackColor = True
'
'btn_end
'
Me.btn_end.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_end.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_end.ForeColor = System.Drawing.Color.White
Me.btn_end.Location = New System.Drawing.Point(375, 330)
Me.btn_end.Name = "btn_end"
Me.btn_end.Size = New System.Drawing.Size(85, 30)
Me.btn_end.TabIndex = 56
Me.btn_end.Text = "END"
Me.btn_end.UseVisualStyleBackColor = True
'
'round_countdown
'
'
'btn_blue_ngf
'
Me.btn_blue_ngf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_ngf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_ngf.ForeColor = System.Drawing.Color.White
Me.btn_blue_ngf.Location = New System.Drawing.Point(105, 340)
Me.btn_blue_ngf.Name = "btn_blue_ngf"
Me.btn_blue_ngf.Size = New System.Drawing.Size(25, 25)
Me.btn_blue_ngf.TabIndex = 60
Me.btn_blue_ngf.Text = "-"
Me.btn_blue_ngf.UseVisualStyleBackColor = True
'
'btn_blue_pgf
'
Me.btn_blue_pgf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_pgf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_pgf.ForeColor = System.Drawing.Color.White
Me.btn_blue_pgf.Location = New System.Drawing.Point(105, 310)
Me.btn_blue_pgf.Name = "btn_blue_pgf"
Me.btn_blue_pgf.Size = New System.Drawing.Size(25, 25)
Me.btn_blue_pgf.TabIndex = 59
Me.btn_blue_pgf.Text = "+"
Me.btn_blue_pgf.UseVisualStyleBackColor = True
'
'btn_red_ngf
'
Me.btn_red_ngf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_ngf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_ngf.ForeColor = System.Drawing.Color.White
Me.btn_red_ngf.Location = New System.Drawing.Point(705, 340)
Me.btn_red_ngf.Name = "btn_red_ngf"
Me.btn_red_ngf.Size = New System.Drawing.Size(25, 25)
Me.btn_red_ngf.TabIndex = 64
Me.btn_red_ngf.Text = "-"
Me.btn_red_ngf.UseVisualStyleBackColor = True
'
'btn_red_pgf
'
Me.btn_red_pgf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_pgf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_pgf.ForeColor = System.Drawing.Color.White
Me.btn_red_pgf.Location = New System.Drawing.Point(705, 310)
Me.btn_red_pgf.Name = "btn_red_pgf"
Me.btn_red_pgf.Size = New System.Drawing.Size(25, 25)
Me.btn_red_pgf.TabIndex = 63
Me.btn_red_pgf.Text = "+"
Me.btn_red_pgf.UseVisualStyleBackColor = True
'
'pb_blue_logo
'
Me.pb_blue_logo.BackColor = System.Drawing.Color.Transparent
Me.pb_blue_logo.Location = New System.Drawing.Point(5, 200)
Me.pb_blue_logo.Name = "pb_blue_logo"
Me.pb_blue_logo.Size = New System.Drawing.Size(90, 90)
Me.pb_blue_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_logo.TabIndex = 65
Me.pb_blue_logo.TabStop = False
'
'pb_red_logo
'
Me.pb_red_logo.BackColor = System.Drawing.Color.Transparent
Me.pb_red_logo.Location = New System.Drawing.Point(740, 200)
Me.pb_red_logo.Name = "pb_red_logo"
Me.pb_red_logo.Size = New System.Drawing.Size(90, 90)
Me.pb_red_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_logo.TabIndex = 66
Me.pb_red_logo.TabStop = False
'
'btn_dec_match
'
Me.btn_dec_match.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_dec_match.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_dec_match.ForeColor = System.Drawing.Color.White
Me.btn_dec_match.Location = New System.Drawing.Point(800, 50)
Me.btn_dec_match.Name = "btn_dec_match"
Me.btn_dec_match.Size = New System.Drawing.Size(25, 25)
Me.btn_dec_match.TabIndex = 68
Me.btn_dec_match.Text = "-"
Me.btn_dec_match.UseVisualStyleBackColor = True
'
'btn_inc_match
'
Me.btn_inc_match.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_inc_match.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_inc_match.ForeColor = System.Drawing.Color.White
Me.btn_inc_match.Location = New System.Drawing.Point(800, 15)
Me.btn_inc_match.Name = "btn_inc_match"
Me.btn_inc_match.Size = New System.Drawing.Size(25, 25)
Me.btn_inc_match.TabIndex = 67
Me.btn_inc_match.Text = "+"
Me.btn_inc_match.UseVisualStyleBackColor = True
'
'lbl_blue_weight_class
'
Me.lbl_blue_weight_class.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_weight_class.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_weight_class.ForeColor = System.Drawing.Color.Yellow
Me.lbl_blue_weight_class.Location = New System.Drawing.Point(290, 140)
Me.lbl_blue_weight_class.Name = "lbl_blue_weight_class"
Me.lbl_blue_weight_class.Size = New System.Drawing.Size(120, 30)
Me.lbl_blue_weight_class.TabIndex = 69
Me.lbl_blue_weight_class.Text = "Weight Class"
Me.lbl_blue_weight_class.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_weight_class
'
Me.lbl_red_weight_class.BackColor = System.Drawing.Color.Red
Me.lbl_red_weight_class.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_weight_class.ForeColor = System.Drawing.Color.Yellow
Me.lbl_red_weight_class.Location = New System.Drawing.Point(425, 140)
Me.lbl_red_weight_class.Name = "lbl_red_weight_class"
Me.lbl_red_weight_class.Size = New System.Drawing.Size(120, 30)
Me.lbl_red_weight_class.TabIndex = 70
Me.lbl_red_weight_class.Text = "Weight Class"
Me.lbl_red_weight_class.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_weight_category
'
Me.lbl_blue_weight_category.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_weight_category.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_weight_category.ForeColor = System.Drawing.Color.Yellow
Me.lbl_blue_weight_category.Location = New System.Drawing.Point(105, 140)
Me.lbl_blue_weight_category.Name = "lbl_blue_weight_category"
Me.lbl_blue_weight_category.Size = New System.Drawing.Size(95, 30)
Me.lbl_blue_weight_category.TabIndex = 71
Me.lbl_blue_weight_category.Text = "Category"
Me.lbl_blue_weight_category.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_weight_category
'
Me.lbl_red_weight_category.BackColor = System.Drawing.Color.Red
Me.lbl_red_weight_category.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_weight_category.ForeColor = System.Drawing.Color.Yellow
Me.lbl_red_weight_category.Location = New System.Drawing.Point(635, 140)
Me.lbl_red_weight_category.Name = "lbl_red_weight_category"
Me.lbl_red_weight_category.Size = New System.Drawing.Size(95, 30)
Me.lbl_red_weight_category.TabIndex = 72
Me.lbl_red_weight_category.Text = "Category"
Me.lbl_red_weight_category.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_gender
'
Me.lbl_blue_gender.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_gender.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_gender.ForeColor = System.Drawing.Color.Yellow
Me.lbl_blue_gender.Location = New System.Drawing.Point(135, 335)
Me.lbl_blue_gender.Name = "lbl_blue_gender"
Me.lbl_blue_gender.Size = New System.Drawing.Size(235, 30)
Me.lbl_blue_gender.TabIndex = 73
Me.lbl_blue_gender.Text = "Gender"
Me.lbl_blue_gender.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_gender
'
Me.lbl_red_gender.BackColor = System.Drawing.Color.Red
Me.lbl_red_gender.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_gender.ForeColor = System.Drawing.Color.Yellow
Me.lbl_red_gender.Location = New System.Drawing.Point(465, 335)
Me.lbl_red_gender.Name = "lbl_red_gender"
Me.lbl_red_gender.Size = New System.Drawing.Size(235, 30)
Me.lbl_red_gender.TabIndex = 74
Me.lbl_red_gender.Text = "Gender"
Me.lbl_red_gender.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'frm_scorecontrol
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(834, 481)
Me.Controls.Add(Me.lbl_red_gender)
Me.Controls.Add(Me.lbl_blue_gender)
Me.Controls.Add(Me.lbl_red_weight_category)
Me.Controls.Add(Me.lbl_blue_weight_category)
Me.Controls.Add(Me.lbl_red_weight_class)
Me.Controls.Add(Me.lbl_blue_weight_class)
Me.Controls.Add(Me.btn_dec_match)
Me.Controls.Add(Me.btn_inc_match)
Me.Controls.Add(Me.pb_red_logo)
Me.Controls.Add(Me.pb_blue_logo)
Me.Controls.Add(Me.btn_red_ngf)
Me.Controls.Add(Me.btn_red_pgf)
Me.Controls.Add(Me.btn_blue_ngf)
Me.Controls.Add(Me.btn_blue_pgf)
Me.Controls.Add(Me.btn_end)
Me.Controls.Add(Me.btn_start)
Me.Controls.Add(Me.btn_red_dhkn)
Me.Controls.Add(Me.btn_red_dhkp)
Me.Controls.Add(Me.btn_red_sbkn)
Me.Controls.Add(Me.btn_red_sbkp)
Me.Controls.Add(Me.btn_red_dbkn)
Me.Controls.Add(Me.btn_red_dbkp)
Me.Controls.Add(Me.btn_red_shkn)
Me.Controls.Add(Me.btn_red_shkp)
Me.Controls.Add(Me.lbl_round)
Me.Controls.Add(Me.pb_red_flag)
Me.Controls.Add(Me.lbl_red_gamjum)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.lbl_red_code_3)
Me.Controls.Add(Me.btn_blue_dbkn)
Me.Controls.Add(Me.btn_blue_dbkp)
Me.Controls.Add(Me.btn_blue_sbkn)
Me.Controls.Add(Me.btn_blue_sbkp)
Me.Controls.Add(Me.btn_blue_dhkn)
Me.Controls.Add(Me.btn_blue_dhkp)
Me.Controls.Add(Me.btn_blue_shkn)
Me.Controls.Add(Me.btn_blue_shkp)
Me.Controls.Add(Me.lbl_match_number)
Me.Controls.Add(Me.lbl_time)
Me.Controls.Add(Me.lbl_court_number)
Me.Controls.Add(Me.lbl_red_team)
Me.Controls.Add(Me.lbl_red_score)
Me.Controls.Add(Me.lbl_red_fighter_name)
Me.Controls.Add(Me.pb_blue_flag)
Me.Controls.Add(Me.lbl_blue_gamjum)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.lbl_blue_code_3)
Me.Controls.Add(Me.lbl_blue_team)
Me.Controls.Add(Me.lbl_blue_score)
Me.Controls.Add(Me.lbl_blue_fighter_name)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frm_scorecontrol"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TAKEONE : Score Control"
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents lbl_blue_fighter_name As System.Windows.Forms.Label
Friend WithEvents lbl_blue_score As System.Windows.Forms.Label
Friend WithEvents lbl_blue_team As System.Windows.Forms.Label
Friend WithEvents lbl_blue_code_3 As System.Windows.Forms.Label
Friend WithEvents lbl_blue_gamjum As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents pb_blue_flag As System.Windows.Forms.PictureBox
Friend WithEvents lbl_red_team As System.Windows.Forms.Label
Friend WithEvents lbl_red_score As System.Windows.Forms.Label
Friend WithEvents lbl_red_fighter_name As System.Windows.Forms.Label
Friend WithEvents lbl_court_number As System.Windows.Forms.Label
Friend WithEvents lbl_time As System.Windows.Forms.Label
Friend WithEvents lbl_match_number As System.Windows.Forms.Label
Friend WithEvents btn_blue_shkp As System.Windows.Forms.Button
Friend WithEvents btn_blue_shkn As System.Windows.Forms.Button
Friend WithEvents btn_blue_dhkn As System.Windows.Forms.Button
Friend WithEvents btn_blue_dhkp As System.Windows.Forms.Button
Friend WithEvents btn_blue_sbkn As System.Windows.Forms.Button
Friend WithEvents btn_blue_sbkp As System.Windows.Forms.Button
Friend WithEvents btn_blue_dbkn As System.Windows.Forms.Button
Friend WithEvents btn_blue_dbkp As System.Windows.Forms.Button
Friend WithEvents pb_red_flag As System.Windows.Forms.PictureBox
Friend WithEvents lbl_red_gamjum As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents lbl_red_code_3 As System.Windows.Forms.Label
Friend WithEvents lbl_round As System.Windows.Forms.Label
Friend WithEvents btn_red_dhkn As System.Windows.Forms.Button
Friend WithEvents btn_red_dhkp As System.Windows.Forms.Button
Friend WithEvents btn_red_sbkn As System.Windows.Forms.Button
Friend WithEvents btn_red_sbkp As System.Windows.Forms.Button
Friend WithEvents btn_red_dbkn As System.Windows.Forms.Button
Friend WithEvents btn_red_dbkp As System.Windows.Forms.Button
Friend WithEvents btn_red_shkn As System.Windows.Forms.Button
Friend WithEvents btn_red_shkp As System.Windows.Forms.Button
Friend WithEvents tmr_display As System.Windows.Forms.Timer
Friend WithEvents btn_start As Button
Friend WithEvents btn_end As Button
Friend WithEvents round_countdown As System.Windows.Forms.Timer
Friend WithEvents btn_blue_ngf As Button
Friend WithEvents btn_blue_pgf As Button
Friend WithEvents btn_red_ngf As Button
Friend WithEvents btn_red_pgf As Button
Friend WithEvents break_countdown As System.Windows.Forms.Timer
Friend WithEvents pb_blue_logo As PictureBox
Friend WithEvents pb_red_logo As PictureBox
Friend WithEvents btn_dec_match As Button
Friend WithEvents btn_inc_match As Button
Friend WithEvents lbl_blue_weight_class As Label
Friend WithEvents lbl_red_weight_class As Label
Friend WithEvents lbl_blue_weight_category As Label
Friend WithEvents lbl_red_weight_category As Label
Friend WithEvents lbl_blue_gender As Label
Friend WithEvents lbl_red_gender As Label
End Class

View File

@ -0,0 +1,132 @@
<?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>
<metadata name="tmr_display.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="round_countdown.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>131, 17</value>
</metadata>
<metadata name="break_countdown.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>270, 14</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>42</value>
</metadata>
</root>

View File

@ -0,0 +1,369 @@
Imports System.ComponentModel
Public Class frm_scorecontrol
Dim Match As match
Dim MatchNumber As Integer = 1
Dim MatchTimer As match_timer
Dim CHANGE As Boolean = False
Dim START_BUTTON As Boolean = False
Private Sub tmr_display_Tick(sender As Object, e As EventArgs) Handles tmr_display.Tick
If START_BUTTON = True Then
DisplayData()
End If
End Sub
Private Sub btn_start_Click(sender As Object, e As EventArgs) Handles btn_start.Click
If btn_start.Text = "START" Then
If Not IsNothing(Match) Then Match.StartMatch() Else Exit Sub
START_BUTTON = True
CHANGE = True
MatchTimer = New match_timer(1, 30)
round_countdown.Interval = 1000
round_countdown.Enabled = True
btn_start.Text = "PAUSE"
ElseIf btn_start.Text = "PAUSE" Then
btn_start.Text = "RESUME"
round_countdown.Enabled = False
ElseIf btn_start.Text = "RESUME" Then
btn_start.Text = "PAUSE"
round_countdown.Enabled = True
End If
End Sub
Private Sub btn_blue_shkp_Click(sender As Object, e As EventArgs) Handles btn_blue_shkp.Click
If CHANGE = True Then MATCH.BlueFighter.AdjustScore(4)
End Sub
Private Sub btn_blue_dhkp_Click(sender As Object, e As EventArgs) Handles btn_blue_dhkp.Click
If CHANGE = True Then MATCH.BlueFighter.AdjustScore(3)
End Sub
Private Sub btn_blue_sbkp_Click(sender As Object, e As EventArgs) Handles btn_blue_sbkp.Click
If CHANGE = True Then Match.BlueFighter.AdjustScore(2)
End Sub
Private Sub btn_blue_dbkp_Click(sender As Object, e As EventArgs) Handles btn_blue_dbkp.Click
If CHANGE = True Then MATCH.BlueFighter.AdjustScore(1)
End Sub
Private Sub btn_red_dbkp_Click(sender As Object, e As EventArgs) Handles btn_red_dbkp.Click
If CHANGE = True Then MATCH.RedFighter.AdjustScore(1)
End Sub
Private Sub btn_red_sbkp_Click(sender As Object, e As EventArgs) Handles btn_red_sbkp.Click
If CHANGE = True Then Match.RedFighter.AdjustScore(2)
End Sub
Private Sub btn_red_dhkp_Click(sender As Object, e As EventArgs) Handles btn_red_dhkp.Click
If CHANGE = True Then MATCH.RedFighter.AdjustScore(3)
End Sub
Private Sub btn_red_shkp_Click(sender As Object, e As EventArgs) Handles btn_red_shkp.Click
If CHANGE = True Then MATCH.RedFighter.AdjustScore(4)
End Sub
Private Sub timer_countdown_Tick(sender As Object, e As EventArgs) Handles round_countdown.Tick
MatchTimer.Run()
End Sub
Private Sub btn_blue_shkn_Click(sender As Object, e As EventArgs) Handles btn_blue_shkn.Click
If CHANGE = True Then MATCH.BlueFighter.AdjustScore(-4)
End Sub
Private Sub btn_blue_dhkn_Click(sender As Object, e As EventArgs) Handles btn_blue_dhkn.Click
If CHANGE = True Then MATCH.BlueFighter.AdjustScore(-3)
End Sub
Private Sub btn_blue_sbkn_Click(sender As Object, e As EventArgs) Handles btn_blue_sbkn.Click
If CHANGE = True Then Match.BlueFighter.AdjustScore(-2)
End Sub
Private Sub btn_blue_dbkn_Click(sender As Object, e As EventArgs) Handles btn_blue_dbkn.Click
If CHANGE = True Then MATCH.BlueFighter.AdjustScore(-1)
End Sub
Private Sub btn_red_dbkn_Click(sender As Object, e As EventArgs) Handles btn_red_dbkn.Click
If CHANGE = True Then MATCH.RedFighter.AdjustScore(-1)
End Sub
Private Sub btn_red_sbkn_Click(sender As Object, e As EventArgs) Handles btn_red_sbkn.Click
If CHANGE = True Then Match.RedFighter.AdjustScore(-2)
End Sub
Private Sub btn_red_dhkn_Click(sender As Object, e As EventArgs) Handles btn_red_dhkn.Click
If CHANGE = True Then MATCH.RedFighter.AdjustScore(-3)
End Sub
Private Sub btn_red_shkn_Click(sender As Object, e As EventArgs) Handles btn_red_shkn.Click
If CHANGE = True Then MATCH.RedFighter.AdjustScore(-4)
End Sub
Private Sub btn_blue_pgf_Click(sender As Object, e As EventArgs) Handles btn_blue_pgf.Click
If CHANGE = True Then
Match.BlueFighter.AdjustGamjum(1)
'Match.RedFighter.GetTransfered(1)
End If
End Sub
Private Sub btn_blue_ngf_Click(sender As Object, e As EventArgs) Handles btn_blue_ngf.Click
If CHANGE = True Then MATCH.BlueFighter.AdjustGamjum(-1)
End Sub
Private Sub btn_red_pgf_Click(sender As Object, e As EventArgs) Handles btn_red_pgf.Click
If CHANGE = True Then MATCH.RedFighter.AdjustGamjum(1)
End Sub
Private Sub btn_red_ngf_Click(sender As Object, e As EventArgs) Handles btn_red_ngf.Click
If CHANGE = True Then MATCH.RedFighter.AdjustGamjum(-1)
End Sub
Private Sub btn_end_Click(sender As Object, e As EventArgs) Handles btn_end.Click
CHANGE = False
If Not IsNothing(Match) Then Match.EndMatch() Else System.GC.Collect()
btn_start.Text = "START"
'Match.RoundTime = New match.timer(Match.MaxRoundMin, Match.MaxRoundSec)
round_countdown.Enabled = False
End Sub
Private Sub lbl_match_number_Click(sender As Object, e As EventArgs) Handles lbl_match_number.Click
If CHANGE = False Then
MatchNumber = InputBox("Please Type The Match Number", "Match Number", "1")
Match = New match(1, MatchNumber)
DisplayData()
End If
End Sub
Private Sub DisplayData()
' Board Display
Try
Catch ex As Exception
End Try
lbl_round.Text = Match.ROUND
lbl_match_number.Text = "M" & Match.ID
lbl_court_number.Text = "C" & Match.COURT & "R" & Match.ROUND
' Blue Fighter Data Display
Try
lbl_blue_score.Text = Match.BlueFighter.Score
lbl_blue_gamjum.Text = Match.BlueFighter.Gamjum
lbl_blue_team.Text = Match.BlueFighter.Person.Team.Title
lbl_blue_fighter_name.Text = Match.BlueFighter.Person.ShortName
lbl_blue_code_3.Text = Match.BlueFighter.Person.Team.Country.ISO3
lbl_blue_gender.Text = Match.BlueFighter.Person.Gender
lbl_blue_weight_class.Text = Match.BlueFighter.Person.Weight.WeightClass
lbl_blue_weight_category.Text = Match.BlueFighter.Person.Weight.WeightCategory
Catch ex As Exception
lbl_blue_score.Text = 0
lbl_blue_gamjum.Text = 0
lbl_blue_team.Text = "BLUE TEAM"
lbl_blue_fighter_name.Text = "BLUE FIGHTER"
lbl_blue_code_3.Text = "ISO3"
lbl_blue_gender.Text = "XGNDR"
lbl_blue_weight_class.Text = "OPEN WT"
lbl_blue_weight_category.Text = "UNKNOWN"
End Try
Try ' Blue Fighter Flag Image Display
pb_blue_flag.Image = Image.FromStream(Match.BlueFighter.Person.TEAM.Country.Flag)
'pb_blue_flag.Visible = True
Catch ex As Exception
pb_blue_flag.Image = Nothing
'pb_blue_flag.Visible = False
End Try
Try ' Blue Fighter Logo Image Display
pb_blue_logo.Image = Image.FromStream(Match.BlueFighter.Person.TEAM.Logo)
'pb_blue_logo.Visible = True
Catch ex As Exception
pb_blue_logo.Image = Nothing
'pb_blue_logo.Visible = False
End Try
' Red Fighter Data Display
Try
lbl_red_score.Text = Match.RedFighter.Score
lbl_red_gamjum.Text = Match.RedFighter.Gamjum
lbl_red_team.Text = Match.RedFighter.Person.Team.Title
lbl_red_fighter_name.Text = Match.RedFighter.Person.ShortName
lbl_red_code_3.Text = Match.RedFighter.Person.Team.Country.ISO3
lbl_red_gender.Text = Match.RedFighter.Person.Gender
lbl_red_weight_class.Text = Match.RedFighter.Person.Weight.WeightClass
lbl_red_weight_category.Text = Match.RedFighter.Person.Weight.WeightCategory
Catch ex As Exception
lbl_red_score.Text = 0
lbl_red_gamjum.Text = 0
lbl_red_team.Text = "RED TEAM"
lbl_red_fighter_name.Text = "RED FIGHTER"
lbl_red_code_3.Text = "ISO3"
lbl_red_gender.Text = "XGNDR"
lbl_red_weight_class.Text = "OPEN WT"
lbl_red_weight_category.Text = "UNKNOWN"
End Try
Try ' Red Fighter Flag Image Display
pb_red_flag.Image = Image.FromStream(Match.RedFighter.Person.TEAM.Country.Flag)
'pb_red_flag.Visible = True
Catch ex As Exception
pb_red_flag.Image = Nothing
'pb_red_flag.Visible = False
End Try
Try ' Red Fighter Logo Image Display
pb_red_logo.Image = Image.FromStream(Match.RedFighter.Person.TEAM.Logo)
'pb_red_logo.Visible = True
Catch ex As Exception
pb_red_logo.Image = Nothing
'pb_red_logo.Visible = False
End Try
End Sub
Private Sub btn_inc_match_Click(sender As Object, e As EventArgs) Handles btn_inc_match.Click
Try
MatchNumber += 1
Match = New match(1, MatchNumber)
DisplayData()
Catch ex As Exception
MatchNumber -= 1
Match = New match(1, MatchNumber)
DisplayData()
End Try
End Sub
Private Sub btn_dec_match_Click(sender As Object, e As EventArgs) Handles btn_dec_match.Click
Try
MatchNumber -= 1
Match = New match(1, MatchNumber)
DisplayData()
Catch ex As Exception
MatchNumber += 1
Match = New match(1, MatchNumber)
DisplayData()
End Try
End Sub
Private Sub frm_scorecontrol_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Match = New match(1, MatchNumber)
DisplayData()
Catch ex As Exception
Match = New match(1, MatchNumber)
DisplayData()
End Try
End Sub
Private Sub pb_blue_logo_Click(sender As Object, e As EventArgs) Handles pb_blue_logo.Click
If IsNothing(pb_blue_logo.Image) Then
frm_update_logo.Show()
End If
End Sub
Private Sub pb_red_logo_Click(sender As Object, e As EventArgs) Handles pb_red_logo.Click
If IsNothing(pb_red_logo.Image) Then
frm_update_logo.Show()
End If
End Sub
Private Sub frm_scorecontrol_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
frm_event_control.Show()
End Sub
Private Sub pb_blue_flag_Click(sender As Object, e As EventArgs) Handles pb_blue_flag.Click
If IsNothing(pb_blue_flag.Image) Then
frm_update_flag.Show()
End If
End Sub
Private Sub pb_red_flag_Click(sender As Object, e As EventArgs) Handles pb_red_flag.Click
If IsNothing(pb_red_flag.Image) Then
frm_update_flag.Show()
End If
End Sub
End Class

View File

@ -0,0 +1,180 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class friendly_fighter
' Scoring Information
Private _match As Integer ' Match Number
Private _person As person ' Fighter ID
Private _score As Integer ' Total Score
Private _gamjum As Integer ' Total Gamgum Foul
'-----------------------------------------------------------------------------------------------------------
' Properties
'-----------------------------------------------------------------------------------------------------------
Public Sub New(FighterID As Integer)
_person = New person(FighterID)
_score = 0
_gamjum = 0
End Sub
'-----------------------------------------------------------------------------------------------------------
' Properties
'-----------------------------------------------------------------------------------------------------------
ReadOnly Property Person As person
Get
Return _person
End Get
End Property
ReadOnly Property Score As Integer
Get
Return _score
End Get
End Property
ReadOnly Property Gamjum As Integer
Get
Return _gamjum
End Get
End Property
'-----------------------------------------------------------------------------------------------------------
' Subroutines
'-----------------------------------------------------------------------------------------------------------
Public Sub AdjustScore(Amount As Integer)
_score += Amount
End Sub
Public Sub AdjustGamjum(Amount As Integer)
_gamjum += Amount
End Sub
'-----------------------------------------------------------------------------------------------------------
' Subroutines
'-----------------------------------------------------------------------------------------------------------
Public Sub RegisterScore(Score As Integer, Gamjum As Integer)
Dim QRY As String = ("
insert into event_matches_scores (mid, pid, score, foul) values (" & _match & ", " & _person.ID & ", " & Score & ", " & Gamjum & ");
select sum(score) as 'score', sum(gamjum) as 'gamjum' from event_matches_scores where eid = null and mid = " & _match & " and pid = " & _person.ID & ";
")
' Connection
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try ' Score
_score = RDR("score")
Catch ex As Exception
_score = 0
End Try
Try ' Gamjum
_gamjum = RDR("gamjum")
Catch ex As Exception
_gamjum = 0
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub GetMatchScores()
Dim QRY As String = ("select sum(score) as 'score', sum(foul) as 'gamjum' from event_matches_scores where eid = null and mid = " & _match & " and pid = " & _person.ID & ";")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try ' Score
_score = RDR("score")
Catch ex As Exception
_score = 0
End Try
Try ' Gamjum
_gamjum = RDR("gamjum")
Catch ex As Exception
_gamjum = 0
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
End Sub
Public Function GetPointsList() As List(Of country)
Dim QRY As String = ("
select
score,
gamjum
from
event_matches_scores
where
eid = null and mid = " & _match & " and pid = " & _person.ID & "
order by
eid,
mid
desc;
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of country)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New country(RDR("id")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return LST
End Function
End Class

View File

@ -0,0 +1,325 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class friendly_match
'--[MATCH FIGHTERS]---------------
Public _blue As friendly_fighter ' Blue Fighter Information
Public _red As friendly_fighter ' Red Fighter Information
Public _referee As person ' Referee Information
'--[MATCH SETTINGS]---------------
Private _match_id As Integer ' Match Identification Number
Private _max_rounds As Integer ' Maximum Round Number
Private _round_number As Integer ' Round Number
Private _matchTimer As match_timer ' Timer For Playing The Rounds
Private _matchBreak As match_timer ' Timer For Having Break
Private _max_differenace As Integer ' Max Difference In Score
Private _enaMaxSdiff As Boolean ' End Match When Difference Reached
Private _enaSudenDth As Boolean ' Enable Forth Round When Score Are Equal
'--[CONSTRUCTORS]-------------------------------------------------
ReadOnly Property Round As Integer
Get
Return _round_number
End Get
End Property
ReadOnly Property Time As match_timer
Get
Return _matchTimer
End Get
End Property
ReadOnly Property Break As match_timer
Get
Return _matchBreak
End Get
End Property
'--[CONSTRUCTORS]-------------------------------------------------
' Incase you want to create instant match
Public Sub New(Blue As Integer, Red As Integer, Referee As Integer, Rounds As Integer)
' Match Fighters
_blue = New friendly_fighter(Blue)
_red = New friendly_fighter(Red)
' Match Referee
_referee = New person(Referee)
' Match Round Timer
_matchTimer = New match_timer(My.Settings.match_round_time_minutes, My.Settings.match_round_time_seconds)
' Match Break Timer
_matchBreak = New match_timer(My.Settings.match_break_time_minutes, My.Settings.match_break_time_seconds)
' Sudden Death Option
_enaSudenDth = My.Settings.match_enable_sudden_death
' Max Score Difference Option
_enaMaxSdiff = My.Settings.match_enable_max_difference
End Sub
'-----------------------------------------------------------------
' READING MATCH NUMBER
'-----------------------------------------------------------------
' THIS FUNCTION GETS THE NEWLY CREATED MATCH NUMBER
Private Sub GetMatchData()
Dim QRY As String = "SELECT ecn, ern, emn, blue_fighter, red_fighter FROM test.event_matches where emn = " & _match_id & " and started = 0 and ended = 0 and (not isnull(red_fighter)) and (not isnull(blue_fighter)) order by ern, emn asc"
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
_blue = New friendly_fighter(RDR("blue_fighter"))
Catch ex As Exception
_blue = Nothing
End Try
Try
_red = New friendly_fighter(RDR("red_fighter"))
Catch ex As Exception
_red = Nothing
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
' THIS FUNCTION RETURNS AVAILABLE NUMBER FOR A NEW MATCH
Private Function GetAvailableNewMatchID() As Integer
' Select the Unstarted Matches From The Match Sequence
Dim QRY As String = ("
select
person.id as 'pid',
person.fname,
person.mname,
person.lname,
TIMESTAMPDIFF(YEAR, person.date_of_birth, CURDATE()) as 'age',
person.date_of_birth,
person.category,
person.weight,
person.weight_class,
person.gender,
person.picture,
clubs.title as 'club',
clubs.logo as 'logo',
countries.iso3 as 'country',
countries.flatflag as 'flag'
FROM
person
left join
clubs on person.club = clubs.id
left join
countries on person.country = countries.id
where
person.id=1
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim NUM As Integer
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
NUM = RDR("ID")
Catch ex As Exception
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return NUM
End Function
Public Sub StartMatch()
' Update The Table With The Winner ID
Dim QRY As String = ("
SET SQL_SAFE_UPDATES = 0;
UPDATE
`event_matches`
SET
`started` = 1
WHERE
`emn` = " & _match_id & ";
")
' Executing The Command
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Try
CON.Open()
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Public Sub EndMatch()
' Testing This Condition
If _match_id = 0 Or _match_id = Nothing Then Exit Sub
' Update The Table With The Winner ID
Dim QRY As String = ("
SET SQL_SAFE_UPDATES = 0;
UPDATE
`event_matches`
SET
`ended` = 1
WHERE
`emn` = " & _match_id & ";
")
' Executing The Command
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Try
CON.Open()
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
'-----------------------------------------------------------------
' METHODES OF ENDING A MATCH
'-----------------------------------------------------------------
' THIS SUB ENDS THE MATCH AUTOMATICALLY BY CALCULATING THE POINTS
Private Sub AutoEndMatch()
' Winner ID Holder
Dim WinnerID As Integer
' This Is Where We Do Decision Making
If _blue.Score > _red.Score Then
WinnerID = _blue.Person.ID ' Blue Fighter Wins
ElseIf _blue.Score < _red.Score Then
WinnerID = _red.Person.ID ' Red Fighter Wins
End If
' Update The Table With The Winner ID
Dim QRY As String = ("
SET SQL_SAFE_UPDATES = 0;
UPDATE
`event_matches`
SET
`blue_score` = " & _blue.Score & ",
`blue_foul` = " & _blue.Gamjum & ",
`red_score` = " & _red.Score & ",
`red_foul` = " & _red.Gamjum & ",
`winner` = " & WinnerID & ",
`ended` = 1
WHERE
`emn` = " & _match_id & ";
")
' Executing The Command
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Try
CON.Open()
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
' THIS SUB ENDS THE MATCH MANUALLY BY THE MAIN REFEREE IF NEEDED TO
Private Sub ManualEndMatch(WinnerID As Integer, WinnerBy As String, Note As String)
' Update The Table With The Winner ID
Dim QRY As String = ("
SET SQL_SAFE_UPDATES = 0;
UPDATE
`event_matches`
SET
`blue_score` = " & _blue.Score & ",
`blue_foul` = " & _blue.Gamjum & ",
`red_score` = " & _red.Score & ",
`red_foul` = " & _red.Gamjum & ",
`winner` = " & WinnerID & ",
`notes` = '" & Note & "',
`winnerBy` = '" & WinnerBy & "',
`ended` = 1
WHERE
`emn` = " & _match_id & ";
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Try
CON.Open()
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
End Class

View File

@ -0,0 +1,446 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_friendly_match
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()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.txt_rounds = New System.Windows.Forms.MaskedTextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.chk_sudden_death = New System.Windows.Forms.CheckBox()
Me.txt_break_time = New System.Windows.Forms.MaskedTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txt_round_time = New System.Windows.Forms.MaskedTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.cbo_blue = New System.Windows.Forms.ComboBox()
Me.cbo_red = New System.Windows.Forms.ComboBox()
Me.cbo_referee = New System.Windows.Forms.ComboBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.pb_blue_picture = New System.Windows.Forms.PictureBox()
Me.pb_red_picture = New System.Windows.Forms.PictureBox()
Me.pb_blue_flag = New System.Windows.Forms.PictureBox()
Me.pb_red_flag = New System.Windows.Forms.PictureBox()
Me.btn_start = New System.Windows.Forms.Button()
Me.pb_referee_flag = New System.Windows.Forms.PictureBox()
Me.pb_referee_picture = New System.Windows.Forms.PictureBox()
Me.btn_back = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.pb_blue_picture, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_picture, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_referee_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_referee_picture, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Blue
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(10, 30)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(120, 28)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Blue Fighter :"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.Red
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(10, 65)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(120, 28)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Red Fighter :"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Button1)
Me.GroupBox1.Controls.Add(Me.txt_rounds)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.chk_sudden_death)
Me.GroupBox1.Controls.Add(Me.txt_break_time)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.txt_round_time)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.ForeColor = System.Drawing.Color.White
Me.GroupBox1.Location = New System.Drawing.Point(10, 160)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(390, 175)
Me.GroupBox1.TabIndex = 4
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "[ MATCH SETTINGS ]"
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(255, 30)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(120, 130)
Me.Button1.TabIndex = 17
Me.Button1.Text = "Set Hardware"
Me.Button1.UseVisualStyleBackColor = True
'
'txt_rounds
'
Me.txt_rounds.BackColor = System.Drawing.Color.White
Me.txt_rounds.ForeColor = System.Drawing.Color.Black
Me.txt_rounds.Location = New System.Drawing.Point(160, 30)
Me.txt_rounds.Mask = "0"
Me.txt_rounds.Name = "txt_rounds"
Me.txt_rounds.Size = New System.Drawing.Size(85, 26)
Me.txt_rounds.TabIndex = 16
Me.txt_rounds.Text = "3"
'
'Label5
'
Me.Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(10, 135)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(145, 26)
Me.Label5.TabIndex = 15
Me.Label5.Text = "Sudden Deth :"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'chk_sudden_death
'
Me.chk_sudden_death.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.chk_sudden_death.Checked = True
Me.chk_sudden_death.CheckState = System.Windows.Forms.CheckState.Checked
Me.chk_sudden_death.Location = New System.Drawing.Point(160, 135)
Me.chk_sudden_death.Name = "chk_sudden_death"
Me.chk_sudden_death.Size = New System.Drawing.Size(85, 26)
Me.chk_sudden_death.TabIndex = 14
Me.chk_sudden_death.Text = "Enable"
Me.chk_sudden_death.UseVisualStyleBackColor = False
'
'txt_break_time
'
Me.txt_break_time.BackColor = System.Drawing.Color.White
Me.txt_break_time.ForeColor = System.Drawing.Color.Black
Me.txt_break_time.Location = New System.Drawing.Point(160, 100)
Me.txt_break_time.Mask = "00:00"
Me.txt_break_time.Name = "txt_break_time"
Me.txt_break_time.Size = New System.Drawing.Size(85, 26)
Me.txt_break_time.TabIndex = 10
Me.txt_break_time.Text = "0100"
'
'Label6
'
Me.Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(10, 100)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(145, 26)
Me.Label6.TabIndex = 9
Me.Label6.Text = "Break Time :"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_round_time
'
Me.txt_round_time.BackColor = System.Drawing.Color.White
Me.txt_round_time.ForeColor = System.Drawing.Color.Black
Me.txt_round_time.Location = New System.Drawing.Point(160, 65)
Me.txt_round_time.Mask = "00:00"
Me.txt_round_time.Name = "txt_round_time"
Me.txt_round_time.Size = New System.Drawing.Size(85, 26)
Me.txt_round_time.TabIndex = 8
Me.txt_round_time.Text = "0200"
'
'Label4
'
Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(10, 65)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(145, 26)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Round Time :"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(10, 30)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(145, 26)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Max Round :"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label7
'
Me.Label7.BackColor = System.Drawing.Color.Yellow
Me.Label7.ForeColor = System.Drawing.Color.Black
Me.Label7.Location = New System.Drawing.Point(10, 100)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(120, 28)
Me.Label7.TabIndex = 5
Me.Label7.Text = "Referee :"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cbo_blue
'
Me.cbo_blue.FormattingEnabled = True
Me.cbo_blue.Location = New System.Drawing.Point(135, 30)
Me.cbo_blue.Name = "cbo_blue"
Me.cbo_blue.Size = New System.Drawing.Size(245, 28)
Me.cbo_blue.TabIndex = 7
'
'cbo_red
'
Me.cbo_red.FormattingEnabled = True
Me.cbo_red.Location = New System.Drawing.Point(135, 65)
Me.cbo_red.Name = "cbo_red"
Me.cbo_red.Size = New System.Drawing.Size(245, 28)
Me.cbo_red.TabIndex = 8
'
'cbo_referee
'
Me.cbo_referee.FormattingEnabled = True
Me.cbo_referee.Location = New System.Drawing.Point(135, 100)
Me.cbo_referee.Name = "cbo_referee"
Me.cbo_referee.Size = New System.Drawing.Size(245, 28)
Me.cbo_referee.TabIndex = 9
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Label1)
Me.GroupBox2.Controls.Add(Me.cbo_referee)
Me.GroupBox2.Controls.Add(Me.Label2)
Me.GroupBox2.Controls.Add(Me.cbo_red)
Me.GroupBox2.Controls.Add(Me.Label7)
Me.GroupBox2.Controls.Add(Me.cbo_blue)
Me.GroupBox2.ForeColor = System.Drawing.Color.White
Me.GroupBox2.Location = New System.Drawing.Point(10, 10)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(390, 140)
Me.GroupBox2.TabIndex = 10
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "[ COMPETITORS ]"
'
'pb_blue_picture
'
Me.pb_blue_picture.BackColor = System.Drawing.Color.Blue
Me.pb_blue_picture.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_blue_picture.Location = New System.Drawing.Point(410, 70)
Me.pb_blue_picture.Name = "pb_blue_picture"
Me.pb_blue_picture.Size = New System.Drawing.Size(200, 210)
Me.pb_blue_picture.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_picture.TabIndex = 11
Me.pb_blue_picture.TabStop = False
'
'pb_red_picture
'
Me.pb_red_picture.BackColor = System.Drawing.Color.Red
Me.pb_red_picture.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_red_picture.Location = New System.Drawing.Point(820, 70)
Me.pb_red_picture.Name = "pb_red_picture"
Me.pb_red_picture.Size = New System.Drawing.Size(200, 210)
Me.pb_red_picture.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_picture.TabIndex = 12
Me.pb_red_picture.TabStop = False
'
'pb_blue_flag
'
Me.pb_blue_flag.BackColor = System.Drawing.Color.Blue
Me.pb_blue_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_blue_flag.Location = New System.Drawing.Point(410, 286)
Me.pb_blue_flag.Name = "pb_blue_flag"
Me.pb_blue_flag.Size = New System.Drawing.Size(200, 105)
Me.pb_blue_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_flag.TabIndex = 13
Me.pb_blue_flag.TabStop = False
'
'pb_red_flag
'
Me.pb_red_flag.BackColor = System.Drawing.Color.Red
Me.pb_red_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_red_flag.Location = New System.Drawing.Point(820, 285)
Me.pb_red_flag.Name = "pb_red_flag"
Me.pb_red_flag.Size = New System.Drawing.Size(200, 105)
Me.pb_red_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_flag.TabIndex = 14
Me.pb_red_flag.TabStop = False
'
'btn_start
'
Me.btn_start.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_start.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_start.ForeColor = System.Drawing.Color.White
Me.btn_start.Location = New System.Drawing.Point(210, 345)
Me.btn_start.Name = "btn_start"
Me.btn_start.Size = New System.Drawing.Size(190, 45)
Me.btn_start.TabIndex = 15
Me.btn_start.Text = "Start"
Me.btn_start.UseVisualStyleBackColor = True
'
'pb_referee_flag
'
Me.pb_referee_flag.BackColor = System.Drawing.Color.Yellow
Me.pb_referee_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_referee_flag.Location = New System.Drawing.Point(615, 286)
Me.pb_referee_flag.Name = "pb_referee_flag"
Me.pb_referee_flag.Size = New System.Drawing.Size(200, 105)
Me.pb_referee_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_referee_flag.TabIndex = 17
Me.pb_referee_flag.TabStop = False
'
'pb_referee_picture
'
Me.pb_referee_picture.BackColor = System.Drawing.Color.Yellow
Me.pb_referee_picture.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_referee_picture.Location = New System.Drawing.Point(615, 70)
Me.pb_referee_picture.Name = "pb_referee_picture"
Me.pb_referee_picture.Size = New System.Drawing.Size(201, 210)
Me.pb_referee_picture.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_referee_picture.TabIndex = 16
Me.pb_referee_picture.TabStop = False
'
'btn_back
'
Me.btn_back.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_back.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_back.ForeColor = System.Drawing.Color.White
Me.btn_back.Location = New System.Drawing.Point(10, 345)
Me.btn_back.Name = "btn_back"
Me.btn_back.Size = New System.Drawing.Size(190, 45)
Me.btn_back.TabIndex = 18
Me.btn_back.Text = "< Back"
Me.btn_back.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.BackColor = System.Drawing.Color.Blue
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(410, 10)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(200, 55)
Me.Label8.TabIndex = 19
Me.Label8.Text = "BLUE CORNER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(CHONG)"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label9
'
Me.Label9.BackColor = System.Drawing.Color.Red
Me.Label9.ForeColor = System.Drawing.Color.White
Me.Label9.Location = New System.Drawing.Point(820, 10)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(200, 55)
Me.Label9.TabIndex = 20
Me.Label9.Text = "RED CORNER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(HONG)"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label10
'
Me.Label10.BackColor = System.Drawing.Color.Yellow
Me.Label10.ForeColor = System.Drawing.Color.Black
Me.Label10.Location = New System.Drawing.Point(615, 10)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(200, 55)
Me.Label10.TabIndex = 21
Me.Label10.Text = "REFEREE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(SIMPAN)"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'frm_friendly_match
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(1032, 401)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.btn_back)
Me.Controls.Add(Me.pb_referee_flag)
Me.Controls.Add(Me.pb_referee_picture)
Me.Controls.Add(Me.btn_start)
Me.Controls.Add(Me.pb_red_flag)
Me.Controls.Add(Me.pb_blue_flag)
Me.Controls.Add(Me.pb_red_picture)
Me.Controls.Add(Me.pb_blue_picture)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Margin = New System.Windows.Forms.Padding(5)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frm_friendly_match"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Create New Match"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
CType(Me.pb_blue_picture, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_picture, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_referee_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_referee_picture, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txt_break_time As System.Windows.Forms.MaskedTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txt_round_time As System.Windows.Forms.MaskedTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents cbo_blue As System.Windows.Forms.ComboBox
Friend WithEvents cbo_red As System.Windows.Forms.ComboBox
Friend WithEvents cbo_referee As System.Windows.Forms.ComboBox
Friend WithEvents chk_sudden_death As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents pb_blue_picture As System.Windows.Forms.PictureBox
Friend WithEvents pb_red_picture As System.Windows.Forms.PictureBox
Friend WithEvents pb_blue_flag As System.Windows.Forms.PictureBox
Friend WithEvents pb_red_flag As System.Windows.Forms.PictureBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txt_rounds As System.Windows.Forms.MaskedTextBox
Friend WithEvents btn_start As System.Windows.Forms.Button
Friend WithEvents pb_referee_flag As PictureBox
Friend WithEvents pb_referee_picture As PictureBox
Friend WithEvents btn_back As Button
Friend WithEvents Label8 As Label
Friend WithEvents Label9 As Label
Friend WithEvents Label10 As Label
Friend WithEvents Button1 As Button
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,217 @@
Imports System.ComponentModel
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class frm_friendly_match
Public FriendlyMatch As friendly_match
Public red As friendly_fighter
Public blue As friendly_fighter
Public referee As person
Private Sub frm_new_match_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SubPopulateComboBox(GetPersonList(), cbo_blue)
SubPopulateComboBox(GetPersonList(), cbo_referee)
SubPopulateComboBox(GetPersonList(), cbo_red)
End Sub
Private Sub cbo_blue_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_blue.SelectedIndexChanged
Try
blue = New friendly_fighter(cbo_blue.SelectedValue)
Try
pb_blue_picture.Image = Image.FromStream(blue.Person.PICTURE)
Catch ex As Exception
pb_blue_picture.Image = Nothing
End Try
Try
pb_blue_flag.Image = Image.FromStream(blue.Person.TEAM.Country.Flag)
Catch ex As Exception
pb_blue_flag.Image = Nothing
End Try
Catch ex As Exception
End Try
End Sub
Private Sub cbo_red_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_red.SelectedIndexChanged
Try
red = New friendly_fighter(cbo_red.SelectedValue)
Try
pb_red_picture.Image = Image.FromStream(red.Person.PICTURE)
Catch ex As Exception
pb_red_picture.Image = Nothing
End Try
Try
pb_red_flag.Image = Image.FromStream(red.Person.TEAM.Country.Flag)
Catch ex As Exception
pb_red_flag.Image = Nothing
End Try
Catch ex As Exception
End Try
End Sub
Private Sub cbo_referee_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_referee.SelectedIndexChanged
Try
referee = New person(cbo_referee.SelectedValue)
Try
pb_referee_picture.Image = Image.FromStream(referee.PICTURE)
Catch ex As Exception
pb_referee_picture.Image = Nothing
End Try
Try
pb_referee_flag.Image = Image.FromStream(referee.TEAM.Country.Flag)
Catch ex As Exception
pb_referee_flag.Image = Nothing
End Try
Catch ex As Exception
End Try
End Sub
Private Sub btn_back_Click(sender As Object, e As EventArgs) Handles btn_back.Click
frm_main.Show()
Me.Close()
End Sub
Private Sub frm_new_match_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
frm_main.Show()
End Sub
Private Sub pb_blue_picture_Click(sender As Object, e As EventArgs) Handles pb_blue_picture.Click
If IsNothing(pb_blue_picture.Image) Then
' Open Picture File
ResizePicture(pb_blue_picture, 500, 500)
' Store The Picture
blue.Person.UpdatePicture(pb_blue_picture)
ElseIf Not IsNothing(pb_blue_picture.Image) Then
Dim iPictureUpdate As DialogResult = MessageBox.Show("Would You Like To Update The Players Picture ?", "Picture Update", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If iPictureUpdate = DialogResult.Yes Then
' Open Picture File
ResizePicture(pb_blue_picture, 500, 500)
' Store The Picture
blue.Person.UpdatePicture(pb_blue_picture)
End If
End If
End Sub
Private Sub pb_referee_picture_Click(sender As Object, e As EventArgs) Handles pb_referee_picture.Click
If IsNothing(pb_referee_picture.Image) Then
' Open Picture File
ResizePicture(pb_referee_picture, 500, 500)
' Store The Picture
referee.UpdatePicture(pb_referee_picture)
ElseIf Not IsNothing(pb_referee_picture.Image) Then
Dim iPictureUpdate As DialogResult = MessageBox.Show("Would You Like To Update The Players Picture ?", "Picture Update", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If iPictureUpdate = DialogResult.Yes Then
' Open Picture File
ResizePicture(pb_referee_picture, 500, 500)
' Store The Picture
referee.UpdatePicture(pb_referee_picture)
End If
End If
End Sub
Private Sub pb_red_picture_Click(sender As Object, e As EventArgs) Handles pb_red_picture.Click
If IsNothing(pb_red_picture.Image) Then
' Open Picture File
ResizePicture(pb_red_picture, 500, 500)
' Store The Picture
red.Person.UpdatePicture(pb_red_picture)
ElseIf Not IsNothing(pb_red_picture.Image) Then
Dim iPictureUpdate As DialogResult = MessageBox.Show("Would You Like To Update The Players Picture ?", "Picture Update", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If iPictureUpdate = DialogResult.Yes Then
' Open Picture File
ResizePicture(pb_red_picture, 500, 500)
' Store The Picture
red.Person.UpdatePicture(pb_red_picture)
End If
End If
End Sub
Private Sub btn_start_Click(sender As Object, e As EventArgs) Handles btn_start.Click
' checking routine
If CheckEntry() = True Then
FriendlyMatch = New friendly_match(blue.Person.ID, red.Person.ID, referee.ID, 3)
frm_friendly_scorecontrol.Show()
Me.Hide()
End If
End Sub
Private Function CheckEntry() As Boolean
If blue.Person.ID = red.Person.ID Then
MsgBox("Blue & Red Fighters Can't Be The Same Person", vbOKOnly + vbCritical, "Fighters Selection Error")
Return False
ElseIf blue.Person.ID = referee.ID Then
MsgBox("Blue Fighter & Referee Can't Be The Same Person", vbOKOnly + vbCritical, "Fighter Referee Selection Error")
Return False
ElseIf red.Person.ID = referee.ID Then
MsgBox("Red Fighter & Referee Cant Be The Same Person", vbOKOnly + vbCritical, "Fighter Referee Selection Error")
Return False
Else
Return True
End If
End Function
End Class

View File

@ -0,0 +1,811 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_friendly_scorecontrol
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()
Me.components = New System.ComponentModel.Container()
Me.lbl_blue_gender = New System.Windows.Forms.Label()
Me.btn_end = New System.Windows.Forms.Button()
Me.btn_start = New System.Windows.Forms.Button()
Me.round_countdown = New System.Windows.Forms.Timer(Me.components)
Me.btn_red_ngf = New System.Windows.Forms.Button()
Me.btn_red_pgf = New System.Windows.Forms.Button()
Me.btn_blue_ngf = New System.Windows.Forms.Button()
Me.btn_blue_pgf = New System.Windows.Forms.Button()
Me.tmr_display = New System.Windows.Forms.Timer(Me.components)
Me.break_countdown = New System.Windows.Forms.Timer(Me.components)
Me.lbl_red_gender = New System.Windows.Forms.Label()
Me.lbl_red_weight_category = New System.Windows.Forms.Label()
Me.lbl_blue_weight_category = New System.Windows.Forms.Label()
Me.lbl_red_weight_class = New System.Windows.Forms.Label()
Me.lbl_blue_weight_class = New System.Windows.Forms.Label()
Me.btn_dec_match = New System.Windows.Forms.Button()
Me.btn_inc_match = New System.Windows.Forms.Button()
Me.pb_red_logo = New System.Windows.Forms.PictureBox()
Me.pb_blue_logo = New System.Windows.Forms.PictureBox()
Me.btn_red_dhkn = New System.Windows.Forms.Button()
Me.btn_red_dhkp = New System.Windows.Forms.Button()
Me.btn_red_sbkn = New System.Windows.Forms.Button()
Me.btn_red_sbkp = New System.Windows.Forms.Button()
Me.btn_red_dbkn = New System.Windows.Forms.Button()
Me.btn_red_dbkp = New System.Windows.Forms.Button()
Me.btn_red_shkn = New System.Windows.Forms.Button()
Me.btn_red_shkp = New System.Windows.Forms.Button()
Me.lbl_round = New System.Windows.Forms.Label()
Me.pb_red_flag = New System.Windows.Forms.PictureBox()
Me.lbl_red_gamjum = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.lbl_red_code_3 = New System.Windows.Forms.Label()
Me.btn_blue_dbkn = New System.Windows.Forms.Button()
Me.btn_blue_dbkp = New System.Windows.Forms.Button()
Me.btn_blue_sbkn = New System.Windows.Forms.Button()
Me.btn_blue_sbkp = New System.Windows.Forms.Button()
Me.btn_blue_dhkn = New System.Windows.Forms.Button()
Me.btn_blue_dhkp = New System.Windows.Forms.Button()
Me.btn_blue_shkn = New System.Windows.Forms.Button()
Me.btn_blue_shkp = New System.Windows.Forms.Button()
Me.lbl_match_number = New System.Windows.Forms.Label()
Me.lbl_time = New System.Windows.Forms.Label()
Me.lbl_court_number = New System.Windows.Forms.Label()
Me.lbl_red_team = New System.Windows.Forms.Label()
Me.lbl_red_score = New System.Windows.Forms.Label()
Me.lbl_red_fighter_name = New System.Windows.Forms.Label()
Me.pb_blue_flag = New System.Windows.Forms.PictureBox()
Me.lbl_blue_gamjum = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.lbl_blue_code_3 = New System.Windows.Forms.Label()
Me.lbl_blue_team = New System.Windows.Forms.Label()
Me.lbl_blue_score = New System.Windows.Forms.Label()
Me.lbl_blue_fighter_name = New System.Windows.Forms.Label()
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl_blue_gender
'
Me.lbl_blue_gender.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_gender.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_gender.ForeColor = System.Drawing.Color.Yellow
Me.lbl_blue_gender.Location = New System.Drawing.Point(135, 335)
Me.lbl_blue_gender.Name = "lbl_blue_gender"
Me.lbl_blue_gender.Size = New System.Drawing.Size(235, 30)
Me.lbl_blue_gender.TabIndex = 123
Me.lbl_blue_gender.Text = "Gender"
Me.lbl_blue_gender.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_end
'
Me.btn_end.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_end.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_end.ForeColor = System.Drawing.Color.White
Me.btn_end.Location = New System.Drawing.Point(375, 330)
Me.btn_end.Name = "btn_end"
Me.btn_end.Size = New System.Drawing.Size(85, 30)
Me.btn_end.TabIndex = 110
Me.btn_end.Text = "END"
Me.btn_end.UseVisualStyleBackColor = True
'
'btn_start
'
Me.btn_start.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_start.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_start.ForeColor = System.Drawing.Color.White
Me.btn_start.Location = New System.Drawing.Point(375, 295)
Me.btn_start.Name = "btn_start"
Me.btn_start.Size = New System.Drawing.Size(85, 30)
Me.btn_start.TabIndex = 109
Me.btn_start.Text = "START"
Me.btn_start.UseVisualStyleBackColor = True
'
'btn_red_ngf
'
Me.btn_red_ngf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_ngf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_ngf.ForeColor = System.Drawing.Color.White
Me.btn_red_ngf.Location = New System.Drawing.Point(705, 340)
Me.btn_red_ngf.Name = "btn_red_ngf"
Me.btn_red_ngf.Size = New System.Drawing.Size(25, 25)
Me.btn_red_ngf.TabIndex = 114
Me.btn_red_ngf.Text = "-"
Me.btn_red_ngf.UseVisualStyleBackColor = True
'
'btn_red_pgf
'
Me.btn_red_pgf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_pgf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_pgf.ForeColor = System.Drawing.Color.White
Me.btn_red_pgf.Location = New System.Drawing.Point(705, 310)
Me.btn_red_pgf.Name = "btn_red_pgf"
Me.btn_red_pgf.Size = New System.Drawing.Size(25, 25)
Me.btn_red_pgf.TabIndex = 113
Me.btn_red_pgf.Text = "+"
Me.btn_red_pgf.UseVisualStyleBackColor = True
'
'btn_blue_ngf
'
Me.btn_blue_ngf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_ngf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_ngf.ForeColor = System.Drawing.Color.White
Me.btn_blue_ngf.Location = New System.Drawing.Point(105, 340)
Me.btn_blue_ngf.Name = "btn_blue_ngf"
Me.btn_blue_ngf.Size = New System.Drawing.Size(25, 25)
Me.btn_blue_ngf.TabIndex = 112
Me.btn_blue_ngf.Text = "-"
Me.btn_blue_ngf.UseVisualStyleBackColor = True
'
'btn_blue_pgf
'
Me.btn_blue_pgf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_pgf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_pgf.ForeColor = System.Drawing.Color.White
Me.btn_blue_pgf.Location = New System.Drawing.Point(105, 310)
Me.btn_blue_pgf.Name = "btn_blue_pgf"
Me.btn_blue_pgf.Size = New System.Drawing.Size(25, 25)
Me.btn_blue_pgf.TabIndex = 111
Me.btn_blue_pgf.Text = "+"
Me.btn_blue_pgf.UseVisualStyleBackColor = True
'
'tmr_display
'
Me.tmr_display.Enabled = True
Me.tmr_display.Interval = 1
'
'lbl_red_gender
'
Me.lbl_red_gender.BackColor = System.Drawing.Color.Red
Me.lbl_red_gender.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_gender.ForeColor = System.Drawing.Color.Yellow
Me.lbl_red_gender.Location = New System.Drawing.Point(465, 335)
Me.lbl_red_gender.Name = "lbl_red_gender"
Me.lbl_red_gender.Size = New System.Drawing.Size(235, 30)
Me.lbl_red_gender.TabIndex = 124
Me.lbl_red_gender.Text = "Gender"
Me.lbl_red_gender.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_weight_category
'
Me.lbl_red_weight_category.BackColor = System.Drawing.Color.Red
Me.lbl_red_weight_category.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_weight_category.ForeColor = System.Drawing.Color.Yellow
Me.lbl_red_weight_category.Location = New System.Drawing.Point(635, 140)
Me.lbl_red_weight_category.Name = "lbl_red_weight_category"
Me.lbl_red_weight_category.Size = New System.Drawing.Size(95, 30)
Me.lbl_red_weight_category.TabIndex = 122
Me.lbl_red_weight_category.Text = "Category"
Me.lbl_red_weight_category.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_weight_category
'
Me.lbl_blue_weight_category.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_weight_category.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_weight_category.ForeColor = System.Drawing.Color.Yellow
Me.lbl_blue_weight_category.Location = New System.Drawing.Point(105, 140)
Me.lbl_blue_weight_category.Name = "lbl_blue_weight_category"
Me.lbl_blue_weight_category.Size = New System.Drawing.Size(95, 30)
Me.lbl_blue_weight_category.TabIndex = 121
Me.lbl_blue_weight_category.Text = "Category"
Me.lbl_blue_weight_category.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_weight_class
'
Me.lbl_red_weight_class.BackColor = System.Drawing.Color.Red
Me.lbl_red_weight_class.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_weight_class.ForeColor = System.Drawing.Color.Yellow
Me.lbl_red_weight_class.Location = New System.Drawing.Point(425, 140)
Me.lbl_red_weight_class.Name = "lbl_red_weight_class"
Me.lbl_red_weight_class.Size = New System.Drawing.Size(120, 30)
Me.lbl_red_weight_class.TabIndex = 120
Me.lbl_red_weight_class.Text = "Weight Class"
Me.lbl_red_weight_class.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_weight_class
'
Me.lbl_blue_weight_class.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_weight_class.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_weight_class.ForeColor = System.Drawing.Color.Yellow
Me.lbl_blue_weight_class.Location = New System.Drawing.Point(290, 140)
Me.lbl_blue_weight_class.Name = "lbl_blue_weight_class"
Me.lbl_blue_weight_class.Size = New System.Drawing.Size(120, 30)
Me.lbl_blue_weight_class.TabIndex = 119
Me.lbl_blue_weight_class.Text = "Weight Class"
Me.lbl_blue_weight_class.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_dec_match
'
Me.btn_dec_match.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_dec_match.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_dec_match.ForeColor = System.Drawing.Color.White
Me.btn_dec_match.Location = New System.Drawing.Point(800, 50)
Me.btn_dec_match.Name = "btn_dec_match"
Me.btn_dec_match.Size = New System.Drawing.Size(25, 25)
Me.btn_dec_match.TabIndex = 118
Me.btn_dec_match.Text = "-"
Me.btn_dec_match.UseVisualStyleBackColor = True
'
'btn_inc_match
'
Me.btn_inc_match.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_inc_match.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_inc_match.ForeColor = System.Drawing.Color.White
Me.btn_inc_match.Location = New System.Drawing.Point(800, 15)
Me.btn_inc_match.Name = "btn_inc_match"
Me.btn_inc_match.Size = New System.Drawing.Size(25, 25)
Me.btn_inc_match.TabIndex = 117
Me.btn_inc_match.Text = "+"
Me.btn_inc_match.UseVisualStyleBackColor = True
'
'pb_red_logo
'
Me.pb_red_logo.BackColor = System.Drawing.Color.Transparent
Me.pb_red_logo.Location = New System.Drawing.Point(740, 200)
Me.pb_red_logo.Name = "pb_red_logo"
Me.pb_red_logo.Size = New System.Drawing.Size(90, 90)
Me.pb_red_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_logo.TabIndex = 116
Me.pb_red_logo.TabStop = False
'
'pb_blue_logo
'
Me.pb_blue_logo.BackColor = System.Drawing.Color.Transparent
Me.pb_blue_logo.Location = New System.Drawing.Point(5, 200)
Me.pb_blue_logo.Name = "pb_blue_logo"
Me.pb_blue_logo.Size = New System.Drawing.Size(90, 90)
Me.pb_blue_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_logo.TabIndex = 115
Me.pb_blue_logo.TabStop = False
'
'btn_red_dhkn
'
Me.btn_red_dhkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_dhkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_dhkn.ForeColor = System.Drawing.Color.White
Me.btn_red_dhkn.Location = New System.Drawing.Point(630, 450)
Me.btn_red_dhkn.Name = "btn_red_dhkn"
Me.btn_red_dhkn.Size = New System.Drawing.Size(100, 25)
Me.btn_red_dhkn.TabIndex = 108
Me.btn_red_dhkn.Text = "Direct HK -"
Me.btn_red_dhkn.UseVisualStyleBackColor = True
'
'btn_red_dhkp
'
Me.btn_red_dhkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_dhkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_dhkp.ForeColor = System.Drawing.Color.White
Me.btn_red_dhkp.Location = New System.Drawing.Point(630, 420)
Me.btn_red_dhkp.Name = "btn_red_dhkp"
Me.btn_red_dhkp.Size = New System.Drawing.Size(100, 25)
Me.btn_red_dhkp.TabIndex = 107
Me.btn_red_dhkp.Text = "Direct HK +"
Me.btn_red_dhkp.UseVisualStyleBackColor = True
'
'btn_red_sbkn
'
Me.btn_red_sbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_sbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_sbkn.ForeColor = System.Drawing.Color.White
Me.btn_red_sbkn.Location = New System.Drawing.Point(525, 450)
Me.btn_red_sbkn.Name = "btn_red_sbkn"
Me.btn_red_sbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_red_sbkn.TabIndex = 106
Me.btn_red_sbkn.Text = "Spin BK -"
Me.btn_red_sbkn.UseVisualStyleBackColor = True
'
'btn_red_sbkp
'
Me.btn_red_sbkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_sbkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_sbkp.ForeColor = System.Drawing.Color.White
Me.btn_red_sbkp.Location = New System.Drawing.Point(525, 420)
Me.btn_red_sbkp.Name = "btn_red_sbkp"
Me.btn_red_sbkp.Size = New System.Drawing.Size(100, 25)
Me.btn_red_sbkp.TabIndex = 105
Me.btn_red_sbkp.Text = "Spin BK +"
Me.btn_red_sbkp.UseVisualStyleBackColor = True
'
'btn_red_dbkn
'
Me.btn_red_dbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_dbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_dbkn.ForeColor = System.Drawing.Color.White
Me.btn_red_dbkn.Location = New System.Drawing.Point(420, 450)
Me.btn_red_dbkn.Name = "btn_red_dbkn"
Me.btn_red_dbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_red_dbkn.TabIndex = 104
Me.btn_red_dbkn.Text = "Direct BK -"
Me.btn_red_dbkn.UseVisualStyleBackColor = True
'
'btn_red_dbkp
'
Me.btn_red_dbkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_dbkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_dbkp.ForeColor = System.Drawing.Color.White
Me.btn_red_dbkp.Location = New System.Drawing.Point(420, 420)
Me.btn_red_dbkp.Name = "btn_red_dbkp"
Me.btn_red_dbkp.Size = New System.Drawing.Size(100, 25)
Me.btn_red_dbkp.TabIndex = 103
Me.btn_red_dbkp.Text = "Direct BK +"
Me.btn_red_dbkp.UseVisualStyleBackColor = True
'
'btn_red_shkn
'
Me.btn_red_shkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_shkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_shkn.ForeColor = System.Drawing.Color.White
Me.btn_red_shkn.Location = New System.Drawing.Point(735, 450)
Me.btn_red_shkn.Name = "btn_red_shkn"
Me.btn_red_shkn.Size = New System.Drawing.Size(95, 25)
Me.btn_red_shkn.TabIndex = 102
Me.btn_red_shkn.Text = "Spin HK -"
Me.btn_red_shkn.UseVisualStyleBackColor = True
'
'btn_red_shkp
'
Me.btn_red_shkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_shkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_shkp.ForeColor = System.Drawing.Color.White
Me.btn_red_shkp.Location = New System.Drawing.Point(735, 420)
Me.btn_red_shkp.Name = "btn_red_shkp"
Me.btn_red_shkp.Size = New System.Drawing.Size(95, 25)
Me.btn_red_shkp.TabIndex = 101
Me.btn_red_shkp.Text = "Spin HK +"
Me.btn_red_shkp.UseVisualStyleBackColor = True
'
'lbl_round
'
Me.lbl_round.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lbl_round.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_round.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_round.ForeColor = System.Drawing.Color.Lime
Me.lbl_round.Location = New System.Drawing.Point(375, 185)
Me.lbl_round.Name = "lbl_round"
Me.lbl_round.Size = New System.Drawing.Size(85, 100)
Me.lbl_round.TabIndex = 100
Me.lbl_round.Text = "1"
Me.lbl_round.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pb_red_flag
'
Me.pb_red_flag.BackColor = System.Drawing.Color.Transparent
Me.pb_red_flag.Location = New System.Drawing.Point(740, 135)
Me.pb_red_flag.Name = "pb_red_flag"
Me.pb_red_flag.Size = New System.Drawing.Size(90, 60)
Me.pb_red_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_flag.TabIndex = 99
Me.pb_red_flag.TabStop = False
'
'lbl_red_gamjum
'
Me.lbl_red_gamjum.BackColor = System.Drawing.Color.Red
Me.lbl_red_gamjum.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_gamjum.Font = New System.Drawing.Font("Microsoft Sans Serif", 52.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_gamjum.ForeColor = System.Drawing.Color.White
Me.lbl_red_gamjum.Location = New System.Drawing.Point(740, 340)
Me.lbl_red_gamjum.Name = "lbl_red_gamjum"
Me.lbl_red_gamjum.Size = New System.Drawing.Size(90, 75)
Me.lbl_red_gamjum.TabIndex = 98
Me.lbl_red_gamjum.Text = "00"
Me.lbl_red_gamjum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label5
'
Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(740, 295)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(90, 40)
Me.Label5.TabIndex = 97
Me.Label5.Text = "GAMJUM"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_code_3
'
Me.lbl_red_code_3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_code_3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_code_3.ForeColor = System.Drawing.Color.White
Me.lbl_red_code_3.Location = New System.Drawing.Point(740, 90)
Me.lbl_red_code_3.Name = "lbl_red_code_3"
Me.lbl_red_code_3.Size = New System.Drawing.Size(90, 40)
Me.lbl_red_code_3.TabIndex = 96
Me.lbl_red_code_3.Text = "ISO3"
Me.lbl_red_code_3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_blue_dbkn
'
Me.btn_blue_dbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dbkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_dbkn.Location = New System.Drawing.Point(315, 450)
Me.btn_blue_dbkn.Name = "btn_blue_dbkn"
Me.btn_blue_dbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dbkn.TabIndex = 95
Me.btn_blue_dbkn.Text = "- Direct BK"
Me.btn_blue_dbkn.UseVisualStyleBackColor = True
'
'btn_blue_dbkp
'
Me.btn_blue_dbkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dbkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dbkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_dbkp.Location = New System.Drawing.Point(315, 420)
Me.btn_blue_dbkp.Name = "btn_blue_dbkp"
Me.btn_blue_dbkp.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dbkp.TabIndex = 94
Me.btn_blue_dbkp.Text = "+ Direct BK"
Me.btn_blue_dbkp.UseVisualStyleBackColor = True
'
'btn_blue_sbkn
'
Me.btn_blue_sbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_sbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_sbkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_sbkn.Location = New System.Drawing.Point(210, 450)
Me.btn_blue_sbkn.Name = "btn_blue_sbkn"
Me.btn_blue_sbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_sbkn.TabIndex = 93
Me.btn_blue_sbkn.Text = "- Spin BK"
Me.btn_blue_sbkn.UseVisualStyleBackColor = True
'
'btn_blue_sbkp
'
Me.btn_blue_sbkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_sbkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_sbkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_sbkp.Location = New System.Drawing.Point(210, 420)
Me.btn_blue_sbkp.Name = "btn_blue_sbkp"
Me.btn_blue_sbkp.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_sbkp.TabIndex = 92
Me.btn_blue_sbkp.Text = "+ Spin BK"
Me.btn_blue_sbkp.UseVisualStyleBackColor = True
'
'btn_blue_dhkn
'
Me.btn_blue_dhkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dhkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dhkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_dhkn.Location = New System.Drawing.Point(105, 450)
Me.btn_blue_dhkn.Name = "btn_blue_dhkn"
Me.btn_blue_dhkn.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dhkn.TabIndex = 91
Me.btn_blue_dhkn.Text = "- Direct HK"
Me.btn_blue_dhkn.UseVisualStyleBackColor = True
'
'btn_blue_dhkp
'
Me.btn_blue_dhkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dhkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dhkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_dhkp.Location = New System.Drawing.Point(105, 420)
Me.btn_blue_dhkp.Name = "btn_blue_dhkp"
Me.btn_blue_dhkp.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dhkp.TabIndex = 90
Me.btn_blue_dhkp.Text = "+ Direct HK"
Me.btn_blue_dhkp.UseVisualStyleBackColor = True
'
'btn_blue_shkn
'
Me.btn_blue_shkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_shkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_shkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_shkn.Location = New System.Drawing.Point(5, 450)
Me.btn_blue_shkn.Name = "btn_blue_shkn"
Me.btn_blue_shkn.Size = New System.Drawing.Size(95, 25)
Me.btn_blue_shkn.TabIndex = 89
Me.btn_blue_shkn.Text = "- Spin HK"
Me.btn_blue_shkn.UseVisualStyleBackColor = True
'
'btn_blue_shkp
'
Me.btn_blue_shkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_shkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_shkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_shkp.Location = New System.Drawing.Point(5, 420)
Me.btn_blue_shkp.Name = "btn_blue_shkp"
Me.btn_blue_shkp.Size = New System.Drawing.Size(95, 25)
Me.btn_blue_shkp.TabIndex = 88
Me.btn_blue_shkp.Text = "+ Spin HK"
Me.btn_blue_shkp.UseVisualStyleBackColor = True
'
'lbl_match_number
'
Me.lbl_match_number.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_match_number.Font = New System.Drawing.Font("Microsoft Sans Serif", 75.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_match_number.ForeColor = System.Drawing.Color.Yellow
Me.lbl_match_number.Location = New System.Drawing.Point(555, 5)
Me.lbl_match_number.Name = "lbl_match_number"
Me.lbl_match_number.Size = New System.Drawing.Size(275, 80)
Me.lbl_match_number.TabIndex = 87
Me.lbl_match_number.Text = "M000"
Me.lbl_match_number.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_time
'
Me.lbl_time.Font = New System.Drawing.Font("Microsoft Sans Serif", 85.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_time.ForeColor = System.Drawing.Color.Lime
Me.lbl_time.Location = New System.Drawing.Point(285, -5)
Me.lbl_time.Name = "lbl_time"
Me.lbl_time.Size = New System.Drawing.Size(265, 95)
Me.lbl_time.TabIndex = 86
Me.lbl_time.Text = "00:00"
Me.lbl_time.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_court_number
'
Me.lbl_court_number.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_court_number.Font = New System.Drawing.Font("Microsoft Sans Serif", 75.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_court_number.ForeColor = System.Drawing.Color.Yellow
Me.lbl_court_number.Location = New System.Drawing.Point(5, 5)
Me.lbl_court_number.Name = "lbl_court_number"
Me.lbl_court_number.Size = New System.Drawing.Size(275, 80)
Me.lbl_court_number.TabIndex = 85
Me.lbl_court_number.Text = "C000"
Me.lbl_court_number.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_team
'
Me.lbl_red_team.BackColor = System.Drawing.Color.Red
Me.lbl_red_team.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_team.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_team.ForeColor = System.Drawing.Color.White
Me.lbl_red_team.Location = New System.Drawing.Point(420, 375)
Me.lbl_red_team.Name = "lbl_red_team"
Me.lbl_red_team.Size = New System.Drawing.Size(315, 40)
Me.lbl_red_team.TabIndex = 84
Me.lbl_red_team.Text = "BLUE TEAM"
Me.lbl_red_team.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_score
'
Me.lbl_red_score.BackColor = System.Drawing.Color.Red
Me.lbl_red_score.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_score.Font = New System.Drawing.Font("Microsoft Sans Serif", 170.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_score.ForeColor = System.Drawing.Color.White
Me.lbl_red_score.Location = New System.Drawing.Point(420, 135)
Me.lbl_red_score.Name = "lbl_red_score"
Me.lbl_red_score.Size = New System.Drawing.Size(315, 235)
Me.lbl_red_score.TabIndex = 83
Me.lbl_red_score.Text = "00"
Me.lbl_red_score.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_fighter_name
'
Me.lbl_red_fighter_name.BackColor = System.Drawing.Color.Red
Me.lbl_red_fighter_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_fighter_name.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_red_fighter_name.ForeColor = System.Drawing.Color.White
Me.lbl_red_fighter_name.Location = New System.Drawing.Point(420, 90)
Me.lbl_red_fighter_name.Name = "lbl_red_fighter_name"
Me.lbl_red_fighter_name.Size = New System.Drawing.Size(315, 40)
Me.lbl_red_fighter_name.TabIndex = 82
Me.lbl_red_fighter_name.Text = "RED FIGHTER"
Me.lbl_red_fighter_name.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pb_blue_flag
'
Me.pb_blue_flag.BackColor = System.Drawing.Color.Transparent
Me.pb_blue_flag.Location = New System.Drawing.Point(5, 135)
Me.pb_blue_flag.Name = "pb_blue_flag"
Me.pb_blue_flag.Size = New System.Drawing.Size(90, 60)
Me.pb_blue_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_flag.TabIndex = 81
Me.pb_blue_flag.TabStop = False
'
'lbl_blue_gamjum
'
Me.lbl_blue_gamjum.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_gamjum.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_gamjum.Font = New System.Drawing.Font("Microsoft Sans Serif", 52.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_gamjum.ForeColor = System.Drawing.Color.White
Me.lbl_blue_gamjum.Location = New System.Drawing.Point(5, 340)
Me.lbl_blue_gamjum.Name = "lbl_blue_gamjum"
Me.lbl_blue_gamjum.Size = New System.Drawing.Size(90, 75)
Me.lbl_blue_gamjum.TabIndex = 80
Me.lbl_blue_gamjum.Text = "00"
Me.lbl_blue_gamjum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label11
'
Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.ForeColor = System.Drawing.Color.White
Me.Label11.Location = New System.Drawing.Point(5, 295)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(90, 40)
Me.Label11.TabIndex = 79
Me.Label11.Text = "GAMJUM"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_code_3
'
Me.lbl_blue_code_3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_code_3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_code_3.ForeColor = System.Drawing.Color.White
Me.lbl_blue_code_3.Location = New System.Drawing.Point(5, 90)
Me.lbl_blue_code_3.Name = "lbl_blue_code_3"
Me.lbl_blue_code_3.Size = New System.Drawing.Size(90, 40)
Me.lbl_blue_code_3.TabIndex = 78
Me.lbl_blue_code_3.Text = "ISO3"
Me.lbl_blue_code_3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_team
'
Me.lbl_blue_team.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_team.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_team.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_team.ForeColor = System.Drawing.Color.White
Me.lbl_blue_team.Location = New System.Drawing.Point(100, 375)
Me.lbl_blue_team.Name = "lbl_blue_team"
Me.lbl_blue_team.Size = New System.Drawing.Size(315, 40)
Me.lbl_blue_team.TabIndex = 77
Me.lbl_blue_team.Text = "BLUE TEAM"
Me.lbl_blue_team.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_score
'
Me.lbl_blue_score.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_score.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_score.Font = New System.Drawing.Font("Microsoft Sans Serif", 170.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_score.ForeColor = System.Drawing.Color.White
Me.lbl_blue_score.Location = New System.Drawing.Point(100, 135)
Me.lbl_blue_score.Name = "lbl_blue_score"
Me.lbl_blue_score.Size = New System.Drawing.Size(315, 235)
Me.lbl_blue_score.TabIndex = 76
Me.lbl_blue_score.Text = "00"
Me.lbl_blue_score.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_fighter_name
'
Me.lbl_blue_fighter_name.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_fighter_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_fighter_name.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_blue_fighter_name.ForeColor = System.Drawing.Color.White
Me.lbl_blue_fighter_name.Location = New System.Drawing.Point(100, 90)
Me.lbl_blue_fighter_name.Name = "lbl_blue_fighter_name"
Me.lbl_blue_fighter_name.Size = New System.Drawing.Size(315, 40)
Me.lbl_blue_fighter_name.TabIndex = 75
Me.lbl_blue_fighter_name.Text = "BLUE FIGHTER"
Me.lbl_blue_fighter_name.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'frm_friendly_scorecontrol
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(836, 481)
Me.Controls.Add(Me.lbl_blue_gender)
Me.Controls.Add(Me.btn_end)
Me.Controls.Add(Me.btn_start)
Me.Controls.Add(Me.btn_red_ngf)
Me.Controls.Add(Me.btn_red_pgf)
Me.Controls.Add(Me.btn_blue_ngf)
Me.Controls.Add(Me.btn_blue_pgf)
Me.Controls.Add(Me.lbl_red_gender)
Me.Controls.Add(Me.lbl_red_weight_category)
Me.Controls.Add(Me.lbl_blue_weight_category)
Me.Controls.Add(Me.lbl_red_weight_class)
Me.Controls.Add(Me.lbl_blue_weight_class)
Me.Controls.Add(Me.btn_dec_match)
Me.Controls.Add(Me.btn_inc_match)
Me.Controls.Add(Me.pb_red_logo)
Me.Controls.Add(Me.pb_blue_logo)
Me.Controls.Add(Me.btn_red_dhkn)
Me.Controls.Add(Me.btn_red_dhkp)
Me.Controls.Add(Me.btn_red_sbkn)
Me.Controls.Add(Me.btn_red_sbkp)
Me.Controls.Add(Me.btn_red_dbkn)
Me.Controls.Add(Me.btn_red_dbkp)
Me.Controls.Add(Me.btn_red_shkn)
Me.Controls.Add(Me.btn_red_shkp)
Me.Controls.Add(Me.lbl_round)
Me.Controls.Add(Me.pb_red_flag)
Me.Controls.Add(Me.lbl_red_gamjum)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.lbl_red_code_3)
Me.Controls.Add(Me.btn_blue_dbkn)
Me.Controls.Add(Me.btn_blue_dbkp)
Me.Controls.Add(Me.btn_blue_sbkn)
Me.Controls.Add(Me.btn_blue_sbkp)
Me.Controls.Add(Me.btn_blue_dhkn)
Me.Controls.Add(Me.btn_blue_dhkp)
Me.Controls.Add(Me.btn_blue_shkn)
Me.Controls.Add(Me.btn_blue_shkp)
Me.Controls.Add(Me.lbl_match_number)
Me.Controls.Add(Me.lbl_time)
Me.Controls.Add(Me.lbl_court_number)
Me.Controls.Add(Me.lbl_red_team)
Me.Controls.Add(Me.lbl_red_score)
Me.Controls.Add(Me.lbl_red_fighter_name)
Me.Controls.Add(Me.pb_blue_flag)
Me.Controls.Add(Me.lbl_blue_gamjum)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.lbl_blue_code_3)
Me.Controls.Add(Me.lbl_blue_team)
Me.Controls.Add(Me.lbl_blue_score)
Me.Controls.Add(Me.lbl_blue_fighter_name)
Me.ForeColor = System.Drawing.Color.White
Me.Name = "frm_friendly_scorecontrol"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "testForm"
CType(Me.pb_red_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_blue_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents lbl_blue_gender As Label
Friend WithEvents btn_end As Button
Friend WithEvents btn_start As Button
Friend WithEvents round_countdown As Timer
Friend WithEvents btn_red_ngf As Button
Friend WithEvents btn_red_pgf As Button
Friend WithEvents btn_blue_ngf As Button
Friend WithEvents btn_blue_pgf As Button
Friend WithEvents tmr_display As Timer
Friend WithEvents break_countdown As Timer
Friend WithEvents lbl_red_gender As Label
Friend WithEvents lbl_red_weight_category As Label
Friend WithEvents lbl_blue_weight_category As Label
Friend WithEvents lbl_red_weight_class As Label
Friend WithEvents lbl_blue_weight_class As Label
Friend WithEvents btn_dec_match As Button
Friend WithEvents btn_inc_match As Button
Friend WithEvents pb_red_logo As PictureBox
Friend WithEvents pb_blue_logo As PictureBox
Friend WithEvents btn_red_dhkn As Button
Friend WithEvents btn_red_dhkp As Button
Friend WithEvents btn_red_sbkn As Button
Friend WithEvents btn_red_sbkp As Button
Friend WithEvents btn_red_dbkn As Button
Friend WithEvents btn_red_dbkp As Button
Friend WithEvents btn_red_shkn As Button
Friend WithEvents btn_red_shkp As Button
Friend WithEvents lbl_round As Label
Friend WithEvents pb_red_flag As PictureBox
Friend WithEvents lbl_red_gamjum As Label
Friend WithEvents Label5 As Label
Friend WithEvents lbl_red_code_3 As Label
Friend WithEvents btn_blue_dbkn As Button
Friend WithEvents btn_blue_dbkp As Button
Friend WithEvents btn_blue_sbkn As Button
Friend WithEvents btn_blue_sbkp As Button
Friend WithEvents btn_blue_dhkn As Button
Friend WithEvents btn_blue_dhkp As Button
Friend WithEvents btn_blue_shkn As Button
Friend WithEvents btn_blue_shkp As Button
Friend WithEvents lbl_match_number As Label
Friend WithEvents lbl_time As Label
Friend WithEvents lbl_court_number As Label
Friend WithEvents lbl_red_team As Label
Friend WithEvents lbl_red_score As Label
Friend WithEvents lbl_red_fighter_name As Label
Friend WithEvents pb_blue_flag As PictureBox
Friend WithEvents lbl_blue_gamjum As Label
Friend WithEvents Label11 As Label
Friend WithEvents lbl_blue_code_3 As Label
Friend WithEvents lbl_blue_team As Label
Friend WithEvents lbl_blue_score As Label
Friend WithEvents lbl_blue_fighter_name As Label
End Class

View File

@ -0,0 +1,129 @@
<?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>
<metadata name="round_countdown.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>419, 14</value>
</metadata>
<metadata name="tmr_display.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>570, 14</value>
</metadata>
<metadata name="break_countdown.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>684, 14</value>
</metadata>
</root>

View File

@ -0,0 +1,11 @@
Imports System.ComponentModel
Public Class frm_friendly_scorecontrol
Private Sub frm_friendly_scorecontrol_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
frm_friendly_match.Show()
End Sub
End Class

View File

@ -0,0 +1,790 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_scorecontrol
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()
Me.components = New System.ComponentModel.Container()
Me.lbl_blue_fighter_name = New System.Windows.Forms.Label()
Me.lbl_blue_score = New System.Windows.Forms.Label()
Me.lbl_blue_team = New System.Windows.Forms.Label()
Me.lbl_blue_code_3 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.lbl_blue_kfaul = New System.Windows.Forms.Label()
Me.lbl_blue_gfaul = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.pb_blue_flag = New System.Windows.Forms.PictureBox()
Me.lbl_red_team = New System.Windows.Forms.Label()
Me.lbl_red_score = New System.Windows.Forms.Label()
Me.lbl_red_fighter_name = New System.Windows.Forms.Label()
Me.lbl_weight_class = New System.Windows.Forms.Label()
Me.lbl_time = New System.Windows.Forms.Label()
Me.lbl_match_number = New System.Windows.Forms.Label()
Me.btn_blue_shkp = New System.Windows.Forms.Button()
Me.btn_blue_shkn = New System.Windows.Forms.Button()
Me.btn_blue_dhkn = New System.Windows.Forms.Button()
Me.btn_blue_dhkp = New System.Windows.Forms.Button()
Me.btn_blue_sbkn = New System.Windows.Forms.Button()
Me.btn_blue_sbkp = New System.Windows.Forms.Button()
Me.btn_blue_dbkn = New System.Windows.Forms.Button()
Me.btn_blue_dbkp = New System.Windows.Forms.Button()
Me.pb_red_flag = New System.Windows.Forms.PictureBox()
Me.lbl_red_gfaul = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.lbl_red_kfaul = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.lbl_red_code_3 = New System.Windows.Forms.Label()
Me.lbl_round = New System.Windows.Forms.Label()
Me.btn_red_dhkn = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.btn_red_sbkn = New System.Windows.Forms.Button()
Me.Button12 = New System.Windows.Forms.Button()
Me.btn_red_dbkn = New System.Windows.Forms.Button()
Me.Button14 = New System.Windows.Forms.Button()
Me.btn_red_shkn = New System.Windows.Forms.Button()
Me.Button16 = New System.Windows.Forms.Button()
Me.tmr_display = New System.Windows.Forms.Timer(Me.components)
Me.btn_start = New System.Windows.Forms.Button()
Me.btn_end = New System.Windows.Forms.Button()
Me.round_countdown = New System.Windows.Forms.Timer(Me.components)
Me.btn_blue_pkf = New System.Windows.Forms.Button()
Me.btn_blue_nkf = New System.Windows.Forms.Button()
Me.btn_blue_ngf = New System.Windows.Forms.Button()
Me.btn_blue_pgf = New System.Windows.Forms.Button()
Me.btn_red_ngf = New System.Windows.Forms.Button()
Me.btn_red_pgf = New System.Windows.Forms.Button()
Me.btn_red_nkf = New System.Windows.Forms.Button()
Me.btn_red_pkf = New System.Windows.Forms.Button()
Me.break_countdown = New System.Windows.Forms.Timer(Me.components)
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl_blue_fighter_name
'
Me.lbl_blue_fighter_name.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_fighter_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_fighter_name.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_fighter_name.ForeColor = System.Drawing.Color.White
Me.lbl_blue_fighter_name.Location = New System.Drawing.Point(100, 90)
Me.lbl_blue_fighter_name.Name = "lbl_blue_fighter_name"
Me.lbl_blue_fighter_name.Size = New System.Drawing.Size(315, 40)
Me.lbl_blue_fighter_name.TabIndex = 0
Me.lbl_blue_fighter_name.Text = "BLUE FIGHTER"
Me.lbl_blue_fighter_name.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_score
'
Me.lbl_blue_score.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_score.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_score.Font = New System.Drawing.Font("Microsoft Sans Serif", 170.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_score.ForeColor = System.Drawing.Color.White
Me.lbl_blue_score.Location = New System.Drawing.Point(100, 135)
Me.lbl_blue_score.Name = "lbl_blue_score"
Me.lbl_blue_score.Size = New System.Drawing.Size(315, 235)
Me.lbl_blue_score.TabIndex = 0
Me.lbl_blue_score.Text = "00"
Me.lbl_blue_score.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_team
'
Me.lbl_blue_team.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_team.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_team.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_team.ForeColor = System.Drawing.Color.White
Me.lbl_blue_team.Location = New System.Drawing.Point(100, 375)
Me.lbl_blue_team.Name = "lbl_blue_team"
Me.lbl_blue_team.Size = New System.Drawing.Size(315, 40)
Me.lbl_blue_team.TabIndex = 2
Me.lbl_blue_team.Text = "BLUE TEAM"
Me.lbl_blue_team.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_code_3
'
Me.lbl_blue_code_3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_code_3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_code_3.ForeColor = System.Drawing.Color.White
Me.lbl_blue_code_3.Location = New System.Drawing.Point(5, 90)
Me.lbl_blue_code_3.Name = "lbl_blue_code_3"
Me.lbl_blue_code_3.Size = New System.Drawing.Size(90, 40)
Me.lbl_blue_code_3.TabIndex = 6
Me.lbl_blue_code_3.Text = "CTRY"
Me.lbl_blue_code_3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label8
'
Me.Label8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(5, 200)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(90, 40)
Me.Label8.TabIndex = 7
Me.Label8.Text = "KFAUL"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_kfaul
'
Me.lbl_blue_kfaul.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_kfaul.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_kfaul.Font = New System.Drawing.Font("Microsoft Sans Serif", 52.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_kfaul.ForeColor = System.Drawing.Color.White
Me.lbl_blue_kfaul.Location = New System.Drawing.Point(5, 245)
Me.lbl_blue_kfaul.Name = "lbl_blue_kfaul"
Me.lbl_blue_kfaul.Size = New System.Drawing.Size(90, 60)
Me.lbl_blue_kfaul.TabIndex = 8
Me.lbl_blue_kfaul.Text = "00"
Me.lbl_blue_kfaul.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_blue_gfaul
'
Me.lbl_blue_gfaul.BackColor = System.Drawing.Color.Blue
Me.lbl_blue_gfaul.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_blue_gfaul.Font = New System.Drawing.Font("Microsoft Sans Serif", 52.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_blue_gfaul.ForeColor = System.Drawing.Color.White
Me.lbl_blue_gfaul.Location = New System.Drawing.Point(5, 355)
Me.lbl_blue_gfaul.Name = "lbl_blue_gfaul"
Me.lbl_blue_gfaul.Size = New System.Drawing.Size(90, 60)
Me.lbl_blue_gfaul.TabIndex = 10
Me.lbl_blue_gfaul.Text = "00"
Me.lbl_blue_gfaul.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label11
'
Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Label11.ForeColor = System.Drawing.Color.White
Me.Label11.Location = New System.Drawing.Point(5, 310)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(90, 40)
Me.Label11.TabIndex = 9
Me.Label11.Text = "GFAUL"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pb_blue_flag
'
Me.pb_blue_flag.BackColor = System.Drawing.Color.Blue
Me.pb_blue_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_blue_flag.Location = New System.Drawing.Point(5, 135)
Me.pb_blue_flag.Name = "pb_blue_flag"
Me.pb_blue_flag.Size = New System.Drawing.Size(90, 60)
Me.pb_blue_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_blue_flag.TabIndex = 11
Me.pb_blue_flag.TabStop = False
'
'lbl_red_team
'
Me.lbl_red_team.BackColor = System.Drawing.Color.Red
Me.lbl_red_team.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_team.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_team.ForeColor = System.Drawing.Color.White
Me.lbl_red_team.Location = New System.Drawing.Point(420, 375)
Me.lbl_red_team.Name = "lbl_red_team"
Me.lbl_red_team.Size = New System.Drawing.Size(315, 40)
Me.lbl_red_team.TabIndex = 14
Me.lbl_red_team.Text = "BLUE TEAM"
Me.lbl_red_team.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_score
'
Me.lbl_red_score.BackColor = System.Drawing.Color.Red
Me.lbl_red_score.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_score.Font = New System.Drawing.Font("Microsoft Sans Serif", 170.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_score.ForeColor = System.Drawing.Color.White
Me.lbl_red_score.Location = New System.Drawing.Point(420, 135)
Me.lbl_red_score.Name = "lbl_red_score"
Me.lbl_red_score.Size = New System.Drawing.Size(315, 235)
Me.lbl_red_score.TabIndex = 13
Me.lbl_red_score.Text = "00"
Me.lbl_red_score.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_fighter_name
'
Me.lbl_red_fighter_name.BackColor = System.Drawing.Color.Red
Me.lbl_red_fighter_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_fighter_name.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_fighter_name.ForeColor = System.Drawing.Color.White
Me.lbl_red_fighter_name.Location = New System.Drawing.Point(420, 90)
Me.lbl_red_fighter_name.Name = "lbl_red_fighter_name"
Me.lbl_red_fighter_name.Size = New System.Drawing.Size(315, 40)
Me.lbl_red_fighter_name.TabIndex = 12
Me.lbl_red_fighter_name.Text = "RED FIGHTER"
Me.lbl_red_fighter_name.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_weight_class
'
Me.lbl_weight_class.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_weight_class.Font = New System.Drawing.Font("Microsoft Sans Serif", 75.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_weight_class.ForeColor = System.Drawing.Color.Yellow
Me.lbl_weight_class.Location = New System.Drawing.Point(5, 5)
Me.lbl_weight_class.Name = "lbl_weight_class"
Me.lbl_weight_class.Size = New System.Drawing.Size(275, 80)
Me.lbl_weight_class.TabIndex = 21
Me.lbl_weight_class.Text = "C000"
Me.lbl_weight_class.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_time
'
Me.lbl_time.Font = New System.Drawing.Font("Microsoft Sans Serif", 85.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_time.ForeColor = System.Drawing.Color.Lime
Me.lbl_time.Location = New System.Drawing.Point(285, -5)
Me.lbl_time.Name = "lbl_time"
Me.lbl_time.Size = New System.Drawing.Size(265, 95)
Me.lbl_time.TabIndex = 22
Me.lbl_time.Text = "00:00"
Me.lbl_time.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_match_number
'
Me.lbl_match_number.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_match_number.Font = New System.Drawing.Font("Microsoft Sans Serif", 75.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_match_number.ForeColor = System.Drawing.Color.Yellow
Me.lbl_match_number.Location = New System.Drawing.Point(555, 5)
Me.lbl_match_number.Name = "lbl_match_number"
Me.lbl_match_number.Size = New System.Drawing.Size(275, 80)
Me.lbl_match_number.TabIndex = 23
Me.lbl_match_number.Text = "M000"
Me.lbl_match_number.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_blue_shkp
'
Me.btn_blue_shkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_shkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_shkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_shkp.Location = New System.Drawing.Point(5, 420)
Me.btn_blue_shkp.Name = "btn_blue_shkp"
Me.btn_blue_shkp.Size = New System.Drawing.Size(95, 25)
Me.btn_blue_shkp.TabIndex = 24
Me.btn_blue_shkp.Text = "+ Spin HK"
Me.btn_blue_shkp.UseVisualStyleBackColor = True
'
'btn_blue_shkn
'
Me.btn_blue_shkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_shkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_shkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_shkn.Location = New System.Drawing.Point(5, 450)
Me.btn_blue_shkn.Name = "btn_blue_shkn"
Me.btn_blue_shkn.Size = New System.Drawing.Size(95, 25)
Me.btn_blue_shkn.TabIndex = 25
Me.btn_blue_shkn.Text = "- Spin HK"
Me.btn_blue_shkn.UseVisualStyleBackColor = True
'
'btn_blue_dhkn
'
Me.btn_blue_dhkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dhkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dhkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_dhkn.Location = New System.Drawing.Point(105, 450)
Me.btn_blue_dhkn.Name = "btn_blue_dhkn"
Me.btn_blue_dhkn.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dhkn.TabIndex = 27
Me.btn_blue_dhkn.Text = "- Direct HK"
Me.btn_blue_dhkn.UseVisualStyleBackColor = True
'
'btn_blue_dhkp
'
Me.btn_blue_dhkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dhkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dhkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_dhkp.Location = New System.Drawing.Point(105, 420)
Me.btn_blue_dhkp.Name = "btn_blue_dhkp"
Me.btn_blue_dhkp.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dhkp.TabIndex = 26
Me.btn_blue_dhkp.Text = "+ Direct HK"
Me.btn_blue_dhkp.UseVisualStyleBackColor = True
'
'btn_blue_sbkn
'
Me.btn_blue_sbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_sbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_sbkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_sbkn.Location = New System.Drawing.Point(210, 450)
Me.btn_blue_sbkn.Name = "btn_blue_sbkn"
Me.btn_blue_sbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_sbkn.TabIndex = 29
Me.btn_blue_sbkn.Text = "- Spin BK"
Me.btn_blue_sbkn.UseVisualStyleBackColor = True
'
'btn_blue_sbkp
'
Me.btn_blue_sbkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_sbkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_sbkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_sbkp.Location = New System.Drawing.Point(210, 420)
Me.btn_blue_sbkp.Name = "btn_blue_sbkp"
Me.btn_blue_sbkp.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_sbkp.TabIndex = 28
Me.btn_blue_sbkp.Text = "+ Spin BK"
Me.btn_blue_sbkp.UseVisualStyleBackColor = True
'
'btn_blue_dbkn
'
Me.btn_blue_dbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dbkn.ForeColor = System.Drawing.Color.White
Me.btn_blue_dbkn.Location = New System.Drawing.Point(315, 450)
Me.btn_blue_dbkn.Name = "btn_blue_dbkn"
Me.btn_blue_dbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dbkn.TabIndex = 31
Me.btn_blue_dbkn.Text = "- Direct BK"
Me.btn_blue_dbkn.UseVisualStyleBackColor = True
'
'btn_blue_dbkp
'
Me.btn_blue_dbkp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_dbkp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_dbkp.ForeColor = System.Drawing.Color.White
Me.btn_blue_dbkp.Location = New System.Drawing.Point(315, 420)
Me.btn_blue_dbkp.Name = "btn_blue_dbkp"
Me.btn_blue_dbkp.Size = New System.Drawing.Size(100, 25)
Me.btn_blue_dbkp.TabIndex = 30
Me.btn_blue_dbkp.Text = "+ Direct BK"
Me.btn_blue_dbkp.UseVisualStyleBackColor = True
'
'pb_red_flag
'
Me.pb_red_flag.BackColor = System.Drawing.Color.Red
Me.pb_red_flag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pb_red_flag.Location = New System.Drawing.Point(740, 135)
Me.pb_red_flag.Name = "pb_red_flag"
Me.pb_red_flag.Size = New System.Drawing.Size(90, 60)
Me.pb_red_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_red_flag.TabIndex = 45
Me.pb_red_flag.TabStop = False
'
'lbl_red_gfaul
'
Me.lbl_red_gfaul.BackColor = System.Drawing.Color.Red
Me.lbl_red_gfaul.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_gfaul.Font = New System.Drawing.Font("Microsoft Sans Serif", 52.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_gfaul.ForeColor = System.Drawing.Color.White
Me.lbl_red_gfaul.Location = New System.Drawing.Point(740, 355)
Me.lbl_red_gfaul.Name = "lbl_red_gfaul"
Me.lbl_red_gfaul.Size = New System.Drawing.Size(90, 60)
Me.lbl_red_gfaul.TabIndex = 44
Me.lbl_red_gfaul.Text = "00"
Me.lbl_red_gfaul.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label5
'
Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(740, 310)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(90, 40)
Me.Label5.TabIndex = 43
Me.Label5.Text = "GFAUL"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_kfaul
'
Me.lbl_red_kfaul.BackColor = System.Drawing.Color.Red
Me.lbl_red_kfaul.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_kfaul.Font = New System.Drawing.Font("Microsoft Sans Serif", 52.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_kfaul.ForeColor = System.Drawing.Color.White
Me.lbl_red_kfaul.Location = New System.Drawing.Point(740, 245)
Me.lbl_red_kfaul.Name = "lbl_red_kfaul"
Me.lbl_red_kfaul.Size = New System.Drawing.Size(90, 60)
Me.lbl_red_kfaul.TabIndex = 42
Me.lbl_red_kfaul.Text = "00"
Me.lbl_red_kfaul.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label12
'
Me.Label12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Label12.ForeColor = System.Drawing.Color.White
Me.Label12.Location = New System.Drawing.Point(740, 200)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(90, 40)
Me.Label12.TabIndex = 41
Me.Label12.Text = "KFAUL"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_red_code_3
'
Me.lbl_red_code_3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_red_code_3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_red_code_3.ForeColor = System.Drawing.Color.White
Me.lbl_red_code_3.Location = New System.Drawing.Point(740, 90)
Me.lbl_red_code_3.Name = "lbl_red_code_3"
Me.lbl_red_code_3.Size = New System.Drawing.Size(90, 40)
Me.lbl_red_code_3.TabIndex = 40
Me.lbl_red_code_3.Text = "CTRY"
Me.lbl_red_code_3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lbl_round
'
Me.lbl_round.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lbl_round.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_round.Font = New System.Drawing.Font("Microsoft Sans Serif", 90.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_round.ForeColor = System.Drawing.Color.Lime
Me.lbl_round.Location = New System.Drawing.Point(375, 185)
Me.lbl_round.Name = "lbl_round"
Me.lbl_round.Size = New System.Drawing.Size(85, 105)
Me.lbl_round.TabIndex = 46
Me.lbl_round.Text = "1"
Me.lbl_round.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_red_dhkn
'
Me.btn_red_dhkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_dhkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_dhkn.ForeColor = System.Drawing.Color.White
Me.btn_red_dhkn.Location = New System.Drawing.Point(630, 450)
Me.btn_red_dhkn.Name = "btn_red_dhkn"
Me.btn_red_dhkn.Size = New System.Drawing.Size(100, 25)
Me.btn_red_dhkn.TabIndex = 54
Me.btn_red_dhkn.Text = "Direct HK -"
Me.btn_red_dhkn.UseVisualStyleBackColor = True
'
'Button10
'
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Button10.ForeColor = System.Drawing.Color.White
Me.Button10.Location = New System.Drawing.Point(630, 420)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(100, 25)
Me.Button10.TabIndex = 53
Me.Button10.Text = "Direct HK +"
Me.Button10.UseVisualStyleBackColor = True
'
'btn_red_sbkn
'
Me.btn_red_sbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_sbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_sbkn.ForeColor = System.Drawing.Color.White
Me.btn_red_sbkn.Location = New System.Drawing.Point(525, 450)
Me.btn_red_sbkn.Name = "btn_red_sbkn"
Me.btn_red_sbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_red_sbkn.TabIndex = 52
Me.btn_red_sbkn.Text = "Spin BK -"
Me.btn_red_sbkn.UseVisualStyleBackColor = True
'
'Button12
'
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Button12.ForeColor = System.Drawing.Color.White
Me.Button12.Location = New System.Drawing.Point(525, 420)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(100, 25)
Me.Button12.TabIndex = 51
Me.Button12.Text = "Spin BK +"
Me.Button12.UseVisualStyleBackColor = True
'
'btn_red_dbkn
'
Me.btn_red_dbkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_dbkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_dbkn.ForeColor = System.Drawing.Color.White
Me.btn_red_dbkn.Location = New System.Drawing.Point(420, 450)
Me.btn_red_dbkn.Name = "btn_red_dbkn"
Me.btn_red_dbkn.Size = New System.Drawing.Size(100, 25)
Me.btn_red_dbkn.TabIndex = 50
Me.btn_red_dbkn.Text = "Direct BK -"
Me.btn_red_dbkn.UseVisualStyleBackColor = True
'
'Button14
'
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Button14.ForeColor = System.Drawing.Color.White
Me.Button14.Location = New System.Drawing.Point(420, 420)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(100, 25)
Me.Button14.TabIndex = 49
Me.Button14.Text = "Direct BK +"
Me.Button14.UseVisualStyleBackColor = True
'
'btn_red_shkn
'
Me.btn_red_shkn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_shkn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_shkn.ForeColor = System.Drawing.Color.White
Me.btn_red_shkn.Location = New System.Drawing.Point(735, 450)
Me.btn_red_shkn.Name = "btn_red_shkn"
Me.btn_red_shkn.Size = New System.Drawing.Size(95, 25)
Me.btn_red_shkn.TabIndex = 48
Me.btn_red_shkn.Text = "Spin HK -"
Me.btn_red_shkn.UseVisualStyleBackColor = True
'
'Button16
'
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Button16.ForeColor = System.Drawing.Color.White
Me.Button16.Location = New System.Drawing.Point(735, 420)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(95, 25)
Me.Button16.TabIndex = 47
Me.Button16.Text = "Spin HK +"
Me.Button16.UseVisualStyleBackColor = True
'
'tmr_display
'
Me.tmr_display.Enabled = True
Me.tmr_display.Interval = 1
'
'btn_start
'
Me.btn_start.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_start.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_start.ForeColor = System.Drawing.Color.White
Me.btn_start.Location = New System.Drawing.Point(375, 295)
Me.btn_start.Name = "btn_start"
Me.btn_start.Size = New System.Drawing.Size(85, 30)
Me.btn_start.TabIndex = 55
Me.btn_start.Text = "START"
Me.btn_start.UseVisualStyleBackColor = True
'
'btn_end
'
Me.btn_end.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_end.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_end.ForeColor = System.Drawing.Color.White
Me.btn_end.Location = New System.Drawing.Point(375, 330)
Me.btn_end.Name = "btn_end"
Me.btn_end.Size = New System.Drawing.Size(85, 30)
Me.btn_end.TabIndex = 56
Me.btn_end.Text = "END"
Me.btn_end.UseVisualStyleBackColor = True
'
'round_countdown
'
'
'btn_blue_pkf
'
Me.btn_blue_pkf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_pkf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_pkf.ForeColor = System.Drawing.Color.White
Me.btn_blue_pkf.Location = New System.Drawing.Point(105, 200)
Me.btn_blue_pkf.Name = "btn_blue_pkf"
Me.btn_blue_pkf.Size = New System.Drawing.Size(25, 25)
Me.btn_blue_pkf.TabIndex = 57
Me.btn_blue_pkf.Text = "+"
Me.btn_blue_pkf.UseVisualStyleBackColor = True
'
'btn_blue_nkf
'
Me.btn_blue_nkf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_nkf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_nkf.ForeColor = System.Drawing.Color.White
Me.btn_blue_nkf.Location = New System.Drawing.Point(105, 230)
Me.btn_blue_nkf.Name = "btn_blue_nkf"
Me.btn_blue_nkf.Size = New System.Drawing.Size(25, 25)
Me.btn_blue_nkf.TabIndex = 58
Me.btn_blue_nkf.Text = "-"
Me.btn_blue_nkf.UseVisualStyleBackColor = True
'
'btn_blue_ngf
'
Me.btn_blue_ngf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_ngf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_ngf.ForeColor = System.Drawing.Color.White
Me.btn_blue_ngf.Location = New System.Drawing.Point(105, 340)
Me.btn_blue_ngf.Name = "btn_blue_ngf"
Me.btn_blue_ngf.Size = New System.Drawing.Size(25, 25)
Me.btn_blue_ngf.TabIndex = 60
Me.btn_blue_ngf.Text = "-"
Me.btn_blue_ngf.UseVisualStyleBackColor = True
'
'btn_blue_pgf
'
Me.btn_blue_pgf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_blue_pgf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_blue_pgf.ForeColor = System.Drawing.Color.White
Me.btn_blue_pgf.Location = New System.Drawing.Point(105, 310)
Me.btn_blue_pgf.Name = "btn_blue_pgf"
Me.btn_blue_pgf.Size = New System.Drawing.Size(25, 25)
Me.btn_blue_pgf.TabIndex = 59
Me.btn_blue_pgf.Text = "+"
Me.btn_blue_pgf.UseVisualStyleBackColor = True
'
'btn_red_ngf
'
Me.btn_red_ngf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_ngf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_ngf.ForeColor = System.Drawing.Color.White
Me.btn_red_ngf.Location = New System.Drawing.Point(705, 340)
Me.btn_red_ngf.Name = "btn_red_ngf"
Me.btn_red_ngf.Size = New System.Drawing.Size(25, 25)
Me.btn_red_ngf.TabIndex = 64
Me.btn_red_ngf.Text = "-"
Me.btn_red_ngf.UseVisualStyleBackColor = True
'
'btn_red_pgf
'
Me.btn_red_pgf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_pgf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_pgf.ForeColor = System.Drawing.Color.White
Me.btn_red_pgf.Location = New System.Drawing.Point(705, 310)
Me.btn_red_pgf.Name = "btn_red_pgf"
Me.btn_red_pgf.Size = New System.Drawing.Size(25, 25)
Me.btn_red_pgf.TabIndex = 63
Me.btn_red_pgf.Text = "+"
Me.btn_red_pgf.UseVisualStyleBackColor = True
'
'btn_red_nkf
'
Me.btn_red_nkf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_nkf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_nkf.ForeColor = System.Drawing.Color.White
Me.btn_red_nkf.Location = New System.Drawing.Point(705, 230)
Me.btn_red_nkf.Name = "btn_red_nkf"
Me.btn_red_nkf.Size = New System.Drawing.Size(25, 25)
Me.btn_red_nkf.TabIndex = 62
Me.btn_red_nkf.Text = "-"
Me.btn_red_nkf.UseVisualStyleBackColor = True
'
'btn_red_pkf
'
Me.btn_red_pkf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_red_pkf.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_red_pkf.ForeColor = System.Drawing.Color.White
Me.btn_red_pkf.Location = New System.Drawing.Point(705, 200)
Me.btn_red_pkf.Name = "btn_red_pkf"
Me.btn_red_pkf.Size = New System.Drawing.Size(25, 25)
Me.btn_red_pkf.TabIndex = 61
Me.btn_red_pkf.Text = "+"
Me.btn_red_pkf.UseVisualStyleBackColor = True
'
'frm_scorecontrol
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(834, 481)
Me.Controls.Add(Me.btn_red_ngf)
Me.Controls.Add(Me.btn_red_pgf)
Me.Controls.Add(Me.btn_red_nkf)
Me.Controls.Add(Me.btn_red_pkf)
Me.Controls.Add(Me.btn_blue_ngf)
Me.Controls.Add(Me.btn_blue_pgf)
Me.Controls.Add(Me.btn_blue_nkf)
Me.Controls.Add(Me.btn_blue_pkf)
Me.Controls.Add(Me.btn_end)
Me.Controls.Add(Me.btn_start)
Me.Controls.Add(Me.btn_red_dhkn)
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.btn_red_sbkn)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.btn_red_dbkn)
Me.Controls.Add(Me.Button14)
Me.Controls.Add(Me.btn_red_shkn)
Me.Controls.Add(Me.Button16)
Me.Controls.Add(Me.lbl_round)
Me.Controls.Add(Me.pb_red_flag)
Me.Controls.Add(Me.lbl_red_gfaul)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.lbl_red_kfaul)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.lbl_red_code_3)
Me.Controls.Add(Me.btn_blue_dbkn)
Me.Controls.Add(Me.btn_blue_dbkp)
Me.Controls.Add(Me.btn_blue_sbkn)
Me.Controls.Add(Me.btn_blue_sbkp)
Me.Controls.Add(Me.btn_blue_dhkn)
Me.Controls.Add(Me.btn_blue_dhkp)
Me.Controls.Add(Me.btn_blue_shkn)
Me.Controls.Add(Me.btn_blue_shkp)
Me.Controls.Add(Me.lbl_match_number)
Me.Controls.Add(Me.lbl_time)
Me.Controls.Add(Me.lbl_weight_class)
Me.Controls.Add(Me.lbl_red_team)
Me.Controls.Add(Me.lbl_red_score)
Me.Controls.Add(Me.lbl_red_fighter_name)
Me.Controls.Add(Me.pb_blue_flag)
Me.Controls.Add(Me.lbl_blue_gfaul)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.lbl_blue_kfaul)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.lbl_blue_code_3)
Me.Controls.Add(Me.lbl_blue_team)
Me.Controls.Add(Me.lbl_blue_score)
Me.Controls.Add(Me.lbl_blue_fighter_name)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frm_scorecontrol"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TAKEONE : Score Control"
CType(Me.pb_blue_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_red_flag, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents lbl_blue_fighter_name As System.Windows.Forms.Label
Friend WithEvents lbl_blue_score As System.Windows.Forms.Label
Friend WithEvents lbl_blue_team As System.Windows.Forms.Label
Friend WithEvents lbl_blue_code_3 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents lbl_blue_kfaul As System.Windows.Forms.Label
Friend WithEvents lbl_blue_gfaul As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents pb_blue_flag As System.Windows.Forms.PictureBox
Friend WithEvents lbl_red_team As System.Windows.Forms.Label
Friend WithEvents lbl_red_score As System.Windows.Forms.Label
Friend WithEvents lbl_red_fighter_name As System.Windows.Forms.Label
Friend WithEvents lbl_weight_class As System.Windows.Forms.Label
Friend WithEvents lbl_time As System.Windows.Forms.Label
Friend WithEvents lbl_match_number As System.Windows.Forms.Label
Friend WithEvents btn_blue_shkp As System.Windows.Forms.Button
Friend WithEvents btn_blue_shkn As System.Windows.Forms.Button
Friend WithEvents btn_blue_dhkn As System.Windows.Forms.Button
Friend WithEvents btn_blue_dhkp As System.Windows.Forms.Button
Friend WithEvents btn_blue_sbkn As System.Windows.Forms.Button
Friend WithEvents btn_blue_sbkp As System.Windows.Forms.Button
Friend WithEvents btn_blue_dbkn As System.Windows.Forms.Button
Friend WithEvents btn_blue_dbkp As System.Windows.Forms.Button
Friend WithEvents pb_red_flag As System.Windows.Forms.PictureBox
Friend WithEvents lbl_red_gfaul As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents lbl_red_kfaul As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents lbl_red_code_3 As System.Windows.Forms.Label
Friend WithEvents lbl_round As System.Windows.Forms.Label
Friend WithEvents btn_red_dhkn As System.Windows.Forms.Button
Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents btn_red_sbkn As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
Friend WithEvents btn_red_dbkn As System.Windows.Forms.Button
Friend WithEvents Button14 As System.Windows.Forms.Button
Friend WithEvents btn_red_shkn As System.Windows.Forms.Button
Friend WithEvents Button16 As System.Windows.Forms.Button
Friend WithEvents tmr_display As System.Windows.Forms.Timer
Friend WithEvents btn_start As Button
Friend WithEvents btn_end As Button
Friend WithEvents round_countdown As System.Windows.Forms.Timer
Friend WithEvents btn_blue_pkf As Button
Friend WithEvents btn_blue_nkf As Button
Friend WithEvents btn_blue_ngf As Button
Friend WithEvents btn_blue_pgf As Button
Friend WithEvents btn_red_ngf As Button
Friend WithEvents btn_red_pgf As Button
Friend WithEvents btn_red_nkf As Button
Friend WithEvents btn_red_pkf As Button
Friend WithEvents break_countdown As System.Windows.Forms.Timer
End Class

View File

@ -0,0 +1,132 @@
<?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>
<metadata name="tmr_display.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="round_countdown.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>131, 17</value>
</metadata>
<metadata name="break_countdown.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>270, 14</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>42</value>
</metadata>
</root>

View File

@ -0,0 +1,227 @@
Public Class frm_scorecontrol
Dim TAKEONE As match
Dim START_BUTTON As Boolean = False
Private Sub tmr_display_Tick(sender As Object, e As EventArgs) Handles tmr_display.Tick
If START_BUTTON = True Then
' Board Display
lbl_time.Text = TAKEONE.RoundTime.Time
lbl_round.Text = TAKEONE.Round
lbl_match_number.Text = "EXHIB"
lbl_weight_class.Text = "OPEN"
' Blue Fighter Data Display
lbl_blue_score.Text = TAKEONE.Blue.Points.Score.ToString("00")
lbl_blue_kfaul.Text = TAKEONE.Blue.Points.KFaul.ToString("00")
lbl_blue_gfaul.Text = TAKEONE.Blue.Points.GFaul.ToString("00")
lbl_blue_team.Text = TAKEONE.Blue.Team
lbl_blue_fighter_name.Text = TAKEONE.Blue.Name
'pb_blue_flag.Image = Image.FromStream(TAKEONE.Blue.Flag)
' Red Fighter Data Display
lbl_red_score.Text = TAKEONE.Red.Points.Score.ToString("00")
lbl_red_kfaul.Text = TAKEONE.Red.Points.KFaul.ToString("00")
lbl_red_gfaul.Text = TAKEONE.Red.Points.GFaul.ToString("00")
lbl_red_team.Text = TAKEONE.Red.Team
lbl_red_fighter_name.Text = TAKEONE.Red.Name
'pb_red_flag.Image = Image.FromStream(TAKEONE.red.Flag)
End If
End Sub
Private Sub btn_start_Click(sender As Object, e As EventArgs) Handles btn_start.Click
If btn_start.Text = "START" Then
TAKEONE = New match(1, 2, 3, 2, 0, 1, 0, True)
START_BUTTON = True
round_countdown.Interval = 1000
round_countdown.Enabled = True
btn_start.Text = "PAUSE"
ElseIf btn_start.Text = "PAUSE" Then
btn_start.Text = "RESUME"
round_countdown.Enabled = False
ElseIf btn_start.Text = "RESUME" Then
btn_start.Text = "PAUSE"
round_countdown.Enabled = True
End If
End Sub
Private Sub btn_blue_shkp_Click(sender As Object, e As EventArgs) Handles btn_blue_shkp.Click
TAKEONE.Blue.Points.ADJ_SCORE(4)
End Sub
Private Sub btn_blue_dhkp_Click(sender As Object, e As EventArgs) Handles btn_blue_dhkp.Click
TAKEONE.Blue.Points.ADJ_SCORE(3)
End Sub
Private Sub btn_blue_sbkp_Click(sender As Object, e As EventArgs) Handles btn_blue_sbkp.Click
TAKEONE.Blue.Points.ADJ_SCORE(3)
End Sub
Private Sub btn_blue_dbkp_Click(sender As Object, e As EventArgs) Handles btn_blue_dbkp.Click
TAKEONE.Blue.Points.ADJ_SCORE(1)
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
TAKEONE.Red.Points.ADJ_SCORE(1)
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
TAKEONE.Red.Points.ADJ_SCORE(3)
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
TAKEONE.Red.Points.ADJ_SCORE(3)
End Sub
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
TAKEONE.Red.Points.ADJ_SCORE(4)
End Sub
Private Sub timer_countdown_Tick(sender As Object, e As EventArgs) Handles round_countdown.Tick
If TAKEONE.RoundTime.Status = False Then
TAKEONE.RoundTime.CountDown()
ElseIf TAKEONE.RoundTime.Status = True And TAKEONE.MaxRound < TAKEONE.Round Then
btn_start.Text = "BEGIN"
round_countdown.Enabled = False
ElseIf TAKEONE.RoundTime.Status = True And TAKEONE.MaxRound = TAKEONE.Round Then
btn_start.Text = "START"
round_countdown.Enabled = False
End If
End Sub
Private Sub btn_blue_shkn_Click(sender As Object, e As EventArgs) Handles btn_blue_shkn.Click
TAKEONE.Blue.Points.ADJ_SCORE(-4)
End Sub
Private Sub btn_blue_dhkn_Click(sender As Object, e As EventArgs) Handles btn_blue_dhkn.Click
TAKEONE.Blue.Points.ADJ_SCORE(-3)
End Sub
Private Sub btn_blue_sbkn_Click(sender As Object, e As EventArgs) Handles btn_blue_sbkn.Click
TAKEONE.Blue.Points.ADJ_SCORE(-3)
End Sub
Private Sub btn_blue_dbkn_Click(sender As Object, e As EventArgs) Handles btn_blue_dbkn.Click
TAKEONE.Blue.Points.ADJ_SCORE(-1)
End Sub
Private Sub btn_red_dbkn_Click(sender As Object, e As EventArgs) Handles btn_red_dbkn.Click
TAKEONE.Red.Points.ADJ_SCORE(-1)
End Sub
Private Sub btn_red_sbkn_Click(sender As Object, e As EventArgs) Handles btn_red_sbkn.Click
TAKEONE.Red.Points.ADJ_SCORE(-3)
End Sub
Private Sub btn_red_dhkn_Click(sender As Object, e As EventArgs) Handles btn_red_dhkn.Click
TAKEONE.Red.Points.ADJ_SCORE(-3)
End Sub
Private Sub btn_red_shkn_Click(sender As Object, e As EventArgs) Handles btn_red_shkn.Click
TAKEONE.Red.Points.ADJ_SCORE(-4)
End Sub
Private Sub btn_blue_pkf_Click(sender As Object, e As EventArgs) Handles btn_blue_pkf.Click
TAKEONE.Blue.Points.ADJ_KFAUL(1)
End Sub
Private Sub btn_blue_nkf_Click(sender As Object, e As EventArgs) Handles btn_blue_nkf.Click
TAKEONE.Blue.Points.ADJ_KFAUL(-1)
End Sub
Private Sub btn_blue_pgf_Click(sender As Object, e As EventArgs) Handles btn_blue_pgf.Click
TAKEONE.Blue.Points.ADJ_GFAUL(1)
End Sub
Private Sub btn_blue_ngf_Click(sender As Object, e As EventArgs) Handles btn_blue_ngf.Click
TAKEONE.Blue.Points.ADJ_GFAUL(-1)
End Sub
Private Sub btn_red_pkf_Click(sender As Object, e As EventArgs) Handles btn_red_pkf.Click
TAKEONE.Red.Points.ADJ_KFAUL(1)
End Sub
Private Sub btn_red_nkf_Click(sender As Object, e As EventArgs) Handles btn_red_nkf.Click
TAKEONE.Red.Points.ADJ_KFAUL(-1)
End Sub
Private Sub btn_red_pgf_Click(sender As Object, e As EventArgs) Handles btn_red_pgf.Click
TAKEONE.Red.Points.ADJ_GFAUL(1)
End Sub
Private Sub btn_red_ngf_Click(sender As Object, e As EventArgs) Handles btn_red_ngf.Click
TAKEONE.Red.Points.ADJ_GFAUL(-1)
End Sub
Private Sub btn_end_Click(sender As Object, e As EventArgs) Handles btn_end.Click
btn_start.Text = "START"
TAKEONE.RoundTime = New match.timer(TAKEONE.MaxRoundMin, TAKEONE.MaxRoundSec)
round_countdown.Enabled = False
End Sub
End Class

View File

@ -0,0 +1,317 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_main
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_main))
Me.lst_events = New System.Windows.Forms.ListBox()
Me.btn_create_event = New System.Windows.Forms.Button()
Me.btn_friendly_match = New System.Windows.Forms.Button()
Me.btn_manage_event = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.btn_history_view = New System.Windows.Forms.Button()
Me.btn_system_settings = New System.Windows.Forms.Button()
Me.btn_delete_event = New System.Windows.Forms.Button()
Me.btn_person_data = New System.Windows.Forms.Button()
Me.btn_update_club_logo = New System.Windows.Forms.Button()
Me.btn_update_country_flag = New System.Windows.Forms.Button()
Me.pb_event_logo = New System.Windows.Forms.PictureBox()
Me.pb_event_country_flag = New System.Windows.Forms.PictureBox()
Me.lbl_country_iso3 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.btn_add_club = New System.Windows.Forms.Button()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_event_logo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pb_event_country_flag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lst_events
'
Me.lst_events.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lst_events.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lst_events.Font = New System.Drawing.Font("Tahoma", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lst_events.ForeColor = System.Drawing.Color.White
Me.lst_events.FormattingEnabled = True
Me.lst_events.ItemHeight = 19
Me.lst_events.Location = New System.Drawing.Point(260, 50)
Me.lst_events.Name = "lst_events"
Me.lst_events.Size = New System.Drawing.Size(375, 420)
Me.lst_events.TabIndex = 0
'
'btn_create_event
'
Me.btn_create_event.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_create_event.Font = New System.Drawing.Font("Tahoma", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_create_event.ForeColor = System.Drawing.Color.White
Me.btn_create_event.Location = New System.Drawing.Point(10, 140)
Me.btn_create_event.Name = "btn_create_event"
Me.btn_create_event.Size = New System.Drawing.Size(240, 50)
Me.btn_create_event.TabIndex = 1
Me.btn_create_event.Text = "CREATE EVENT"
Me.btn_create_event.UseVisualStyleBackColor = True
'
'btn_friendly_match
'
Me.btn_friendly_match.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Maroon
Me.btn_friendly_match.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_friendly_match.Font = New System.Drawing.Font("Tahoma", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_friendly_match.ForeColor = System.Drawing.Color.White
Me.btn_friendly_match.Location = New System.Drawing.Point(10, 85)
Me.btn_friendly_match.Name = "btn_friendly_match"
Me.btn_friendly_match.Size = New System.Drawing.Size(240, 50)
Me.btn_friendly_match.TabIndex = 2
Me.btn_friendly_match.Text = "FRIENDLY MATCH"
Me.btn_friendly_match.UseVisualStyleBackColor = True
'
'btn_manage_event
'
Me.btn_manage_event.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
Me.btn_manage_event.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_manage_event.Font = New System.Drawing.Font("Tahoma", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_manage_event.ForeColor = System.Drawing.Color.White
Me.btn_manage_event.Location = New System.Drawing.Point(10, 195)
Me.btn_manage_event.Name = "btn_manage_event"
Me.btn_manage_event.Size = New System.Drawing.Size(240, 50)
Me.btn_manage_event.TabIndex = 4
Me.btn_manage_event.Text = "MANAGE EVENT"
Me.btn_manage_event.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(10, 15)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(240, 60)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 11
Me.PictureBox1.TabStop = False
'
'btn_history_view
'
Me.btn_history_view.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_history_view.Font = New System.Drawing.Font("Tahoma", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_history_view.ForeColor = System.Drawing.Color.White
Me.btn_history_view.Location = New System.Drawing.Point(10, 305)
Me.btn_history_view.Name = "btn_history_view"
Me.btn_history_view.Size = New System.Drawing.Size(240, 50)
Me.btn_history_view.TabIndex = 12
Me.btn_history_view.Text = "HISTORY OF EVENTS"
Me.btn_history_view.UseVisualStyleBackColor = True
'
'btn_system_settings
'
Me.btn_system_settings.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_system_settings.Font = New System.Drawing.Font("Tahoma", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_system_settings.ForeColor = System.Drawing.Color.White
Me.btn_system_settings.Location = New System.Drawing.Point(645, 415)
Me.btn_system_settings.Name = "btn_system_settings"
Me.btn_system_settings.Size = New System.Drawing.Size(180, 50)
Me.btn_system_settings.TabIndex = 13
Me.btn_system_settings.Text = "SETTINGS"
Me.btn_system_settings.UseVisualStyleBackColor = True
'
'btn_delete_event
'
Me.btn_delete_event.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_delete_event.Font = New System.Drawing.Font("Tahoma", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_delete_event.ForeColor = System.Drawing.Color.White
Me.btn_delete_event.Location = New System.Drawing.Point(10, 250)
Me.btn_delete_event.Name = "btn_delete_event"
Me.btn_delete_event.Size = New System.Drawing.Size(240, 50)
Me.btn_delete_event.TabIndex = 3
Me.btn_delete_event.Text = "CANCEL EVENT"
Me.btn_delete_event.UseVisualStyleBackColor = True
'
'btn_person_data
'
Me.btn_person_data.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_person_data.Font = New System.Drawing.Font("Tahoma", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_person_data.ForeColor = System.Drawing.Color.White
Me.btn_person_data.Location = New System.Drawing.Point(10, 360)
Me.btn_person_data.Name = "btn_person_data"
Me.btn_person_data.Size = New System.Drawing.Size(240, 50)
Me.btn_person_data.TabIndex = 14
Me.btn_person_data.Text = "ADD A PERSON"
Me.btn_person_data.UseVisualStyleBackColor = True
'
'btn_update_club_logo
'
Me.btn_update_club_logo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_update_club_logo.Font = New System.Drawing.Font("Tahoma", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_update_club_logo.ForeColor = System.Drawing.Color.White
Me.btn_update_club_logo.Location = New System.Drawing.Point(645, 305)
Me.btn_update_club_logo.Name = "btn_update_club_logo"
Me.btn_update_club_logo.Size = New System.Drawing.Size(180, 50)
Me.btn_update_club_logo.TabIndex = 15
Me.btn_update_club_logo.Text = "Clubs Logo"
Me.btn_update_club_logo.UseVisualStyleBackColor = True
'
'btn_update_country_flag
'
Me.btn_update_country_flag.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_update_country_flag.Font = New System.Drawing.Font("Tahoma", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_update_country_flag.ForeColor = System.Drawing.Color.White
Me.btn_update_country_flag.Location = New System.Drawing.Point(645, 360)
Me.btn_update_country_flag.Name = "btn_update_country_flag"
Me.btn_update_country_flag.Size = New System.Drawing.Size(180, 50)
Me.btn_update_country_flag.TabIndex = 16
Me.btn_update_country_flag.Text = "Country Flags"
Me.btn_update_country_flag.UseVisualStyleBackColor = True
'
'pb_event_logo
'
Me.pb_event_logo.Location = New System.Drawing.Point(645, 10)
Me.pb_event_logo.Name = "pb_event_logo"
Me.pb_event_logo.Size = New System.Drawing.Size(180, 180)
Me.pb_event_logo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_event_logo.TabIndex = 17
Me.pb_event_logo.TabStop = False
'
'pb_event_country_flag
'
Me.pb_event_country_flag.Location = New System.Drawing.Point(645, 200)
Me.pb_event_country_flag.Name = "pb_event_country_flag"
Me.pb_event_country_flag.Size = New System.Drawing.Size(55, 35)
Me.pb_event_country_flag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_event_country_flag.TabIndex = 18
Me.pb_event_country_flag.TabStop = False
'
'lbl_country_iso3
'
Me.lbl_country_iso3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lbl_country_iso3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lbl_country_iso3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.lbl_country_iso3.ForeColor = System.Drawing.Color.White
Me.lbl_country_iso3.Location = New System.Drawing.Point(705, 200)
Me.lbl_country_iso3.Name = "lbl_country_iso3"
Me.lbl_country_iso3.Size = New System.Drawing.Size(120, 35)
Me.lbl_country_iso3.TabIndex = 80
Me.lbl_country_iso3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label10
'
Me.Label10.BackColor = System.Drawing.Color.Black
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.ForeColor = System.Drawing.Color.White
Me.Label10.Location = New System.Drawing.Point(260, 10)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(375, 40)
Me.Label10.TabIndex = 84
Me.Label10.Text = "< SELECT AN EVENT >"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btn_add_club
'
Me.btn_add_club.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_add_club.Font = New System.Drawing.Font("Tahoma", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_add_club.ForeColor = System.Drawing.Color.White
Me.btn_add_club.Location = New System.Drawing.Point(10, 415)
Me.btn_add_club.Name = "btn_add_club"
Me.btn_add_club.Size = New System.Drawing.Size(240, 50)
Me.btn_add_club.TabIndex = 85
Me.btn_add_club.Text = "ADD A CLUB"
Me.btn_add_club.UseVisualStyleBackColor = True
'
'PictureBox2
'
Me.PictureBox2.Image = Global.TAKEONE_EMASS.My.Resources.Resources.user_group_icon
Me.PictureBox2.Location = New System.Drawing.Point(645, 240)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(55, 55)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox2.TabIndex = 86
Me.PictureBox2.TabStop = False
'
'Label1
'
Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(705, 240)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(120, 55)
Me.Label1.TabIndex = 87
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'frm_main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(834, 481)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.btn_add_club)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.lbl_country_iso3)
Me.Controls.Add(Me.pb_event_country_flag)
Me.Controls.Add(Me.pb_event_logo)
Me.Controls.Add(Me.btn_update_country_flag)
Me.Controls.Add(Me.btn_update_club_logo)
Me.Controls.Add(Me.btn_person_data)
Me.Controls.Add(Me.btn_system_settings)
Me.Controls.Add(Me.btn_history_view)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.btn_manage_event)
Me.Controls.Add(Me.btn_delete_event)
Me.Controls.Add(Me.btn_friendly_match)
Me.Controls.Add(Me.btn_create_event)
Me.Controls.Add(Me.lst_events)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frm_main"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TAKEONE - Event Managment And Scoring System"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_event_logo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pb_event_country_flag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents lst_events As ListBox
Friend WithEvents btn_create_event As Button
Friend WithEvents btn_friendly_match As Button
Friend WithEvents btn_manage_event As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents btn_history_view As Button
Friend WithEvents btn_system_settings As Button
Friend WithEvents btn_delete_event As Button
Friend WithEvents btn_person_data As Button
Friend WithEvents btn_update_club_logo As Button
Friend WithEvents btn_update_country_flag As Button
Friend WithEvents pb_event_logo As PictureBox
Friend WithEvents pb_event_country_flag As PictureBox
Friend WithEvents lbl_country_iso3 As Label
Friend WithEvents Label10 As Label
Friend WithEvents btn_add_club As Button
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents Label1 As Label
End Class

View File

@ -0,0 +1,384 @@
<?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.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAhcAAACCCAYAAAD17eqRAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEwAACxMBAJqcGAAAMeFJREFUeF7tnQmYXEW1
x0U2RRZB8SFPWSJhE2RHFFlFREA2RVYBfQooCgg+HrgAAirik6cCsuTxDAiKbA8SDYvIIjwCQTHITpAt
RiKQycxkkkkymen3/7e3OqdrTnffpe7t29Onvu/3TXfdqnPOre6p+ve9daveVKlUDMMwDMMwUnHxTy9a
/7lnn52P19XU19c3ohY0DMMwDMNohS8smCZPmjRFLWwYhmEYhtGK6dOnz8HfWoqExpvUwoZhGIZhGM24
9557nsLfunTlhAlH4o+JC8MwDMMwksFbH/hbl6K86vFRFQzDMAzDMBpx9cSrTsPfuuRuhzjqKhiGYRiG
YTTiissu34VPg+B1LfE98/GyVq6ukmEYhmEY5UDOaZC3HNqJ/2QI06+u/eWF+FNXru6NYRiGYRjtRz6F
4d9yaBd33H77VPytS1HeqLKjMgzDMAzDaB9ysqR2y6EdRFcn6lIz0aNmGoZhGIZRPJGQqCXtlkPRxJ1n
IVEzDcMwjObMGbfBGmBjsCXYGewasT3YDLwXLK/VNQzCKxSzZs1ajNdNE289tPPqxUNTp87E37rUSvSo
mYZhGEZVQKwGdgengMvA3WAmWAwqMRgBfwP/ByaAY8HWYDnNn9EdaEtmN0vRxE7VVt5o61k0mmchUTMN
wzC6EQz664FjwEQwA2iCIQT94GbwebCWFosxdtFWtmyUeGWDYgQvR9nhapj+4B/nqRLak/Ua1YlW26xL
0VWMUWV91EzDMIxuAAP78oBXJn4M/go0IZA3w+A2cBh4ixanMXbgwO7PX2iWtNsPvEXi7+khU7NbKDfd
eOMv8HdU0gSMf3VFEzpOpPCY9FsrYBiG0Q1gAF8W7AGuBD1AG/DbxWvgHGBXM8Yo2uqWjZJ2+6GROJBJ
EwrMayZI3J4gDv+xU38CJ8v74kNe1agZMgzDGMtgwObkyx+CfwBtYC8Tg4BXU96tnYvRufgDv3zEs9Ut
DX/Ap1igWIkG/WqKBERdPR5vNnE0OlYrr90OiURR9XgjgWTiwjCMrgCD8wrgcPAA0AbxsrMAfAvY7ZIx
CAdxd4vEH+B9/Hka0RWM6jEpOvwrENJHoyRtEV+ISNEj52rI5K95UXthGIYxVsBgvCY4C7wKtEE7LX8H
08CtgE9/8OrCf4KzI34ELgecrPkImAM0O0l5EeypnavRmfAKhhzE5ZUBH/+KhSwrb5P4NuIIC18U+Ldd
5K0ZKSwodtxtEZ6HP8+j9sIwDKPTwQC8PrgE8LaCNkgn4WHwfXAU4OOjK2k+W4F6FDp7gW+D+0Dcx1g1
rgBv0/wYnYWc/9DsUVN/ZUw5wdOJDg7y/hULDvaasKBft26FP4+CSMEj45LCgjHI975vUvfGMAyjE8GA
uwHg46NLgDYoJ+UOsIzmKyuwuwrgrZrfgjTxPgner9k2OgP/Foc/wDt4dUMKBDefglco3FUDectC4o67
RDvu9gfrUET4okAKGTl3QwoJ+o7iraZG/kdlGIZhdAoYZMeBkKLCcb7mLzTww1U8LwC9kd+4zAcHaDaN
cuMLi2ZXLfxbFLziIEWF9lQIkWKAiUKhkYCRyNjcLRZpy101cVc+pADxUTMNwzDKDAbWd4GLQJZbDM2Y
DTbVfOcBfK0O+CRLkts5XP3zVM2eUU44eHNAllcV5G0OiTZfgvUaXSlwuIHfpWbixUfGRXEhhYXzG4mO
anICxEGx4+Zo1Bk2DMMoMxhMVwSng3lAG3BDwqsDX9TiyAv44+2dFyL/cTlXs2WUDw680a2IWtKuPsjb
EzI1u/rAY04cuHkTkThRy/v4PqVIiV5Xy0VXK0bZptCgX3c1o3bAMAyjzGAQ3Q88LwbVovg1WE2LKQ/g
iyt1anE04zzNllE+/Cc/kOqOu1sTFArySgJTo6sczHdXOXiFwYmL6O+o8hKKG/9qh0xRDNWy8qoF/bEu
RY2Lmf6cWBrlyDAMo0xg4NwEcIKlNqgWBR8F/ZAWX2jghzurajG04hTNnpEf7te6G2i1Mj6+YHC3Fji/
wokClqE9d5XAJR6XkzApJKQ9d0tC5mlPcjjkbQ9/fgcTz0teLVGEUS0xNlm2zpFhGEZZwGC5EvgBCD1Z
My1D4AzwZi3eEMA2lybnUySa/zgcrNk1wsOB1F0tYIojLqLBt2mSg3SzwdxPTlgQWY/25BUPig0pKpic
wHHixiX/SokvjFzyhQWpvTAMwygLGCQ/Ctq1kVgr7gLBl+WGTQqLayMfaeGKnh/Q7BthkVcV4k6alLcV
tOSuWOBltXwcMcLkJls6WvlxieLICQsib49IseKQYsolTViQujeGYRjtBAPjO8DPo4GyzHCDsb21c0gD
bDUTFjcCLgwW98kYirJVNT9GGOSkTA6ucW+JNBv0KVY0O61uRUhxIPFvqfiJdf1bJu683KRMH9bB31pq
FDMZlWEYhtEOMCAeBDhoawNmWeFy3yto5xMX1G8mLL4jym0PXhHHmlFdLMnIB3dFgVcatF/tjeBArP36
9688+HA+hKzHQb1VHcal+WJK8niqxM3LoN3otVqOqJmGYRhFgYFwVXCVGBg7jT+B8dq5tQL1mgmL05Xy
a4DfiDLN+KRf32g/8uoFb0M0m3CZFQoMeQWDoqLRlY7QqJmGYRhFgAFwNxD313iZ4bobn9XOsREo30xY
fEWrQ3BsGcC1PlpNdJ0J7PaI0RbUTMMwjDzBoMet0LkiJVeZ1AbGTuUXYGXtnCUo00hYDIMvaXV8UG4X
wF1afRuSn2h1DSNv1EzDMIy8wID3PsBty7XBcCwwA2yjnTvBsWbC4gitTiNQnsugc2t335aDVzc21Ooa
Rp6omYZhGHmAge4zoC8a+MYyfLLjFFC3syreNxIWLP8ZWTYuqHeIsKNxk1bPMPJEzTQMwwgJBjjeBrlY
DHjdwhTwL1EbvAX8MsqXUFjs57dZHFBvZTA5stOI68CyWn3DyAs10zAMIxQY2P4VTI0Gum5kANwJZok8
Bxe9+pjWbs1AHU7q5B4kmk0HJ8ruo9U3jLx505x18CUcGxyjnWAewNc7wWLhOxRvgEzPzOcBYjpAxBiK
iZqvNMDWfp7tvPgzaDlZz4Gy64m6pcaPPRQY3HYG/4gGO6MePmGyu9ZujUB5iop9wZ+BZpNwkuxPQN13
Fe/fIt/nAXzsBc4OwMc1+0WCGI73YkpL0HaHvbU8+2Wi9vi0iYsUwNfXPN8h+bTms50gptKKC9hZH8wV
dvNiNlhHi6ERKN/V4gIdzXEg7qqS3QbnnXxQazcNlOX6Fl8FTwPNnoOrc+7k1eU8j68BTjTNbV8UAvs/
BlpcSeF295trPooC/qeLeLLwds1+WmBvS89+meh1cZq4SAF8/cXzHZLfaD7bCWIqpbiAjRXBI8JmXgyC
2AOBA3W6Ulygg+Fg9lPR4Rj1vA62U9rtzYDLn3MX2D3Bl8B/gQcAN03TbEl+BvyrFVsA+TTJOHk8NLAf
SlwQiqHCtrr3gW8TF8nRxcXI3Fc7inknHSg7yELEBfxs63z2bDC+MvziY2psSRiaNkWexxKwlua7XSCe
mrjo//ye6jnEYXDCWfI8Q4iLS4S9yuK7rlX9JqLn75V5J+4v4ySHaf5bgXo1cdGz7aa6vzYxPPOpunP0
Y08LOpe3glYTDLudQfCSgEuec+6FVjYOs8Fe3uewIvgu8BfaSnT1LSmwH1JckFtA3RM3RQG/Ji6So4uL
TkvzTj1YdpBFiYtLnc95p3wKWWFS76c/LM/l68hS/bcDxLNUXBz7CWSlSwuv/p48x0ziAvUPFbYqCy76
d2RnT7Qj7YKzka3G0ArUXSoutt8UWeVJFBguNoKknkNS0LmsBhaKzsbIl9vAu7zPYCvwRHRc0gNyfWoE
9kOLCzJqGfQigF8TF8kxcZEG+Hgr6HU+F99Z3cMlSFp41XnyXJ5AlhpDO0A8pRIXqLsxGHC2+o9DTEML
cShbWjTpchkfuQ6k/tWEul0nLgg6mJu8DscIz6h1NPB6OcBJdY1uoZwrP6c8gI88xAUXF0s08TUE8Gni
IjkmLtIAH0c6f3N3/gBGy/nIDpNG/vFipWf8eHk+2yJbjaNoEEtpxAXqvQ084ezM3eUDlZHZL+BQtrTk
T3dWejbZUMY3DbwVh9Q44oD63SouDvU6HCMsfPz0w16bc9XTh6LjGr8HRTwtkoe4ILx19B7NZ17An4mL
5Ji4SAN83O38LbjwZGSFTbzN4uyDnyFLjaNoEEuZxMXEmo1x4ytDD3H+a7Y0/MqTVbFYs7vOBq+AzPNe
YKNbxQUXduK8Ar/jMbJzL6guyiXa+yjAx1q18ryKcR5YXtbJC/jJS1wQiqfCHtWHLxMXyTFxkRTYHyd8
VYZnPILssGnxnVfL8+HjlSsiW42nSBBHKcQF6nxB1K8MTjgT2RlT3+uVvoN3lHHxdstWOKLGkATY6Upx
QdDJXO91OkZ2+DTIcqKNOXl2YnRMg1vBbyk/l7yBvzzFBblE85sH8GXiIjkmLpIC++c6X33HfBRZOaTB
gcrcHTeT55Rqr4HQII62iwuU3xLwkdBq/XknHlCpDA/jUIY0tNB/4mgE7I8jagxJga1uFhef9DodIz2c
c/BVr303BI9Hx7XyvFpREyJFAZ95iwtylOY7NPBj4iI5Ji6SANtvBjOdr0U3cBfjfNL8C06Q5zQFWWpM
RYI42iouUHY1MMPVnbvn1pWRObNwKFta8KOTZDzkP5CtxpAG2OtmccHJha+KTsdIBx9R3dtrWwq3/ui4
z0ywsyxfJPBdhLhgm3xA8x8S+DBxkRwTF0mA7b2cn54tNq5eSs8rDT/5gDynYfBuZKtxFQViaJu4QLll
wI2uXs9GG1aWTL8bh7KlRdf/l4wldjxJgM2uFRcEHc33vY7HSMYbYAfRnlz6+wzA5b218twkbXX5GRQN
/BchLsjzIOig7QP7Ji6SY+IiCbB9g/MzcPbnkJVv6jt0J3leQX9NpwExtFNcnCzqVBZecz6ys6WhqZOr
IkXY/QMIPlEMNrtdXKwL/EWcjHj8DdSWv8Zr7ip7VXRM43zQ9p1PEUNR4oLcCnJbYAu2TVwkx8RFXGCX
m5Qtcn6WTLsN2fkmbxB+BllqbEWBGNoiLlDmQ6C2Qdy80w5FdrY0/ML0ytwd3i/jeAG8E4fUGLIAu10t
Lgg6m/0At1p/Iup8jNZQWPBDcW3Ihcl+Fx3z4S2CVCvI5gFiKVJckG9ocYQAtk1cJMfERVxg9yTno3e/
7bNPIoyRRl5/xV/zonZptB3Af+HiAsffAfhIaLV87yfR9hlvR3Fp7979Pyhj6AOb4JAaQ1Zgu+vFhQQd
z5rg04ADEC9ra51Tt8P1HKSwYJv9MTrmMwd8SLZxu0E8RYsLTl7dQ4slK7Br4iI5uriYu9c2qRg44wjY
SpcW3XSRajMOPZtvJDvIvMRFbZOywf8+C1nFJE84XYYsNb4igP9CxQWOcZ7Fba5sz2YbVYaffhCHMqSF
8yv9X9pX+ud8lly3dYb9IOJiyaN3qd//TOy5tWwLulHPIS/QCXGTLu7UqXVQ3Qp3Sq1NVMRrCotGT4Tw
6kZuwjgtiKlocUG4Edx7tXiyAJtjXVxwwjX3bgnJtS7OOnGRloADThaCiwvYrNukbOTVvyK7mMRNuJxv
wCXHc19drxHwXbS4+JYoVxWgWdP87x4nfZO6R/vyAD6CiAsuFObs5AWSeg55g87oN0Dr+LoNLue9q2iX
VsKidnWjTCCudogL8jAIOm8K9sa6uLhFsx8KExdNgM2fOfvzvnYQsgpM+KXtrRrJCQdqnHkD34WJC+Tv
DnhVoVpu4KzsE2g5CdTZiyhk9VP4MXHRAnRwX/Q6vG6FX3TXJquAR8UxCX+l88s0qi3LAGJrl7ggQf+v
Yc/ERQbYAXJxojTUVksMOOBMApqvOKwBc+pJpgH23gJy2aQsblrwoxNl29yBLDXWvIHvQsQF8t4NZrsy
XDmzMp+38NKnoftuwD9R3fyV34FCFheCnzzExR+B9v3PBNyo55A36OD28jq8buRS0R7LgtvFMQknb7Z1
/lUrEF87xQUJtsAWbJm4yICaGQd0SLuCaodXxKXyokEsR7i4Qm9SFjdxnoGLAXD1yEI37nHAb+7iAu+X
Bfe54z1bb1IZfv5RVkudhp99uNKz7abS5zMg6D96M+ArD3FxL7JUf50IOrhtvQ6v2+AAVlvmH68vFMd8
SvNUSCMQY7vFRbAFtmDHxEUG1Mw4oJMb6+Li9y4uruTYrtR3+M6yfXJ77KoZ8FuEuPi+OFZZPOVKVkmd
+MRN7ye2kf7mgELvU8OfiYsWoIN7j9fhdROLgFzL4iBxzOfHst3KCuP04m4HQRbYgg0TFxlQM+OATm7M
igvEsT7glYJqXPwFnCYtmnxFtW3I8EuPR7nJkjdf4DlkqTHnCfzmKi7weh+RX5l//per5VOnwYFK/+f3
lL64VkZtslxRwKeJixagg3u71+F1E98V7bAW4KOlWrnHQCk2MWwF4iyDuCCZF9hCfRMXGVAz44BObiyL
i3NcTH1Hp9+krP/flg5waR9jHXljZqVnk7rVJD+MbDXuvIDP3MQF/q4Lelx+32d3q4qDLGngzKOlH/Jv
yFbPLU/g18RFC9DBdau44GOAK4l2uFYck3Adh21km5UZxFoWcUEyXelFfRMXGVAz44BObkyKC8TATcpq
izctuoFXI5Onkb/PqMxZb+lEwr4jdomOJE9cmdLZAVcgS409L+AzF3EBVgDTXB5Xzhx+5cmodLpEEefs
RfwQ2ep55Q18m7hoATq493odXrdQexQar7f3jkkKebIpFIi3TOIi0wJbqGviIgNqZhzQyY1VcfFxF88/
Nyl7DdnJ08KJ58nzqjL84l+io8nS0N3XSTv9oPaLpwjgLy9xcZF4j/P8VVQyXeITPdIemAzatt8CfJu4
aAE6uA96HV43wB1NVxZt8L/imGQQtH3jwiQg3jKJC5J6gS3UM3GRATUzDujkxqq4+LWLZ+AsLp2RLvF2
irPjSL3C56LBytxd6ta8OBK5avx5AH95iIva1SGy4CenRqXSpeEn7q+KQWHzMbAKDqnnVATwb+KiBejg
jvY6vG7genH+qwP+wtbKXSzbqhNAzGUTFyTVAluoY+IiA2pmHNDJjTlxAf/cz6K2SdnQtCnITp5GZj4t
z6lGllsjCy48Wdq6C1nqOeQB/OUhLmr0f3GvqoBKm7hy6tw9tpQ2/wHWxSH1fIoCMeQhLvg47TEB+TRc
qPEXATq487wOrxuozQHC60O8Y5KtZVt1Aoi5jOKCJL69hDomLjKgZsYBndJYFBcnuliqG2Wl3KTMuyXy
LFj65EnKWyPDzzwkbdLeOshWzyM08JWbuOAVmZFXn49KpEgDPZW+I3eTNheCUiw0hDjyEBeheQku1PiL
AB3cb70OrxvYR5z/Gd4xR9t3Q04D4g4lLq4HI15eVhItsIXyY11ccE2QlwLygIyzLugkoFMai+LiMRfL
4IT0m5R5t0ROBfe791k2P/MG0W8hSz2P0MBXPuJi3PjK0IO3RkdTJIi/gTMOr7e5zgaH44h6HkWDWExc
NAGdETcvmwv8Tm+sI8XFv3vHHLVVOzsJxB1KXBwDzvbyspJogS2UHeviIjR1fUld0ElApzSmxAV8b1OL
A4Ne2l/TvDJRs/NP1gFfde+z3BpZ+KsfSrszQKbnuOMCP7mIi8HLqY/SpwWX/EedPXAustVzaAeIJ4i4
4FUr7pIbiv4TPinbrJ3iYiuvc+oWjhVtcIR3zHG0bKtOAXGHFBcUn42WQk9L7AW2UM7ERTJMXGjA9yUu
jnknp9+kzHsU8iFk0fbaIPOtkZGev/trXuyMbPV8QgI/wcXFvBP3r1SWLI6OJE9coMzZiuBE3ELEVlwQ
TxBxETrxcV8XF2inuDjX65y6hR+INtjaO+bgAjuj2qzsIO5g4iKytwbgJXetTFomgZZ9BcqYuEiGiQsf
+PU2Kbsa2ekSr0w4O+BEZDkfQW6NDJx+mLT/P8gadT6hgZ8g4mL4uWmVRTdfUmXkjb9FucnTkkfvqvRs
WieyuJlXoY/nxgExmbhoADqiZcAM0TF1E7VNCPH6rYDbrftl2raZXBYQd1BxEdnk/jMLxbEQtLytjDIm
LpJh4sIHfg9zMczdaXMElW6TMu+WCK9UrI1s5yPIrZGhe6+XPuaBtyF71DmFBD6CiIsQaXjmU/5juX8D
pVwLAHGZuGgAOqL9vI6pm+gBbxZtMVUcc3TckyIEcQcXF5HdL3jHs8LHfz8mffjguImLZJi48IHfu1wM
WTYp826J3I8s6SPIrZHK0MLK3F23kH6CbTHcCPgoh7jof6PSd8hH5LnPB6XthBGbiQsFdEJrg7+KTqkb
qU0sxOvve8fI/rLNOgXEnYu4iGz/3CuTlTdAw6fucMzERTJMXEjgkwPA0kH/GU6TSJf6Dt1JnktteV8H
8oLcGuGCU84OuBtZdX5CAx+lEBcjr71cmbvn1vLcZ4O2bEMfB8TW1eICnQ0n5HFDLs4r2BscBzj4sFPX
Oqdu4jTRTjt6x8i3ZVt2Cog7T3HBW0h/FmVCMA2om8Ih38RFMkxcSODzO85/31G7IytdGp7xR3kedbdE
HMgLcmtE8bUesut8hQT2y3NbhCtxbr6RPP9SzrcgiKurxAU6l5UBH628B8wCS4DWCRnjNrhPtNuygMtU
y+O/l23bKSDu3MRFZH8cCP348mUNfJm4SIaJCwf8cZOyl53/Rb++ENnp0uBl35TnoS7RjPwwt0aQvLU0
zkbWKH+hgP3SiAumxbf9XJ47+RUo1ZMiBDF1jbhAx7IueE50NEZzeM+/NlcIry8Wx8gQWEO2cSeAmHMV
FwTH9vHKhmDUo7/IM3GRDBMXDvj7mPPNX8NpNylj6jt4R3kexyOrkc8gt0YWXvcj6e9FkNvgCtulEhdM
C352ujx/8k1kq/G3C8TUFeICnQqf/HhIdDJGPL4u2lB7JLVhP1JWEHPu4oLg+Dle+axwk7gtPB8mLpJh
4sIBf9c53wNnUrimS95timHwLmQ38hnk1sjI3Ff9xzF3RbbqMyuwHUZcLOivxk3SLq1eS6g/77RD5PmT
Uk2CQzzdIi528zoZIx5PgtqPArx+RBwj02U7dwKIuShxwVtJvxPlQ8BJxqsLHyYukmHigsDXGmDpJmUP
/xbZ6dLgZd+Q59D0XimOB7s1MnDGEdJvbm0H20HEhfysByecGeVmSPPm+JNo+Wju5jiinkfRIJZuERen
e52MEZ/a45B4/RnvGNlLtnXZQbyFiAuCMu8Er4g6IZgMqoIPf01cJMPEBYGv2hWE3n23y/RLuveAHeQ5
tLyUiTJBbo0M3X+z9DsAVka26jMLsBtcXGTeVyRK1XUvdtp8qd1/3iJ6Jw6p51IkiMPEhdEK/qpx7bgc
4PLU8jhvN5VuPlEjEGth4oKg3PZgkagXguoCW/hr4iIZJi4IfP3Z+R28gk99pUvDT0+V8S8BDW+JOFAm
yK0RLp/tbTX+OeSqPrMAu+HFBaAoGJn1bHQ0fVoy7bZKz0Z1t4juBSvgkHo+RYEYgogL3kbi5mWhWPzb
/5ZtFUJc7Ol1MkYythdtebh3jBwm27vMINZCxQVB2eO9ulmpLrAFTFwkw8QF/Gxd88lNyv4+A9npkrd5
1u3IUn1KUC7YrZEFP/269P8HZKk+swC7uYgL0ve5PSqVwYGoRPq06Iaf+LbVx8uKBDEEERcUBM5ODoQQ
F1zLwu9ojPjU+g285tog/qA2E5TycWsfxFm4uCAof5VXPytci2W2l5eWsoqLh8EBAdlTxlkXdBLQKXWy
uLjY+Zx30oHISp+8WyJ94KWYcOJntV6WWyPDf/2z9E/eh2z1vNMCm7mJCzL/gq9EJbIl2vFsn4Bs9ZyK
AP67QlwQdCxzgNaBGfGobVSG1zt7x0ipdvxtBOJsl7jgAlt/EfXLRFnFxS2a/VComXFAp9SR4gI+uEnZ
XOdz8R1XITtd8m6JpCbTrREk/voX9s5BlnruaYHNPMRFbTItWTzlyqhUhjS0sNL/5X2lD96m4spo6nnl
DXznIS44t2Z6QKbAhRp/EtBR3el1XEYyHgfLifa8VhwjXPei9PuNIMa2iAuCOhuAXmGjLJi4SAI6pU4V
F0s3KfvI5pkuyXu3JDKR5dbIoht+LG3xqkhtU6QQwF4e4uIa8Af3vmfLjau7pmZN3Ja+d7/tpZ85IPjV
nDjAbx7iQl2grd2go/qu13EZyTlFtOeawF+18wmgLlVdFhBf28QFQb39PTtlwMRFEtDJdaq4+J3zt+BH
3BE9faIgGH7ygSCM9M6OrKZIfa/5S2IH/bUOe3mIi4lgLcD9Qap5vQd9qLo5WdbEdUd6tt1U+noSrIpD
6vnlBXx2k7jIY9XEbmM+qC3lj9cHi2OOC2S7lw3E11ZxQVD3e56tdmPiIgno5DpOXMD+umDpRMoMm5SV
LQ186yjZjr9AltoGaYC9XMQFsmh7Z8DbF9X8gTMO/2fhjKm6Nf248dLfZLAsDqnnmAfw103iYjVge4lk
514gt2OfKI459pZtXyYQWxnEBRfYukvYajcmLpKATq4TxcVZzlffZ3dD1thJQ/93i2zHBSDYL3XYyk1c
ELz+usivLPzF96vls6bBn58r/ZHzkT3q/PIC/rpGXBB0VrYEeBjksuDcDO5ZcYz0gHVl25cFxNV2cUFQ
/13gb8JeOzFxkQR0ch0lLmCbm5RxPkLVF/fmGFOJa17Ub0f+BeSqbZEU2MpbXCwDbnbHesaPryz5053V
OlnTwFnHSJ/kCGSPOsc8gK9uExdluxxdNLyt4c+TSMNiINe+2AwMRMccDbcKbyeIqRTigsDGDoBtqdkv
EhMXSUAn12niYg/nh/MTMs1xKGlacPFpsi0fQJbaFkmBrVzFBcH7VcEMd3zu7ltWRl57mdWypQX9lb5j
6naQXQhqHXeewE+3iYsdvc6rG+B6COeBjUU7rAIOAY8CrU4cXgLvEDa1pcH5qFvdZ9BuEFNpxAWBna94
dtuBiYskoJPrNHHBbbmrfga+fRSyxl4afvEx2ZZkPLLV9kgC7OQuLgjyNgfzXZn+4/fGyLoQh7Klkdkv
VOZ+bCvp+1WwNg7V+Q8NfHSbuOACUCF+uXcC3NPiJNBwyX0c43LeFwKtfhx+D+TjqWeKY47Tpc92g3hK
JS4IbF3j2S4aExdJQCfXMeICdlcH/MVa9TM0dTKyx2bq/8LHZXuehyy1TZIAO4WIC4L8o0SZ6uO+IdKS
x+/zn6iZBt6KQ6NiCAXsd5W4IOiwfu51YGONJ8BnwfLa+Wug7NVR3TRcIuxwa3u/fUcAVwIc5bcdIJYy
iou3Aa4jovkpAhMXSUAn10ni4ivOR+8+2TYpK3tadNNFsj1ngsxrXsBGYeKC4Nilolxl8e9/iezsydtT
g1wLctsUCrbzEBfPgGNCAzfqOSQFHdZ+Xgc2VngA7AsSf19Q57DIRlpOFbZ4NWSKOEYWgA9Jn+0CcZRO
XBDY2xD0C/tFYuIiCeiQOklcPOp8DF7ODe/GcOp7vdKzxcayTevWe08DbBQtLlYEvLJQLTv3g+/PtMiY
TN68FJLbZWXYzkNc5AKSeg5JQYe1IuDTDFpn1olMAh/WzjUOqMv2uCOylQXey3U2VwJ3i2OEy69vIn23
A8RQSnFBYPMgz0dRlFVcUJRybk9I2FFX4xwVeFzQIXWEuIDNrWr2uUlZgF04y54Gzjxatil/9qttExfY
KFRcEBxfB3B1zWr5vsN2rlTm9+JQxjQ8XJl36sEyDq578kkcUePIAux2nbgg6GAuBX5H1mnwVy6fV1fP
sRWoyysMxwHOzdDsJ4U7dX5K2NcEBjc4e4+Mo2jgv7TigsDuBZ6fIiiruMgDdtLVOEcFHhd0SJ0iLi5y
9ueduD+y0qeRmU+rq2vmQWVBX+Q1eRp6cJJs00GwGrLV9okD6hcuLgjKfBzUFj0b+M7nkR0g9b9R6fvM
R2Qs88D7cUSNIy2wGURccLE3CqKgnHSgPH+6Uc8hDehgxsJTI1/Uzq0VqEdRcQx4PrITEj5Wua/wpQmM
p8GaMqYige+yiwsusHWP8FMEJi6SgA6p9OIC9nh5vcfZX3w7zadM+MXbu+92MtZc4RbiqdOSxZXeT2wj
7R2LXLWN4oD6bREXBOVqC5+RTO0i0vArT1b3lhG2XwC1R/9CAHtBxEUeaWTuq/LcmaWeQxrQwXDi4V9F
h9OJNHwKRAPl8xQVEgqM/YRfCgzeupFlOHlxDRlfUcBvqcUFge1/AbOEr7wxcZEEdEidIC4Odbbn7rhZ
pk3KvKsBudP/eU6VSJ8GLz1D2nsQWWobxQH12ykuuPjZ7a5ez6YbVpY8/gccyp6Gpk2p9Gy0oYzpbhD7
KYBWwFZXiguCTuY0r9PpJLgDae0R0GawHChCVEi4zHptMTi85q/xq6JjjodBpiuWaYDP0osLAvu8usbP
WfMdGhMXSUCH1AniYukmZf/5VWSlTwPfPFLGyS3budpnHtT8DL8wPfKePA2//ISMl9QW+UkK6rZNXBCU
XQO87Oryqgx3Pw2RFv36QhkT+Rmy1TiSAlvdLC7WAJwwpnVAnUDT+RY4zjU9jgJpRcVC8Ai4D7wc5SWB
czC486KLh1eLzo6OOQoXGPDXEeKCwAfXKdF8h8bERRLQIZVaXMAWJwQu3aTs6anITpdG3phZ6dmk7hfu
rshW/WYFtu93fvhkQ5bEz8XZAqn31UDdtooLgvLbgUWuPucMhHqkeP75X5ZxkeORrcaRBNjpWnFB0NFc
4XU8ncRfwKiBGXkUFYeCp4BWrxUvghNA3d4/eM8BI81TJVyka1WwNTgC/BHI44UKDPjqGHFB4Oc6z28e
mLhIAjqksouLM53dviOzbVK2cOJ5MsbnQJ5rI3zB+eJeIZw/kTYtuvkSGfcskGpXUNRru7ggqHO8qB/u
seJFg5X+L+0jYxsCmQUkbHS7uNjc63g6jWfAp8CaYG3A2x9pRcV0cDhoeLsFx3j1IcuKno3gPiSFTPKE
n04TF9wY7knhNw9MXCQBHVJpxQXs8D79i85u1k3Keg/cQcbIywmq3xDAPvfY4K6mVX9DD96K7JSp/41K
z5Z1a17shVzVbzNQrxTigqDe1TUb48ZXd4MNkUbmzPIn7PIx2PVxSI0jDqjf1eKCoLPhEtZ+B9RN8MmE
vUCsHyQsB3h1Q7OVBQ6guT+mCh8dJS4IfG0E5gnfoTFxkQR0SGUWFx91Nns2y7ZJ2ZJpt8n4FoN3IVv1
Gwr4uMb55JoVWRIf33S2wHXIUn02A/XKJC5WAo87O3ziI9TaJcMzHqn0bLOJjPEJsAoOqbG0AnVNXIzD
/6LeCY1luCT3TeCDWps0A3W46NZrQLObFYoWftiq7xDAfseJCwJ/B3v+Q2LiIgnokMosLrisc9XmwLey
bVLGTc6cLXA9slSfIYGfpTu4brFxddXNtIlPRDhbgPurJP6io05pxAVB3fGgz9nqO/qjmZ4Ekmnonl/j
H2S8jHMSSLWEOup1vbgg6HAe8jqgsQyv1KSaPI163CL8/shOXswGm2v+QwDbHSkuCHzmcUuKmLhIAjqk
UooL2Hg7WLpJ2YOTkJ0u8VI5H310tsAeyFb9hgR+eFvnFeeX+4WkTlyfY5+6y/1fRq7qtxGoUypxQVD/
QGGrMv+CE5AdJg1eebaMk3wP2WoczUA9ExcAHc4eXgc0VnkMrKC1QTNQZ1twe2SjCHpB6iXNmwG7nSwu
+FjxH0QMoTBxkQR0SGUVFyc4e717b5vpiYKF1/xAxsZFljJvAhYX+Pqe882dTrOkwcu+Ic9jGrJUn41A
ndKJCwIbFwh7lUWTr0B2mMQrXtI2OAzZahyNQB0TFxHodO7yOqGxSKKnjFB+K3CLqF8kfEz4IC2uLMBm
x4oLAr9rgVdFHCEwcZEEdEhlFRd/cvYGL/smstKnvoN3lLF9A1mqzzyAvw2F70wbd3E1yjnr1V3q50in
+tVA+bKKi+XAvc4mJ68OP/swDgVIC/oqfUftLuPlMupQq3osGihv4iICnc52gHMRtA5prHCwdu4+KNdO
USGpWysjBLDX0eKCwPdOgAuVaXGlwcRFEtAh1cRF36E7VTdXSoO3xkDWS+VbCFuVRbdeqvqMg7d1OR9N
XEvzmSfw+aCLYf73jlPjjEvvAXVPvFyg+WsEytfERVk+awfsrAVedXZ5nkNTJ6v+k7L4NxP89U34OO+7
tTg0UHapuIDw0Xy0jbuvk+eFcPVzCAk6nk5e9yIOl2rn7cDxsogKH841SPWYug/sdLy4IPB/ihdPFkxc
JAEdUk1cBCSruPipZy8U/6v5yxv4PdaLIxQcjGN3JihbExcBCSIuCGztBJYI23nyMHiLFocPytXERdnx
Y88DdDxctfN10RGNNfhr92PKeW8GyigqJJNB5qXvYYNrmxwQgHU0+0UB/3wkeG8RTxaCbSlAYG81z36Z
2MfFOSrwuKBDKpW4QF1uUlbbojswe2s+8wZ+VwO8HK/FlJXal6AVKFtqcUFg7xTPfp5co8Xgg3ImLjzQ
+RwItMFtrMBbDf8DuIonlwe/GWS9HTQHXAZOBueDvDaFO0v7zAwjDWpmHNAhbQumB+YczVccUHcXz1Yo
uJlVYRM5feD7QhFLSM7T/Gmg7G5e3RCk/qw1YG8ZMEHYz5vazpSNQJm1vTqlRYs/LzCIXesNaobOK4D7
X9Tt0Ir3y4OfAK1OFgbBO6Uvw0iLmmkYhpEXGMBWB2k26+oWngCfBQ0vp+MYL9unXYq8Gadq/gwjKWqm
YRhGnmAQ45bXIWfkjwWmgn1By6XCUYZzG/qBZicL3OFR9WkYSVAzDcMw8gYD2ZnewNbNTARxRMUGUdm8
hBm3gg86AdHoTtRMwzCMvMEgtizIY0XETuT9Whs5cDxvUSF5rxaDYSRBzTQMwygCDGTvAT1iYOtW1AXa
kF+kqHCM12IxjCSomYZhGEWBwWx/b3DrRu4AK4o2WR8ULSoc9sSIkRk10zAMo0gwoF3gDXDdCNevuBjc
CBZHeUUzT/t8DCMpaqZhGEaRYFDLa0dKIxm3aJ+PYSRFzTQMwygaDGxrg9lioDOK5wjtszGMpKiZhmEY
7QCD20cBl9DWBj4jX54Hy2mfi2EkRc1Mwh233z511qxZi8lzzz47/1fX/vJCrRy5+KcXrc8yrjxhfa2s
zxWXXb7LQ1Onzuzr6xshfM08raxD83fvPfc8xXytPKFNWV5y5YQJR2p1HEnaIi6MZ/r06XNok39bnXMc
eB4uTp9G9hu1S6t42NZsF/k5NGsX6adZnoZrJ37Gfp4sp0EfrOe+X6zX6vMmcWOTsE7S77JDa8+bbrzx
F1pZB9ub5XhOLs+1y9UTrzpNli0DGOC+KQY8ozg+rX0ehpEGNTMu7BTxt8KOjq9bDahRB1pN7CCjzq4S
2VHrEHby7ITxusI6rh7zmnXKjfxFf9U67LwZjzs3Jpbn+2a+XPm4bREX2uF5RgNIRQ6caeF5MEbXHkx8
TxoJL9mWrmyz8oTHokG3wr8sz/NpNqA5P1G9hnkatI2/1eSEAfNa1aN9FyfbRLZLq8E3bmwOlk/zXSYy
Tp6Xa89W4oK4tuH5RG3T9P+gnWCQ49LWk8SgZ+RP0+3iDSMpamZcXCcZ5xce8TviaGBq2TG7DlgO1pMn
TZrCPHawLs+nkb8obrWOxHXkrTp9krQt4sIYSDTIVUWSPJ4Fv32akaSsIxJCiQSR5ieubyck+FlEg2ks
ceHijL5T1bzou1YdxF2eRtJ20XzF+S6T6Hhd3bi47w9tuBhCf1dDgsGO20o/JwY/Iz+mgGW1z8Ew0qJm
xsV1ikzshFv9gnIdMZO7tMvXzQYfKQjkr2Rnq5lQ8P05kRK3c44GjFjiImlbxMUNBEwcGNgGPJcQV0WS
DIyyLVnegbdqeZKk/RxN/MQWF5EAq/AzcHmynI+zL+NkOzvBKL93PknakGi+nI1m32X//8B9DxyybCPk
VZJm/3NlAQPeZmAgGgCNfHgErKS1v2FkQc1MAn8RcdBzHXGzTssfONjxtxro/U7V5cfp1KU/Fx/LSzvN
0AaCZiRpizg4weJ+sfKv+0UdVyA1I04bOmRbMg4H3qrliWuHuO1HpB9+Pxx83ypOJyT4+dI3X3NAbVVP
i9PZYH6z70uSNiSazTg2XJmofvV9VD62b3c7hCnu/0C7wcB3iBgIjbDMAGtq7W4YWVEz46J1kK7z00ja
ETvc4JL1toi7ChB3YHadd2RHLeNI2hZxYH1nw52vywsxOCT5PNJ8dtFnk+hWjuYnrm8nLvhatlerei5O
+b1wIq7VvISk7aL5crG2Emvu/0BeFaPfuL7TfIZlAAPgD8WA2A64SuYc8FLELNAr0OqUndfA+7T2NowQ
qJlxYWdH2ClGHVasKxdJOzd3v5iJnb28vBvZVOv5/pydqJNW60jcOTXz4UjaFnFw58m/tBUJjZaDUFyS
fB6uLBP9O1q1v4uZPlie59LsXr8WU9w42f6yTPQ5t6wn45TfL6boO6PWIy42JtkujcRfI1+tvsvE/z+g
H75udX6OuO1YNjAIcoLn5dGgGBqKg+ngFvBjcDL4DPgw4L4eb9NikqAM41sDvA9sA/YAR4DTwSXgVsDb
D68DLYaimQ/UvUwMIxRqZlw44LGjIuzIW/1CZefmymvHm8EBiR0q67IjZsfaqjP2/bHDd/Xj/PJ3dVv5
IUnbIg6M0YkK2uVrnjdfh5jTkeTzkGUlrSYFsp7fNs0GbC2muHG674d7Tz9x6hH6YNuyrd33K86Ex0bt
wnytPOExxip9NSsvYUzuO0CSfNdkrNrxsoMB8Ysg6ZUCrpnxIrgTXAQoHg4AW4K3a37yhD7BdoDi4yxw
LXgMFLXc9wKwuxabYYREzTQMwygjGBg5OJ8C7gV9wA2aM8E94ApwKuBmaJuCFTQ7ZQNxLg84gfVQ8F3A
R3EpiqQwyAr3Ltla828YoVEzDcMwOgEMlh0hHtKC81sF7ACOBdzU7H4gRVUc5gEKlpU1H4aRB2qmYRiG
UV4gFNYDvDrzbXA9eArwlgfFhLsVdDOgKFlVs2EY+VF50/8DJZ+bS16RxNEAAAAASUVORK5CYII=
</value>
</data>
</root>

View File

@ -0,0 +1,134 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Public Class frm_main
Public Server As Boolean = False
Private Sub frm_event_managment_Load(sender As Object, e As EventArgs) Handles MyBase.Load
EnableIfDatabase()
End Sub
Private Sub btn_system_settings_Click(sender As Object, e As EventArgs) Handles btn_system_settings.Click
Me.Hide()
frm_settings.Show()
End Sub
Private Sub btn_run_event_Click(sender As Object, e As EventArgs) Handles btn_manage_event.Click
If Not SelectedEvent.ID = 0 Then
frm_event_control.Show()
Me.Hide()
End If
End Sub
Private Sub btn_person_data_Click(sender As Object, e As EventArgs) Handles btn_person_data.Click
frm_add_person.Show()
End Sub
Private Sub btn_create_event_Click(sender As Object, e As EventArgs) Handles btn_create_event.Click
frm_create_event.Show()
Me.Hide()
End Sub
Private Sub btn_history_view_Click(sender As Object, e As EventArgs) Handles btn_history_view.Click
End Sub
Private Sub lst_events_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst_events.SelectedIndexChanged
Try
SelectedEvent = New platformevent(lst_events.SelectedValue)
lbl_country_iso3.Text = SelectedEvent.Country.ISO3
pb_event_logo.Image = Image.FromStream(SelectedEvent.Logo)
pb_event_country_flag.Image = Image.FromStream(SelectedEvent.Country.Flag)
Catch ex As Exception
End Try
End Sub
Private Sub btn_update_club_logo_Click(sender As Object, e As EventArgs) Handles btn_update_club_logo.Click
frm_update_logo.Show()
End Sub
Private Sub btn_update_country_flag_Click(sender As Object, e As EventArgs) Handles btn_update_country_flag.Click
frm_update_flag.Show()
End Sub
Private Sub btn_delete_event_Click(sender As Object, e As EventArgs) Handles btn_delete_event.Click
If Not lst_events.SelectedValue = 0 Then
Dim iCancelEvent As DialogResult = MessageBox.Show("Would You Like To Cancel The Event ?", "Event Cancelation", MessageBoxButtons.YesNo, MessageBoxIcon.Stop)
If iCancelEvent = DialogResult.Yes Then
Try
EventList(lst_events)
Catch ex As Exception
End Try
End If
End If
End Sub
Private Sub btn_friendly_match_Click(sender As Object, e As EventArgs) Handles btn_friendly_match.Click
frm_friendly_match.Show()
Me.Hide()
End Sub
Public Sub EnableIfDatabase()
If (CON_TEST(My.Settings.server, My.Settings.port, My.Settings.database, My.Settings.userid, My.Settings.password)) Then
EventList(lst_events)
btn_create_event.Enabled = True
btn_delete_event.Enabled = True
btn_friendly_match.Enabled = True
btn_history_view.Enabled = True
btn_manage_event.Enabled = True
btn_person_data.Enabled = True
btn_system_settings.Enabled = True
btn_update_club_logo.Enabled = True
btn_update_country_flag.Enabled = True
btn_add_club.Enabled = True
Else
btn_create_event.Enabled = False
btn_delete_event.Enabled = False
btn_friendly_match.Enabled = False
btn_history_view.Enabled = False
btn_manage_event.Enabled = False
btn_person_data.Enabled = False
btn_add_club.Enabled = False
btn_update_club_logo.Enabled = False
btn_update_country_flag.Enabled = False
btn_system_settings.Enabled = True
Me.Hide()
End If
End Sub
End Class

View File

@ -0,0 +1,544 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_settings
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()
Me.btn_load_file = New System.Windows.Forms.Button()
Me.btn_save_intro = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txt_path = New System.Windows.Forms.TextBox()
Me.chk_intro = New System.Windows.Forms.CheckBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txt_storage_path = New System.Windows.Forms.TextBox()
Me.ComboBox3 = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.ComboBox4 = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.chk_video_capture = New System.Windows.Forms.CheckBox()
Me.btn_capture_path = New System.Windows.Forms.Button()
Me.btn_save_capture_settings = New System.Windows.Forms.Button()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.txt_server = New System.Windows.Forms.TextBox()
Me.btn_save_connection = New System.Windows.Forms.Button()
Me.txt_user = New System.Windows.Forms.TextBox()
Me.txt_password = New System.Windows.Forms.TextBox()
Me.txt_database = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txt_port = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.chk_database_enable = New System.Windows.Forms.CheckBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.ComboBox7 = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.ComboBox6 = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.ComboBox5 = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.SuspendLayout()
'
'btn_load_file
'
Me.btn_load_file.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_load_file.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_load_file.Location = New System.Drawing.Point(10, 95)
Me.btn_load_file.Name = "btn_load_file"
Me.btn_load_file.Size = New System.Drawing.Size(175, 45)
Me.btn_load_file.TabIndex = 2
Me.btn_load_file.Text = "BROWSE"
Me.btn_load_file.UseVisualStyleBackColor = True
'
'btn_save_intro
'
Me.btn_save_intro.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_save_intro.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_save_intro.Location = New System.Drawing.Point(190, 95)
Me.btn_save_intro.Name = "btn_save_intro"
Me.btn_save_intro.Size = New System.Drawing.Size(175, 45)
Me.btn_save_intro.TabIndex = 3
Me.btn_save_intro.Text = "SAVE"
Me.btn_save_intro.UseVisualStyleBackColor = True
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.txt_path)
Me.GroupBox1.Controls.Add(Me.chk_intro)
Me.GroupBox1.Controls.Add(Me.btn_load_file)
Me.GroupBox1.Controls.Add(Me.btn_save_intro)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.ForeColor = System.Drawing.Color.White
Me.GroupBox1.Location = New System.Drawing.Point(10, 10)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(375, 150)
Me.GroupBox1.TabIndex = 4
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "[ MAIN SETTINGS ]"
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(10, 60)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(105, 30)
Me.Label6.TabIndex = 17
Me.Label6.Text = "Intro Path :"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_path
'
Me.txt_path.Location = New System.Drawing.Point(120, 60)
Me.txt_path.Name = "txt_path"
Me.txt_path.Size = New System.Drawing.Size(245, 26)
Me.txt_path.TabIndex = 16
'
'chk_intro
'
Me.chk_intro.Location = New System.Drawing.Point(10, 30)
Me.chk_intro.Name = "chk_intro"
Me.chk_intro.Size = New System.Drawing.Size(250, 24)
Me.chk_intro.TabIndex = 5
Me.chk_intro.Text = "Enable StartUp Intro Video"
Me.chk_intro.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Label5)
Me.GroupBox2.Controls.Add(Me.txt_storage_path)
Me.GroupBox2.Controls.Add(Me.ComboBox3)
Me.GroupBox2.Controls.Add(Me.Label3)
Me.GroupBox2.Controls.Add(Me.ComboBox4)
Me.GroupBox2.Controls.Add(Me.Label4)
Me.GroupBox2.Controls.Add(Me.ComboBox2)
Me.GroupBox2.Controls.Add(Me.Label2)
Me.GroupBox2.Controls.Add(Me.ComboBox1)
Me.GroupBox2.Controls.Add(Me.Label1)
Me.GroupBox2.Controls.Add(Me.chk_video_capture)
Me.GroupBox2.Controls.Add(Me.btn_capture_path)
Me.GroupBox2.Controls.Add(Me.btn_save_capture_settings)
Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.ForeColor = System.Drawing.Color.White
Me.GroupBox2.Location = New System.Drawing.Point(10, 165)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(375, 295)
Me.GroupBox2.TabIndex = 7
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "[ VIDEO SOURCE ]"
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(10, 205)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(105, 30)
Me.Label5.TabIndex = 15
Me.Label5.Text = "Store Path :"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_storage_path
'
Me.txt_storage_path.Location = New System.Drawing.Point(120, 205)
Me.txt_storage_path.Name = "txt_storage_path"
Me.txt_storage_path.Size = New System.Drawing.Size(245, 26)
Me.txt_storage_path.TabIndex = 14
'
'ComboBox3
'
Me.ComboBox3.FormattingEnabled = True
Me.ComboBox3.Location = New System.Drawing.Point(120, 170)
Me.ComboBox3.Name = "ComboBox3"
Me.ComboBox3.Size = New System.Drawing.Size(245, 28)
Me.ComboBox3.TabIndex = 13
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(10, 170)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(105, 30)
Me.Label3.TabIndex = 12
Me.Label3.Text = "Source #4 :"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'ComboBox4
'
Me.ComboBox4.FormattingEnabled = True
Me.ComboBox4.Location = New System.Drawing.Point(120, 135)
Me.ComboBox4.Name = "ComboBox4"
Me.ComboBox4.Size = New System.Drawing.Size(245, 28)
Me.ComboBox4.TabIndex = 11
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(10, 135)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(105, 30)
Me.Label4.TabIndex = 10
Me.Label4.Text = "Source #3 :"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'ComboBox2
'
Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Location = New System.Drawing.Point(120, 100)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(245, 28)
Me.ComboBox2.TabIndex = 9
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(10, 100)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(105, 30)
Me.Label2.TabIndex = 8
Me.Label2.Text = "Source #2 :"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(120, 65)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(245, 28)
Me.ComboBox1.TabIndex = 7
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(10, 65)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(105, 30)
Me.Label1.TabIndex = 6
Me.Label1.Text = "Source #1 :"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'chk_video_capture
'
Me.chk_video_capture.Location = New System.Drawing.Point(10, 35)
Me.chk_video_capture.Name = "chk_video_capture"
Me.chk_video_capture.Size = New System.Drawing.Size(250, 24)
Me.chk_video_capture.TabIndex = 5
Me.chk_video_capture.Text = "Enable Video Capture"
Me.chk_video_capture.UseVisualStyleBackColor = True
'
'btn_capture_path
'
Me.btn_capture_path.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_capture_path.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_capture_path.Location = New System.Drawing.Point(10, 240)
Me.btn_capture_path.Name = "btn_capture_path"
Me.btn_capture_path.Size = New System.Drawing.Size(175, 45)
Me.btn_capture_path.TabIndex = 2
Me.btn_capture_path.Text = "BROWSE"
Me.btn_capture_path.UseVisualStyleBackColor = True
'
'btn_save_capture_settings
'
Me.btn_save_capture_settings.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_save_capture_settings.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_save_capture_settings.Location = New System.Drawing.Point(190, 240)
Me.btn_save_capture_settings.Name = "btn_save_capture_settings"
Me.btn_save_capture_settings.Size = New System.Drawing.Size(175, 45)
Me.btn_save_capture_settings.TabIndex = 3
Me.btn_save_capture_settings.Text = "SAVE"
Me.btn_save_capture_settings.UseVisualStyleBackColor = True
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.Button1)
Me.GroupBox3.Controls.Add(Me.txt_server)
Me.GroupBox3.Controls.Add(Me.btn_save_connection)
Me.GroupBox3.Controls.Add(Me.txt_user)
Me.GroupBox3.Controls.Add(Me.txt_password)
Me.GroupBox3.Controls.Add(Me.txt_database)
Me.GroupBox3.Controls.Add(Me.Label12)
Me.GroupBox3.Controls.Add(Me.txt_port)
Me.GroupBox3.Controls.Add(Me.Label13)
Me.GroupBox3.Controls.Add(Me.Label14)
Me.GroupBox3.Controls.Add(Me.Label15)
Me.GroupBox3.Controls.Add(Me.Label16)
Me.GroupBox3.Controls.Add(Me.chk_database_enable)
Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox3.ForeColor = System.Drawing.Color.White
Me.GroupBox3.Location = New System.Drawing.Point(395, 165)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(374, 295)
Me.GroupBox3.TabIndex = 16
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "[ DATABASE CONNECTION ]"
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.Button1.Location = New System.Drawing.Point(10, 240)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(175, 45)
Me.Button1.TabIndex = 16
Me.Button1.Text = "CONNECT"
Me.Button1.UseVisualStyleBackColor = True
'
'txt_server
'
Me.txt_server.Location = New System.Drawing.Point(120, 65)
Me.txt_server.Name = "txt_server"
Me.txt_server.Size = New System.Drawing.Size(245, 26)
Me.txt_server.TabIndex = 29
'
'btn_save_connection
'
Me.btn_save_connection.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_save_connection.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.World, CType(0, Byte))
Me.btn_save_connection.Location = New System.Drawing.Point(190, 240)
Me.btn_save_connection.Name = "btn_save_connection"
Me.btn_save_connection.Size = New System.Drawing.Size(175, 45)
Me.btn_save_connection.TabIndex = 17
Me.btn_save_connection.Text = "SAVE"
Me.btn_save_connection.UseVisualStyleBackColor = True
'
'txt_user
'
Me.txt_user.Location = New System.Drawing.Point(120, 100)
Me.txt_user.Name = "txt_user"
Me.txt_user.Size = New System.Drawing.Size(245, 26)
Me.txt_user.TabIndex = 28
'
'txt_password
'
Me.txt_password.Location = New System.Drawing.Point(120, 135)
Me.txt_password.Name = "txt_password"
Me.txt_password.Size = New System.Drawing.Size(245, 26)
Me.txt_password.TabIndex = 27
'
'txt_database
'
Me.txt_database.Location = New System.Drawing.Point(120, 170)
Me.txt_database.Name = "txt_database"
Me.txt_database.Size = New System.Drawing.Size(245, 26)
Me.txt_database.TabIndex = 26
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(10, 205)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(105, 30)
Me.Label12.TabIndex = 15
Me.Label12.Text = "Port :"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txt_port
'
Me.txt_port.Location = New System.Drawing.Point(120, 205)
Me.txt_port.Name = "txt_port"
Me.txt_port.Size = New System.Drawing.Size(245, 26)
Me.txt_port.TabIndex = 14
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(10, 170)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(105, 30)
Me.Label13.TabIndex = 12
Me.Label13.Text = "Database :"
Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(10, 135)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(105, 30)
Me.Label14.TabIndex = 10
Me.Label14.Text = "Password :"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(10, 100)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(105, 30)
Me.Label15.TabIndex = 8
Me.Label15.Text = "User :"
Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(10, 65)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(105, 30)
Me.Label16.TabIndex = 6
Me.Label16.Text = "Server :"
Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'chk_database_enable
'
Me.chk_database_enable.Location = New System.Drawing.Point(10, 35)
Me.chk_database_enable.Name = "chk_database_enable"
Me.chk_database_enable.Size = New System.Drawing.Size(250, 24)
Me.chk_database_enable.TabIndex = 5
Me.chk_database_enable.Text = "Enable Database"
Me.chk_database_enable.UseVisualStyleBackColor = True
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.ComboBox7)
Me.GroupBox4.Controls.Add(Me.Label9)
Me.GroupBox4.Controls.Add(Me.ComboBox6)
Me.GroupBox4.Controls.Add(Me.Label8)
Me.GroupBox4.Controls.Add(Me.ComboBox5)
Me.GroupBox4.Controls.Add(Me.Label7)
Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox4.ForeColor = System.Drawing.Color.White
Me.GroupBox4.Location = New System.Drawing.Point(395, 10)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(375, 150)
Me.GroupBox4.TabIndex = 18
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "[ SCREEN DISTRIBUTION ]"
'
'ComboBox7
'
Me.ComboBox7.FormattingEnabled = True
Me.ComboBox7.Location = New System.Drawing.Point(145, 105)
Me.ComboBox7.Name = "ComboBox7"
Me.ComboBox7.Size = New System.Drawing.Size(220, 28)
Me.ComboBox7.TabIndex = 22
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(10, 105)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(130, 30)
Me.Label9.TabIndex = 21
Me.Label9.Text = "Upcoming :"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'ComboBox6
'
Me.ComboBox6.FormattingEnabled = True
Me.ComboBox6.Location = New System.Drawing.Point(145, 70)
Me.ComboBox6.Name = "ComboBox6"
Me.ComboBox6.Size = New System.Drawing.Size(220, 28)
Me.ComboBox6.TabIndex = 20
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(10, 70)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(130, 30)
Me.Label8.TabIndex = 19
Me.Label8.Text = "Score Board :"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'ComboBox5
'
Me.ComboBox5.FormattingEnabled = True
Me.ComboBox5.Location = New System.Drawing.Point(145, 35)
Me.ComboBox5.Name = "ComboBox5"
Me.ComboBox5.Size = New System.Drawing.Size(220, 28)
Me.ComboBox5.TabIndex = 18
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(10, 35)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(130, 30)
Me.Label7.TabIndex = 17
Me.Label7.Text = "Score Control :"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'frm_settings
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(781, 471)
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frm_settings"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TAKEONE SETTINGS"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents btn_load_file As System.Windows.Forms.Button
Friend WithEvents btn_save_intro As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents chk_intro As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents chk_video_capture As System.Windows.Forms.CheckBox
Friend WithEvents btn_capture_path As System.Windows.Forms.Button
Friend WithEvents btn_save_capture_settings As System.Windows.Forms.Button
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txt_path As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txt_storage_path As System.Windows.Forms.TextBox
Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents txt_password As TextBox
Friend WithEvents txt_database As TextBox
Friend WithEvents Label12 As Label
Friend WithEvents txt_port As TextBox
Friend WithEvents Label13 As Label
Friend WithEvents Label14 As Label
Friend WithEvents Label15 As Label
Friend WithEvents Label16 As Label
Friend WithEvents chk_database_enable As CheckBox
Friend WithEvents txt_server As TextBox
Friend WithEvents txt_user As TextBox
Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents ComboBox6 As ComboBox
Friend WithEvents Label8 As Label
Friend WithEvents ComboBox5 As ComboBox
Friend WithEvents Label7 As Label
Friend WithEvents ComboBox7 As ComboBox
Friend WithEvents Label9 As Label
Friend WithEvents Button1 As Button
Friend WithEvents btn_save_connection As Button
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,95 @@
Imports System.ComponentModel
Public Class frm_settings
Private Sub frm_settings_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
frm_main.EnableIfDatabase()
frm_main.Show()
End Sub
Private Sub frm_settings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Load_Settings()
End Sub
Private Sub btn_save_connection_Click(sender As Object, e As EventArgs) Handles btn_save_connection.Click
Save_Settings()
Me.Close()
End Sub
Private Sub Load_Settings()
' Load Video Intro Settings
chk_intro.Checked = My.Settings.video_intro_enable
txt_path.Text = My.Settings.video_intro_path
' Load Database Settings
chk_database_enable.Checked = My.Settings.database_enable
txt_server.Text = My.Settings.server
txt_port.Text = My.Settings.port
txt_user.Text = My.Settings.userid
txt_password.Text = My.Settings.password
txt_database.Text = My.Settings.database
' Load Video Capture Settings
chk_video_capture.Checked = My.Settings.video_capture_enable
End Sub
Private Sub Save_Settings()
' Video Intro Settings
My.Settings.video_intro_enable = chk_intro.Checked
My.Settings.video_intro_path = txt_path.Text
' Database Settings
My.Settings.database_enable = chk_database_enable.Checked
My.Settings.userid = txt_user.Text
My.Settings.password = txt_password.Text
My.Settings.database = txt_database.Text
My.Settings.port = txt_port.Text
My.Settings.server = txt_server.Text
' Video Capture Settings
My.Settings.video_capture_enable = chk_video_capture.Checked
' Command to Commit Save
My.Settings.Save()
End Sub
Private Sub LoadFilePath()
'Creating A New Dialog
Dim OpenVideoFile As New OpenFileDialog
'Filtering The Types
OpenVideoFile.Filter = "Video Files | *.mp4; *.avi; *.mkv;"
'Openning The File
If OpenVideoFile.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Try
Dim FilePath As String = OpenVideoFile.FileName()
txt_path.Text = FilePath
My.Settings.video_intro_path = txt_path.Text
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
Private Sub btn_load_file_Click(sender As Object, e As EventArgs) Handles btn_load_file.Click
LoadFilePath()
End Sub
End Class

View File

@ -0,0 +1,37 @@
Public Class dataset
Private _id As Integer
Private _name As String
Public Sub New(id As Integer, name As String)
_id = id
_name = name
End Sub
Public Property ID As Integer
Set(value As Integer)
_id = value
End Set
Get
Return _id
End Get
End Property
Public Property NAME As String
Set(value As String)
_name = value
End Set
Get
Return _name
End Get
End Property
End Class

View File

@ -0,0 +1,197 @@
Public Class match_timer
'--[MATCH SETTINGS]---------------
Private _set_minutes As Integer
Private _set_seconds As Integer
'--[MATCH SETTINGS]---------------
Private _run_minutes As Integer
Private _run_seconds As Integer
'--[MATCH SETTINGS]---------------
Private _timeUp As Boolean
Private _last10Sec As Boolean
'--[MATCH SETTINGS]---------------
Private _stop As Boolean
Private _start As Boolean
Private _pause As Boolean
Private _continue As Boolean
Public Sub New(minutes As Integer, seconds As Integer)
' In Case Negative Numbers Where Set
If minutes < 0 Then
MsgBox("Sorry You Cant Set Negative Numbers", vbOKOnly + vbCritical, "Wrong Setting")
Exit Sub
End If
' Timing Setup
_set_minutes = minutes
_set_seconds = seconds
' Copy To Running Timer
_run_minutes = _set_minutes
_run_seconds = _set_seconds
' Control Bits
_stop = False
_start = False
_pause = True
_continue = False
' Timer Flags
_timeUp = False
_last10Sec = False
End Sub
ReadOnly Property ReadMinutes As Integer
Get
Return _run_minutes
End Get
End Property
ReadOnly Property ReadSeconds As Integer
Get
Return _run_seconds
End Get
End Property
ReadOnly Property ReadTime() As String
Get
Return Zero(_run_minutes) + ":" + Zero(_run_seconds)
End Get
End Property
ReadOnly Property TimeUp() As Boolean
Get
Return _timeUp
End Get
End Property
ReadOnly Property Last10Sec() As Boolean
Get
Return _last10Sec
End Get
End Property
Public Sub Run()
If _pause = False And _start = True Or _stop = False Then
If _run_minutes > 0 And _run_seconds = 0 Then
_run_minutes -= 1
_run_seconds = 59
ElseIf _run_minutes >= 0 And (_run_seconds > 0 And _run_seconds <= 59) Then
_run_seconds -= 1
DetectLast10Sec(_run_seconds)
ElseIf _run_minutes = 0 And _run_seconds = 0 Then
_timeUp = True
End If
End If
End Sub
Private Sub DetectLast10Sec(seconds As Integer)
If seconds >= 0 And seconds < 10 Then
_last10Sec = True
Else
_last10Sec = False
End If
End Sub
Public Sub StartTime()
If _stop = False Then
_start = True
_pause = False
Else
MsgBox("Cant Start Timer When Its Already Finished Count Down", vbOKOnly + vbInformation, "Timer Message")
End If
End Sub
Public Sub StopTime()
If _start = True Then
_pause = True
_stop = True
Else
MsgBox("Cant Stop Timer When Its Not Even Started", vbOKOnly + vbInformation, "Timer Message")
End If
End Sub
Public Sub PauseTime()
If _start = True And _stop = False Then
_pause = True
Else
MsgBox("Cant Pause Timer When (Not Started) Or Ended", vbOKOnly + vbInformation, "Timer Message")
End If
End Sub
Public Sub ResumeTime()
If _start = True And _stop = False Then
_pause = False
Else
MsgBox("Cant Resume Timer When (Not Started) Or Ended", vbOKOnly + vbInformation, "Timer Message")
End If
End Sub
Public Sub ResetTime()
If _start = True And _stop = False Then
' Display A Message For The User To Choose
Dim iAsk As DialogResult = MessageBox.Show("Would You Like To Stop And Reset The Timer ?", "Timer Message", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
' Checking The Dialog Result
If iAsk = DialogResult.Yes Then
' Its Safe To Do A Reset
Reset_Time()
End If
ElseIf _start = True And _stop = True Then
' Its Safe To Do A Reset
Reset_Time()
End If
End Sub
Private Sub Reset_Time()
_start = False
_pause = True
_stop = False
_run_minutes = _set_minutes
_run_seconds = _set_seconds
End Sub
Private Function Zero(Number As Integer) As String
If Number >= 0 And Number < 10 Then
Return "0" + Number.ToString
Else
Return Number.ToString
End If
End Function
End Class

View File

@ -0,0 +1,32 @@
Imports MySql.Data.MySqlClient
Module MySQL
Public Function CON_STRING() As String
With My.Settings
Return "Server=" & .server & "; Port=" & .port & "; Database=" & .database & "; Uid=" & .userid & "; Pwd = " & .password & ";"
End With
End Function
Public Function CON_TEST(Server As String, Port As Integer, Database As String, UserName As String, Password As String) As Boolean
Dim CON_TEST_STRING As String = "server=" & Server & "; Port=" & Port & "; user id=" & UserName & "; password=" & Password & "; database=" & Database & ";"
Dim CON As New MySqlConnection(CON_TEST_STRING)
Try
CON.Open()
CON.Close()
MessageBox.Show("Connection Sucessfull")
Return True
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Return False
End Try
End Function
End Module

View File

@ -0,0 +1,429 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Module functions
'-------------------------------------------------------------------------------------------------------------
' Person
'-------------------------------------------------------------------------------------------------------------
Public Function GetPersonList() As List(Of dataset)
Dim QRY As String = ("
select
distinct
person.id, concat(person.fname, if(isnull(person.mname), '', concat(' ', person.mname)), ' ', person.lname) as name
from
person
left join
event_matches on (person.id = coalesce(event_matches.blue_fighter, 0) or person.id = coalesce(event_matches.red_fighter, 0))
order by
fname,
mname,
lname
asc
")
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("id"), RDR("name")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
Return LST
End Function
'-------------------------------------------------------------------------------------------------------------
' File Functions
'-------------------------------------------------------------------------------------------------------------
Public Function GetFilePath() As String
'Creating A New Dialog
Dim OpenVideoFile As New OpenFileDialog
'Filtering The Types
OpenVideoFile.Filter = "Video Files | *.mp4; *.avi; *.mkv;"
'Openning The File
If OpenVideoFile.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Try
Dim FilePath As String = OpenVideoFile.FileName()
Return FilePath
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
End Try
Else
Return Nothing
End If
End Function
'-------------------------------------------------------------------------------------------------------------
' Picture Function
'-------------------------------------------------------------------------------------------------------------
Public Function ResizePicture(YourPictureBox As PictureBox, Width As Integer, Height As Integer) As Byte()
'Creating A New Dialog
Dim OpenPictureFile As New OpenFileDialog
'Filtering The Types
OpenPictureFile.Filter = "Image Files | *.jpg; *.jpeg; *.bmp; *.png; *.gif;"
'Openning The File
If OpenPictureFile.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Try
' Getting File Path
Dim FilePath As String = OpenPictureFile.FileName()
Dim FileName As String = System.IO.Path.GetFileName(OpenPictureFile.FileName)
' Picture File
Dim Picture As New MemoryStream
' Define New Image Size
Dim LogoSize As New Size(Width, Height)
' Resizing The Image
Dim ResizedImage = New Bitmap(Image.FromFile(FilePath), LogoSize)
' Display The Image
YourPictureBox.Image = ResizedImage
' Saving The Image As PNG Format
YourPictureBox.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
' Read The Image As Bytes
Dim arrImage() As Byte = Picture.GetBuffer
' Closing The Picture
Picture.Close()
' Returns Image Data In Bytes Format
Return arrImage
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
End Try
Else
Return Nothing
End If
End Function
'-------------------------------------------------------------------------------------------------------------
' Country Functions
'-------------------------------------------------------------------------------------------------------------
Public Sub GetCountryList(ComboBox As ComboBox)
Dim QRY As String = "select * from countries order by name asc"
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("id"), RDR("name")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
ComboBox.DataSource = LST
ComboBox.ValueMember = "ID"
ComboBox.DisplayMember = "name"
End Sub
Public Sub GetCountryFlag(FlagPictureBox As PictureBox, CountryID As Integer)
Dim QRY As String
Try
QRY = "select flag from countries where id=" & CountryID
Catch ex As Exception
Exit Sub
End Try
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
Dim data As Byte() = DirectCast(RDR("flag"), Byte())
Dim flag As New System.IO.MemoryStream(data)
FlagPictureBox.Image = Image.FromStream(flag)
Catch ex As Exception
FlagPictureBox.Image = Nothing
Exit Sub
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Public Sub UpdateCountryFlag(FlagPictureBox As PictureBox, CountryID As Integer)
' Query To Update
Dim QRY As String = "update countries set flag = @flag where id=" & CountryID
' Connection
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
' Preparing The Image
Dim Picture As New MemoryStream
FlagPictureBox.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
Dim arrImage() As Byte = Picture.GetBuffer
Picture.Close()
Try
CON.Open()
COM.Parameters.AddWithValue("@flag", arrImage)
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
'-------------------------------------------------------------------------------------------------------------
' Clubs Functions
'-------------------------------------------------------------------------------------------------------------
Public Sub GetClubsList(ComboBox As ComboBox)
Dim QRY As String = "select id, title from clubs order by title asc"
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("id"), RDR("title")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
ComboBox.DataSource = LST
ComboBox.ValueMember = "ID"
ComboBox.DisplayMember = "name"
End Sub
Public Sub GetClubLogo(LogoPictureBox As PictureBox, ClubID As Integer)
Dim QRY As String
Try
QRY = "select logo from clubs where id=" & ClubID
Catch ex As Exception
Exit Sub
End Try
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
Try
Dim data As Byte() = DirectCast(RDR("logo"), Byte())
Dim flag As New System.IO.MemoryStream(data)
LogoPictureBox.Image = Image.FromStream(flag)
Catch ex As Exception
LogoPictureBox.Image = Nothing
Exit Sub
End Try
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Public Sub UpdateClubLogo(LogoPictureBox As PictureBox, ClubID As Integer)
' Query To Update
Dim QRY As String = "update clubs set logo = @logo where id=" & ClubID
' Connection
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
' Preparing The Image
Dim Picture As New MemoryStream
LogoPictureBox.Image.Save(Picture, System.Drawing.Imaging.ImageFormat.Png)
Dim arrImage() As Byte = Picture.GetBuffer
Picture.Close()
Try
CON.Open()
COM.Parameters.AddWithValue("@logo", arrImage)
COM.ExecuteNonQuery()
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
End Sub
Public Sub EventList(ListBox As ListBox)
Try
ListBox.Items.Clear()
Catch ex As Exception
End Try
Dim QRY As String = "select * from event order by event_start asc"
Dim CON As New MySqlConnection(CON_STRING)
Dim COM As New MySqlCommand(QRY, CON)
Dim RDR As MySqlDataReader
Dim LST As New List(Of dataset)
Try
CON.Open()
RDR = COM.ExecuteReader
If RDR.HasRows = True Then
While RDR.Read
LST.Add(New dataset(RDR("id"), RDR("title")))
End While
End If
CON.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
CON.Dispose()
End Try
ListBox.DataSource = LST
ListBox.ValueMember = "ID"
ListBox.DisplayMember = "name"
End Sub
'-------------------------------------------------------------------------------------------------------------
' Clubs Functions
'-------------------------------------------------------------------------------------------------------------
Public Function IsFormOpen(ByVal frm As Form) As Boolean
If Application.OpenForms.OfType(Of Form).Contains(frm) Then
Return True
Else
Return False
End If
End Function
Public Sub ClearComboBox(ComboBox As ComboBox)
Try
ComboBox.DataSource = Nothing
ComboBox.Items.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Sub ClearListBox(ListBox As ListBox)
Try
ListBox.DataSource = Nothing
ListBox.Items.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Sub SubPopulateComboBox(Data As List(Of dataset), ComboBox As ComboBox)
ClearComboBox(ComboBox)
ComboBox.DataSource = Data
ComboBox.ValueMember = "ID"
ComboBox.DisplayMember = "NAME"
End Sub
Public Sub SubPopulateListBox(Data As List(Of dataset), ListBox As ListBox)
ClearListBox(ListBox)
ListBox.DataSource = Data
ListBox.ValueMember = "ID"
ListBox.DisplayMember = "NAME"
End Sub
End Module

View File

@ -0,0 +1,49 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Module MySQL
Public TAKEONE_EVENT As Integer ' This Carries The Select Event Number
Public Function CON_STRING() As String
With My.Settings
Return "server=" & .server & "; Port=" & .port & "; user id=" & .userid & "; password=" & .password & "; database=" & .database & ";"
End With
End Function
Public Function CON_TEST(Server As String, Port As Integer, Database As String, UserName As String, Password As String) As Boolean
Dim CON_TEST_STRING As String = "server=" & Server & "; Port=" & Port & "; user id=" & UserName & "; password=" & Password & "; database=" & Database & ";"
Dim CON As New MySqlConnection(CON_TEST_STRING)
Try
CON.Open()
CON.Close()
'MessageBox.Show("Connection Sucessfull")
Return True
Catch ex As MySqlException
'MessageBox.Show(ex.Message)
Return False
End Try
End Function
Public Function ReadMySQLDate(MySQLDate As String) As Date
Dim dDate As Date = Date.ParseExact(MySQLDate, "yyyy-MM-dd", Globalization.CultureInfo.InvariantCulture)
Return dDate
End Function
Public Function ReadMySQLDateTime(MySQLDateTime As String) As DateTime
Dim dDate As DateTime = DateTime.ParseExact(MySQLDateTime, "yyyy-MM-dd hh:mm:ss", Globalization.CultureInfo.InvariantCulture)
Return dDate
End Function
End Module

View File

@ -0,0 +1,5 @@
Module EventSelection
Public SelectedEvent As platformevent
End Module

Some files were not shown because too many files have changed in this diff Show More