Нужно изменить код программы чтобы в пункте Новая игра был выбор размера поля

@_Pavelx_ · Регистрация: 12.05.2012

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

Нужно изменить код программы чтобы в пункте Новая игра был выбор поле 4*4,5*5,6*6,7*7,8*8.

Размер указывается в описании констант...

И да , я нуб..

Delphi
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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
unit main;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    procedure ButClicked(Sender: TObject);
    procedure CreatFishkas();
    procedure KillOldFihkas();
    function position(const x, y: integer): integer;
    procedure victopia();
    { Private declarations }
  public
    { Public declarations }
  end;
 
type Tfish = TButton; // указываем тип наших фишек, не нравится бутон - укажите другой
 
const
  W = 80; // ширина фишки
  D = 10; // растояние между фишками
  L = D + W; // растояние между "х" у фишек
  NXM = 4; // размер поля 4х4
  N = 1; M = 16; // размерность массива фишек
  POLET = 10; POLEL = 10; //начальные позиции поля фишек на форме
  prefix = 'Fishka';
 
var
  Form1: TForm1;
  btn: array[N..M] of Tfish;
  sorseAr: array[N..M] of boolean;
  zeroX, zeroY: integer;
  XYmatrix: array[1..M, 1..2] of integer;
 
implementation
 
{$R *.dfm}
 
//размер формы
 
procedure FormSize;
begin
  Form1.Width := (POLEL * 2) + (L * NXM);
  Form1.Height := (L * NXM) + POLET + 50;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var i, ty, lx: integer;
begin
  randomize; i := 0;
   // заполняем массив коорденатами на которые будут случайным образом ставиться
   // фишки при начале новой игры
  ty := POLET; lx := POLEL;
  for i := N to M do begin
    XYmatrix[i, 1] := lx;
    XYmatrix[i, 2] := ty;
    lx := lx + L;
    if i mod NXM = 0 then begin
      ty := ty + L;
      lx := POLEL;
    end;
  end;
  FormSize();
end;
 
 
procedure TForm1.FormShow(Sender: TObject);
begin
  CreatFishkas();
end;
 
// клик по пункту меню - "новая игра"
 
procedure TForm1.N1Click(Sender: TObject);
begin
  KillOldFihkas();
  FormSize();
  CreatFishkas();
end;
 
{ сбрасывает все элементы массива в true,
 массив отвечает за неповторяющиеся порядковые номера фишек
 которые выбираются случайным образом
нужно при иницилизации новой игры}
 
function dump(): boolean;
var i: integer;
begin
  i := 0;
  for i := N to M do
    sorseAr[i] := true; ;
end;
 
// непосредственно алгоритм выборки неповторяющихся значений случайным образом
 
function choose(): integer;
var i: integer;
begin
  i := 0;
  result := random(M) + 1;
  while sorseAr[result] = false do
    result := random(M) + 1;
  sorseAr[result] := false;
end;
 
procedure TForm1.CreatFishkas;
// НОВАЯ ИГРА, создание игрового поля
var
  i, ty, lx, ch: integer;
begin
  randomize;
  dump();
 // But.Enabled:=false; BitBtn1.Enabled:=true; BitBtn2.Enabled:=true;
  ty := POLET; lx := POLEL;
  for i := N to M do begin
 
    btn[i] := Tfish.Create(Self);
    btn[i].Width := W;
    btn[i].Height := W;
    btn[i].Font.Size := 26;
    btn[i].Font.Style := [fsBold];
 
    ch := choose(); // получаем случайным образом число 1-16, числа не повторяются
 
    btn[i].Left := XYmatrix[ch, 1]; // получаем коорденату Х
    btn[i].Top := XYmatrix[ch, 2]; // получаем коорденату У
    btn[i].Tag := ch; // в Tag будем держать текущее положение фишки
    btn[i].Name := prefix + inttostr(i);
 
    if i <> M then begin
      btn[i].Caption := inttostr(i);
      btn[i].OnClick := ButClicked;
    end else begin // это пустая кнопка, без каптион и обработчика OnClick
      btn[i].Caption := '';
      zeroX := btn[i].Left; zeroY := btn[i].Top;
    end;
 
    btn[i].Parent := Self;
 
  end;
