Contoh Program Delphi 7

Posted on March 26, 2010. Filed under: educations |


Program berikut ini mempergunakan rumus matematika untuk menghitung luas sebuah segitiga ( 0.5 X alas X tinggi ). Dari rumus tersebut kita bisa membuat sebuah program sederhana.
Langka-langka untuk membuat programnya adalah sebagai berikut :
1. Buatlah sebuah Form seperti yang terlihat pada gambar 1 dibawa ini.

Gambar 1. Form Tampilan


2. Kemudian Doble Click pada tombol Proses dan ketikan Code dibawah ini pada bidang Code editor seperti yang terlihat pada gambar 2 .

procedure TForm1.Button1Click(Sender: TObject);
var A,T,L:real;
begin
A:=STRTOFLOAT(EDIT1.TEXT);
T:=STRTOFLOAT(EDIT2.TEXT);
L:=0.5*A*T;
EDIT3.Text:=FLOATTOSTR(L);
end;

Gambar 2. Bidang Code Editor


3. Setelah selesai memasuakan code tersebut pada bidang code editor, kemudia anda jalankan program tersebut dengan cara clik tombol Run yang terdapat pada panel bagian kiri atas yang berwana hijau. Atau dengan menekan f9 pada keyboard.

BEBERAPA SOFTWARE DELPHY BISA DI DOWNLOAD DI SINI :

1.Belajar delphi (pdf)

2.Delphi dan MsAccess

3.Delphi software expired

4.delphi form gradient

5.Software Matematika anak

6.mengirim pesan dalam LAN

7. animasi mata

8. aplikasi database delphi

9. Kamus

10.encryptor

11. contoh program delphi multimedia

12 source codenya multimedia

13 program perpus


Berikut kode untuk membangun aplikasi ini.

unit UMain;

interface

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

type
  TForm1 = class(TForm)
    mp3Player: TMediaPlayer;
    Edit1: TEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Timer1: TTimer;
    Progress: TProgressBar;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses ShellApi,ShlObj;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
if opendialog1.Execute then
  begin
  edit1.Text:=opendialog1.FileName;
  end;
Progress.Max:=0;
Mp3Player.Close;
Mp3Player.FileName:=edit1.Text;
MP3Player.Open;
Progress.Max:=Mp3Player.Length;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Progress.Max<>0 then
Progress.Position:=Mp3Player.Position;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Progress.Position:=0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ShowMessage('dibuat oleh bimo hery prabowo'+chr(13)+'http://bimoweb.com');
end;

end.

Program diatas ditulis dengan delphi 7 (pasti bajakan, wong kalau aseli harganya 3000 dolar). Tetapi anda bisa menggunakan delphi dibawahnya. Untuk komponen, saya menggunakan komponen bawaan delphi standar. Bagi yang menginginkan kode sumber dan aplikasi jadinya, bisa didownload gratis. Anda bisa memodifikasi program ini sesuai kebutuhan anda.

About these ads

Make a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

2 Responses to “Contoh Program Delphi 7”

RSS Feed for Cifrog's Blog Comments RSS Feed

wah bagus buat referensi kuliah saya nih…..

thanks hehehehehe…
mampir lagi laen kale…


Where's The Comment Form?

Liked it here?
Why not try sites on the blogroll...

Follow

Get every new post delivered to your Inbox.

%d bloggers like this: