Народ, переведите пж с паскаля на 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 |
Почему я прошу написать прогу именно на этом форуме, потомучто мне уже тут помогли с паскалем и я остался в вузе. Этот форум просто супер 
Скорее всего вы мне опять поможете.