end;
 
 
// определяет позицию на которой стоит фишка в данный момент по ее коорденатам
 
function TForm1.position(const x, y: integer): integer;
var i: integer;
begin
  i := 0;
  result := -32;
  for i := N to M do begin
    if ((XYmatrix[i, 1] = x) and (XYmatrix[i, 2] = y)) then begin
      result := i; break;
    end;
  end;
end;
 
 
// перемешение фишки на новую позицию
 
procedure TForm1.ButClicked(Sender: TObject);
var X, Y, ps: integer;
begin
  X := Tfish(Sender).left; Y := Tfish(Sender).Top;
  if ((X = zeroX + L) and (Y = zeroY)) or
    ((X = zeroX - L) and (Y = zeroY)) or
    ((X = zeroX) and (Y = zeroY + L)) or
    ((X = zeroX) and (Y = zeroY - L)) then begin
 
    Tfish(Sender).Left := zeroX;
    Tfish(Sender).Top := zeroY;
 
    Tfish(FindComponent(prefix + inttostr(M))).left := X;
    Tfish(FindComponent(prefix + inttostr(M))).top := Y;
 
    ps := position(zeroX, zeroY);
    if ps <> -32 then
      Tfish(Sender).Tag := ps else
      ShowMessage('Ошибка в логике проги. КООРДЕНАТЫ');
 
    zeroX := X; zeroY := Y;
 
    victopia(); // проверка - ПОБЕДА или играем дальше
  end;
end;
 
// проверка - ПОБЕДА или играем дальше...
 
procedure TForm1.victopia;
var i: integer; b: boolean;
begin
  b := true; i := 0;
  for i := N to M - 1 do
  begin
    if strtoint(Tfish(FindComponent(prefix + inttostr(i))).Caption) <>
      Tfish(FindComponent(prefix + inttostr(i))).Tag then
    begin
      b := false; break;
    end;
  end;
  if b then ShowMessage('Вы побелили');
end;
 
 
procedure TForm1.KillOldFihkas;
// уничтожаем кнопки-фишки, нужно перед началом новой игры
var i: integer;
begin
  for i := N to M do
    FreeAndNil(btn[i]);
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
  Application.Terminate();
end;
 
end.

Добавлено через 3 часа 53 минуты
апчик(10)))

Добавлено через 3 часа 13 минут
поднимаю вверх

@_Pavelx_ · 07.06.2012, 23:51 **[ТС]**

Одиночка, Спасибо,очень помог!

Добавлено через 19 часов 53 минуты
Слушай, решил добавить еще в меню 3*3, все ок, его создает, но после выбора , например поля 5*5, потом не могу выбрать 3*3 и приходиться перезапускать прогу, в твоем варианте 4*4, работала отлично, что не так делаю?

Добавлено через 3 часа 43 минуты
Все, разобрался сам)

@_Pavelx_ · 08.06.2012, 15:01 **[ТС]**

1)Как добавить в игру таблицу результатов по времени, и чтобы лучший результат заменял предыдущий?
2)Нужно осуществить нормальное управление клавиатурой. Щас оно работает только так : по полю двигаться не можем сами, работает только следующая цифра и предыдущая, это не удобно.
3)Что посоветуете изменить для красоты в стиле?

Delphi
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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3x31: TMenuItem;
    N4x41: TMenuItem;
    N5x51: TMenuItem;
    N6x61: TMenuItem;
    N7x71: TMenuItem;
    N8x81: TMenuItem;
    N3: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
 
  
  private
    procedure ButClicked(Sender: TObject);
    procedure CreatFishkas();
    procedure KillOldFihkas();
    function position(const x, y: integer): integer;
    procedure victopia();
    { Private declarations }
  public
    { Public declarations }
  end;
 
type Tfish = TButton; // указываем тип наших фишек
 
const
  W = 80; // ширина фишки
  D = 10; // растояние между фишками
  L = D + W; // растояние между "х" у фишек
  N = 1; // размерность массива фишек
  POLET = 10; POLEL = 10; //начальные позиции поля фишек на форме
  prefix = 'Fishka';
 
var
  NXM : Integer = 3; // размер поля 3х3 (начальное)
  M : Integer = 9;  // размерность массива фишек
 
  Form1: TForm1;
  btn: array[N..64] of Tfish;
  sorseAr: array[N..64] of boolean;
  zeroX, zeroY: integer;
  XYmatrix: array[1..64, 1..2] of integer;
 
implementation
 
{$R *.dfm}
 
//размер формы
 
procedure FormSize;
begin
  Form1.Width := (POLEL * 2) + (L * NXM);
  Form1.Height := (L * NXM) + POLET + 50;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var i, ty, lx: integer;
begin
  randomize;
   // заполняем массив координатами на которые будут случайным образом ставиться
   // фишки при начале новой игры
  ty := POLET; lx := POLEL;
  for i := N to M do
  begin
    XYmatrix[i, 1] := lx;
    XYmatrix[i, 2] := ty;
    lx := lx + L;
    if i mod NXM = 0 then
    begin
      ty := ty + L;
      lx := POLEL;
    end;
  end;
  FormSize;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  CreatFishkas;
end;
 
// клик по пункту меню - "новая игра"
procedure TForm1.N1Click(Sender: TObject);
begin
  KillOldFihkas;
 
  If (Sender is TmenuItem) Then
  NXM:=(Sender as TmenuItem).Tag Else NXM:=3;
  M:=NXM*NXM;
 
  Form1.OnCreate(Self);
//  FormSize;
  CreatFishkas;
end;
 
// сбрасывает все элементы массива в true,
// массив отвечает за неповторяющиеся порядковые номера фишек
// которые выбираются случайным образом
// нужно при иницилизации новой игры}
Procedure dump;
var i: integer;
begin
  for i := N to M do
  sorseAr[i] := true; ;
end;
 
// непосредственно алгоритм выборки неповторяющихся значений случайным образом
function choose: integer;
begin
  result := random(M) + 1;
  while sorseAr[result] = false do
  result := random(M) + 1;
  sorseAr[result] := false;
end;
 
// НОВАЯ ИГРА, создание игрового поля
procedure TForm1.CreatFishkas;
var
  i, ch: integer;
begin
  randomize;
  dump;
  for i := N to M do begin
    btn[i] := Tfish.Create(Self);
    btn[i].Width := W;
    btn[i].Height := W;
    btn[i].Font.Size := 26;
    btn[i].Font.Style := [fsBold];
 
    ch := choose; // получаем случайным образом число 1-16, числа не повторяются
 
    btn[i].Left := XYmatrix[ch, 1]; // получаем коорденату Х
    btn[i].Top := XYmatrix[ch, 2]; // получаем коорденату У
    btn[i].Tag := ch; // в Tag будем держать текущее положение фишки
    btn[i].Name := prefix + inttostr(i);
 
    if i <> M then
    begin
      btn[i].Caption := inttostr(i);
      btn[i].OnClick := ButClicked;
    end else
    begin // это пустая кнопка, без каптион и обработчика OnClick
      btn[i].Caption := '';
      zeroX := btn[i].Left; zeroY := btn[i].Top;
    end;
 
    btn[i].Parent := Self;
  end;
end;
 
// определяет позицию на которой стоит фишка в данный момент по ее коорденатам
function TForm1.position(const x, y: integer): integer;
var i: integer;
begin
  result := -32;
  for i := N to M do
  if ((XYmatrix[i, 1] = x) and (XYmatrix[i, 2] = y)) then
  begin result := i; break; end;
end;
 
// перемешение фишки на новую позицию
procedure TForm1.ButClicked(Sender: TObject);
var X, Y, ps: integer;
begin
  X := Tfish(Sender).left; Y := Tfish(Sender).Top;
  if ((X = zeroX + L) and (Y = zeroY)) or
  ((X = zeroX - L) and (Y = zeroY)) or
  ((X = zeroX) and (Y = zeroY + L)) or
  ((X = zeroX) and (Y = zeroY - L)) then
  begin
    Tfish(Sender).Left := zeroX;
    Tfish(Sender).Top := zeroY;
 
    Tfish(FindComponent(prefix + inttostr(M))).left := X;
    Tfish(FindComponent(prefix + inttostr(M))).top := Y;
 
    ps := position(zeroX, zeroY);
    if ps <> -32 then
    Tfish(Sender).Tag := ps else
    ShowMessage('Ошибка в логике проги. КООРДИНАТЫ');
 
    zeroX := X; zeroY := Y;
 
    victopia; // проверка - ПОБЕДА или играем дальше
  end;
end;
 
// проверка - ПОБЕДА или играем дальше...
procedure TForm1.victopia;
var i: integer; b: boolean;
begin
  b := true;
  for i := N to M - 1 do
  if strtoint(Tfish(FindComponent(prefix + inttostr(i))).Caption) <>
  Tfish(FindComponent(prefix + inttostr(i))).Tag then
  begin b := false; break; end;
 
  if b then ShowMessage('Вы побелили');
end;
 
procedure TForm1.KillOldFihkas;
// уничтожаем кнопки-фишки, нужно перед началом новой игры
var i: integer;
begin
  for i := N to M do
  FreeAndNil(btn[i]);
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
  Application.Terminate();
end;
 
 
end.

Одиночка · 08.06.2012, 23:09

Насчет клавиатуры, я не понял. Сейчас, по-моему, она не учавствует.
Для красоты в стиле попробуй просто поставить XPManifest - вкладка Win32. Может этого будет достаточно

@_Pavelx_ · 08.06.2012, 23:30 **[ТС]**

Сообщение от Одиночка

Насчет клавиатуры, я не понял. Сейчас, по-моему, она не учавствует.
Для красоты в стиле попробуй просто поставить XPManifest - вкладка Win32. Может этого будет достаточно

Клава работает, выбор на стрелках , но от 1 цифры, тоесть 1>2>3>4 и так далее , или в обратном порядке, пробел перемещает этот элемент. Но очень долго надо искать компонент который находиться рядом с пустой клеткой.

Я тоже не нашел где прописано на клавиатуру, но работает)

Одиночка · 09.06.2012, 03:00

Стрелкой указываешь откуда перемещаться на пустую клетку. Если что, разберёшься - поменяешь.

@_Pavelx_ · 11.06.2012, 16:11 **[ТС]**

Сообщение от Одиночка

Стрелкой указываешь откуда перемещаться на пустую клетку. Если что, разберёшься - поменяешь.

А что с рекордами? Щас потестил - не сохраняет

Одиночка · 11.06.2012, 16:16

Я не проверил, так как не смог пройти быстро, а время не хотелось тратить. Щас гляну.

@_Pavelx_ · 11.06.2012, 16:45 **[ТС]**

Сообщение от Одиночка

Я не проверил, так как не смог пройти быстро, а время не хотелось тратить. Щас гляну.

3*3 за 46 секунд собрал)

Одиночка · 11.06.2012, 16:47

Ну ты крут. Я не люблю думать. Мне больше по душе сапёр. Там разминирую на автомате.

@_Pavelx_ · 11.06.2012, 16:49 **[ТС]**

Сообщение от Одиночка

Ну ты крут. Я не люблю думать. Мне больше по душе сапёр. Там разминирую на автомате.

А вот сапер, увы, не для меня) Там долго рассчитывать надо)

Одиночка · 11.06.2012, 16:53

Найди в своём коде такую строку:

Delphi
1
    If ArrRecords[NXM].Time>TimeGame Then

и замени её на :

Delphi
1
    If ((ArrRecords[NXM].Time>TimeGame) Or (ArrRecords[NXM].Time=0)) Then

@_Pavelx_ · 12.06.2012, 13:19 **[ТС]**

Нужно доработать таблицу результатов:

Чтобы под каждый вариант поля было по 10 результатов

Рекорды:
3*3
4*4
5*5
6*6
7*7
8*8

И еще если можно , сказали, дизайн по красивее сделать...

Спасибо.

Одиночка · 12.06.2012, 19:53

Извини, смогу помочь не раньше, чем завтра вечером. Может кто другой возьмётся. Там уже всё достаточно просто.
А насчёт оформления. У меня вариантов нет. Я не дизайнер. Придумай сам как это должно выглядеть.

@_Pavelx_ · 13.06.2012, 13:28 **[ТС]**

Сообщение от Одиночка

Извини, смогу помочь не раньше, чем завтра вечером. Может кто другой возьмётся. Там уже всё достаточно просто.
А насчёт оформления. У меня вариантов нет. Я не дизайнер. Придумай сам как это должно выглядеть.

Хорошо, если сможешь, то помоги

Одиночка · 14.06.2012, 08:37

Вот. Только свой файл Records.dat сюда уже не пристёгивай - немного поменялся формат.

@_Pavelx_ · 14.06.2012, 18:21 **[ТС]**

Каким образом осуществить такое?

Нужно чтобы в пятнашках не было нерешаемых комбинаций

Типa такого:

1 2 3
4 5 6
8 7 _

@_Pavelx_ · 14.06.2012, 19:37 **[ТС]**

Вот дизайн:

Одиночка · 15.06.2012, 23:55

Я вот подумал. А если поставить ещё на форму кнопку: "перемешать". И по щелчке по ней прямо на глазах всё будет перемешиваться.
А ну ответь.

@_Pavelx_ · 16.06.2012, 00:07 **[ТС]**

Сообщение от Одиночка

Я вот подумал. А если поставить ещё на форму кнопку: "перемешать". И по щелчке по ней прямо на глазах всё будет перемешиваться.
А ну ответь.

А почему бы и нет) В нете видел что-то похожее.

Без кнопки тяжелей осуществить?

Одиночка · 16.06.2012, 00:16

С кнопкой. Я вот сейчас тестирую, - практически мгновенно это делается. Хотя я думал - это будет сильно заметно, поэтому изначально фишки выставляются в нормальном порядке, потом пользователь нажимает кнопку - и всё перемешивается. Т.е. это делается просто случайным выбором нажатия стрелки в одном из 4-х направлений. А если это в самом массиве делать - нужно вникать глубже в код. А мне бы этого не хотелось
Но если всё так быстро - можно и без кнопки.

Новые блоги и статьи Все статьи Все блоги /
Использование Linq2Db в проектах C# .NET UnmanagedCoder 21.05.2025 Среди множества претендентов на корону "идеального ORM" особое место занимает Linq2Db — микро-ORM, балансирующий между мощью полноценных инструментов и легковесностью ручного написания SQL. Что. . .	Реализация Domain-Driven Design с Java Javaican 20.05.2025 DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .	Возможности и нововведения C# 14 stackOverflow 20.05.2025 Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .	Собеседование по Node.js - вопросы и ответы Reangularity 20.05.2025 Каждому разработчику рано или поздно приходится сталкиватся с техническими собеседованиями - этим стрессовым испытанием, где решается судьба карьерного роста и зарплатных ожиданий. В этой статье я. . .	Cython и C (СИ) расширения Python для максимальной производительности py-thonny 20.05.2025 Python невероятно дружелюбен к начинающим и одновременно мощный для профи. Но стоит лишь заикнуться о высокопроизводительных вычислениях — и энтузиазм быстро улетучивается. Да, Питон медлительнее. . .
Безопасное программирование в Java и предотвращение уязвимостей (SQL-инъекции, XSS и др.) Javaican 19.05.2025 Самые распространёные векторы атак на Java-приложения за последний год выглядят как классический "топ-3 хакерских фаворитов": SQL-инъекции (31%), межсайтовый скриптинг или XSS (28%) и CSRF-атаки. . .	Введение в Q# - язык квантовых вычислений от Microsoft EggHead 19.05.2025 Microsoft вошла в гонку технологических гигантов с собственным языком программирования Q#, специально созданным для разработки квантовых алгоритмов. Но прежде чем погружаться в синтаксические дебри. . .	Безопасность Kubernetes с Falco и обнаружение вторжений Mr. Docker 18.05.2025 Переход организаций к микросервисной архитектуре и контейнерным технологиям сопровождается лавинообразным ростом векторов атак — от тривиальных попыток взлома до многоступенчатых кибератак, способных. . .	Аугментация изображений с Python AI_Generated 18.05.2025 Собрать достаточно большой датасет для обучения нейронной сети — та ещё головная боль. Часами вручную размечать картинки, скармливать их ненасытным алгоритмам и молиться, чтобы модель не сдулась при. . .	Исключения в Java: советы, примеры кода и многое другое Javaican 18.05.2025 Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	07.06.2012, 23:51 [ТС]
	Одиночка, Спасибо,очень помог! Добавлено через 19 часов 53 минуты Слушай, решил добавить еще в меню 33, все ок, его создает, но после выбора , например поля 55, потом не могу выбрать 33 и приходиться перезапускать прогу, в твоем варианте 44, работала отлично, что не так делаю? Добавлено через 3 часа 43 минуты Все, разобрался сам) 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	08.06.2012, 23:09
	Насчет клавиатуры, я не понял. Сейчас, по-моему, она не учавствует. Для красоты в стиле попробуй просто поставить XPManifest - вкладка Win32. Может этого будет достаточно 1

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	11.06.2012, 16:16
	Я не проверил, так как не смог пройти быстро, а время не хотелось тратить. Щас гляну. 1

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	11.06.2012, 16:47
	Ну ты крут. Я не люблю думать. Мне больше по душе сапёр. Там разминирую на автомате. 0

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	12.06.2012, 13:19 [ТС]
	Нужно доработать таблицу результатов: Чтобы под каждый вариант поля было по 10 результатов Рекорды: 33 44 55 66 77 88 И еще если можно , сказали, дизайн по красивее сделать... Спасибо. 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	12.06.2012, 19:53
	Извини, смогу помочь не раньше, чем завтра вечером. Может кто другой возьмётся. Там уже всё достаточно просто. А насчёт оформления. У меня вариантов нет. Я не дизайнер. Придумай сам как это должно выглядеть. 1

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	14.06.2012, 18:21 [ТС]
	Каким образом осуществить такое? Нужно чтобы в пятнашках не было нерешаемых комбинаций Типa такого: 1 2 3 4 5 6 8 7 _ 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	15.06.2012, 23:55
	Я вот подумал. А если поставить ещё на форму кнопку: "перемешать". И по щелчке по ней прямо на глазах всё будет перемешиваться. А ну ответь. 1

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	16.06.2012, 00:16
	С кнопкой. Я вот сейчас тестирую, - практически мгновенно это делается. Хотя я думал - это будет сильно заметно, поэтому изначально фишки выставляются в нормальном порядке, потом пользователь нажимает кнопку - и всё перемешивается. Т.е. это делается просто случайным выбором нажатия стрелки в одном из 4-х направлений. А если это в самом массиве делать - нужно вникать глубже в код. А мне бы этого не хотелось Но если всё так быстро - можно и без кнопки. 1