Ход конем

@Мария44 · Регистрация: 22.04.2017

Студворк — интернет-сервис помощи студентам

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

@lifeforce · 23.04.2017, 09:55

Мария44,
вот поставь себя на наше место! и посмотри на ЕХЕ файл и разберись что он делает.
код гдеееее.....?

@TButton · 02.05.2017, 09:51

Сообщение от Мария44

Как переделать программу

Для нас программистов без исходника увы никак(.

@keltor · 03.05.2017, 14:50

Динамическое создание массива компонентов класса TButton, и их же удаление. А также работа с этими компонентами.

Получилась игрулька Ход конем, можно создать поле от 1х1 до 20х20 (а можно и больше) и попытаться заполнить это поле прыгая лошадкой.
Создаем форму, 2 кнопки и 4 спина.
Вот код(Unit1.h):

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
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.SysUtils.hpp>
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ComCtrls.hpp>
#include <Vcl.Samples.Spin.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TSpinEdit *SpinEdit1;
    TSpinEdit *SpinEdit2;
    TSpinEdit *SpinEdit3;
    TSpinEdit *SpinEdit4;
    TLabel *Label1;
    TLabel *Label2;
    TLabel *Label3;
    TLabel *Label4;
    TButton *Button1;
    TButton *Button2;
    void __fastcall ButtonClick (TObject *Sender);
    void __fastcall SpinEdit1Change(TObject *Sender);
    void __fastcall SpinEdit2Change(TObject *Sender);
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall Button2Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//extern PACKAGE TMyButton *TMyButton;
//---------------------------------------------------------------------------
#endif

Вот Unit1.cpp

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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
const int maxcol=20, maxrow=20;
int usebut=1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------//---------------------------------------------------------------------------}
void __fastcall TForm1::ButtonClick (TObject *Sender) {
 
 int x, y;
 
 ((TButton *)Sender)->Caption=IntToStr(usebut);
 ((TButton *)Sender)->Tag=1;
  x=((TButton *)Sender)->SelectedImageIndex;
  y=((TButton *)Sender)->PressedImageIndex;
 
for(int i=Form1->ComponentCount-1;i>0;i--)
{if (Form1->Components[i]->ClassNameIs("TButton")&&(Form1->Components[i]->Name!="Button1")&&(Form1->Components[i]->Name!="Button2"))
        {
        ((TButton*)Form1->Components[i])->Enabled=false;
        }
}
 
for(int i=Form1->ComponentCount-1;i>0;i--)
{
    if(Form1->Components[i]->ClassNameIs("TButton")&&(Form1->Components[i]->Name!="Button1")&&(Form1->Components[i]->Name!="Button2"))
    {if (Form1->Components[i]->Tag==0)
     {
        if ((((TButton*)Form1->Components[i])->SelectedImageIndex==x+2)&&(((TButton*)Form1->Components[i])->PressedImageIndex==y+1))
        {
        ((TButton*)Form1->Components[i])->Enabled=true;
        Form1->Components[i]->Tag==1;
        }
        if ((((TButton*)Form1->Components[i])->SelectedImageIndex==x+2)&&(((TButton*)Form1->Components[i])->PressedImageIndex==y-1))
        {
        ((TButton*)Form1->Components[i])->Enabled=true;
        Form1->Components[i]->Tag==1;
        }
        if ((((TButton*)Form1->Components[i])->SelectedImageIndex==x-2)&&(((TButton*)Form1->Components[i])->PressedImageIndex==y+1))
        {
        ((TButton*)Form1->Components[i])->Enabled=true;
        Form1->Components[i]->Tag==1;
        }
        if ((((TButton*)Form1->Components[i])->SelectedImageIndex==x-2)&&(((TButton*)Form1->Components[i])->PressedImageIndex==y-1))
        {
        ((TButton*)Form1->Components[i])->Enabled=true;
        Form1->Components[i]->Tag==1;
        }
        if ((((TButton*)Form1->Components[i])->SelectedImageIndex==x+1)&&(((TButton*)Form1->Components[i])->PressedImageIndex==y+2))
        {
        ((TButton*)Form1->Components[i])->Enabled=true;
        Form1->Components[i]->Tag==1;
        }
        if ((((TButton*)Form1->Components[i])->SelectedImageIndex==x+1)&&(((TButton*)Form1->Components[i])->PressedImageIndex==y-2))
        {
        ((TButton*)Form1->Components[i])->Enabled=true;
        Form1->Components[i]->Tag==1;
        }
        if ((((TButton*)Form1->Components[i])->SelectedImageIndex==x-1)&&(((TButton*)Form1->Components[i])->PressedImageIndex==y+2))
        {
        ((TButton*)Form1->Components[i])->Enabled=true;
        Form1->Components[i]->Tag==1;
        }
        if ((((TButton*)Form1->Components[i])->SelectedImageIndex==x-1)&&(((TButton*)Form1->Components[i])->PressedImageIndex==y-2))
        {
        ((TButton*)Form1->Components[i])->Enabled=true;
        Form1->Components[i]->Tag==1;
        }
     }
    }
}
 
 if (usebut==SpinEdit1->Value*SpinEdit1->Value) {ShowMessage("Ура! Вы победили");}
 
 usebut++;
 ((TButton *)Sender)->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpinEdit1Change(TObject *Sender)
{
SpinEdit3->MaxValue=SpinEdit1->Value;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpinEdit2Change(TObject *Sender)
{
SpinEdit4->MaxValue=SpinEdit2->Value;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i=Form1->ComponentCount-1;i>0;i--)
 {
   if(Form1->Components[i]->ClassNameIs("TButton")&&(Form1->Components[i]->Name!="Button1")&&(Form1->Components[i]->Name!="Button2"))
   {
   delete Form1->Components[i];
   }
 }
 Button2->Enabled=true;
 usebut=1;
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int spin1,spin2,spin3,spin4;
int left=100, top=100;
int iwidth=20, iheight=20;
TButton* but[maxrow][maxcol];
 
spin1= SpinEdit1->Value;
spin2=SpinEdit2->Value;
spin3= SpinEdit3->Value-1;
spin4= SpinEdit4->Value-1;
 
for (int j = 0; j < spin1; j++)
{
    for (int i=0; i < spin2; i++)
    {
    but[i][j]= new TButton(Form1);
    but[i][j]->Width=iwidth;
    but[i][j]->Height=iheight;
    but[i][j]->Left=left;
    but[i][j]->Top=top;
    but[i][j]->Name="row"+IntToStr(i)+"col"+IntToStr(j);
    but[i][j]->Caption="";
    but[i][j]->Tag=0;
    but[i][j]->SelectedImageIndex=j;
    but[i][j]->PressedImageIndex=i;
    but[i][j]->Enabled=false;
    left=left+iwidth;
    but[i][j]->Parent=Form1;
    but[i][j]->OnClick = ButtonClick;
    }
left=100;
top=top+iheight;
}
but[spin3][spin4]->Enabled=true;
Button2->Enabled=false;
}
//---------------------------------------------------------------------------

@keltor · 04.05.2017, 10:38

Файл с программой откомпилированной и исходники. Вроде прикладывал. Попробую ещё раз. RadStudio XE7.

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234
	23.04.2017, 09:55
	Мария44, вот поставь себя на наше место! и посмотри на ЕХЕ файл и разберись что он делает. код гдеееее.....? 0