|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.06.2010, 17:07 | #1 |
Пользователь
Регистрация: 17.06.2010
Сообщений: 33
|
Пасьянс prisoner!
У меня курсач на тему пасьянс присонер! Думал скачаю из интернета любой исходник и переделаю но не тут уж было разобратся там ни в чем несмог! Решил делать сам. Вывел карты а дальше че делать невъежяю! Да и вывод карт - мне сказали что у меня "какой-то корявый". Посмотрите пожалуйста чем сможете помогите очень буду благодарен! Хотябы намекните что и в какой последовательности делать? Заранее огромное спасибо!
Вот собственно и правило игры: Колода тщательно тасуется, снимается и выкладываются открытыми 2 ряда из 9 карт. Следующие 3 карты по одной выкладываются сверху тоже картинкой вверх. Если в нижних рядах встретятся карты того же достоинства, что и средняя карта верхнего ряда, то их снимают и кладут только на среднюю карту. Так, например, если средняя карта верхнего ряда - девятка, то на нее необходимо положить все девятки из двух нижних рядов. После этого (в том случае, если на среднюю карту положить нечего) открываются по одной следующие 3 карты из колоды и вновь собирают на среднюю карту карты того же достоинства нижних рядов. Колода раскладывается 2 раза. Пасьянс сошелся, если все 9 карт удалось переложить указанным порядком на средние карты верхнего ряда. Если вопрос сформулирован неправильно или вызывает у тебя "нервоЗ" прошу сильно неругать т.к на форуме я собственно недавно! карты на форме должны распологаются так: **** **** **** **** колода **** **** **** карты лежат в папке Card с раширением bmp а вот и номера карт:**** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** **** Крести: туз - 1 2-ка - 2 4-ка - 4 5-ка - 5 6-ка - 6 7-ка - 7 8-ка - 8 9-ка - 9 10-ка - 10 валет - 11 дама - 12 король- 13 буби: туз - 14 2-ка - 15 3-ка - 16 4-ка - 17 5-ка - 18 6-ка - 19 7-ка - 20 8-ка - 21 9-ка - 22 10-ка - 23 валет - 24 дама - 25 король- 26 черви: туз -27 2-ка - 28 3-ка - 29 4-ка - 30 5-ка - 31 6-ка - 32 7-ка - 33 8-ка - 34 9-ка - 35 10-ка - 36 валет - 37 дама - 38 король- 39 пики: туз - 40 2-ка - 41 3-ка - 42 4-ка - 43 5-ка - 44 6-ка - 45 7-ка - 46 8-ка - 47 9-ка - 48 10-ка - 49 валет - 50 дама - 51 король- 52 А вот и код вывода карт а дальше что делать непредставляю. Код:
Последний раз редактировалось Stilet; 25.06.2010 в 08:21. |
25.06.2010, 03:33 | #2 |
Пользователь
Регистрация: 17.06.2010
Сообщений: 33
|
Теперь вроде нужно сделать так в конце каждого цикла:
CardInPyramid:=CardInPyramid+IntToS tr(CardType)+' ';//сохранение номеров карт в пирамиде а дальше надо как то захватить карту и тащить ее .... Последний раз редактировалось Warfvare; 25.06.2010 в 03:48. |
25.06.2010, 07:07 | #3 |
Форумчанин
Регистрация: 02.07.2009
Сообщений: 722
|
Ну я бы сделал карту отдельным элементом у которого есть характеристики: что это за карта(туз пики скажем), ее координаты, и фокус.
При нажатии на карту(сравниваем координаты карт и координаты мышки) и если мышка нажата то фокус правда и если фокус правда то меняем координаты карты в соответствии с мышкой... кнопка отпущена, то фокус фальшь(перестаем двигать) |
25.06.2010, 07:43 | #4 | |
Пользователь
Регистрация: 17.06.2010
Сообщений: 33
|
Это что мне надо было катрты через компонент image выводить?
Цитата:
Код:
Последний раз редактировалось Stilet; 25.06.2010 в 08:51. |
|
25.06.2010, 08:27 | #5 |
Форумчанин
Регистрация: 02.07.2009
Сообщений: 722
|
Ну у меня это выглядело как-то так:
карта Код:
Код:
|
25.06.2010, 08:40 | #6 |
Пользователь
Регистрация: 17.06.2010
Сообщений: 33
|
а это Delphi? чет я тут неразберусь!
Что касается параметовы курсора я вроде нашел procedure TForm1.FormClick(Sender: TObject); var MyMouse: TMouse; begin Form1.Caption := inttostr(MyMouse.CursorPos.x)+ inttostr(MyMouse.CursorPos.y); end; а что дальше может поподробнее раскажете а то я в програмировании не очень! Последний раз редактировалось Warfvare; 25.06.2010 в 09:39. |
25.06.2010, 23:37 | #7 | |
Форумчанин
Регистрация: 02.07.2009
Сообщений: 722
|
Нет это не делфи) C# + XNA
Но я думаю в делфи можно чтото подобное организовать... Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Курсовой проект | tatishka | Помощь студентам | 1 | 19.01.2011 10:33 |
Задание на курсовой проект | Siluet | Помощь студентам | 0 | 31.05.2010 22:03 |
Курсовой проект (антивирус) | Kazik | Помощь студентам | 0 | 29.05.2010 23:32 |
Курсовой проект по Delphi 7 | Agent[PNZ] | Помощь студентам | 9 | 14.11.2008 13:25 |
Нужен курсовой проект | фамил | Помощь студентам | 2 | 13.05.2008 17:58 |