Membuat Tombol Clear di Delphi 7

Membuat Tombol Clear di Delphi 7

Tombol Clear/Bersih biasa digunakan untuk membersikan text pada komponen Delphi. Tombol ini berguna ketika kita ingin menginputkan data baru yang mana pada komponen masih ada text dan kita harus menghapus data satu persatu sehingga membuang waktu. Dengan tombol ini kita tidak repot untuk menghapus data satu persatu.

Listing :

komponen.Clear; atau komponen.Text := ‘’;

---

Praktek membuat Program

1. Buat Form seperti berikut :

2. Ubah Properties-nya seperti berikut :

3. Listing Program sebagai berikut :

procedure TF_TombolClear.bt_tambahClick(Sender: TObject);

begin

     ed_hasil.Text := inttostr(strtoint(ed_angka1.Text)+strtoint(ed_angka2.Text));

end;

procedure TF_TombolClear.bt_clearClick(Sender: TObject);

begin

     ed_angka1.Text := '';

     ed_angka2.Text := '';

     ed_hasil.Text := '';

end;

procedure TF_TombolClear.bt_closeClick(Sender: TObject);

begin

     Close;

end;

4. Jalankan Program

Sumber : https://catataneko.wordpress.com

Menggunakan MessageBox di Delphi 7

Menggunakan MessageBox di Delphi 7

Message Box digunakan untuk memberi sebuah pesan pengingat atau pesan konfirmasi atas tindakan user. Ada beberapa model Message Box pada Delphi seperti :

a. ShowMessage

ShowMessage(‘Ini Pesan’);

b. MessageDlg

MessageDlg(‘Ini Pesan’,mtInfirmation,[mbOK],0);

c. Application.MessageBox

Application.MessageBox(‘Ini Pesan’,’Ini Judul Pesan’,mb_OK);

---

Praktek membuat Program

1. Buat Form seperti berikut :

2. Ubah Properties-nya seperti berikut :

3. Listing Program sebagai berikut :

procedure TF_MessageBox.bt_simpanClick(Sender: TObject);

begin

     if (ed_nama.Text = '') then

          ShowMessage('Nama Masih Kosong')

     else

          begin

               if MessageDlg('Simpan ??',mtConfirmation,[mbYes,mbNo],0) = mrYes then

                    ShowMessage('Berhasil Menyimpan');

          end;

end;

procedure TF_MessageBox.bt_closeClick(Sender: TObject);

begin

     if Application.MessageBox('Keluar ??','Konfirmasi',mb_YESNO) = id_YES then

          Close;

end;

4. Jalankan Program

Sumber : https://catataneko.wordpress.com

Penggabungan String pada Delphi 7

Penggabungan String

Menggabungkan String adalah proses merangkai dua kata atau lebih menjadi satu kalimat atau kata yang baru. Operator String yang digunakan adalah operator dengan symbol ‘+’. Berikut listing yang sering digunakan :

var

     nama_depan,nama_belakang,nama_lengkap : string;

begin

     nama_depan := ‘Bocah’;

     nama_belakang := ‘Ndugal’;

     nama_lengkap := nama_depan+’ ‘+nama_belakang;

     ed_nama.Text := nama_lengkap;

---

Praktek membuat Program

1. Buat Form seperti berikut :

2. Ubah Properties-nya seperti berikut :
 

3. Listing Program sebagai berikut :

procedure TF_Penggabungan_String.bt_gabungClick(Sender: TObject);

begin

     ed_nama_depanbelakang.Text := ed_nama_depan.Text+' '+ed_nama_belakang.Text;

     ed_nama_lengkap.Text := ed_nama_depan.Text+' '+ed_nama_tengah.Text+' '+ed_nama_belakang.Text;

end;

procedure TF_Penggabungan_String.bt_closeClick(Sender: TObject);

begin

     Close;

end;

4. Jalankan Program

Sumber : https://catataneko.wordpress.com

Percabangan IF pada Delphi 7

Percabangan IF pada Delphi 7

Percabangan IF merupakan operator pecabangan yang digunakan untuk menentukan pilihan atas beberapa kondisi yang merupakan syarat terhadap  pilihan yang sudah ditentukan/dibuat. Jadi, IF akan menjalankan statement tertentu jika kondisi bernilai benar dan akan mengabaikan statement jika kondisi bernilai salah.

if (kondisi1) then

     statement1;

else if (kondisi2) then

     statement2;

else

     statement_lain;

---

Praktek membuat Program

1. Buat Form seperti berikut :

2. Ubah Properties-nya seperti berikut :

3. Listing Program sebagai berikut :

Sebelum melakukan listing programnya kita buat dulu ketentuan/pilihannya. Misalkan ketentuannya sebagai berikut :

a. Jika kita pilih Kode Barang “001” maka :

     - Nama Barang : PC

     - Satuan :  unit

     - Penyuplai : PT 001

b. Jika kita pilih Kode Barang “002” maka :

     - Nama Barang : Keyboard

     - Satuan :  pcs

     - Penyuplai : PT 002

c. Jika kita pilih Kode Barang “003” maka :

     - Nama Barang : Mouse

     - Satuan :  box

     - Penyuplai : PT 003

Setelah membuat ketentuan isikan listing programnya.

procedure TF_Percabangan_IF.FormCreate(Sender: TObject);

begin

     cb_kode.Items.Add('001');

     cb_kode.Items.Add('002');

     cb_kode.Items.Add('003');

end;

procedure TF_Percabangan_IF.cb_kodeClick(Sender: TObject);

begin

     if cb_kode.Text = '001' then

          begin

               ed_nama.Text := 'PC';

               ed_satuan.Text := 'unit';

               ed_penyuplai.Text := 'PT 001';

          end

     else if cb_kode.Text = '002' then

          begin

               ed_nama.Text := 'Keyboard';

               ed_satuan.Text := 'pcs';

               ed_penyuplai.Text := 'PT 002';

          end

     else

          begin

               ed_nama.Text := 'Mouse';

               ed_satuan.Text := 'box';

               ed_penyuplai.Text := 'PT 003';

    end;

end;

procedure TF_Percabangan_IF.bt_closeClick(Sender: TObject);

begin

     Close;

end;

4. Jalankan Program

Sumber : https://catataneko.wordpress.com

Operator Aritmatika pada Delphi 7

Operator Aritmatika pada Delphi 7

Operator Aritmatika mempunyai fungsi untuk melakukan suatu proses aritmatika yang dapat meliputi penambahan, pengurangan, perkalian, pembagian dan fungsi fungsi aritmatika lainnya. Operator ini digunakan untuk mengolah data-data bertipe bilangan (bilangan bulat dan pecahan).

Ada beberapa operator yang dapat digunakan :

---

Praktek membuat Program

1. Buat Form seperti berikut :

2. Ubah Properties-nya seperti berikut :

3. Listing Program sebagai berikut :
 

procedure TF_Operator_Aritmatika.bt_tambahClick(Sender: TObject);
var
     nilai1,nilai2,hasil : real;
begin
     nilai1 := strtofloat(ed_nilai1.Text);
     nilai2 := strtofloat(ed_nilai2.Text);

     hasil := nilai1 + nilai2;

     ed_hasil.Text := floattostr(hasil);
end;

procedure TF_Operator_Aritmatika.bt_kurangClick(Sender: TObject);
var
     nilai1,nilai2,hasil : real;
begin
     nilai1 := strtofloat(ed_nilai1.Text);
     nilai2 := strtofloat(ed_nilai2.Text);

     hasil := nilai1 - nilai2;

     ed_hasil.Text := floattostr(hasil);
end;

procedure TF_Operator_Aritmatika.btkaliClick(Sender: TObject);
var
     nilai1,nilai2,hasil : real;
begin
     nilai1 := strtofloat(ed_nilai1.Text);
     nilai2 := strtofloat(ed_nilai2.Text);

     hasil := nilai1 * nilai2;

     ed_hasil.Text := floattostr(hasil);
end;

procedure TF_Operator_Aritmatika.bt_bagiClick(Sender: TObject);
var
     nilai1,nilai2,hasil : real;
begin
     nilai1 := strtofloat(ed_nilai1.Text);
     nilai2 := strtofloat(ed_nilai2.Text);

     hasil := nilai1 / nilai2;

     ed_hasil.Text := floattostr(hasil);
end;

procedure TF_Operator_Aritmatika.bt_divClick(Sender: TObject);
var
     nilai1,nilai2,hasil : integer;
begin
     nilai1 := strtoint(ed_nilai1.Text);
     nilai2 := strtoint(ed_nilai2.Text);

     hasil := nilai1 div nilai2;

     ed_hasil.Text := inttostr(hasil);
end;

procedure TF_Operator_Aritmatika.bt_modClick(Sender: TObject);
var
     nilai1,nilai2,hasil : integer;
begin
     nilai1 := strtoint(ed_nilai1.Text);
     nilai2 := strtoint(ed_nilai2.Text);

     hasil := nilai1 mod nilai2;

     ed_hasil.Text := inttostr(hasil);
end;

4. Jalankan Program

Sumber : https://catataneko.wordpress.com

Tipe Data di Delphi 7

Tipe Data di Delphi 7

Tipe data pada dasarnya merupakan nama untuk sejenis data. Ketika kita mendeklarasikan sebuah variabel, maka variabel tersebut harus mempunyai sebuah tipe data, yang akan menentukan nilai-nilai yang dapat dimuat dan dioperasikan pada variabel tersebut.

Macam Macam Tipe Data di Delphi :

1. Tipe Data Integer

Tipe Data Integer merupakan tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan. Pendeklarasiannya sebagai berikut :

var
     nilai : integer;
begin
     nilai := 1;

2. Tipe Data Real

Tipe Data Real merupakan tipe data bilangan yang mengenal bilangan bulat dan juga bilangan pecahan, jadi kalau urusan pembagian yang jawabannya pecahan kita kalau bisa pake tipe data ini. Pendeklarasiannya sebagai berikut :

var
     nilai : real;
begin
     nilai := 1.5;

3. Tipe Data Char

Tipe Data Char merupakan tipe data yang sama dengan String berupa nilai anumerik, hanya berbeda dari kapasitas ruang dari datanya kalau Tipe Data Char hanya mengenal 1 karakter saja.

4. Tipe Data String

Tipe Data String merupakan tipe data yang isinya berupa anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value. Pendeklarasiannya sebagai berikut :

var
     nama : string
begin
     nama := 'Bocah Ndugal';

Dalam Delphi tipe data default yang tampil di Form adalah String. Jadi kalau ingin membuat fungsi penambahan,pengurangan,kali, dan bagi kita harus merubah tipe datanya dulu menjadi tipe data numerik bisa Real/Integer. Perintah untuk merubah tipe data sebagai berikut :

strtofloat  : untuk merubah tipe data String ke tipe data Real.

strtoint      : untuk merubah tipe data String ke tipe data Integer.

floattostr  : untuk merubah tipe data Real ke tipe data String.

inttostr      : untuk merubah tipe data Intager ke tipe data String .

Catatan :

Jika ingin menampilkan teks yang bertipe selain String harus mengubah tipe data menjadi Sring.

Sumber : https://catataneko.wordpress.com

Borland Delphi 7

Borland Delphi 7

Delphi adalah sebuah IDE Compiler untuk bahasa pemrograman Pascal dan lingkungan pengembangan perangkat lunak yang digunakan untk merancang suatu aplikasi program.IDE (Integrated Development Environment) adalah program komputer yang memiliki beberapa fasilitas yang diperlukan dalam pembangunan perangkat lunak.

Tujuan dari IDE adalah untuk menyediakan semua utilitas yang diperlukan dalam membangun perangkat lunak.Kompilator (Inggris: compiler) adalah sebuah program komputer yang berguna untuk menerjemahkan program komputer yang ditulis dalam bahasa pemrograman tertentu menjadi program yang ditulis dalam bahasa pemrograman lain.Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer.

Bagian Bagian dari Delphi 7

1. Object TreeView

Object TreeView  adalah sebuah diagram pohon yang menggambarkan hubungan yang menghubungkan semua komponen yang terdapat dalam sebuah project program. komponen tersebut meliputi from, modul atau frame. fungsinya digunakan untuk menampilkan seluruh daftar komponen program dalam aplikasi program sesuai penempatannya, dan untuk tampilan Object TreeView pada delphi liat gambar dibawah ini

2. Object Inspector

Object Inspector yaitu jendela yang digunakan untuk mengatur tampilan komponen pada form, misal bagaimana mengubah tulisan button pada command button menjadi Simpan, atau menghapus tulisan pada label dan mengganti nama menjadi Nama Mahasiswa atau memberikan perintah tertentu pada sebuah komponen sehingga ada interaksi ketika program dijalankan.. Secara Umum Object Inspector terbagi menjadi 2 yaitu :

• Properties,digunakan untuk mengatur tampilan pada sebuah komponen baik itu meliputi penggantian nama, warna, jenis huruf, border dan lain –lain.
• Event,merupakan jendela properties yang digunakan untuk memberikan fungsi yang lebih detail dari fungsi sebenarnya. Misalnya ketika tombol Simpan di klik maka program akan menjalankan perintah penyimpanan data. Dari kalimat tersebut ada event clik untuk mengeksekusi sebuah tombol simpan. Perintah event clik tersebut dapat diberikan melalui jendela events.

Object inspector pada delphi  liat gambar di bawah ini

3. From Designer

From Designer yaitu tempat yang digunakan untuk merancang sebuah aplikasi program yang di ambil dari komponen pallet, dan untuk tampilan from designer pada delphi dapat di lihat di bawah ini

4. Component Pallet

Component Pallet adalah sebuah kumpulan icon yang digunakan untuk merancang suatu aplikasi untuk membentuk sebuah aplikasi user interface. Dalam komponen pallete semua icon dikelompokan dalam berbagai komponen sesuai dengan fungsi dan kegunaannya , dan untuk tampilan component pallet dapat di lihat digambar di bawah ini

5. Code Editor

Code Editor adalah bagian dari delphi yang digunakan untuk menuliskan kode program pada bagian paling kiri yang berisi berupa angka menunjukan baris dan kolom. Keterangan modified menunjukan bahwa telah terjadi modifikasi terhadap baris program dan paling kanan menunjukan status keyboard tentang tombol insert atau over write, dan untuk penampakan code editor pada delphi dapat di lihat pada gambar di bawah ini

6. Code Explorer

Code Explorer adalah sebuah jendela yang digunakan untuk menampilkan seluruh variabel , type , dan rountine yang didefinisikan pada sebuah unit, dan untuk penampakan code explorer pada delphi bisa di lihat pada gambar di bawah ini

7. Code Diagram

Code Diagram  yaitu fasilitas-fasilitas pada delphi yang digunakan untuk mendesain sebuah diagram atas komponen-komponen yang digunakan dalam suatu rancangan aplikasi, dan untuk penampakannya code diagram pada delphi bisa di liat di bawah ini