Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Форум программистов и сисадминов Киберфорум > Форум программистов > .NET > Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.74/34: Рейтинг темы: голосов - 34, средняя оценка - 4.74
Nyta ^_^

Создание игры "Крестики-Нолики"

28.02.2011, 08:00. Показов 6165. Ответов 4
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Помогите плиз создать игру "Крестики-Нолики" в Visual Basic =) заранее спасибки)

Добавлено через 4 минуты
Цитата Сообщение от Nyta ^_^ Посмотреть сообщение
Помогите плиз создать игру "Крестики-Нолики" в Visual Basic =) заранее спасибки)
если что вот моё мыло [мыло должно быть в профиле, как и вся информация для связи с Вами]
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 28.02.2011, 08:00
Ответы с готовыми решениями:

Class для игры в Крестики-Нолики
Предлагаю вашему вниманию небольшой класс, ваши предложения, идеи будут приветствоваться Public Class XO ReadOnly Property WHO() As...

Прмерный алгоритм для создания игры в крестики нолики
Подскажите прмерный алгоритм для создания игры в крестики нолики на поле размером 3x3. Я пытался сделать одними If else, но это муторно, да...

Крестики нолики по сети
Хотелось бы узнать как сделать крестики нолики по сети.Сложность в том,что нужно сделать так, чтобы и я видел изменения игрового поля и...

4
 Аватар для _Лёша_
388 / 377 / 22
Регистрация: 08.02.2011
Сообщений: 1,078
28.02.2011, 21:57
Много тут таких...
0
Nyta ^_^
13.04.2011, 13:54
Уииииииииииии, йа таки это сделала xDDD:dance3:

PureBasic Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296

Dim pole As String
 
Function winer() As String
    Dim win As String
    
    win = "0"
    
    If btn_pole1.Caption = btn_pole2.Caption And btn_pole2.Caption = btn_pole3.Caption And btn_pole1.Caption <> "" And btn_pole2.Caption <> "" And btn_pole3.Caption <> "" And win = "0" Then win = "1"
    If btn_pole4.Caption = btn_pole5.Caption And btn_pole5.Caption = btn_pole6.Caption And btn_pole4.Caption <> "" And btn_pole5.Caption <> "" And btn_pole6.Caption <> "" And win = "0" Then win = "1"
    If btn_pole7.Caption = btn_pole8.Caption And btn_pole8.Caption = btn_pole9.Caption And btn_pole7.Caption <> "" And btn_pole8.Caption <> "" And btn_pole9.Caption <> "" And win = "0" Then win = "1"
    If btn_pole1.Caption = btn_pole4.Caption And btn_pole4.Caption = btn_pole7.Caption And btn_pole1.Caption <> "" And btn_pole4.Caption <> "" And btn_pole7.Caption <> "" And win = "0" Then win = "1"
    If btn_pole2.Caption = btn_pole5.Caption And btn_pole5.Caption = btn_pole8.Caption And btn_pole2.Caption <> "" And btn_pole5.Caption <> "" And btn_pole8.Caption <> "" And win = "0" Then win = "1"
    If btn_pole3.Caption = btn_pole6.Caption And btn_pole6.Caption = btn_pole9.Caption And btn_pole3.Caption <> "" And btn_pole6.Caption <> "" And btn_pole9.Caption <> "" And win = "0" Then win = "1"
    If btn_pole1.Caption = btn_pole5.Caption And btn_pole5.Caption = btn_pole9.Caption And btn_pole1.Caption <> "" And btn_pole5.Caption <> "" And btn_pole9.Caption <> "" And win = "0" Then win = "1"
    If btn_pole3.Caption = btn_pole5.Caption And btn_pole5.Caption = btn_pole7.Caption And btn_pole3.Caption <> "" And btn_pole5.Caption <> "" And btn_pole7.Caption <> "" And win = "0" Then win = "1"
 
    If btn_pole1.Caption <> "" And btn_pole2.Caption <> "" And btn_pole3.Caption <> "" And btn_pole4.Caption <> "" And btn_pole5.Caption <> "" And btn_pole6.Caption <> "" And btn_pole7.Caption <> "" And btn_pole8.Caption <> "" And btn_pole9.Caption <> "" And win = "0" Then win = "2"
    
    winer = win
 
