Pemograman Visual - Menciptakan [Button] Memakai Visual Delphi

   Program Delphi - Membuat [Button] Menggunakan Visual Delphi

Delphi ialah 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 menyerupai pemrograman untuk kecerdasan buatan misalnya bahasa Prolog.

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

tinggal menentukan objek apa yang ingin dimasukkan kedalam Form/Window, kemudian tingkah laris objek tersebut ketika mendapatkan event/aksi tinggal dibentuk programnya. 

Berikut ialah Contoh Membuat [Button] Menggunakan Visual Delphi

Buatlah sebuah proyek baru, dengan pemanis 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 menyerupai gambar di bawah :

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

procedure TForm1.Button1Click(Sender: TObject);

begin

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

end;

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

procedure TForm1.Button2Click(Sender: TObject);

begin

form1.close;

end;

end.

Jalankan aktivitas dengan menekan tombol f9, maka akam keluar gambar menyerupai berikut :

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

  Klik tombol keluar untuk mengakhiri aktivitas .

   F Code untuk aktivitas selengkapnya ialah :

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 berguru '+ edit1.text;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form1.close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

F Analisis Program

Program memakai 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 aktivitas : label1.Caption:='selamat berguru '+ edit1.text;.yang akan

mengeluarkan kalimat ‘ Selamat Belajar ’ pada keluaran program. Dan pada tombol button2 diberi nama keluar dan diisi dengan code aktivitas : form1.close;. yang otomatis aktivitas akan selesai ketika 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.....