用js写俄罗斯方块程序。

非常感谢您的问题。关于用JS写俄罗斯方块程序，我可以给您一些建议。首先，您可以使用HTML5的canvas元素来绘制游戏界面。其次，您可以使用JS来实现游戏逻辑，包括方块的移动、旋转、消除等。最后，您可以使用CSS来美化游戏界面，使其更加美观。希望这些建议能够帮助到您。

相关问题

用C#写俄罗斯方块程序

好的，我可以给你一些基本的思路和代码示例。

1. 创建一个新的C#项目，选择Windows Forms应用程序。

2. 在form中添加一个panel控件，设置其Dock为Fill，用于绘制俄罗斯方块游戏区域。还可以添加一些其他的控件，如Label用于显示得分。

3. 创建一个类用于表示方块的形状和位置，例如Tetromino。该类应包含一个二维数组用于表示方块的形状，以及一个Point类型的属性用于表示方块的位置。

4. 创建一个TetrominoGenerator类用于生成不同形状的方块。该类应该包含一个列表用于存储所有可能的方块形状，以及一个方法用于随机选择一种形状。

5. 在form中添加一个Timer控件，用于定时器控制方块下落。每次定时器触发时，检查当前方块是否可以继续下落，如果不能则生成一个新的方块。

6. 在panel的Paint事件中绘制当前方块以及已经下落的方块。可以使用Graphics对象绘制方块的形状。

7. 处理用户输入，例如左右移动方块、旋转方块等操作。可以在form的KeyDown事件中处理。

以下是一些代码示例，仅供参考：

Tetromino类：

public class Tetromino
{
    private int[,] shape;
    private Point position;

    public Tetromino(int[,] shape, Point position)
    {
        this.shape = shape;
        this.position = position;
    }

    public int[,] Shape
    {
        get { return shape; }
    }

    public Point Position
    {
        get { return position; }
        set { position = value; }
    }
}

TetrominoGenerator类：

public class TetrominoGenerator
{
    private List<int[,]> shapes;
    private Random random;

    public TetrominoGenerator()
    {
        shapes = new List<int[,]>();
        // 添加所有可能的方块形状
        shapes.Add(new int[,] { { 1, 1, 1, 1 } });
        shapes.Add(new int[,] { { 1, 1 }, { 1, 1 } });
        shapes.Add(new int[,] { { 1, 0, 0 }, { 1, 1, 1 } });
        shapes.Add(new int[,] { { 0, 0, 1 }, { 1, 1, 1 } });
        shapes.Add(new int[,] { { 1, 1, 0 }, { 0, 1, 1 } });
        shapes.Add(new int[,] { { 0, 1, 1 }, { 1, 1, 0 } });
        random = new Random();
    }

    public Tetromino Generate()
    {
        int[,] shape = shapes[random.Next(shapes.Count)];
        Point position = new Point(4, 0); // 初始位置为游戏区域中央
        return new Tetromino(shape, position);
    }
}

form中的代码：

public partial class MainForm : Form
{
    private TetrominoGenerator generator;
    private Tetromino currentTetromino;

    public MainForm()
    {
        InitializeComponent();
        generator = new TetrominoGenerator();
        currentTetromino = generator.Generate();
        timer1.Interval = 500; // 定时器间隔为500ms
        timer1.Start();
    }

    private void panel1_Paint(object sender, PaintEventArgs e)
    {
        // 绘制当前方块
        int[,] shape = currentTetromino.Shape;
        Point position = currentTetromino.Position;
        for (int i = 0; i < shape.GetLength(0); i++)
        {
            for (int j = 0; j < shape.GetLength(1); j++)
            {
                if (shape[i, j] == 1)
                {
                    e.Graphics.FillRectangle(Brushes.Red, (j + position.X) * 20, (i + position.Y) * 20, 20, 20);
                }
            }
        }
        // 绘制已经下落的方块
        // ...
    }

    private void timer1_Tick(object sender, EventArgs e)
    {
        // 判断当前方块是否可以继续下落
        if (CanMoveDown(currentTetromino))
        {
            currentTetromino.Position = new Point(currentTetromino.Position.X, currentTetromino.Position.Y + 1);
            panel1.Invalidate();
        }
        else
        {
            // 生成一个新的方块
            currentTetromino = generator.Generate();
        }
    }

    private bool CanMoveDown(Tetromino tetromino)
    {
        // 判断当前方块是否可以继续下落
        // ...
    }

    private void MainForm_KeyDown(object sender, KeyEventArgs e)
    {
        // 处理用户输入
        // ...
    }
}

用delphi写俄罗斯方块程序

以下是一个简单的俄罗斯方块程序，使用 Delphi 编写：

1. 创建一个新的 Delphi 项目。
2. 在主窗体上添加一个 TTimer 控件，设置 Interval 属性为 500ms。
3. 添加一个 TLabel 控件用于显示分数。
4. 添加一个 TPaintBox 控件用于绘制游戏画面。
5. 在窗体的 OnCreate 事件中初始化游戏数据结构和随机生成一个方块。
6. 在 TTimer 的 OnTimer 事件中更新方块位置，如果方块已经到达底部则固定在当前位置并生成一个新的方块。
7. 在 TPaintBox 的 OnPaint 事件中绘制游戏画面，包括已经固定的方块和正在下落的方块。
8. 在窗体的 OnKeyDown 事件中处理方向键和空格键的操作，移动方块或直接将其落到底部。

以下是代码示例：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TBlockType = (btI, btJ, btL, btO, btS, btT, btZ);
  TBlockShape = array[0..3, 0..3] of Boolean;

  TBlock = record
    BlockType: TBlockType;
    Shape: TBlockShape;
    X, Y: Integer;
  end;

  TForm1 = class(TForm)
    Timer1: TTimer;
    PaintBox1: TPaintBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
    FBlock: TBlock;
    FMap: array[0..9, 0..19] of Boolean;
    FScore: Integer;
    procedure InitMap;
    procedure InitBlock;
    function CanMove(dx, dy: Integer): Boolean;
    procedure MoveBlock(dx, dy: Integer);
    procedure RotateBlock;
    procedure FixBlock;
    procedure GenerateBlock;
    function CheckLine(y: Integer): Boolean;
    procedure RemoveLine(y: Integer);
    procedure UpdateScore;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  InitMap;
  InitBlock;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if CanMove(0, 1) then
    MoveBlock(0, 1)
  else
  begin
    FixBlock;
    GenerateBlock;
  end;
  PaintBox1.Invalidate;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  i, j: Integer;
  x, y: Integer;
  Color: TColor;
begin
  with PaintBox1.Canvas do
  begin
    Brush.Color := clBlack;
    FillRect(Rect(0, 0, PaintBox1.Width, PaintBox1.Height));

    for i := 0 to 9 do
      for j := 0 to 19 do
        if FMap[i, j] then
        begin
          x := i * 20;
          y := j * 20;
          Brush.Color := clGray;
          Pen.Color := clWhite;
          Rectangle(x, y, x + 20, y + 20);
        end;

    for i := 0 to 3 do
      for j := 0 to 3 do
        if FBlock.Shape[i, j] then
        begin
          x := (FBlock.X + i) * 20;
          y := (FBlock.Y + j) * 20;
          case FBlock.BlockType of
            btI: Color := clRed;
            btJ: Color := clGreen;
            btL: Color := clBlue;
            btO: Color := clYellow;
            btS: Color := clFuchsia;
            btT: Color := clAqua;
            btZ: Color := clLime;
          end;
          Brush.Color := Color;
          Pen.Color := clWhite;
          Rectangle(x, y, x + 20, y + 20);
        end;
  end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_LEFT: if CanMove(-1, 0) then MoveBlock(-1, 0);
    VK_RIGHT: if CanMove(1, 0) then MoveBlock(1, 0);
    VK_DOWN: if CanMove(0, 1) then MoveBlock(0, 1);
    VK_UP: RotateBlock;
    VK_SPACE:
      begin
        while CanMove(0, 1) do MoveBlock(0, 1);
        FixBlock;
        GenerateBlock;
      end;
  end;
  PaintBox1.Invalidate;
end;

procedure TForm1.InitMap;
var
  i, j: Integer;
begin
  for i := 0 to 9 do
    for j := 0 to 19 do
      FMap[i, j] := False;
end;

procedure TForm1.InitBlock;
begin
  Randomize;
  FBlock.BlockType := TBlockType(Random(7));
  case FBlock.BlockType of
    btI:
      begin
        FBlock.Shape[0, 1] := True;
        FBlock.Shape[1, 1] := True;
        FBlock.Shape[2, 1] := True;
        FBlock.Shape[3, 1] := True;
      end;
    btJ:
      begin
        FBlock.Shape[0, 1] := True;
        FBlock.Shape[1, 1] := True;
        FBlock.Shape[2, 1] := True;
        FBlock.Shape[2, 0] := True;
      end;
    btL:
      begin
        FBlock.Shape[0, 1] := True;
        FBlock.Shape[1, 1] := True;
        FBlock.Shape[2, 1] := True;
        FBlock.Shape[2, 2] := True;
      end;
    btO:
      begin
        FBlock.Shape[1, 1] := True;
        FBlock.Shape[2, 1] := True;
        FBlock.Shape[1, 2] := True;
        FBlock.Shape[2, 2] := True;
      end;
    btS:
      begin
        FBlock.Shape[1, 1] := True;
        FBlock.Shape[2, 1] := True;
        FBlock.Shape[0, 2] := True;
        FBlock.Shape[1, 2] := True;
      end;
    btT:
      begin
        FBlock.Shape[1, 1] := True;
        FBlock.Shape[0, 2] := True;
        FBlock.Shape[1, 2] := True;
        FBlock.Shape[2, 2] := True;
      end;
    btZ:
      begin
        FBlock.Shape[0, 1] := True;
        FBlock.Shape[1, 1] := True;
        FBlock.Shape[1, 2] := True;
        FBlock.Shape[2, 2] := True;
      end;
  end;
  FBlock.X := 4;
  FBlock.Y := 0;
end;

function TForm1.CanMove(dx, dy: Integer): Boolean;
var
  i, j: Integer;
begin
  for i := 0 to 3 do
    for j := 0 to 3 do
      if FBlock.Shape[i, j] then
      begin
        if (FBlock.X + i + dx < 0) or (FBlock.X + i + dx > 9) or (FBlock.Y + j + dy > 19) then
          Exit(False);
        if FMap[FBlock.X + i + dx, FBlock.Y + j + dy] then
          Exit(False);
      end;
  Result := True;
end;

procedure TForm1.MoveBlock(dx, dy: Integer);
begin
  FBlock.X := FBlock.X + dx;
  FBlock.Y := FBlock.Y + dy;
end;

procedure TForm1.RotateBlock;
var
  i, j: Integer;
  NewShape: TBlockShape;
begin
  for i := 0 to 3 do
    for j := 0 to 3 do
      NewShape[i, j] := FBlock.Shape[3 - j, i];
  if CanMove(0, 0) then
    FBlock.Shape := NewShape;
end;

procedure TForm1.FixBlock;
var
  i, j: Integer;
begin
  for i := 0 to 3 do
    for j := 0 to 3 do
      if FBlock.Shape[i, j] then
        FMap[FBlock.X + i, FBlock.Y + j] := True;
  RemoveLine(FBlock.Y);
  UpdateScore;
end;

procedure TForm1.GenerateBlock;
begin
  InitBlock;
  if not CanMove(0, 0) then
  begin
    Timer1.Enabled := False;
    ShowMessage('Game Over!');
    Exit;
  end;
end;

function TForm1.CheckLine(y: Integer): Boolean;
var
  i: Integer;
begin
  for i := 0 to 9 do
    if not FMap[i, y] then
      Exit(False);
  Result := True;
end;

procedure TForm1.RemoveLine(y: Integer);
var
  i, j: Integer;
begin
  for j := y downto 1 do
    for i := 0 to 9 do
      FMap[i, j] := FMap[i, j - 1];
  for i := 0 to 9 do
    FMap[i, 0] := False;
end;

procedure TForm1.UpdateScore;
var
  i, j: Integer;
begin
  FScore := 0;
  for i := 0 to 9 do
    for j := 0 to 19 do
      if FMap[i, j] then Inc(FScore);
  Label1.Caption := Format('Score: %d', [FScore]);
end;

end.

这个示例程序非常简单，可以根据需要进行改进和扩展。