e:\Program Files\VBdocman E:\Zdrojaky\VB\VBdocman\Version 2.21\Full\SETUP\Samples\TicTacToe\VBdoc TicTacToe This is reference for TicTacToe project. frmAbout frmAbout

Window displaying the information about this application.

MainForm GetKeyValue StartSysInfo GetKeyValue frmAbout

Required. Long. Required. String. Required. String. Required. String. Boolean. (c) Peter Macej 2000-2002 Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean frmAbout StartSysInfo frmAbout

Displays the system info window in About dialog.

Public Sub StartSysInfo() frmAbout frmAbout MainForm MainForm

Main window of this application. It contains menu with About dialog and playing area. The "New Game" button starts new game. The old one if already not finished is terminated first.

frmAbout PlayField PlayField

Object representing playing grid.

field clear getCell getWinner setCell field size clear PlayField

Clears the playing field.

All cells are set to 0. Public Sub clear() field setCell PlayFieldClearExample.txt PlayField getCell PlayField

Returns the value of specified cell.

Required. Integer. X position of cell. Required. Integer. Y position of cell. Integer. Value of cell. Use this method for deciding whether the cell is empty: setCell 1, 1, 2 End If ]]> Public Function getCell(ByVal x As Integer, ByVal y As Integer) As Integer field setCell PlayField getWinner PlayField

Returns the winner.

Integer. Number of player who won (1 or 2). If game is already not over, 0 is returned. Public Function getWinner() As Integer PlayField PlayField setCell PlayField

Sets the value of specified cell.

Required. Integer. X position of cell. Required. Integer. Y position of cell. Optional. Integer, new value of cell. Default value is 0. 0 Empty cell. 1 Player's 1 cell. 2 Player's 2 cell. This method is not very interesting :-) Peter Macej 1234 (22. Jul 2002) 2.2 (c) Peter Macej 2000-2002 Check cell boundaries. Public Sub setCell(ByVal x As Integer, ByVal y As Integer, Optional ByVal value As Integer = 0) End Sub]]> field getCell PlayField field PlayField

Two dimensional array representing playing grid. The cells are counted from zero.

Variant. The array has size x size dimension. The cell is of Integer type and can have three values: 0-empty cell, 1-player's 1 cell, 2-player's 2 cell, Public Property Let field(ByVal vData As Variant) clear getCell setCell PlayField size PlayField

Sets/gets the size of playing grid.

Integer. Size in cells. Public Property Let size(ByVal vData As Integer) field PlayField RandomPlayer RandomPlayer

Class representing the player with random strategy. It means that he writes his mark randomly.

SmartPlayer SystematicPlayer decide turn myColor playerName playField score decide RandomPlayer

Decides the next turn of player.

Required. Integer. X position of cell. Required. Integer. Y position of cell. The position of selected cell is returned in x and y parameters. The play field is NOT affected unlike the turn method. Public Sub decide(x As Integer, y As Integer) playField turn RandomPlayer SystematicPlayer turn RandomPlayer

Makes the next turn of player.

The position of selected cell is decided and the play field is affected unlike the decide method. Public Sub turn() decide RandomPlayer SmartPlayer SystematicPlayer myColor RandomPlayer

Color of player.

Integer, color of player. 1 This player is player 1. 2 This player is player 2. Public Property Let myColor(ByVal color As Integer) playerName score RandomPlayer SmartPlayer SystematicPlayer playerName RandomPlayer

Sets/gets name of player.

String, name of player. This name is used when saving history of scores. Public Property Let playerName(ByVal vData As String) myColor score RandomPlayer SmartPlayer SystematicPlayer playField RandomPlayer

Sets/gets play field that is used by player.

playField object. Public Property Set playField(ByVal vData As playField) PlayField RandomPlayer SmartPlayer SystematicPlayer score RandomPlayer

Sets/gets score of player.

Integer, score. Public Property Let score(ByVal vData As Integer) myColor playerName RandomPlayer SmartPlayer SystematicPlayer SmartPlayer SmartPlayer

Class representing the player with smart strategy. It means that he writes his mark after retrieving all possible solutions and choosing the best. It takes some time.

RandomPlayer SystematicPlayer decide (SmartPlayer) evaluateTurn turn myColor playerName playField score searchDepth timeLimit timeout decide SmartPlayer

Looks for several turns and returns the best one.

Required. Integer. X position of cell. Required. Integer. Y position of cell. The position of selected cell is returned in x and y parameters. The play field is NOT affected unlike the turn method. Public Sub decide(x As Integer, y As Integer) playField turn SmartPlayer evaluateTurn SmartPlayer

Returns score for specified turn.

Required. Integer. X position of cell to be marked. Required. Integer. Y position of cell to be marked. Integer. Score of turn. To every turn found in decision procedure is assigned a score that reflects the "fitness" of that turn. At the end the turn with the best score is chosen. Public Function evaluateTurn(ByVal x As Integer, ByVal y As Integer) As Integer searchDepth SmartPlayer SmartPlayer searchDepth SmartPlayer

Depth of forward searching the solution.

Integer, depth. This strategy looks for several turns forward so that it could find best possible solution. Since it is time consuming and complex operation, the number of next searched turns is limited by this value. Public Property Let searchDepth(ByVal vData As Integer) SmartPlayer SmartPlayer timeLimit SmartPlayer

Time limit in miliseconds that is allowed to "think" about solution. After that limit the searching the solution is stopped and if no was found, the timeout event occurs.

Public timeLimit As Integer searchDepth timeout SmartPlayer timeout SmartPlayer

Event indicating that timeout occured.

Required. Long. Time in miliseconds from starting the turn till timeout occured. Required. Integer. Current limit in miliseconds for timeout. This value is taken from timeLimit property. This event usually signals an error (no solution was found within time limit). Public Event timeout(time As Long, limit As Integer) decide (SmartPlayer) searchDepth timeLimit turn SmartPlayer SystematicPlayer SystematicPlayer

Class representing the player with systematic strategy. It means that he writes his mark at the first empty cell in grid. It starts from left to right and from top to bottom.

RandomPlayer SmartPlayer decide turn myColor playerName playField score Module1 Module1

Module with some helpful functions.

getBestName getBestScore initGame loadScores makeGratulation play saveScores getBestName Module1

Returns the name of the best player from score history.

String. Name of the best player. Public Function getBestName() As String getBestScore loadScores saveScores Module1 getBestScore Module1

Returns the best score from score history.

Integer. Best score. Public Function getBestScore() As Integer getBestName loadScores saveScores Module1 initGame Module1

Initializes new game.

The new palying field and players are created. Game is ready to play after calling this function. Public Sub initGame() play Module1 loadScores Module1

Loads score history from the file.

Collection.Contains scores strings in the form of two colon separated fields:player_name,score. Public Function loadScores() As Collection getBestName getBestScore saveScores Module1 makeGratulation Module1

Returns congratulation for player.

Optional. String.Default value is "player". Contains name of player for who the congratulation appears. String. Congartulation message for specified player. Public Function makeGratulation(Optional name As String = "player") As String play Module1 play Module1

Starts playing new game.

Integer. Value indicating the number of player who won (1 or 2) Two players turn repeatly and game is over when one of them wins or the "New Game" button is pressed. Public Function play() As Integer initGame RandomPlayer SmartPlayer SystematicPlayer Module1 saveScores Module1

Saves score history into file.

Required. Collection object. Contains scores strings in the form of two colon separated fields:player_name,score. Public Sub saveScores(scores As Collection) getBestName getBestScore loadScores Module1 107 128 113 132 105 101 137 138 109 0 106 142 139 100 141 136 114 143 116 103 115 110 140 111 133 108 104 124 102 117 0 125 112