Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 23.10.2015
Сообщений: 35

Массив: Как заполнить нерандомно, а програмно каждую клеточку самому прописать

12.03.2016, 23:06. Показов 1310. Ответов 11
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
ребят выручайте , у меня есть матрица 25 на 25
как мне заполнить? не рандомно а програмно каждую клеточку самому прописать
Visual Basic
1
2
3
4
Matrix(6, 7) = 1
ImgObs.Picture = Image1(3).Picture
ImgObs.Left = 6
ImgObs.Top = 7
я пробую так , по заполняю максимум 2 клеточки в остальные картинка не записываается , выручайте очень нужно
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
12.03.2016, 23:06
Ответы с готовыми решениями:

Как создать динамический двумерный массив и самому его заполнить?
Как создать динамический двумерный массив и самому его заполнить?

Как открыть DataReport с Аксесовской базой не через ODBC или как прописать её програмно???
Как открыть DataReport с Аксесовской базой, подключонной не через ODBC, а на прямую (через путь в каталоге) или как прописать базу в ODBC...

Использую компонент Memo заполнить строковый массив и вывести каждую строку в обратном порядке в List box
Собственно, задача. Помогите, пожалуйста

11
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38200 / 21132 / 4310
Регистрация: 12.02.2012
Сообщений: 34,738
Записей в блоге: 14
14.03.2016, 12:22
Матрица - это двумерный массив. Зачем тебе Image?
0
0 / 0 / 0
Регистрация: 23.10.2015
Сообщений: 35
14.03.2016, 14:25  [ТС]
Я ВЫВОЖУ image как стенки , ( это как стенки в танчиках ) сквозь низ нельзя будет пройти
тойсть у меня image это стена и я хочу не рандомно их выводить а сам создать уровень
но у меня больше чем 2 стены не создается
0
133 / 148 / 64
Регистрация: 27.06.2013
Сообщений: 536
14.03.2016, 15:07
Цитата Сообщение от thelawww Посмотреть сообщение
я пробую так , по заполняю максимум 2 клеточки в остальные картинка не записываается
Выложите здесь ваши пробы.
0
0 / 0 / 0
Регистрация: 23.10.2015
Сообщений: 35
14.03.2016, 15:42  [ТС]
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
Dim Matrix(1 To 20, 1 To 15) As Byte
Dim i As Byte
Dim j As Byte
Dim x As Byte
Dim k As Byte
Dim y As Byte
Dim dx As Integer
Dim dy As Integer
Private Sub Form_Load()
Randomize Timer
'скрываю мои img на форме
For i = 0 To 11
Image1(i).Visible = False
Next i
Scale (1, 1)-(21, 16)
Call New_Game
End Sub
Sub New_Game()
For i = 1 To 20
    For j = 1 To 15
    Matrix(i, j) = 0
    Next j
Next i
'начинаю выстраивать уровень ( первый блок стоит правый нижний угол)
Matrix(20, 15) = 1
ImgObs.Picture = Image1(0).Picture
ImgObs.Left = 20
ImgObs.Top = 15
End Sub
Добавлено через 6 минут
Visual Basic
1
2
3
4
5
6
7
8
Matrix(20, 15) = 1
ImgObs.Picture = Image1(0).Picture
ImgObs.Left = 20
ImgObs.Top = 15
Matrix(1, 15) = 1
ImgObs.Picture = Image1(0).Picture
ImgObs.Left = 1
ImgObs.Top = 15
а если добавляю ещё 2 стену то действует только 2-я стена
как мне сделать что бы создавать много стен???
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
14.03.2016, 22:11
Visual Basic
1
ImgObs.Picture = Image1(0).Picture
Хоть 100 стен! будет только одна последняя
Копай BitBit
0
0 / 0 / 0
Регистрация: 23.10.2015
Сообщений: 35
15.03.2016, 11:11  [ТС]
а если добавляю ещё 2 стену то действует только 2-я стена
как мне сделать что бы создавать много стен???
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
15.03.2016, 11:31
ImgObs.Picture это, как я понял большая картинка, которую хочешь собрать из маленьких?
но ты же назначаешь всей картинке!!! а не её части.
Вот она и переписывается!
Смотри в сторону BitBit

Добавлено через 3 минуты
или так же и всю дорожку собирай из массива ImgObs
И уже в каждый элемент грузи нужную картинку из заготовок
0
0 / 0 / 0
Регистрация: 23.10.2015
Сообщений: 35
15.03.2016, 12:06  [ТС]
Нет уто уровень в игре состоящий из керпичных блоков и впоследствии железных , ну ещё вода кусты и тд ,
но сейчас мне нужно разместитть хотя бы каменные блоки
а больше 1-го у меня не получается
0
133 / 148 / 64
Регистрация: 27.06.2013
Сообщений: 536
15.03.2016, 12:27
thelawww, при чем здесь кЕрпич или железо или вода?
Alex77755 популярно все объяснил, что нужно делать сначала.
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
15.03.2016, 13:44
Лучший ответ Сообщение было отмечено thelawww как решение

Решение

Вот тебе с картой (файл map.bmp) кирпичами и кустами.
Миниатюры
Массив: Как заполнить нерандомно, а програмно каждую клеточку самому прописать  
Вложения
Тип файла: rar Ваttle City(карта, кирпичи, кусты).rar (25.7 Кб, 11 просмотров)
3
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
15.03.2016, 13:53
Карта такая должна быть
Название: Безымянный.JPG
Просмотров: 24

Размер: 1.2 Кб

Размер 12(высота)х 20(ширина) пикселей. В формате bmp
Красный пиксель - куст, черный - кирпичи.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.03.2016, 13:53
Помогаю со студенческими работами здесь

Как самому отсортировать массив цифр?
Есть массив цифр. Как его отсортировать? но не с помощью стандартных функций, а при помощи пользовательского кода. Есть ли где нибудь...

Заполнить каждую N-ю клетку в таблице (как по горизонтали, так и по вертикали)
Код присваивает значения ячейке: SH1.Cells(i1, j1).Value = dCp где i1=2, j1=11. Как мне сделать, чтобы в Excel таблице заполнились...

Как самому вводить элементы в созданный массив?
Как в C# самому вводить элементы в созданный массив?

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

как в MFC перекрасить клеточку?
В общем рисую шахматную доску. Потом определенную клетку необходимо перекрасить в зеленый, например. RECT qq; CPaintDC...


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

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru