Membuat program sederhana membuat Delphi

Oleh : khairunnisa

1.  Listing Program

unit nisa;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Label3: TLabel;

    Label4: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Label5: TLabel;

    Edit3: TEdit;

    Label6: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

label3.Caption:= 'Nama: '+Edit1.Text;

label4.Caption:= 'NPM: '+Edit2.Text;

label6.Caption:= 'Jenis Kelamin: '+Edit3.Text;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:= ' ';

Edit2.Text:= ' ';

Edit3.Text:= ' ';

label3.Caption:='Nama:';

label4.Caption:='NPM:';

label6.Caption:='Jenis Kelamin:';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Application.Terminate;

end;

end.

1. Logika Program

Kita akan membuat program sederhana menggunakan Delphi 7. Langkah langkahnya yaitu :

·         Buka aplikasi delphi 7

·         Pada jendela delphi klik file – new- form

·         Membuat 6 label yaitu:

-          Label1: caption = Nama

-          Label2: caption = NPM

-          Label3: caption = Jenis Kelamin

-          Label4: caption = Nama

-          Label5: caption = NPM

-          Label6: caption = Jenis Kelamin

·         Membuat 3 edit dan kosongkan ketiga kotak edit pada jendela objek inspector- propertis-text- (hapus kata “edit1, dst) . ketiga edit tersebut yaitu:

-          Edit1 (sebagai input nama)

-          Edit2 (sebagai input npm)

-          Edit3 (sebagai input jenis kelamin)

·         Membuat 3 button yaitu:

-          Button1: caption = OK

Button ok berfungsi sebagai tempat memproses data yang di input melalui edit1 , edit2, edit3 yang outputnya berada di Label4, Label5 dan Label 6. Dengan perintah sebagai berikut:

label3.Caption:= 'Nama: '+Edit1.Text;

label4.Caption:= 'NPM: '+Edit2.Text;

label6.Caption:= 'Jenis Kelamin: '+Edit3.Text;

-          Button2: caption = Clear

Button Clear ini berfungsi mengkosongkan semua data yang di input dan output. Dengan perintah sebagai berikut:

Edit1.Text:= ' ';

Edit2.Text:= ' ';

Edit3.Text:= ' ';

label3.Caption:='Nama:';

label4.Caption:='NPM:';

label6.Caption:='Jenis Kelamin:';

-          Button3: caption = End

Button end ini berfungsi untuk mengakhiri program yang telah dibuat. Dengan perintah sebagai berikut:

Application.Terminate;

·         Jalankan program dengan mengklik tombol F9 pada keyboard

·         Isi bagian

Edit1 dengan “khairunnisa” tanpa tanda petik

Edit2 dengan “53411962”

Edit3 dengan “perempuan”

·         Klik tombol button ok untuk melihat hasilnya atau outputnya

·         Untuk menghapus data serta output yang telah dibuat klik button clear

·         Dan untuk mengakhiri program klik button end

 1.  Output  Program