Cara Mendeteksi Running Application di Delphi 7

Ya ampuun , udah lama banget blog ini kagak di update :hammer.Saya tidak akan berapologi dengan mengatakan kalau saya sibuk ini-itu walaupun kenyataannya memang begitu.(itu berapologi juga bay -,-" ).Okay , untuk postingan kali ini saya akan membahas mengenai Cara Mendeteksi Running Application di Delphi 7.Maksudnya !? Jadi gini gan , saya itu kesel sama adik saya yang maniak banget

Lebih Lanjut

Cara Membuat dan Menggunakan DLL di Delphi 7

Selamat sore agan-agan.Akhirnya posting lagi , kangen banget membagi ilmu kepada agan-agan semua , :capedes.Okay , pada postingan kali ini saya akan membahas mengenai Cara Membuat dan Menggunakan DLL di Delphi 7.DLL (Dynamic Library Link) adalah sumberdaya/library file exe yang memungkinkan program untuk berbagi kode dan sumber daya lain yang diperlukan untuk melakukan tugas tertentu.Misalnya , kita bisa menyimpan procedure atau function di sebuah DLL , lalu kita panggil procedure atau function tersebut di aplikasi yang kita buat.Caranya !? Maka dari itu , segera buka borland delphi 7 anda.

Lebih Lanjut

Konsep Inheritance/Pewarisan Di Delphi 7

Selamat siang agan-agan.Senang rasanya bisa posting lagi.Dan untuk postingan kali ini , saya akan membahas mengenai Konsep Inheritance / Pewarisan Di Delphi 7.Inheritance/pewarisan merupakan fitur yang tersedia dalam OOP(Object Oriented Programming).Dimana kita bisa menduplikasi sifat-sifat sebuah class , dan memanfaatkannya di class yang lain.Class dalam delphi 7 sendiri ialah file Unit yang bersisi source code dari program.Dan class itu sendiri merupakan sebuah object.Okay , saya tau anda bingung.Bukan karena anda kurang pintar , namun karena penjelasan saya yang belibet.Dan jujur saja , saya sangat tidak pandai berteori.Untuk itu seperti biasa , saya akan menjelaskannya secara praktek.Diharapkan agan mengerti maksud dari postingan saya kali ini.Sediakan kopi dan rokok agar tidak kebosanan !! hehe.

1.Apakah Konsep Inheritance Penting !?

Pertanyaan yang bagus.Dalam membangun sebuah program , kita tidak bisa melakukannya sekali jadi.Dalam artian , program tersebut memerlukan proses maintenance , patch , atau penambahan fitur.Dengan konsep traditional , dimana kita menuliskan source code program tumplek pada satu file unit , tentu proses itu akan memakan waktu yang banyak dan memelintir kepala kita.Pada aplikasi yang kompleks tentunya.Memanfaatkan konsep inheritance , tentu program kita menjadi lebih mudah di maintenance.

2.Keuntungan Konsep Inheritance!?

Lagi-lagi pertanyaan yang bagus.Pemisahan fungsionalitas menjadi beberapa class/unit tentu bukan tanpa tujuan.Dengan memanfaatkan konsep ini , program kita lebih terstruktur dan tentu saja memudahkan dalam proses pengembangan / maintenance selanjutnya.

Katanya tidak berteori , kamu banyak omong deh !! haha.Well , mari kita praktekan saja dengan membuat program sederhana yang memanfaatkan konsep inheritance.Bila pada postingan SEBELUMNYA saya menjelaskan mengenai Optimalisasi Procedure , maka postingan kali ini akan mengoptimalkannya lebih jauh.Untuk itu , silahkan buka Borland Delphi 7 anda.Tambahkan 5 buah komponen TEdit dan 1 buah TButton.Kita akan membuat program seperti Sebelumnya .Selanjutnya , pilih file -> new -> Unit.Maka anda akan melihat unit baru dengan tampilan sebagai berikut.

unit Unit2;

interface

implementation

end.

Itu adalah standar file unit.Ketikan kode berikut pada Unit2 tersebut.

unit Unit2;
 
interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, StdCtrls;
 
type
  Tprosedur = class (TObject)//kita membuat object baru dengan nama TProsedur
  private
    {private declaration}
  public
     procedure cekEdit(sender1,sender2:TObject); //registrasi procedure
     procedure bersih(namaForm:TObject);
     {public declaration}
  end;

implementation

procedure Tprosedur.cekEdit(sender1,sender2:TObject); //inisialisasi procedure
begin
  with(sender1 as TEdit) do
    begin
      if Text='' then
        begin
          Application.MessageBox('maaf data tidak boleh kosong','informasi',MB_OK or MB_ICONINFORMATION);
        end
      else
        begin
          with(sender2 as TEdit) do
            begin
              Enabled:=true;
              SetFocus;
            end;
        end;
    end;
end;

procedure Tprosedur.bersih(namaForm:TObject);
var a:Integer;
begin
   with(namaForm as TForm) do
    begin  
      for a :=0 to ComponentCount-1 do
        begin  
          if Components[a] is TEdit then TEdit(Components[a]).Clear;   //membersihkan semua komponen TEdit  
          if Components[a] is TEdit then TEdit(Components[a]).Enabled := False;  //menonaktifkan semua komponen TEdit
        end;  
    end;
end;

end.

Unit2 diatas merupakan class yang berisi procedure , dimana fungsi procedure cekEdit tersebut ialah memvalidasi field TEdit.Bila tombol enter di tekan , maka focus akan berpindah ke TEdit selanjutnya , kecuali bila TEdit tersebut kosong.Dan procedure Bersih untuk membersihkan juga menonaktifkan semua TEdit.Nah , sekarang kembali ke Unit1.Pada klausa Uses , tambahkan Unit2.Perhatikan kode berikut.

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit2;//unit2 di tambahkan ke unit1

Lalu pada klausa Var ,inisialisasi Inheritance terjadi.Tambahkan kode berikut.Kita akan menamainya kumpulanProsedur

var
  Form1: TForm1;
  kumpulanProsedur:Tprosedur;//kumpulanProsedur merupakan turunan dari Tprosedur yang terdapat pada Unit2

Pada Form1 event on show , tambahkan kode berikut.

procedure TForm1.FormShow(Sender: TObject);
begin
  kumpulanProsedur.bersih(Self);
  //procedure bersih yang terdapat pada Unit2 dipanggil
end;

Pada button1 ketikan kode berikut.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Enabled:=true;//mengaktifkan edit1
  Edit1.SetFocus;//focus berpindah ke edit1
end;

Selanjutnya pada edit1 event on key press , ketikan kode berikut.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then //jika tombol enter di tekan
    begin
      kumpulanProsedur.cekEdit(sender,Edit2);
      //procedure cekEdit yang terdapat pada Unit2 dipanggil
      //sender merupakan edit asal , dan edit2 merupakan tujuan focus
    end;
end;

Lakukan hal yang sama pada setiap TEdit , tentu dengan merubah focus tujuan.Jalankan program anda.Biasa saja !? Yuph benar , yang berbeda ialah konsep codingnya.Dimana kita memisahkan procedure tersebut pada unit yang berbeda.Bayangkan bila anda memiliki 10 form dengan masing-masing memiliki 10 buah TEdit.Dimana TEdit tersebut harus di validasi.Dengan cara seperti diatas , kita cukup menambahkan Unit pada klausa uses , menginisialisasi object , dan memanggil procedure / function yang terdapat pada unit yang kita buat.Berikut kode lengkap dari Unit1.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit2;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  kumpulanProsedur:Tprosedur;//kumpulanProsedur merupakan turunan dari Tprosedur yang terdapat pada Unit2
implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  kumpulanProsedur.bersih(Self);
  //procedure bersih yang terdapat pada Unit2 dipanggil
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Enabled:=true;
  Edit1.SetFocus;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then //jika tombol enter di tekan
    begin
      kumpulanProsedur.cekEdit(sender,Edit2);
      //procedure cekEdit yang terdapat pada Unit2 dipanggil
      //sender merupakan edit asal , dan edit2 merupakan tujuan focus
    end;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
      kumpulanProsedur.cekEdit(sender,Edit3);
    end;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
      kumpulanProsedur.cekEdit(sender,Edit4);
    end;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
      kumpulanProsedur.cekEdit(sender,Edit5);
    end;
end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
      kumpulanProsedur.cekEdit(sender,Edit1);
    end;
end;
end.

Saya berharap agan mengerti maksud dari postingan saya.Memang , saya hanya menyajikan contoh yang sangat sederhana.Namun saya tekankan , yang terpenting ialah agan paham konsep Inheritance / Pewarisan itu sendiri.Bila agan ingin mendownload source codenya , silahkan download DISINI.Sekian tutorial kali ini semoga bermanfaat :)

Lebih Lanjut

Optimalisasi Penggunaan Procedure di Delphi 7

Selamat siang agan-agan sekalian.Apa kabarnya !? Mudah-mudahan selalu diberi kesehatan dan kekuatan juga semangat untuk terus menambah ilmu.Pada postingan kali ini saya akan menyajikan tutorial mengenai Optimalisasi Penggunaan Procedure di Delphi 7.Bila anda belum tau apa itu procedure , alangkah baiknya bila anda membaca postingan Berikut terlebih dahulu.Seperti kita tau , delphi 7 merupakan sebuah IDE(Integrated Developement Environment) dari bahasa pemrograman Pascal.Dengan modifikasi yang kompleks , maka lahirlah object pascal yang merupakan delphi 7 itu sendiri.Mengapa dinamakan object pascal !? Yuph , karena

Lebih Lanjut

Cara Membuat Aplikasi Uninstall di Delphi 7

Selamat siang agan-agan.Siang yang cerah dan tentu saja menyenangkan untuk posting.Pada postingan kali ini , saya akan memberikan tutorial Cara Membuat Aplikasi Uninstall di Delphi 7.Maksudnya apa !? Aplikasi uninstall yang dimaksud ialah sebuah perintah untuk menghapus aplikasi itu sendiri yang berfungsi layaknya uninstall.Sehingga ketika user menjalankan aplikasi tersebut dan mengeksekusi perintah uninstall , maka aplikasi tersebut akan menghapus dirinya sendiri atau harakiri dalam bahasa Jepang (apa deh -,-" ).Kalo ternyata penjelasan saya belibet dan gak masuk akal , mending kita langsung praktek aja deh.Buka borland Delphi 7 anda dan buat aplikasi

Lebih Lanjut

Cara Membuat Aplikasi Teracopy di Delphi 7

Selamat siang agan-agan , lagi-lagi mendung menjelang hujan.Namun bukan alasan untuk tidak bersemangat.Pada postingan kali ini saya akan menyajikan tutorial mengenai Cara Membuat Aplikasi Teracopy di Delphi 7.Sudah tau kan apa itu Teracopy !?Benar sekali (kok jadi mirip Dora -,-" ),Teracopy merupakan aplikasi untuk mengkopi file secara cepat.Silahkan googling kalau belum ngeh.Dan kita , akan membuatnya di Delphi 7.Penasaran dong gimana bikinnya !? Makanya , terus ikutin sampe selesai.Pertama , ya buka dulu Delphi 7 nya.Sebelum itu , saya akan menjelaskan sedikit alur kerja

Lebih Lanjut

Cara Membuat Aplikasi WinRar di Delphi 7

Selamat siang agan-agan.Pada puasa gak !? Hehe.Untungnya siang ini cuaca agak mendung , jadinya tidak terlalu kehausan.Biarpun puasa , aktifitas coding , blogging dan learning tetep harus jalan.Pada postingan kali ini , saya akan memberikan tutorial Cara Membuat Aplikasi WinRar di Delphi 7.Udah tau dong WinRar itu apa !? Yups , aplikasi yang berfungsi untuk mengkompres beberapa file menjadi satu , dan tentu mendekompresnya lagi.Berguna banget kalau kita mau mengkopi file yang berjumlah banyak , agar lebih ringkas dan terlihat rapi.Lalu tunggu apa lagi !? Buka borland Delphi 7 anda dan mari kita berguling (maksudnya rolling !! haha)

Lebih Lanjut

Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7

Selamat malam agan-agan.Langsung aja deh , tutorial kali ini akan membahas mengenai Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7.Aplikasi sederhana ini nantinya akan menampilkan sisa space pada hard disk , total space terpakai dan persentase memori yang terpakai dari total keseluruhan partisi.Kalau sudah gak sabar , langsung saja buka borland delphi 7 anda.Tambahkan 4 buah component TLabel , 1

Lebih Lanjut

Cara Membuat Aplikasi TuneUp Shredder di Delphi 7

Selamat siang agan-agan.Postingan kali ini akan membahas mengenai Cara Membuat Aplikasi TuneUp Shredder di Delphi 7.Jika di komputer anda terinstall aplikasi Tune Up Utilities , tentu sudah tak asing lagi dengan Tune Up Shredder.Yaitu fitur untuk menghapus file secara permanen dan membersihkan alokasi memori di hardisk.Maksudnya !? Bila kita menghapus file secara konvensional dalam hal ini dengan menekan tombol delete , file tersebut maka akan di pindahkan ke recycle bin.Dan benar-benar hilang ketika kita menghapusnya di recycle bin.Benarkah hilang secara permanen !?

Lebih Lanjut

Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7

Selamat siang agan-agan.Selalu menyenangkan rasanya bisa terus konsisten untuk posting.Syukur-syukur kalau agan-agan merasa terbantu dengan postingan saya.Pada kesempatan kali ini , saya akan memberikan tutorial mengenai Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7.Maksudnya apa bay !?Jadi gini , ketika kita menginputkan karakter pada TEdit terkadang kita menginginkan supaya karakter awal pada tiap kata yang di inputkan tersebut menjadi UpperCase atau huruf besar.Memang tanpa code pun kita bisa membuat karakter awal

Lebih Lanjut

Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7

Selamat siang agan-agan.Postingan kali ini akan membahas mengenai Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7.Terdengar menarik !? Bagus kalau begitu.Aplikasi yang akan di buat , ialah yang di gunakan oleh kasir ketika ada pemesanan oleh pembeli.Aplikasi yang dibuat masih sederhana , namun yang perlu diperhatikan ialah logika atau alur dari aplikasi tersebut.Alurnya seperti ini : Kantin menyediakan beberapa jenis makanan dan minuman.Juga pelayanan di antar pemesanan.Ketika ada pembeli dengan memesan makanan serta minuman , kasir menginputkan pilihan tersebut pada

Lebih Lanjut

Cara Membersihkan TEdit Secara Cepat Di Delphi 7

Selamat siang agan-agan.Pada postingan kali ini saya akan membahas mengenai Cara Membersihkan TEdit Secara Cepat Di Delphi 7.Maksudnya !? Biasanya ketika kita sudah selesai menginputkan data kedalam database , data yang di inputkan melalui komponen TEdit tentu harus di bersihkan untuk kemudian digunakan lagi dalam proses penginputan berikutnya.Bila ternyata jumlah komponen TEditnya sangat banyak , tentu akan merepotkan bila harus membersihkannya satu-satu.Mari kita contohkan dengan membuat program.Yang satu menggunakan cara lama , dan satu lagi menggunakan cara cepat.

Lebih Lanjut

Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7

Selamat siang agan-agan.Pada tutorial kali ini saya akan membahas mengenai Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7.Maksudnya udah ngerti kan !? Kalau kita membuat aplikasi yang bertujuan untuk komersil dan di gunakan secara massal , maka kita harus membuat masa trial pada aplikasi kita.Nantinya bila sudah expired , maka user akan diminta untuk registrasi untuk menggunakannya lagi.Bungung !? Sama.Maka dari itu , lebih baik kita contoh kan saja dengan praktek.

Lebih Lanjut

Cara Membuat Aplikasi Entri Data Dengan Delphi 7

Selamat sore agan-agan , pada postingan kali ini saya akan menyajikan tutorial mengenai Cara Membuat Aplikasi Entri  Data Delphi 7.Aplikasi ini dapat di gunakan oleh kasir untuk entri data  dan langsung di print.Terdengar sangat sulit !? Ternyata tidak.Aplikasi yang akan kita buat kali ini di buat sangat sederhana agar mudah di mengerti.Tidak ada database yang ngejelimet.Dan menjadikan array sebagai vault/tempat penyimpanan sementara data yang akan kita input.Lalu bagaimana caranya !?Makanya , pantengin terus blog ini :D

Lebih Lanjut

Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7

Adakalanya secara tak sengaja kita menghapus teks yang sedang di input pada komponen edit.Tak masalah bila teks yang diinput hanya berisi 5 karakter misalnya.Namun bagaimana bila karakter tersebut berjumlah belasan !?Nomor faktur misalnya.Tentu akan repot dan kurang efisien bila harus di ketik ulang secara manual.Apalagi bila karakter yang diketikan njelimet.Untuk itu pada tutorial kali ini , saya akan menjelaskan mengenai Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7.Sehingga bila data yang di input pada edit terhapus , kita bisa meng-undo-nya tanpa harus mengetik ulang.Okey , mari kita mulai.

Lebih Lanjut

Cara filter input karakter pada komponen edit di delphi 7

Selamat siang agan-agan.Pada tutorial kali ini saya akan menyajikan pembahasan mengenai Cara filter input karakter pada komponen edit di delphi 7.Maksudnya !?Komponen edit yang notabene merupakan field untuk mengisi data yang nantinya akan kita masukan kedalam database.Untuk mengurangi kesalahan input oleh user , maka kita akan membatasi input karakter pada komponen edit.Misalnya pada field nama.Tentunya field nama hanya diisi oleh karakter alfabetis.Atau nomor telefon , yang di isi hanya dengan karakter numerik/nomor/angka.Okey , bila masih belum ngerti , kita contohkan dengan program saja.

Lebih Lanjut

Mengenal Procedure dan Function Pada Delphi 7

Selamat pagi agan-agan , hari jumat yang sangat menyenangkan.Cuaca cerah , udara segar , cocok untuk posting blog.Kali ini saya ingin memberikan penjelasan sederhana mengenal procedure dan function , perbedaan keduanya , serta cara menggunakannya pada delphi 7.Tutorial kali ini khusus untuk agan newbie yang awam akan delphi 7.Namun bila ada master yang mau ikut menimpali silahkan di tunggu sekali komentarnya.Lalu tunggu apalagi !? Mari kita mulai.

Lebih Lanjut