Pemograman Visual - Membuat [Button] Menggunakan Visual Delphi

Delphi adalah kompiler / penterjemah bahasa Delphi (awalnya dari Pascal) yang merupakan bahasa tingkat tinggi sekelas dengan bahasa pemrograman Basic, C. Bahasa Pemrograman di Delphi disebut bahasa prosedural artinya bahasa/sintaknya mengikuti urutan tertentu / prosedur. Ada jenis pemrograman non-prosedural seperti pemrograman untuk kecerdasan buatan contohnya bahasa Prolog.

Delphi termasuk Keluarga Pemrograman Visual sekelas dengan Visual Basic, Visual C, artinya perintah-perintah untuk membuat objek dapat dilakukan secara visual. Pemrogram

tinggal memilih objek apa yang ingin dimasukkan kedalam Form/Window, lalu tingkah laku objek tersebut saat menerima event/aksi tinggal dibuat programnya. 

Berikut adalah Contoh Membuat [Button] Menggunakan Visual Delphi

Buatlah sebuah proyek baru, dengan tambahan 1 edit box, 2 buah label dan 2 buah button ke dalam form. Atur properti sebagai berikut :

Objeck	Properti	Setting
Edit 1	Text
Label1	AutoSize	False
	Caption
Label 2	Caption	Nama
Button 1	Caption	Salam
	Default	True
Button	Cancel	True
	Caption	Keluar

Atur posisi semuanya seperti gambar di bawah :

Klik ganda pada tombol salam, kemudian isi code dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

begin

label1.Caption:='selamat belajar '+ edit1.text;

end;

klik ganda juga pada tombol keluar, lalu kemudian isi kedo di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);

begin

form1.close;

end;

end.

Jalankan program dengan menekan tombol f9, maka akam keluar gambar seperti berikut :

Isi kolom Nama yang sudah disediakan dengan nama ‘Rifai’, dan klik tombol salam, maka program akan berlanjut seperti gambar berikut :

  Klik tombol keluar untuk mengakhiri program .

   F Code untuk program selengkapnya adalah :

unit salam;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

label1.Caption:='selamat belajar '+ edit1.text;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form1.close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

F Analisis Program

Program menggunakan beberapa Component Palette berupa 1 edit box, 2 label, dan 2 button dan properti setiap objectnya diatur sebagaimana berikut :

Pada tombol Button1 diberi nama Salam dan diisi code program : label1.Caption:='selamat belajar '+ edit1.text;.yang akan

mengeluarkan kalimat ‘ Selamat Belajar ’ pada keluaran program. Dan pada tombol button2 diberi nama keluar dan diisi dengan code program : form1.close;. yang otomatis program akan selesai saat di klik tombol keluar .

            untuk label2 diberi caption ‘Nama’, sehinnga ketika kita menulis nama seseorang di label nama, maka untuk orang tersebutlah kita ucapkan ‘selamat belajar’.

Berikut Link Source Code Program Tersebut  UNDUH

Semoga Bermanfaat.....

Share this post