4 / 4 / 3
Регистрация: 25.11.2008
Сообщений: 58
1

Пятнашки.

19.12.2009, 23:36. Показов 1753. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток! Пишу игру Пятнашки (TPanel(поле 4х4), на Button реализовывается игровые "фишки", которые надо передвигать(15 шт+1 пустая, 50х50 по размерам)), но возникло пару вопросов:
1. Возможно ли как-то получить координаты нажатой Button с помощью процедуры MouseDown? Или только вписывая в каждую кнопку на OnClick передачу координат?(Нужны для процедуры передвижения фишок)
(Пытался реализовать первый вариант, но при нажатии ЛКМ не передаются координаты если выставлено в
Events самой формы или панели. Если же вешать MouseDown на кнопки даются координаты внутри их т.е. от 1 до 50)
2. Если же идти по второму пути т.е. реализовать 15 Onclick передачу, то выйдет, что-то на подобии такой процедуры:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Move(cx,cy:integer; s:byte); \\cx,cy получаем от кнопок
begin
  if not ((abs(cx-xe)=1) and (cy-ye=0) or   \\ye,xe координаты пустой фишки, которые запомнили чуть раньше(При создании формы и 
         (abs(cy-ye)=1) and (cx-xe=0)) then \\перемешивании фишок). Проверка возможно ли обменять
   begin exit; end;                                 \\пустую фишку с соседней
   case s of                                           \\Ye:=Trunc((Button16.Top)/50)+1; Xe:=Trunc((Button16.Left)/50)+1;
         1:BtMove(Button1,Button16);          \\cx,cy получаем на подобии ye,xe
         2:BtMove(Button2,Button16);
         3:BtMove(Button3,Button16);
         4:BtMove(Button4,Button16);
         5:BtMove(Button5,Button16);
         6:BtMove(Button6,Button16);
         7:BtMove(Button7,Button16);
         8:BtMove(Button8,Button16);
         9:BtMove(Button9,Button16);
         10:BtMove(Button10,Button16);
         11:BtMove(Button11,Button16);
         12:BtMove(Button12,Button16);
         13:BtMove(Button13,Button16);
         14:BtMove(Button14,Button16);
         15:BtMove(Button15,Button16);
   end;
end;
Delphi
1
2
3
4
5
6
7
8
9
10
11
Procedure BtMove(Button1,Button2:TControl);
var
x,y:integer;
begin
  x:=Button1.Top;
  y:=Button1.Left;
  Button1.Top:=Button2.Top;
  Button1.Left:=Button2.Left;
  Button2.Top:=x;
  Button2.Left:=y;
end;
Но не могу понять из-за чего больше одного хода программа не хочет работать(скорее всего не запоминается координаты следующей нажатой кнопки) или выдает ходы по диагонали.

Заранее благодарен, если подскажите возможно ли все таки как-то получить координаты мышки с помощью MouseDown или быть может активного фокуса на кнопке.
0
19.12.2009, 23:36
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.12.2009, 23:36
Ответы с готовыми решениями:

Игра пятнашки
Уважаемые форумчане помогите плиз с этой программой. Не пойму чего не хватает, или что то лишнее? Выводит только пустые клетки 4*16. ...

Пятнашки с автоматическим решением)
Здравствуйте всем! Помогите написать программу "Пятнашки" в визуальном режиме. В интернете много аналогов, но мне нужна программа с...

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

8
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
 Аватар для *~<`PIK`>~*
607 / 387 / 81
Регистрация: 15.12.2009
Сообщений: 753
19.12.2009, 23:44 2
Так а зачем тебе координаты мышки? Просто в MouseDown получи координаты кнопки а не мышки вот и всё.
0
4 / 4 / 3
Регистрация: 25.11.2008
Сообщений: 58
19.12.2009, 23:49  [ТС] 3
Не совсем правильно выше выразился, мне действительно нужны координаты кнопок, но как выше написал я их не могу получить т.к. если подрубать MouseDown к кнопкам координаты будут 0<x<50, 0<y<50. А если к форме - так вообще при нажатии на кнопку ничего не передается.
0
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
 Аватар для *~<`PIK`>~*
607 / 387 / 81
Регистрация: 15.12.2009
Сообщений: 753
20.12.2009, 00:10 4
Я незнаю в чём у тебя ошибка но вот так по MouseDown найти координаты кнопки
Delphi
1
2
3
4
5
6
procedure TForm1.Button1MouseDwn(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
x:=Button1.Left;
y:=Button1.Top;
end;
Добавлено через 4 минуты
Я проверял у меня всё работает и всё правильно находит=)
0
4 / 4 / 3
Регистрация: 25.11.2008
Сообщений: 58
20.12.2009, 00:13  [ТС] 5
По моему выйдет не совсем тот результат который мне надо - у меня 16 кнопок т.е. если пользователь кликнет на любую кнопку то передадутся вместо её координат координаты Button1.
0
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
 Аватар для *~<`PIK`>~*
607 / 387 / 81
Регистрация: 15.12.2009
Сообщений: 753
20.12.2009, 00:15 6
Цитата Сообщение от Norgan Посмотреть сообщение
вместо её координат координаты Button1
Сделаю функцию MouseDown для каждой кнопки и всё будет работать.
0
4 / 4 / 3
Регистрация: 25.11.2008
Сообщений: 58
20.12.2009, 00:19  [ТС] 7
Так это то чего я хотел избежать) У меня сейчас 15 Onclick - для каждой Button.
0
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
 Аватар для *~<`PIK`>~*
607 / 387 / 81
Регистрация: 15.12.2009
Сообщений: 753
20.12.2009, 00:23 8
Цитата Сообщение от Norgan Посмотреть сообщение
У меня сейчас 15 Onclick - для каждой Button
даааа, конечно ето будет оч много кода но по другому реализовать это я незнаю как))
0
 Аватар для pro_512
9 / 9 / 1
Регистрация: 15.12.2009
Сообщений: 85
24.01.2010, 22:35 9
Цитата Сообщение от Norgan Посмотреть сообщение
Возможно ли как-то получить координаты нажатой Button с помощью процедуры MouseDown? Или только вписывая в каждую кнопку на OnClick передачу координат?(Нужны для процедуры передвижения фишок)
(Пытался реализовать первый вариант, но при нажатии ЛКМ не передаются координаты если выставлено в
Events самой формы или панели. Если же вешать MouseDown на кнопки даются координаты внутри их т.е. от 1 до 50)
Попробуй добавить до того что ты получаеш етим позицию кнопки на форме то-есть: у+Button.Top
x+Button.Left

или я что-то не понял обясните.
0
24.01.2010, 22:35
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.01.2010, 22:35
Помогаю со студенческими работами здесь

Игра Пятнашки
Я не очень хорошо знаю Делфи, скопировал с методички код проги, запускаю выдает ошибку, помогите сделать. Вот сама методичка: ...

Пятнашки
Пишем игру &quot;Пятнашки&quot; поле создано на одной панеле т.е. расчерченое 4х4, мой мозг исчерпал все свои силы прошу помощиunit Unit1; ...

Пятнашки
Здраствуйте, я хочу написать игру пятнашки на java с использиванием коллекций и графики fx, так вот нету случайно ни у кого ...

Пятнашки
Вот у меня такой вопрос. На форме 15 кнопок, одну из них можно передвинуть. Как узнать что соседняя клетка пустая???

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


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией через Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru