Лабораторная работа: Greating game on visual basic with multiplayer system

👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

GREATING GAME ON VISUAL BASIC WITH MULTIPLAYER SYSTEM
Public connected As Boolean 'if connected
Connect. Icon = LoadResPicture ("ictac", vbResIcon) 'form icon
Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
'call on form cancel or exit by control box on form
MainBoard. hostagame. Enabled = True
MainBoard. joinagame. Enabled = True
On Error GoTo NO_Hosting ' error handler in case creating host fails
If playersname = "" Or gamename = "" Then
MsgBox "You must enter a Players name and Game Name", vbOKOnly, "Tic Tac Oops"
Call goplay 'starts direct play object
'Selects which choice was made for lan
Set address = EnumConnect. GetAddress (lanchoice)
'Binds address to directplay connection
Call dxplay. InitializeConnection (address)
Dim SessionData As DirectPlaySessionData
Set SessionData = dxplay. CreateSessionData
Call SessionData. SetMaxPlayers (2)
Call SessionData. SetSessionName (gamename. Text)
Call SessionData. SetFlags (DPSESSION_MIGRATEHOST)
Call SessionData. SetGuidApplication (AppGuid)
'Starts a new session initializes connection
Call dxplay. Open (SessionData, DPOPEN_CREATE)
MyPlayer = dxplay. CreatePlayer (PlayerName, playerhandle, 0, 0)
Call updatedisplay 'Updates game list
Label8. Caption = "Waiting for other Players"
MsgBox "Could not Host Game", vbOKOnly, "Try Again"
Set address = EnumConnect. GetAddress (lanchoice)
Call dxplay. InitializeConnection (address)
Dim SessionData As DirectPlaySessionData
Set SessionData = dxplay. CreateSessionData
'Gets Session any open session info
Set EnumSession = dxplay. GetDPEnumSessions (SessionData, 0, DPENUMSESSIONS_AVAILABLE)
Set SessionData = EnumSession. GetItem (1)
details = SessionData. GetSessionName
If details > "" And usermode = "client" Then
MsgBox "Connection Failed", vbOKOnly, "Tic Tac Oops"
Set dxplay = dx7. DirectPlayCreate ("") 'open directplay object
Set EnumConnect = dxplay. GetDPEnumConnections ("", DPCONNECTION_DIRECTPLAY)
MsgBox "You must enter a Players name", vbOKOnly, "Tic Tac Oops"
Dim SessionData As DirectPlaySessionData
Set SessionData = EnumSession. GetItem (1)
Call dxplay. Open (SessionData, DPOPEN_JOIN)
MyPlayer = dxplay. CreatePlayer (PlayerName, playerhandle, 0, 0)
MsgBox "Joining Session Failed", vbOKOnly, "No Session Found"
Dim objDPEnumPlayers As DirectPlayEnumPlayers
Dim SessionData As DirectPlaySessionData
Set objDPEnumPlayers = dxplay. GetDPEnumPlayers ("", 0)
gNumPlayersWaiting = objDPEnumPlayers. GetCount
Set SessionData = dxplay. CreateSessionData
Call dxplay. GetSessionDesc (SessionData)
StatusMsg = gNumPlayersWaiting & " of " & SessionData. GetMaxPlayers _
If gNumPlayersWaiting = SessionData. GetMaxPlayers And usermode = "host" Then
Label8. Caption = "Everyone is here Click Start"
If gNumPlayersWaiting = SessionData. GetMaxPlayers And usermode = "client" Then
Label8. Caption = "Waiting For Host To Start Session"
PlayerName = objDPEnumPlayers. GetShortName (x)
If PlayerName <> playersname. Text Then
labeljoined. Caption = PlayerName & " has joined the game."
Call lstPlayers. AddItem (PlayerName)
Private Sub lantype_Click (Index As Integer)
Dim tnumplayers As DirectPlayEnumPlayers
Dim SessionData As DirectPlaySessionData
' Disable joining, in case we start before maximum no. of players reached. We
' don't want anyone slipping in at the last moment.
Set SessionData = dxplay. CreateSessionData
Call dxplay. GetSessionDesc (SessionData) ' necessary?
Call SessionData. SetFlags (SessionData. GetFlags + DPSESSION_JOINDISABLED)
Call dxplay. SetSessionDesc (SessionData)
' Set global player count. This mustn't be done earlier, because someone might
' have dropped out or joined just as the host clicked Start.
Set tnumplayers = dxplay. GetDPEnumPlayers ("", 0)
numplayers = CByte (tnumplayers. GetCount)
dpmsg. WriteLong (MSG_STARTGAME) 'case selector
dpmsg. WriteByte (numplayers) 'number of players
PlayerID = tnumplayers. GetDPID (x + 1)
' Assign place in order to the host
If PlayerID = MyPlayer Then dxMyTurn = x
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, dpmsg)
MainBoard. playerdisplaylabel. Caption = opponentsname & " Has Joined The Game"
MainBoard. StatusBar1. SimpleText = opponentsname & "Is Ready To Play, Start Game"
MainBoard. mnudisconnect. Enabled = True
MsgBox "Could not start game. ", vbOKOnly, "System"
Dim Player_A (9) As Integer 'Initialize X array
Dim Computer_A (9) As Integer 'Initialize O array
Dim Win (3) As Integer ' Spots won to marked
Dim m, Token, first_turn, temp1 As Integer
Dim Temp As Boolean 'check whether player won
Dim tr As String 'string passed on win to mark routine
Dim Begin As Boolean 'continue winning spots flashing
Dim sw As Boolean 'Sets whether X or O starts game
If usermode = "host" And multiplayermode = True Then
Begin = False ' cancel marking routine
score = score + 1 'adds one to gamecount
If usermode = "client" And sw = True Then
ElseIf usermode = "client" And sw = False Then
'Start SW true mode**********************************
StatusBar1. SimpleText = "New Game Initialized" & " X's Turn"
Debug. Print "Turn Status " & MyTurn
Layer_A (u). MousePointer = vbCustom
'select starting icon and characteristics****************************
Layer_A (u). MouseIcon = LoadResPicture ("x", vbResIcon)
Layer_A (u). MouseIcon = LoadResPicture ("nyt", vbResIcon)
'update statusbar and display routine******************************
If usermode = "host" And multiplayermode = True Then
StatusBar1. SimpleText = "New Game Initialized " & profilename & "'s Turn"
Out_Box. Caption = profilename & "'s Turn."
If usermode = "client" And multiplayermode = True Then
StatusBar1. SimpleText = "New Game Initialized " & opponentsname & "'s Turn"
Out_Box. Caption = opponentsname & "'s Turn."
'End sw true*********************************************
'set starting icon*****************
StatusBar1. SimpleText = "New Game Initialized" & " O's Turn"
Debug. Print "Turn Status " & MyTurn
Layer_A (u). MousePointer = vbCustom
If usermode = "host" And multiplayermode = True Then
Layer_A (u). MouseIcon = LoadResPicture ("nyt", vbResIcon)
Layer_A (u). MouseIcon = LoadResPicture ("o", vbResIcon)
'Update Statusbar and outbox display********************8
If usermode = "client" And multiplayermode = True Then
StatusBar1. SimpleText = "New Game Initialized " & profilename & "'s Turn"
Out_Box. Caption = profilename & " 's Turn."
If usermode = "host" And multiplayermode = True Then
StatusBar1. SimpleText = "New Game Initialized " & opponentsname & "'s Turn"
Out_Box. Caption = opponentsname & " 's Turn."
'End sw false*********************************************
Debug. Print "Ran Initialization Myturn status is " & MyTurn
If onconnect = True Then 'checks for connection
On Error GoTo NoDx 'error to handle dxplay not initialized
Call dpmsg. WriteLong (MSG_STOP) 'Sends player quit message to other player
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, dpmsg)
Call CloseDownDPlay 'shuts down dxplay
Unload Connect 'unloads connect form if connect frees memory
Unload MainBoard 'unloads board before ending to free memory
MsgBox "Could not stop DXPlay. ", vbOKOnly, "System"
On Error GoTo NoLoad 'Handles errors in case form won't load
MainBoard. Icon = LoadResPicture ("ictac", vbResIcon) 'form icon
restart. Visible = False 'restart button not seen on single player or client mode
mnudisconnect. Enabled = False 'set menu item to no connect state
onconnect = False 'Sets connection status to false by default
sw = True 'set starting Player to x
x. Checked = True 'set menuitem X to x checked
multiplayermode = False 'initiate mode to false
Call deinitialize 'disables all squares until gamemode and multiplayer mode is decided
MsgBox "Could Not Load Form", vbOKOnly, "Quitting"
'Disables all squares until game selection is made
Layer_A (m). MousePointer = vbCustom
If sw = True Then 'sets mouse pointer to x for x first
Layer_A (m). MouseIcon = LoadResPicture ("x", vbResIcon)
Else 'sets mouse pointer to O for O first
Layer_A (m). MouseIcon = LoadResPicture ("o", vbResIcon)
StatusBar1. SimpleText = "Select Game - New Game or Multiplayer option to start game"
Out_Box. Caption = "Start New Game."
Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, dpmsg)
MsgBox "Could not stop DXPlay. ", vbOKOnly, "System"
usermode = "host" 'Sets usermode to host
MainBoard. Enabled = False 'disable form so user cannot select while connect form is up
hostagame. Enabled = False 'disables menu host button.
joinagame. Enabled = False ' disables menu join button
multiplayermode = True 'sets multiplayer to true
usermode = "client" 'Sets usermode to client
Private Sub Layer_A_Click (Index As Integer)
'Used For single player board selection or multiplayer your turn selection
Debug. Print "Layer A Click Turn Status " & MyTurn
Debug. Print "Layer A Multiplayer Mode Status " & multiplayermode
If multiplayermode = True And MyTurn = False Then 'Easy way to exit if not your turn
If Sq_Left Mod 2 = 1 Then 'check remainder of squares left divided by 2
If sw = True Then ' sets who goes first X or O
Layer_A (Index). Enabled = False 'Sets selected square to not available
If multiplayermode = True And MyTurn = True Then 'checks for multiplayer and turn status
'This routine below packs message to send
'to other player to select the square chosen.
Dim dpmsg As DirectPlayMessage 'alot direct playmessage
Set dpmsg = dxplay. CreateMessage 'set and create the message
Call dpmsg. WriteLong (MSG_MOVE) 'pack message structure and identify type
Call dpmsg. WriteByte (Index) 'Packs case selection number to msgtype.
'This sends the pack message structure
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, dpmsg)
If multiplayermode = True Then 'Sets routines to not your turn on multiplayer
Layer_A (Y). MouseIcon = LoadResPicture ("nyt", vbResIcon)
StatusBar1. SimpleText = "Game count is " & score & " " & opponentsname & ": " & opponentsscore & " | " & profilename & ": " & profilenamescore & " " & opponentsname & "'s Turn"
Out_Box. Caption = opponentsname & "'s Turn."
'Everything below until mod else statement is single player
If multiplayermode = False Then 'Sets X or O turn status on single player
StatusBar1. SimpleText = "New Game Initialized O's Turn"
StatusBar1. SimpleText = "New Game Initialized X's Turn"
Layer_A (Y). MouseIcon = LoadResPicture ("o", vbResIcon)
Layer_A (Y). MouseIcon = LoadResPicture ("x", vbResIcon)
'Mod else*********************************
StatusBar1. SimpleText = "Game count is " & score & " " & opponentsname & ": " & opponentsscore & " | " & profilename & ": " & profilenamescore & " " & opponentsname & "'s Turn"
Layer_A (Y). MouseIcon = LoadResPicture ("nyt", vbResIcon)
Out_Box. Caption = opponentsname & "'s Turn."
StatusBar1. SimpleText = "New Game Initialized X's Turn"
StatusBar1. SimpleText = "New Game Initialized O's Turn"
Layer_A (Y). MouseIcon = LoadResPicture ("x", vbResIcon)
Layer_A (Y). MouseIcon = LoadResPicture ("o", vbResIcon)
If multiplayermode = True And MyTurn = True Then
'Same as above packs message and sends move to other player
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, dpmsg2)
Public Function layer_A_online (Index As Integer)
'This routine is called to mark sqares when remote computer
'Same as above with some redundant routines removed
StatusBar1. SimpleText = "Game count is " & score & " " & opponentsname & ": " & opponentsscore & " | " & profilename & ": " & profilenamescore & " " & profilename & "'s Turn"
Out_Box. Caption = profilename & "'s Turn."
Layer_A (Y). MouseIcon = LoadResPicture ("o", vbResIcon)
StatusBar1. SimpleText = "Game count is " & score & " " & opponentsname & ": " & opponentsscore & " | " & profilename & ": " & profilenamescore & " " & profilename & "'s Turn"
Out_Box. Caption = profilename & "'s Turn."
Layer_A (Y). MouseIcon = LoadResPicture ("x", vbResIcon)
Layer_A (Y). MouseIcon = LoadResPicture ("o", vbResIcon)
Layer_A (Y). MouseIcon = LoadResPicture ("x", vbResIcon)
StatusBar1. SimpleText = "Game count is " & score & " " & opponentsname & ": " & opponentsscore & " | " & profilename & ": " & profilenamescore & " " & profilename & "'s Turn"
Out_Box. Caption = profilename & "'s Turn."
Layer_A (Y). MouseIcon = LoadResPicture ("x", vbResIcon)
StatusBar1. SimpleText = "Game count is " & score & " " & opponentsname & ": " & opponentsscore & " | " & profilename & ": " & profilenamescore & " " & profilename & "'s Turn"
Out_Box. Caption = profilename & "'s Turn."
Layer_A (Y). MouseIcon = LoadResPicture ("o", vbResIcon)
StatusBar1. SimpleText = "New Game Initialized X's Turn"
StatusBar1. SimpleText = "New Game Initialized O's Turn"
Layer_A (Y). MouseIcon = LoadResPicture ("x", vbResIcon)
Layer_A (Y). MouseIcon = LoadResPicture ("o", vbResIcon)
Private Sub scan_3 () '*****************************************
Private Sub EvalNextMove () '***********************************
Debug. Print "Squares Left Value on Evaluate Next Move " & Sq_Left
Debug. Print "Boolean Temp Value on Evaluate " & Temp
Debug. Print "Token Value on Eval." & Token
If Sq_Left Mod 2 = 0 Then 'Makes win or lose calls Turn checking is made later
Player_Wins 'call player wins routine
Computer_Wins 'calls computer rountine
Begin = False 'Turns off mark routine
If multiplayermode = True And usermode = "host" Then 'sets turn to true
Debug. Print "Set myturn to true on win"
If multiplayermode = True And usermode = "host" Then
If sw = True Then 'Checks for Whos Turn and update Host or client
Out_Box. Caption = opponentsname & " Won!"
opponentsscore = opponentsscore + 1
Out_Box. Caption = profilename & " Won!"
profilenamescore = profilenamescore + 1
If multiplayermode = True And usermode = "client" Then
Out_Box. Caption = profilename & " Won!"
profilenamescore = profilenamescore + 1
Out_Box. Caption = opponentsname & " Won!"
opponentsscore = opponentsscore + 1
If multiplayermode = False Then 'Single Player updating
If multiplayermode = True And usermode = "host" Then
Timer4. Enabled = True 'Sets timer to time mark routine
If sw = True Then 'Checks Whos turn sends string to mark
If multiplayermode = True And usermode = "host" Then
profilenamescore = profilenamescore + 1
Out_Box. Caption = profilename & " Won!"
opponentsscore = opponentsscore + 1
Out_Box. Caption = opponentsname & " Won!"
If multiplayermode = True And usermode = "client" Then
opponentsscore = opponentsscore + 1
Out_Box. Caption = opponentsname & " Won!"
profilenamescore = profilenamescore + 1
Out_Box. Caption = profilename & " Won!"
If multiplayermode = True And usermode = "host" Then
Private Sub Mark_Win (tr As String) 'Marks winning squares
Dim PauseTime, start, Finish, TotalTime
Do While Timer < start + PauseTime And Begin = True
DoEvents ' Yield to other processes.
Do While Timer < start + PauseTime And Begin = True
DoEvents ' Yield to other processes.
Private Sub test () 'Tests conditions for the win
Test_Result (sample) = a (3 * n) + a (3 * n + 1) + a (3 * n + 2)
Test_Result (sample) = a (n) + a (n + 3) + a (n + 6)
Test_Result (sample) = a (0) + a (4) + a (8)
Test_Result (sample) = a (6) + a (4) + a (2)
Private Sub Cats_Game () 'Cats Game display routine
If multiplayermode = True And usermode = "host" Then
Private Sub mnuchat_Click () 'Menu button for chatbox routine
On Error GoTo NoChat 'error handler in case chat initialization problem.
'Packs and sends DXplay message to switch chat on off
Call chaton. WriteLong (MSG_CHAT_ON)
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, chaton)
'Packs and sends DXplay message to switch chat on off
Set chaton2 = dxplay. CreateMessage
Call chaton2. WriteLong (MSG_CHAT_ON)
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, chaton2)
MsgBox "Could Not Start Chat", vbOKOnly, "Oops"
Public Function chatswitch () 'Menu button for incoming online Chatbox routine
MsgBox "Could Not Start Chat", vbOKOnly, "Oops"
Private Sub mnudisconnect_Click () 'Disconnects and sends disconnect message
'Sends player has left message to other players
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, dpmsg)
Private Sub newgame_Click () 'starts new game single or multiplayer
If usermode = "client" And multiplayermode = True Then
MsgBox "Only the host can restart the game. ", vbOKOnly, "Tic Tac Oops"
Call restart_Click 'call restart routine for multiplayer
MsgBox "Could Not Start Game. ", vbOKOnly, "Oops"
Public Sub o_Click () 'sets menu item whos first o
MsgBox "You cannot chang this option while a game is in play", vbOKOnly, "Tic Tac Oops"
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, _
Debug. Print "menu X or O clicked sw is " & sw
Public Sub restart_Click () 'Restarts Game and updates scores
Call dpmsg. WriteLong (MSG_RESTART)
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, _
StatusBar1. SimpleText = "Game count is " & score & " " & opponentsname & ": " & opponentsscore & " | " & profilename & ": " & profilenamescore & " " & profilename & "'s Turn"
playerdisplaylabel. Caption = profilename & "'s Turn."
StatusBar1. SimpleText = "Game count is " & score & " " & opponentsname & ": " & opponentsscore & " | " & profilename & ": " & profilenamescore & " " & opponentsname & "'s Turn"
playerdisplaylabel. Caption = opponentsname & "'s Turn."
StatusBar1. SimpleText = "Game count is " & score & " " & opponentsname & ": " & opponentsscore & " | " & profilename & ": " & profilenamescore & " " & opponentsname & "'s Turn"
playerdisplaylabel. Caption = opponentsname & "'s Turn."
StatusBar1. SimpleText = "Game count is " & score & " " & opponentsname & ": " & opponentsscore & " | " & profilename & ": " & profilenamescore & " " & profilename & "'s Turn"
playerdisplaylabel. Caption = profilename & "'s Turn."
'packs and sends chat box information
Call cmsg. WriteString (chatbox. Text)
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, cmsg)
chatlabel. Text = profilename & ": " & chatbox. Text
chatlabel. Text = chatlabel. Text & vbCrLf & profilename & ": " & chatbox. Text
'sets begin to false to stop letters from flashing.
If usermode = "host" And multiplayermode = True Then
StatusBar1. SimpleText = "Select Restart Game." & "Game #" & score & " " & profilename & ": " & profilenamescore & " " & opponentsname & ": " & opponentsscore
ElseIf usermode = "client" And multiplayermode = True Then
StatusBar1. SimpleText = "Waiting on Host To Restart." & "Game #" & score & " " & profilename & ": " & profilenamescore & " " & opponentsname & ": " & opponentsscore
Public Sub x_Click () 'handles menu item X whos turn first
MsgBox "You cannot chang this option while a game is in play", vbOKOnly, "Tic Tac Oops"
Call dxplay. Send (MyPlayer, DPID_ALLPLAYERS, DPSEND_GUARANTEED, _
Debug. Print "menu X or O clicked sw is " & sw
Global usermode As String 'sets usermode host or client
Global multiplayermode As Boolean 'Sets multiplayer yes no
Global MyTurn As Boolean 'My turn switch
Global profilename As Variant 'name for your machine
Global opponentsname As Variant 'name for remote machine
Global score As Integer ' keeps track of game score
Global profilenamescore As Integer 'your score
Global opponentsscore As Integer 'remote score
Global sw As Boolean 'set whether x or o goes first
Public EnumConnect As DirectPlayEnumConnections
Public EnumSession As DirectPlayEnumSessions
Public PlayerScores (MaxPlayers) As Byte
Public PlayerIDs (MaxPlayers) As Long
'The appguid number was generated with the utility provide with DX7 SDK.
Public Const AppGuid = "{D4D5D10B-7D04-11D3-8E64-00A0C9E01368}"
'This defines the msgtype you will send with DXplay. send
MSG_XORO 'Select if X or O Starts game
Public Sub CloseDownDPlay () 'this shuts down directplay
' Main procedure. This is where we poll for DirectPlay messages in idle time.
Do While DoEvents () ' allow event processing while any windows open
' Receive and process DirectPlay Messages
If dxplay Is Nothing Then Exit Sub 'IF single player then exit
' If this call fails, presumably it's because there's no session or
MsgCount = dxplay. GetMessageCount (MyPlayer) 'Get number of messages.
Do While MsgCount > 0 'Read all messages
Set dpmsg = dxplay. Receive (FromPlayer, ToPlayer, DPRECEIVE_ALL) 'Read DXINput
msgtype = dpmsg. ReadLong () 'Read DXinput msg TYPE
'Direct X System Only Messages not user defineable
If Connect. Visible Then Connect. UpdateWaiting 'update connection sessions list
Case DPSYS_HOST 'either lost connection or changed you to host
Connect. UpdateWaiting ' make sure Start button is enabled
' - --------------------------------------------------------------------------------------
' User specified Message Structure TYPES
fromplayername = dxplay. GetPlayerFriendlyName (FromPlayer) 'Gets name
opponentsname = fromplayername 'changes to games variable
MainBoard. playerdisplaylabel. Caption = opponentsname & " Has Joined The Game"
MainBoard. StatusBar1. SimpleText = opponentsname & "Is Ready To Play, Start Game"
MainBoard. playerdisplaylabel. Caption = "You Have Joined " & opponentsname & "'s Game"
MainBoard. StatusBar1. SimpleText = opponentsname & " Will Start The Game"
'Below is where you define your message structure types and add responding code, cool.
MainBoard. hostagame. Enabled = False
MainBoard. joinagame. Enabled = False
MainBoard. mnudisconnect. Enabled = True
Case MSG_MOVE 'Sent when square is click
Case MSG_CHAT_ON 'Handles Turn chat on off
Case MSG_XORO 'Selects who goes first X or O
Case MSG_RESTART 'handles input for restart
MainBoard. playerdisplaylabel. Caption = opponentsname & " has restarted the game."
Case MSG_CHAT 'Handles Chat String input
If MainBoard. chatlabel. Text = "" Then
MainBoard. chatlabel. Text = opponentsname & ": " & chatin
MainBoard. chatlabel. Text = MainBoard. chatlabel. Text & vbCrLf & opponentsname & ": " & chatin
Case MSG_STOP 'Handles player disconnected.
MsgBox opponentsname & " has left the game. ", vbOKOnly, "Tic Tac Oops"
MainBoard. mnudisconnect. Enabled = False
MainBoard. hostagame. Enabled = True
MainBoard. joinagame. Enabled = True

Название: Greating game on visual basic with multiplayer system
Раздел: Рефераты по информатике, программированию
Тип: лабораторная работа
Добавлен 17:46:39 06 июля 2009 Похожие работы
Просмотров: 20
Комментариев: 15
Оценило: 3 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Лабораторная работа: Greating game on visual basic with multiplayer system
Культура Межнационального Общения В Вузе Реферат
Отчет По Практике На Тему Анализ Деятельности Ооо "Сигнальные Системы"
Курсовая работа по теме Автоматизация методической печи
Сочинение На Тему Мое Отношение К Пушкину
Дипломная работа по теме Особенности нормативно-правового регулирования вопросов, связанных с управлением многоквартирными домами в РФ
Эссе На Тему Информация
Курсовая работа по теме Історичні типи держав
Сочинение На Тему Что Такое Дружба Огэ
Учебное пособие: Методические указания к курсовой работе для студентов направления 654600 "Информатика и вычислительная техника"
Реферат: Правопонимание советского времени
Положение О Магистерской Диссертации Сгюа 2022
Купить Диссертацию Кандидата Технических Наук Цена
Реферат Нормы Водопотребления
Отчет По Практике Слесарь Ремонтник
Реферат: Обои
Курсовая работа по теме Специфика кооперации химической промышленности
Реферат: “львовско-варшавская школа философии. Альфред тарский”
Дипломный Проект Транспорт
Подг К Сочинению Первый Снег
Реферат: Трудовые ресурсы, оплата труда и производительность труда в растениеводстве
Реферат: Исследование психологических характеристик спортсменов (на материалах исследования культуристов)
Статья: Расчет стационарного токораспределения в условиях смешанной кинетики
Доклад: Социальное воспроизводство как проблема феминистской теории