Cara Membuat Expired Data Aplikasi Untuk Delpi 7 Cara Membuat Expired Data Aplikasi Untuk Delpi 7

 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.

Cara kerjanya seperti ini , bila user menjalankan aplikasi sebelum masa expired , maka akan tampil pesan bahwa masa expired aplikasi tinggal beberapa hari lagi.Namun bila user menjalankan aplikasi setelah lewat masa expired , maka aplikasi tidak akan bisa di jalankan.Lalu tunggu apalagi !? Silahkan buka borland Delphi 7 anda.Kita akan membuat procedure dengan nama expired.Ketikan kode berikut setelah {$R *.dfm}

1. procedure expired;  
2. var tahun , bulan , tanggal  , sisa:Integer;  
3.     tempo : TDate;  
4. begin  
5.   tahun:=2011;  // tahun expired  
6.   bulan:=07;    //bulan expired  
7.   tanggal:=30;  //tanggal expired  
8.   //membandingkan tanggal hari ini dengan tanggal expired  
9.    if (Date >= EncodeDate(tahun, bulan, tanggal)) then  
10.       begin  
11.         ShowMessage('Masa trial software anda telah habis , silahkan registrasi');  
12.         Application.Terminate;  
13.       end  
14.    else  
15.     begin  
16.     //mencari selisih tanggal antara tanggal expired , dan tanggal hari ini  
17.       tempo:=EncodeDate(tahun , bulan , tanggal);  
18.       sisa:=trunc(tempo-date);  
19.       ShowMessage('Masa trial anda tersisa ' + IntToStr(sisa) +' Hari lagi' );  
20.     end;  
21. end; 

Untuk tanggal expired , anda bisa memodifikasinya dengan mencari tau tanggal kapan pertama kali aplikasi anda di jalankan dengan memanfaatkan fungsi dari registry.Anda bisa melihatnya DISINI.

Okey , setelah procedure expired dibuat maka anda tinggal memanggilnya pada form1 event on activate.Ketikan kodenya seperti di bawah ini.

1. procedure TForm1.FormActivate(Sender: TObject);  
2. begin  
3.   expired;  
4. end;  

Coba jalankan aplikasi anda.Atur-atur kembali tanggal expired yang di tulis tadi untuk mengecek apakah berfungsi dengan benar atau tidak.Sekian postingan kali ini semoga bermanfaat.

Untuk berlangganan Artikel silahkan Masukkan email anda kemudian cek inbox email

Author : Unknown

Setelah anda membaca artikel tentang Cara Membuat Expired Data Aplikasi Untuk Delpi 7 jika bermanfaat, silahkan tekan tombol Share. Anda juga boleh menyalin / menyebarluaskan artikel ini, namun jangan lupa untuk meletakkan link dibawah ini sebagai sumbernya : <a href="http://cyberbintauna.blogspot.com/2014/07/cara-membuat-expired-data-aplikasi-untuk-delpi7.html" target="_blank">Cara Membuat Expired Data Aplikasi Untuk Delpi 7</a>

Baca Juga:

Judul: Cara Membuat Expired Data Aplikasi Untuk Delpi 7
Rating: 100% based on 99998 ratings. 5 user reviews.
Ditulis Oleh Unknown
klik disini untuk menambahkan komentar blogger

Terimakasih atas kunjungan Sobat pada artikel ini,dan jangan lupa untuk meninggalkan komentar sobat tentang artikel ini.