Jumat, 27 Mei 2022

Membuat Program Perkenalan Diri dengan Borland Delphi 7

Halo...ini tulisan pertama saya di blog. Postingan pertama ini, saya akan membahas cara membuat aplikasi salam kenal dengan Borland Delphi 7. Namun, sebelum membuat program perkenalan pastikan teman-teman sudah menginstal aplikasi Delphi 7 ya... kemudian simak tutorialnya di bawah ini:

1. Buka aplikasi Delphi 7 yang sudah diinstal di laptop atau komputer kemudian akan muncul tampilan seperti berikut ini:


2. Membuat desain form perkenalan diri dengan langkah-langkah sebagai berikut: 
Klik standard kemudian tambahkan komponen Label sebanyak 4 buah, Edit sebanyak 4 buah, dan Button sebanyak 1 buah.
Letak komponen yang perlu digunakan:

Klik simbol label, edit, dan button untuk menambahkan komponen tersebut dalam desain form perkenalan diri lalu atur tata letaknya sesuai kehendak hati.


3. Mengubah isi tulisan komponen-komponen form, misal seperti tabel di bawah ini.

Properties

Object

Value

Label 1

Caption

Program Perkenalan Diri di Delphi 7

Label 2

Caption

NIM

Label 3

Caption

Program Studi

Label 4

Caption

Nama

Label 5

Caption

Alamat

Edit 1

Text

Kosongi

Edit 2

Text

Kosongi

Edit 3

Text

Kosongi

Edit 4

Text

Kosongi

Button 1

Caption

Exit


4. Tampilan form setelah isi tulisannya diganti sesuai tabel pada nomor 3 (tepatnya kolom 3) menjadi sebagai berikut:

5. Setelah desain form selesai, langkah selanjutnya adalah memasukkan kode agar program perkenalan diri di Delphi 7 dapat dijalankan. Yang haus dilakukan pertama kali ialah klik Events yang terletak pada bagian Object Inspector. Lalu, klik OnCreate dan masukkan kode ini di bawah tulisan begin:

Edit1.Text:='Isi NIM';

Edit2.Text:='Isi Program Studi';

Edit3.Text:='Isi Nama';

Edit4.Text:='Isi Alamat';

 

6. Langkah selanjutnya, yaitu klik dua kali pada Button 1 Exit dan masukkan kode ini di bawah tulisan begin:

Close;

 

7. Setelah semua kode dimasukkan, maka naskah kode pada Unit1 akan menjadi seperti di bawah ini:

Jika terdapat perbedaan, hal tersebut bisa jadi karena penggunaan jumlah dan nama komponen. Silakan bisa disesuaikan sendiri dengan kebutuhan atau permintaan soal barangkali. Apabila yang ada pada tulisan ini hanya terdapat beberapa komponen yang sekiranya tidak persis sesuai dengan apa yang harus teman-teman kerjakan, monggo bisa ditambahkan...


unit Unit1;

 

interface

 

uses

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

  Dialogs, StdCtrls;

 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text:='Isi NIM';

Edit2.Text:='Isi Program Studi';

Edit3.Text:='Isi Nama';

Edit4.Text:='Isi Alamat';

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

 

end.

 

8. Selanjutnya klik File lalu Save All. Simpan project dan unit sebelum program dijalankan.

9. Setelah disimpan, program siap dijalankan dengan cara klik Run.


10. Setelah program dijalankan atau di run, maka akan muncul output seperti di bawah ini:

Klik button Exit untuk keluar dari program perkenalan diri Delphi 7.


Terima kasih, semoga bermanfaat…..

 

MEMBUAT JARING-JARING KUBUS MENGGUNAKAN GEOGEBRA

Jaring-jaring kubus merupakan pemisahan bangun ruang kubus atau bangun ruang kubus yang dibuka dan diubah menjadi bentuk bangun datar yang m...