End Function
 
Private Sub btn_pole1_Click()
    
        
    If btn_pole1.Caption <> "" Then Exit Sub
    pole = "1"
    
    If Label1.Caption = "Ход игрока № 1" Then Label1.Caption = "Ход игрока № 2" Else Label1.Caption = "Ход игрока № 1"
 
    If Label1.Caption = "Ход игрока № 2" Then btn_pole1.Caption = "X" Else btn_pole1.Caption = "0"
    
    If winer() = "2" Then
        Label1.Caption = ""
        MsgBox ("Ничья")
        Exit Sub
    End If
 
    If winer() = "1" Then
        
        Label1.Caption = ""
    
        If Label1.Caption = "Ход игрока № 1" Then
            MsgBox ("Победил игрок № 2")
        Else
            MsgBox ("Победил игрок № 1")
        End If
        
        Exit Sub
    End If
 
End Sub
 
Private Sub btn_pole2_Click()
        
    If btn_pole2.Caption <> "" Then Exit Sub
    pole = "2"
    
    If Label1.Caption = "Ход игрока № 1" Then Label1.Caption = "Ход игрока № 2" Else Label1.Caption = "Ход игрока № 1"
 
    If Label1.Caption = "Ход игрока № 2" Then btn_pole2.Caption = "X" Else btn_pole2.Caption = "0"
    
    If winer() = "2" Then
        Label1.Caption = ""
        MsgBox ("Ничья")
        Exit Sub
    End If
 
    If winer() = "1" Then
        
        Label1.Caption = ""
    
        If Label1.Caption = "Ход игрока № 1" Then
            MsgBox ("Победил игрок № 2")
        Else
            MsgBox ("Победил игрок № 1")
        End If
        
        Exit Sub
    End If
 
End Sub
 
Private Sub btn_pole3_Click()
        
    If btn_pole3.Caption <> "" Then Exit Sub
    pole = "3"
    
    If Label1.Caption = "Ход игрока № 1" Then Label1.Caption = "Ход игрока № 2" Else Label1.Caption = "Ход игрока № 1"
 
    If Label1.Caption = "Ход игрока № 2" Then btn_pole3.Caption = "X" Else btn_pole3.Caption = "0"
    
    If winer() = "2" Then
        Label1.Caption = ""
        MsgBox ("Ничья")
        Exit Sub
    End If
 
    If winer() = "1" Then
        
        Label1.Caption = ""
    
        If Label1.Caption = "Ход игрока № 1" Then
            MsgBox ("Победил игрок № 2")
        Else
            MsgBox ("Победил игрок № 1")
        End If
        
        Exit Sub
    End If
 
End Sub
 
Private Sub btn_pole4_Click()
        
    If btn_pole4.Caption <> "" Then Exit Sub
    pole = "4"
    
    If Label1.Caption = "Ход игрока № 1" Then Label1.Caption = "Ход игрока № 2" Else Label1.Caption = "Ход игрока № 1"
 
    If Label1.Caption = "Ход игрока № 2" Then btn_pole4.Caption = "X" Else btn_pole4.Caption = "0"
    
    If winer() = "2" Then
        Label1.Caption = ""
        MsgBox ("Ничья")
        Exit Sub
    End If
 
    If winer() = "1" Then
        
        Label1.Caption = ""
    
        If Label1.Caption = "Ход игрока № 1" Then
            MsgBox ("Победил игрок № 2")
        Else
            MsgBox ("Победил игрок № 1")
        End If
        
        Exit Sub
    End If
 
End Sub
 
