Форум программистов, компьютерный форум, киберфорум
C/C++: WinAPI
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
21 / 10 / 5
Регистрация: 07.01.2013
Сообщений: 222

функция автоматического размещения корабликов для морского боя

24.11.2013, 14:20. Показов 633. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Пишу морской бой. Работа сейчас на этапе автоматического размещения кораблей на поле. Вроде бы написал функцию для этого, и вроде как работает, но не срабатывает защита, чтобы кораблики не становились на уже занятые места
Подскажите где я напартачил. Вот собственно код функции:
C++
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
void auto_coordinates(int c_paluba)
{
    int f_coord = rand()%10 + 1;
    int s_coord = rand()%10 + 1;
    int orient = rand()%2 + 1;
 
    if((c_paluba == 1) && (orient == 1))
    {
        if((f_coord <= 10) && (s_coord <= 10))
        {
            for (int j = 0; j < c_paluba; ++j)
            {
                if(arr[f_coord-1][s_coord - 1 + j] == 0)
                {
                    SendMessage(hField1[f_coord-1][s_coord - 1 + j], BM_SETIMAGE, WPARAM(IMAGE_BITMAP), LPARAM(hPaluba));
                    arr[f_coord-1][s_coord - 1 + j] = 1;
                }
            }
        }
    }
    else if((c_paluba == 2) && (orient == 1))
    {
        if((f_coord <= 10) && (s_coord <= 9))
        {
            for (int j = 0; j < c_paluba; ++j)
            {
                if(arr[f_coord-1][s_coord - 1 + j] == 0)
                {
                    SendMessage(hField1[f_coord-1][s_coord - 1 + j], BM_SETIMAGE, WPARAM(IMAGE_BITMAP), LPARAM(hPaluba));
                    arr[f_coord-1][s_coord - 1 + j] = 1;
                }
            }
        }
    }
    else if((c_paluba == 3) && (orient == 1))
    {
        if((f_coord <= 10) && (s_coord <= 8))
        {
            for (int j = 0; j < c_paluba; ++j)
            {
                if(arr[f_coord-1][s_coord - 1 + j] == 0)
                {
                    SendMessage(hField1[f_coord-1][s_coord - 1 + j], BM_SETIMAGE, WPARAM(IMAGE_BITMAP), LPARAM(hPaluba));
                    arr[f_coord-1][s_coord - 1 + j] = 1;
                }
            }
        }
    }
    else if((c_paluba == 4) && (orient == 1))
    {
        if((f_coord <= 10) && (s_coord <=7))
        {
            for (int j = 0; j < c_paluba; ++j)
            {
                if(arr[f_coord-1][s_coord - 1 + j] == 0)
                {
                    SendMessage(hField1[f_coord-1][s_coord - 1 + j], BM_SETIMAGE, WPARAM(IMAGE_BITMAP), LPARAM(hPaluba));
                    arr[f_coord-1][s_coord - 1 + j] = 1;
                }
            }
        }
    }
    else if((c_paluba == 1) && (orient == 2))
    {
        if((f_coord <= 10) && (s_coord <= 10))
        {
            for (int j = 0; j < c_paluba; ++j)
            {
                if(arr[f_coord - 1 + j][s_coord-1] == 0)
                {
                    SendMessage(hField1[f_coord - 1 + j][s_coord-1], BM_SETIMAGE, WPARAM(IMAGE_BITMAP), LPARAM(hPaluba));
                    arr[f_coord - 1 + j][s_coord-1] = 1;
                }
            }
        }
    }
    else if((c_paluba == 2) && (orient == 2))
    {
        if((f_coord <= 9) && (s_coord <= 10))
        {
            for (int j = 0; j < c_paluba; ++j)
            {
                if(arr[f_coord - 1 + j][s_coord-1] == 0)
                {
                    SendMessage(hField1[f_coord - 1 + j][s_coord-1], BM_SETIMAGE, WPARAM(IMAGE_BITMAP), LPARAM(hPaluba));
                    arr[f_coord - 1 + j][s_coord-1] = 1;
                }
            }
        }
    }
    else if((c_paluba == 3) && (orient == 2))
    {
        if((f_coord <= 8) && (s_coord <= 10))
        {
            for (int j = 0; j < c_paluba; ++j)
            {
                if(arr[f_coord - 1 + j][s_coord-1] == 0)
                {
                    SendMessage(hField1[f_coord - 1 + j][s_coord-1], BM_SETIMAGE, WPARAM(IMAGE_BITMAP), LPARAM(hPaluba));
                    arr[f_coord - 1 + j][s_coord-1] = 1;
                }
            }
        }
    }
    else if((c_paluba == 4) && (orient == 2))
    {
        if((f_coord <= 7) && (s_coord <= 10))
        {
            for (int j = 0; j < c_paluba; ++j)
            {
                if(arr[f_coord - 1 + j][s_coord-1] == 0)
                {
                    SendMessage(hField1[f_coord - 1 + j][s_coord-1], BM_SETIMAGE, WPARAM(IMAGE_BITMAP), LPARAM(hPaluba));
                    arr[f_coord - 1 + j][s_coord-1] = 1;
                }
            }
        }
    }
}
Данная функция вызывается так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
switch (wmId)
        {       
        case IDC_RANDOM:            
            auto_coordinates(4);
            auto_coordinates(3);
            auto_coordinates(3);
            auto_coordinates(2);
            auto_coordinates(2);
            auto_coordinates(2);
            auto_coordinates(1);
            auto_coordinates(1);
            auto_coordinates(1);
            auto_coordinates(1);
            EnableWindow(hRandom, false);
            break;
        case IDM_EXIT:
            DestroyWindow(hWnd);
            break;
        default:
            return DefWindowProc(hWnd, message, wParam, lParam);
        }
ПыСы: Еще буду благодарен, если кто подскажет, как сделать еще так, чтобы кораблики не вставали не только на занятые координаты, но рядом с другим корабликом, а только через клетку.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.11.2013, 14:20
Ответы с готовыми решениями:

АИ для морского боя
Добрый день подскажите как реализовать на C# II для морского боя игровое поле не более 20 шириной и длиной корабли любого размера все это...

ИИ для морского боя
Решил написать морской бой с ИИ, но возникла проблема в алгоритме расстановки кораблей за ИИ, можете подсказать идею или алгоритм?

Написание ИИ для Морского Боя
Добрый день,помогите с написание АИ для морского боя , все сделал кроме АИ)Мы знаем размер поля количество кораблей и длина их так как это...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
24.11.2013, 14:20
Помогаю со студенческими работами здесь

Создать таблицу для морского боя
Помогите решить задачку. Нужно создать поле для игры в морской бой: просто создать табличку 10х10 и закрасить ячейки, где располагается...

Создать два поля для морского боя
Для практики создайте программу рисующую на экране два поля для морского боя. Первое - игрока, второе - противника. Второе поле должно...

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

Построение квадратного поля для морского боя
Здравствуйте. Такой вопрос - Как сделать так чтобы поле для морского боя было не прямоугольное когда мы создаем массив 10*10 а квадратным? ...

StringGrid, код расстановки кораблей для морского боя
я делаю так званый морской бой и вот код спауна кораблей вышел примерно такой procedure TForm1.Button1Click(Sender: TObject); Var ...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
1С: Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru