Cara Menampilkan Output pada Delphi

1. Menampilkan Output pada Delphi

Berikut ini adalah tutorial saya yang dibuat untuk tugas Lab TI dasar Algoritma dan Pemrograman.

buatlah dan ikuti langkah berikut ini.

LOGIKA PROGRAM

unit Dat_Mhs;

interface

uses

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

  Dialogs, StdCtrls, Menus;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Label5: TLabel;

    Edit6: TEdit;

    Edit7: TEdit;

    Edit8: TEdit;

    Edit9: TEdit;

    Edit10: TEdit;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Pertama-tama adalah membuat desain, langkah ini sangat mudah dilakukan, yaitu dengan cara mengarahkan mouse pada butoon atau component yang diinginkkan. Pada program ini saya membuat 5 label, 10 edit.text dan 5 button. Setelah mendesain dengan componet tersebut, maka otomatis delphi mengkoding seperti code diatas. Code diatas adalah 1 form, 5 label, 10 edit dan 5 button. Kemudian, ini adalah bagian terpenting yaitu, merubah nama masing - masing component tersebut. Pada program ini saya merubah :

Label1 = NPM

Label2 = Nama

Label3 = Kelas

Label4 = Fakultas

Label5 = Jurusan

Edit1 = (Kosong)

Edit2 = (Kosong)

Edit3 = (Kosong)

Edit4 = (Kosong)

Edit5 = (Kosong)

Edit6 = (Kosong)

Edit7 = (Kosong)

Edit8 = (Kosong)

Edit9 = (Kosong)

Edit10 = (Kosong)

Button1 = DATA MAHASISWA

Button2 = PRINT

Button3 = HAPUS

Button4 = CLEAR

Button5  = KELUAR

Langkah yang kedua adalah klik 2x pada button PRINT , maka akan muncul isian codenya. Setelah muncul masukkan code yang ada dibawah ini :

  procedure TForm1.Button2Click(Sender: TObject);

begin

Edit6.Text:=('NPM =  ')+Edit1.Text;

Edit7.Text:=('Nama =  ')+Edit2.Text;

Edit8.Text:=('Kelas =  ')+Edit3.Text;

Edit9.Text:=('Jurusan =  ')+Edit4.Text;

Edit10.Text:=('Fakultas =  ')+Edit5.Text;

end;

Fungsi dari button PRINT adalah sebagai output.

Langkah yang ketiga adalah dengan cara yang sama seperti tadi, klik 2x pada button HAPUS, dan masukkan code yang ada dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);

begin

Edit1.Text:=' ';

Edit2.Text:=' ';

Edit3.Text:=' ';

Edit4.Text:=' ';

Edit5.Text:=' ';

end;

Fungsi dari button HAPUS adalah menghapus isian field input.

Langkah yang keempat adalah bagaimana caranya untuk membersihkan kolom output tersebut. Sama seperti yang diatas, klik 2x pada button CLEAR dan isikan code dibawah ini :

procedure TForm1.Button4Click(Sender: TObject);

begin

Edit6.Text:=' ';

Edit7.Text:=' ';

Edit8.Text:=' ';

Edit9.Text:=' ';

Edit10.Text:=' ';

end;

Langkah yang Kelima adalah membuat perintah keluar dari program. Caranya sama seperti sebelumnya, klik 2x pada button CLOSE . Dan saya akan membuat sebuah kondisi, dimana jika ingin keluar dari program tersebut akan muncul sebuah Messagebox, yang menyatakan ingin keluar dari program tersebut. Masukkan code dibawah ini :

procedure TForm1.Button5Click(Sender: TObject);

begin

if(Application.MessageBox('Apakah Ingin Keluar dari Program ini ?','konfirmasi',MB_YesNo)=ID_Yes)then

begin

Application.Terminate;

end

end;

end.

OUTPUT

Berikut ini adalah membersihkan kolom input.

Selanjutnya adalah keluar dari program.