Private Sub btn_pole5_Click()
        
    If btn_pole5.Caption <> "" Then Exit Sub
    pole = "5"
    
    If Label1.Caption = "Ход игрока № 1" Then Label1.Caption = "Ход игрока № 2" Else Label1.Caption = "Ход игрока № 1"
 
    If Label1.Caption = "Ход игрока № 2" Then btn_pole5.Caption = "X" Else btn_pole5.Caption = "0"
    
    If winer() = "2" Then
        Label1.Caption = ""
        MsgBox ("Ничья")
        Exit Sub
    End If
 
    If winer() = "1" Then
        
        Label1.Caption = ""
    
        If Label1.Caption = "Ход игрока № 1" Then
            MsgBox ("Победил игрок № 2")
        Else
            MsgBox ("Победил игрок № 1")
        End If
        
        Exit Sub
    End If
 
End Sub
 
Private Sub btn_pole6_Click()
        
    If btn_pole6.Caption <> "" Then Exit Sub
    pole = "6"
    
    If Label1.Caption = "Ход игрока № 1" Then Label1.Caption = "Ход игрока № 2" Else Label1.Caption = "Ход игрока № 1"
 
    If Label1.Caption = "Ход игрока № 2" Then btn_pole6.Caption = "X" Else btn_pole6.Caption = "0"
    
    If winer() = "2" Then
        Label1.Caption = ""
        MsgBox ("Ничья")
        Exit Sub
    End If
 
    If winer() = "1" Then
        
        Label1.Caption = ""
    
        If Label1.Caption = "Ход игрока № 1" Then
            MsgBox ("Победил игрок № 2")
        Else
            MsgBox ("Победил игрок № 1")
        End If
        
        Exit Sub
    End If
 
End Sub
 
Private Sub btn_pole7_Click()
        
    If btn_pole7.Caption <> "" Then Exit Sub
    pole = "7"
    
    If Label1.Caption = "Ход игрока № 1" Then Label1.Caption = "Ход игрока № 2" Else Label1.Caption = "Ход игрока № 1"
 
    If Label1.Caption = "Ход игрока № 2" Then btn_pole7.Caption = "X" Else btn_pole7.Caption = "0"
    
    If winer() = "2" Then
        Label1.Caption = ""
        MsgBox ("Ничья")
        Exit Sub
    End If
 
    If winer() = "1" Then
        
        Label1.Caption = ""
    
        If Label1.Caption = "Ход игрока № 1" Then
            MsgBox ("Победил игрок № 2")
        Else
            MsgBox ("Победил игрок № 1")
        End If
        
        Exit Sub
    End If
 
End Sub
 
Private Sub btn_pole8_Click()
        
    If btn_pole8.Caption <> "" Then Exit Sub
    pole = "8"
    
    If Label1.Caption = "Ход игрока № 1" Then Label1.Caption = "Ход игрока № 2" Else Label1.Caption = "Ход игрока № 1"
 
    If Label1.Caption = "Ход игрока № 2" Then btn_pole8.Caption = "X" Else btn_pole8.Caption = "0"
    
    If winer() = "2" Then
        Label1.Caption = ""
        MsgBox ("Ничья")
        Exit Sub
    End If
 
    If winer() = "1" Then
        
        Label1.Caption = ""
    
        If Label1.Caption = "Ход игрока № 1" Then
            MsgBox ("Победил игрок № 2")
        Else
            MsgBox ("Победил игрок № 1")
        End If
        
        Exit Sub
    End If
 
End Sub
 
Private Sub btn_pole9_Click()
        
    If btn_pole9.Caption <> "" Then Exit Sub
    pole = "9"
    
    If Label1.Caption = "Ход игрока № 1" Then Label1.Caption = "Ход игрока № 2" Else Label1.Caption = "Ход игрока № 1"
 
    If Label1.Caption = "Ход игрока № 2" Then btn_pole9.Caption = "X" Else btn_pole9.Caption = "0"
    
    If winer() = "2" Then
        Label1.Caption = ""
        MsgBox ("Ничья")
        Exit Sub
    End If
 
    If winer() = "1" Then
        
        Label1.Caption = ""
    
        If Label1.Caption = "Ход игрока № 1" Then
            MsgBox ("Победил нолик")
        Else
            MsgBox ("Победил крестик")
        End If
        
        Exit Sub
    End If
 
End Sub
 
Private Sub Form_Load()
 
End Sub
Почетный модератор
 Аватар для Памирыч
