PRAKTIKUM GRAFIKA KOMPUTER MODUL X

Sudah lama sekali saya tidak posting di blog, oh iya ini blog baru saya. Yang lamanya lupa password emailnya hahaha..

Sekarang saya akan memposting praktek-praktek saat saya mengerjakan modul Grafika Komputer ini. Pertama rancang tampilan form seperti ini

Kemudian masukan kode program di bawah ini:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Shape1: TShape;
    orbit1: TShape;
    merah: TShape;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender:TObject);
   

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  theta,d,c:real;
  constanta:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
constanta:=5;
merah.Visible:=true;
Timer1.Enabled:=TRUE;
theta:=0.0; c:=1/100;
d:=2*PI;
end;

procedure TForm1.Timer1Timer(Sender:TOBject);
var x1,y1:real;
begin
if(theta<=(2*d))then
begin
x1:=((orbit1.Width)/2)+(orbit1.Left)+((orbit1.Width)/2)*cos(6*theta);
y1:=((orbit1.height)/2)+(orbit1.top)-((orbit1.height)/2)*sin(6*theta);
merah.left:=trunc(x1)-constanta;merah.Top:=trunc(y1)-constanta;
theta:=theta+c;
end;
if(theta>=2*d)then theta:=0.0;
end;
end.

Kemudian jalankan project delphi dan lihat hasilnya