
Membuat suatu bentuk dalam Grafika Komputer pentuk gerak atau bentuk apapun baik 3D Game dan lai-lain....
ini contoh membuat gambar bergerak Mata Berkedip...
Instal Program dan Tilis Perintah untuk membuat gambar atau garis yang dibutuhkan untuk memnggambar dan meng gerakan matanya agar berkedip.... sebagai berikut...
unit MATA;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
Button1: TButton;
Panel1: TPanel;
Timer2: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
// procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
// procedure Label1Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
gambar : Integer;
implementation
{$R *.dfm}