23246 / 9158 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
13.04.2011, 14:05
Nyta ^_^, О, Боже. Заключи код в теги!
0
 Аватар для gitarillo
755 / 554 / 48
Регистрация: 17.06.2010
Сообщений: 1,041
Записей в блоге: 1
13.04.2011, 14:25
Nyta ^_^,
+ к сказанному Памирычем
Тема в какой ветке должна быть? Здесь ей точно не место.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 13.04.2011, 14:25
Помогаю со студенческими работами здесь

Крестики-нолики - Зацикливается программа
Public Class Form3 Private intzet As Integer = 0 Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As...

Крестики-нолики онлайн со встроенным чатом: как реализовать
Я вот месяц назад написал крестики нолики, и хотелось бы найти им применение. Я еще только учусь, поэтому не знаю как и что делать....

Игра "крестики-нолики" - как определить координаты поставленного крестика?
Подскажите, пожалуйста, как мне отсюда узнать значения координат, куда я поставил крестик? Ниже представлен фрагмент кода. Помогите...

Крестики-нолики с использованием массивов в режиме игрок-игрок
Имею код, не получается написать код для игры игрок-игрок, игрок-компьютер работает прекрасно помогите написать код, особенно обращение к...

Создание игры крестики нолики
Возникла проблема при создание игры крестики нолики. В форме имеется 9 Picturebox-ов(3на3) При нажатие на один из них левой кнопкой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Результаты исследования от команды MCM (март 2025 г.)
Programma_Boinc 07.04.2025
Результаты исследования от команды MCM (март 2025 г. ) В рамках наших текущих исследований мы продолжаем изучать гены, которые имеют наибольшую вероятность развития рака легких, выявленные в рамках. . .
Рекурсивные типы в Python
py-thonny 07.04.2025
Рекурсивные типы - это типы данных, которые определяются через самих себя или в сочетании с другими типами, которые в свою очередь ссылаются на исходный тип. В мире программирования такие структуры. . .
C++26: Объединение и конкатенация последовательностей и диапазонов в std::ranges
NullReferenced 07.04.2025
Работа с последовательностями данных – одна из фундаментальных задач, с которой сталкивается каждый разработчик. C++ прошел длинный путь в эволюции средств для манипуляции коллекциями – от. . .
Обмен данными в микросервисной архитектуре
ArchitectMsa 06.04.2025
Когда разработчики начинают погружаться в мир микросервисов, они часто сталкиваются с парадоксальным правилом: "два сервиса не должны делить один источник данных". Эта мантра звучит повсюду в. . .
PostgreSQL в Kubernetes: Автоматизация обслуживания с CNPG
Mr. Docker 06.04.2025
Администраторы баз данных сталкиваются с целым рядом проблем при обслуживании PostgreSQL в Kubernetes: как обеспечить правильную репликацию данных, как настроить автоматическое переключение при. . .
Async/await в TypeScript
run.dev 06.04.2025
Асинхронное программирование — это подход к разработке программного обеспечения, при котором операции выполняются независимо друг от друга. В отличие от синхронного выполнения, где каждая последующая. . .
Многопоточность в C#: Синхронизация потоков
UnmanagedCoder 06.04.2025
Многопоточное программирование стало неотъемлемой частью разработки современных приложений на C#. С появлением многоядерных процессоров возможность выполнять несколько задач параллельно значительно. . .
TypeScript: Классы и конструкторы
run.dev 06.04.2025
TypeScript, как статически типизированный язык, построенный на основе JavaScript, привнес в веб-разработку новый уровень надежности и структурированности кода. Одним из важнейших элементов этой. . .
Многопоточное программирование: Rust против C++
golander 06.04.2025
C++ существует уже несколько десятилетий и его поддержка параллелизма постепенно наращивалась со временем. Начиная с C++11, язык получил стандартную библиотеку для работы с потоками, а в последующих. . .
std::vector в C++: от основ к оптимизации производительности
NullReferenced 05.04.2025
Для многих программистов знакомство с std::vector происходит на ранних этапах изучения языка, но между базовым пониманием и подлинным мастерством лежит огромная дистанция. Контейнер std::vector. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер