Tuesday, March 27, 2012

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.






No comments:

Post a Comment

Related Posts Plugin for WordPress, Blogger...