【初心者】課題をクリアしていくスレ【講習会】

[1 名前は開発中のものです。 04/06/10 18:05 ID:VshiFFV8]

ゲームに必要な要素を先生が出してくれます

その課題をクリアしていく講習会です

[118 名前は開発中のものです。 04/06/21 23:47 ID:8Xx3uQUF]

赤い四角、Delphiです
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientWidth:=640;
ClientHeight:=480;
Canvas.Brush.Color:=clRed;
Canvas.FillRect(Rect(0,0,320,240));
end;

[119 名前は開発中のものです。 04/06/22 00:43 ID:z3uDPhKo]

sin波形、Delphi
procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
  ClientWidth:=640;
  ClientHeight:=480;
  Canvas.Pen.Color:=clRed;
  Canvas.MoveTo(0,240);
  for i:=0 to 627 do begin
    Canvas.LineTo(i, Trunc(sin(i/100)*100)+240);
  end;
end;