Сейчас на форуме: 2nd, morgot, Rio, CDK123, zds, tyns777, tihiy_grom (+4 невидимых)

 eXeL@B —› Программирование —› Visual Basic - Крестики Нолики
Посл.ответ Сообщение

Ранг: 1.2 (гость)
Активность: 0=0
Статус: Участник

 Создано: 19 марта 2009 18:22
· Личное сообщение · #1

Здруствуйте. Не знаю удалят ли тему или нет, но у меня довольно простая задача, написать крестики нолики на vb под консоль. в инете ничёго на эту тему не нашёл, некоторую часть кода я написал, но есть некоторые вопросы.... помогите please...
некоторые вещи неработают. например, у меня не получается отобразить не О не Х. помогите плиз, а то скоро сдавать надо=)

Code:
  1. Sub Main()
  2.         Call Choose()
  3.         Call loop1()
  4.     End Sub
  5.     Function loop1()
  6.         For i = 0 To 8
  7.             arr = createarray(2, 2)
  8.             Console.WriteLine(" ")
  9.             displayarray(arr)
  10.         Next i
  11.         End
  12.     End Function
  13.     Function createarray(ByVal uRow As Long, ByVal uCol As Long) As Long(,)
  14.         Dim i As Long, j As Long
  15.         Dim arr(uRow, uCol) As Long
  16.         Console.WriteLine("Please input your coordinates:")
  17.         uRow = Console.ReadLine
  18.         uCol = Console.ReadLine
  19.         For i = uRow To uRow
  20.             For j = uCol To uCol
  21.                 arr(i, j) = i + j
  22.             Next j
  23.         Next i
  24.         Return arr
  25.     End Function
  26.     Sub displayarray(ByVal arr(,) As Long)
  27.         Dim i As Long, j As Long
  28.         For i = 0 To 2
  29.             For j = 0 To 2
  30.                 Console.Write(Trim$(arr(i, j)) + " ")
  31.             Next j
  32.             Console.WriteLine()
  33.         Next
  34.     End Sub
  35.     Private Sub choose()
  36.         won = False
  37.         Console.WriteLine("Do you want X to go first?(y/n)")
  38.         ans = Console.ReadLine
  39.         If ans = "y" Then
  40.             IsCross = True
  41.             Console.WriteLine("Player 1: " & Cross)
  42.         ElseIf ans = "n" Then
  43.             IsCross = False
  44.             Console.WriteLine("Player 1: " & Nought)
  45.         End If
  46.     End Sub


Ранг: 355.4 (мудрец), 55thx
Активность: 0.32↘0
Статус: Uploader
5KRT

 Создано: 19 марта 2009 18:43
· Личное сообщение · #2

Почему именно на форуме по крэкингу,
а не на Visual Basic Streets www.vbstreets.ru/

-----
Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes

Ранг: 1.2 (гость)
Активность: 0=0
Статус: Участник

 Создано: 19 марта 2009 18:44
· Личное сообщение · #3

спасибо...напишу туда также



Ранг: 237.0 (наставник), 20thx
Активность: 0.13↘0
Статус: Участник
sysenter

 Создано: 19 марта 2009 21:28
· Личное сообщение · #4

dumber пишет:
крестики нолики на vb под консоль.
На VB 6 можно напрямую писать консольные приложения и dll, если перехватывать и подменять при сборке проекта командную строку link.exe и придерживаться определенных шаблонов и ограничений.

-----
продавец резиновых утёнков


Ранг: 2014.5 (!!!!), 1278thx
Активность: 1.34↘0.25
Статус: Модератор
retired

 Создано: 19 марта 2009 23:06
· Личное сообщение · #5

Не в тему форума топик ни разу.


 eXeL@B —› Программирование —› Visual Basic - Крестики Нолики
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати