Animasi sederhana borland delphi

berikut ini Source codenya :

unit Bola;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Timer1: TTimer;

Bola: TShape;

Label1: TLabel;

Label2: TLabel;

sb_ukur: TScrollBar;

sb_cepat: TScrollBar;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Timer1Timer(Sender: TObject);

procedure sb_ukurChange(Sender: TObject);

procedure sb_cepatChange(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

kanan : boolean ;

bawah : boolean ;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if kanan then

begin

bola.Left:=bola.Left+1;if bola.Left+bola.Width>=panel1.ClientWidth then kanan :=false;

end

else

begin

bola.Left:=bola.Left-1;if bola.Left<=0 then kanan := True;

end;if bawah then

begin

bola.Top:=bola.Top+1;

if bola.Top +bola.Width >=panel1.ClientHeight then bawah := False;

end

else

begin

bola.Top := bola.Top-1;if bola.Top <= 0 then bawah := true;

end;

end;

procedure TForm1.sb_ukurChange(Sender: TObject);

begin

bola.Width:= sb_ukur.Position;

bola.Height:=sb_ukur.Position;

end;

procedure TForm1.sb_cepatChange(Sender: TObject);

begin

timer1.Interval:=101-sb_cepat.Position;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

timer1.Enabled:=false;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

Program luas persegi panjang di Turbo C / gcc linux

Program luas persegi panjang di Turbo C :

/* Nama : Agus Yusanto */

/* Nim : G.131.09.0024 */

# include

void main ()

{

int panjang,lebar,luas;

clrscr ();

printf ("masukkan panjang : ");

scanf ("%d",&panjang);

printf ("masukkan lebar : ");

scanf ("%d",&lebar);

luas = panjang*lebar;

printf ("luas persegi panjang : %d*%d=%d",panjang,lebar,luas);

getch();

}

Program luas persegi panjang di gcc linux :

/* Nama : Agus Yusanto */

/* Nim : G.131.09.0024 */

# include

main ()

{

int panjang,lebar,luas;

system (“clear”);

printf ("masukkan panjang : ");

scanf ("%d",&panjang);

printf ("masukkan lebar : ");

scanf ("%d",&lebar);

luas = panjang*lebar;

printf ("luas persegi panjang : %d*%d=%d",panjang,lebar,luas);

getch();

}

Aplikasi Kalkulator sederhana dengan borland delphi

Pertama-tama bualah tampilan form seperti gambar di bawah :

lalu dibawah ini adalah source codenya :

unit Kalkulator;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Label4.Caption:=inttostr(strtoint(edit1.Text)+strtoint(edit2.Text));

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

label4.Caption:=inttostr(strtoint(edit1.Text)-strtoint(edit2.Text));

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

label4.Caption:=inttostr(strtoint(edit1.Text)*strtoint(edit2.Text));

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

label4.Caption:=floattostr(strtoint(edit1.Text)/strtoint(edit2.Text));

end;

end.

truz run dan hasilnya seperti dibawah ini :

Selamat mencoba..