VPF::[VB6] Демонстрационная шахматная доска

Neolamer

Дата 15.5.2007, 21:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.2.2007

Репутация: нет
Всего: нет

Помогите пожалуйста написать программу-шахматную доску на каторой изначально стоят фигуры в стартовой позиции по правилам шахмат и их можно перемещать по доске, желательно чтобы фигуры ставились ровно на каждую клетку, но не обезательно и чтобы доску можно было переворачивать. Если можно с использованием вот этих фигур которые во вложеном файле (формат файла *.wmf). П.С. Я почти ноль в програмировании. А это мой курсовик smile

Почему я прошу написать прогу именно на этом форуме, потомучто мне уже тут помогли с паскалем и я остался в вузе. Этот форум просто супер smile

Скорее всего вы мне опять поможете.

Присоединённый файл ( Кол-во скачиваний: 9 )

chess 19,28 Kb

Neolamer

Дата 17.5.2007, 18:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.2.2007

Репутация: нет
Всего: нет

Народ, переведите пж с паскаля на vb6 эту прогу, это шахматная доска на паскале, а мне на vb6 просто нужна. ПЖ

Код


uses ABCObjects,Events;

var
  br: ChessBoardABC;
  ChessFigures: ChessSetABC;
  wk,wq,wb1,wkn1,wr1,wb2,wkn2,wr2: ChessFigureABC;
  wp: array [1..8] of ChessFigureABC;
  bk,bq,bb1,bkn1,br1,bb2,bkn2,br2: ChessFigureABC;
  bp: array [1..8] of ChessFigureABC;

procedure CreateFigures;
var i: integer;
begin
  ChessFigures:=ChessSetABC.Create('Chess.wmf',45,br);

  wk:=ChessFigures.CreateWhiteKing(5,1);
  wq:=ChessFigures.CreateWhiteQueen(4,1);
  wb1:=ChessFigures.CreateWhiteBishop(3,1);
  wkn1:=ChessFigures.CreateWhiteKnight(2,1);
  wr1:=ChessFigures.CreateWhiteRook(1,1);
  wb2:=ChessFigures.CreateWhiteBishop(6,1);
  wkn2:=ChessFigures.CreateWhiteKnight(7,1);
  wr2:=ChessFigures.CreateWhiteRook(8,1);
  for i:=1 to 8 do
    wp[i]:=ChessFigures.CreateWhitePown(i,2);

  bk:=ChessFigures.CreateBlackKing(5,8);
  bq:=ChessFigures.CreateBlackQueen(4,8);
  bb1:=ChessFigures.CreateBlackBishop(3,8);
  bkn1:=ChessFigures.CreateBlackKnight(2,8);
  br1:=ChessFigures.CreateBlackRook(1,8);
  bb2:=ChessFigures.CreateBlackBishop(6,8);
  bkn2:=ChessFigures.CreateBlackKnight(7,8);
  br2:=ChessFigures.CreateBlackRook(8,8);
  for i:=1 to 8 do
    bp[i]:=ChessFigures.CreateBlackPown(i,7);
end;
begin
  br:=CreateChessBoardABC(20,20,8,8,50,clBlack);
  br.MouseIndifferent:=True;
  br.Delay:=50;
  CreateFigures;
  OnMouseDown:=ABCMouseDown;
  OnMouseMove:=ABCMouseMove;
  OnMouseUp:=ABCMouseUp;
end.

В вложеном файле лежит модуль ABCObjects

Это сообщение отредактировал(а) Neolamer - 17.5.2007, 19:04

Присоединённый файл ( Кол-во скачиваний: 4 )

ABCObjects.pas 42,29 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »