1 / 1 / 0
Регистрация: 29.12.2010
Сообщений: 104
1

Как сделать поле (например для морского боя) чтоб оно имело адресацию по клеткам

24.01.2012, 21:43. Показов 2112. Ответов 5
Метки нет (Все метки)

Здравствуйте.Подскажите пожалуйста как сделать поле (например для морского боя) чтоб оно имело адресацию по клеткам.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2012, 21:43
Ответы с готовыми решениями:

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

Найти ошибку в координатах на поле для морского боя
Доброго времени суток! Помогите пожалуйста найти ошибку в координатах 2 ой лини.И сделать так что...

Алгоритм для подсчёта кораблей на поле морского боя
Подскажите пожалуйста алгоритм для подсчёта кораблей на поле морского боя!

Поле морского боя
Привет, решил к своему недописанному морскому бою приделать графику, по сути, нужны два поля в...

5
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
24.01.2012, 21:54 2
как 2 мерный массив клеток
0
1 / 1 / 0
Регистрация: 29.12.2010
Сообщений: 104
25.01.2012, 09:38  [ТС] 3
Понятно что как двумерный массив, а как массив вписать в клетки т.е. в графику. Вот это не могу понять.
0
es geht mir gut
11264 / 4745 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
25.01.2012, 10:07 4
Посмотри пару примеров - пригодится
Вложения
Тип файла: rar 1.rar (37.7 Кб, 116 просмотров)
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
25.01.2012, 12:22 5
Visual Basic
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
'на форме Command1
'в свойствах Command1 Index=0
Dim n%, m%
Private Sub Command1_Click(Index As Integer)
ip = (Index - 1) \ m + 1
jp = (Index - 1) Mod m + 1
adr = "[" & ip & "," & jp & "]"
Command1(Index).Caption = adr
Me.Caption = String(4 * m, " ") & adr
End Sub
 
Private Sub Form_Load()
 
t = 120: l = 120
w = 700: h = 700
n = 10: m = 10
Command1(0).Width = w
Command1(0).Height = h
Command1(0).Visible = False
For i = 1 To n
   For j = 1 To m
    k = (i - 1) * m + j
     Load Command1(k)
          Command1(k).Move l + (j - 1) * w, t + (i - 1) * h
          Command1(k).Visible = True
   Next j
Next i
Me.Width = w * m + 2 * l + 100
Me.Height = h * n + 2 * t + 500
End Sub
0
1 / 1 / 0
Регистрация: 29.12.2010
Сообщений: 104
28.01.2012, 11:52  [ТС] 6
Спасибо буду разбераться.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2012, 11:52
Помогаю со студенческими работами здесь

как сделать чтоб у меня за зростанням выло например елементов 5 3 4 2 1 5 и оно так должно виводить 1 2 3 4 5
а оно не так совсем выводить помогите кто знает вот программа почти готова есть только ошибки...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru