linkedin facebook linkedin facebook nod32

Delphida multiplikatsiya

Muallif: Mengliyev SH.

Qo`shilgan sana: 2014-09-14

Delphida multiplikatsiya

Multiplikatsiya deyilganda harakatlanuvchi rasm tushuniladi. Rasmni harakatlantirish uchun avval u ekranga chiziladi, ma’lum vaqtdan so‘ng rasmni uchirib yangi joyga chiziladi.
Quyidagi dastur, aylananing chapdan o‘ngga harakatini ko‘rsatadi.

Harakatlanuvchi aylana dasturi formasi

Harakatlanuvchi aylana dasturi matni.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
  Timer1: TTimer;
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
   private
{ Private declarations }
public
{ Public declarations }
end;
 procedure Ris;
var
  Form1: TForm1;
   x,y: byte;

implementation

{$R *.dfm}

procedure Ris;
begin
form1.Canvas.Pen.Color:=form1.Color;
form1.Canvas.Ellipse(x,y,x+10,y+10);
x:=x+5;
form1.Canvas.Pen.Color:=clBlack;
form1.Canvas.Ellipse(x,y, x+10, y+10) ;
end;

  procedure TForm1.FormActivate(Sender: TObject);
begin
x:=0;
y:=10;
timer1.Interval:=50;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Ris;
end;
end.

1659 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений