Fitur trial termasuk hal yang sering ditanyakan para pembuat program, tujuannya sederhana yaitu agar pemakaian program memiliki batas waktu tertentu. Jika anda memahami logikanya pembuatan fitur trial termasuk hal yang mudah dibuat.
Trial Berdasarkan Jumlah Pakai
Tahapan pertama dalam pembuatan program trial ini adalah sebagai berikut:
1. Buka visual studio 2008
2. Klik create project
3. Tulis nama project “Trial Berdasarkan Jumlah Pakai”
4. OK
5. Membuat database dengan nama “DBJumlahPakai.mdb” dan simpan di folder Bin>Debug project anda
6. Membuat tabel dengan nama “TBLJumlahPakai” dengan struktur sebagai berikut :
Tabel JumlahPakai
7. Selanjutnya memasang password database dengan cara sebagai berikut :
a. Klik menu tools
b. Pilih security
c. Pilih set database password
d. Ketik password
e. Ketik ulang password yang sama
f. OK
8. Untuk menghapus password database anda harus membukanya dengan cara sebagai berikut :
a. Buka access 2003
b. Klik open
c. Pilih nama database
d. Klik option
e. Pilih open exclusive
Membuka Database Berpassword
9. Selanjutnya membuat form dengan bentuk seperti gambar di bawah ini
Form Trial Jumlah Pakai
10. Membuat module koneksi database
Coding module koneksi database :
Imports System.Data.OleDb
Module Module1
Public CONN AsOleDbConnection
Public STR AsString
Public CMD AsOleDbCommand
Public DR AsOleDbDataReader
SubKoneksi()
STR = "provider=microsoft.jet.oledb.4.0;data source=DBJumlahPakai.mdb;Jet OLEDB:Database Password='123456'"
CONN = NewOleDbConnection(STR)
IfCONN.State = ConnectionState.Closed Then
CONN.Open()
End If
End Sub
End Module
Logika program trial dengan jumlah pakai :
1. Pada saat form load, carilah data di tabel TBLumlahPakai
2. Jika datanya tidak ada, makak tambahkan ke kolom digunakan =1, ke kolom batas = 10 (10 adalah jumlah batas pakai)
3. Jika datanya sudah ada maka editlah kolom digunakan +1
4. Di label1 tampilkan kalimat “Program Sudah Digunakan ‘SEKIAN’ Kali”
5. Di label2 tampilkan kalimat “Batas Penggunaan Program ‘SEKIAN’ Kali”
6. Jika jumlah “digunakan” >= “batas”, maka tampilkan pesan “Aplikasi Sudah Habis Masa Berlakuknya Sampai ‘Sekian’ Kali”
7. Kemudian tutup aplikasi
Coding program trial dengan jumlah pakai :
Imports System.Data.OleDb
Public ClassForm1
Private SubForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
PictureBox1.Load("5.jpg")
CallKoneksi()
CMD = NewOleDbCommand("select * from TBLJumlahPakai", CONN)
DR = CMD.ExecuteReader
DR.Read()
If Not DR.HasRows Then
Dimsimpan As String= "insert into TBLJumlahPakai values ('1','10')"
CMD = NewOleDbCommand(simpan, CONN)
CMD.ExecuteNonQuery()
Label1.Text = ""
Label2.Text = ""
MsgBox("Selamat.., anda telah menggunakan aplikasi ini untuk yang pertama kali, silakan RUN kembali...")
End
Else
Dimedit As String= "update TBLJumlahPakai set digunakan='"& DR.Item("digunakan") & "' + 1"
CMD = NewOleDbCommand(edit, CONN)
CMD.ExecuteNonQuery()
Label1.Text = "Program sudah digunakan " & DR.Item("digunakan") & " Kali"
Label2.Text = "Batas penggunaan program " & DR.Item("batas") & " Kali"
IfDR.Item("digunakan") >= DR.Item("batas") Then
MsgBox("aplikasi trial sudah habis masa berlakuya sampai " & DR.Item("batas") & " kali", MsgBoxStyle.Critical)
End
End If
End If
End Sub
End Class
Hasil program ketika pertama kali di RUN adalah sebagai berikut :
Pesan Pertama Kali Program Dijalankan
Ketika program di RUN untuk kedua kali atau ketiga kali maka akan tampil pesan sebagai berikut :
Pesan Kedua Kali Program Dijalankan
Jika jumlah pakai sudah melebihi batasnya maka akan tampil pesan sebagai berikut :
Pesan Habis Masa Trial
Trial Berdasarkan Tanggal Pakai
Program ini berfungsi untuk membatasi penggunaan aplikasi berdasarkan tempo waktu atau tanggal. Tahapan pertama dalam pembuatan trial ini sama dengan program trial sebelumnya yaitu :
1. Membuat database dengan nama DBTrialTanggal.mdb
2. Membuat tabel dengan nama TBLTanggalPakai dengan struktur sebagai berikut :
Tabel TanggalPakai
3. Selanjutnya membuat form dengan bentuk seperti gambar di bawah ini
Form Trial Berdasarkan Tanggal
4. Membuat module koneksi database
Imports System.Data.OleDb
Module Module1
Public CONN As OleDbConnection
Public CMD As OleDbCommand
Public DR As OleDbDataReader
SubKoneksi()
CONN = NewOleDbConnection("provider = microsoft.jet.oledb.4.0;data source=DBTrialTanggal.mdb")
CONN.Open()
End Sub
End Module
Logika program pada saat form load adalah sebagai berikut :
1. Tampilkan tanggal sekarang di label5
2. Baca isi tbltanggalpakai
3. Jika tidak ada isinya, maka simpan tanggal sekarang dan tanggal expire adalah tanggal sekarang + 10 (jumlah waktu yang diinginkan)
4. Jika tbltanggalpakai sudah ada isinya, maka tampilkan tanggal expire di label6
5. Di label7 tampilkan sisa hari pemakaian aplikasi
6. Jika tanggal sekarang >= tanggal expire maka munculkan pesan bahwa “Aplikasi Sudah Habis Masa Berlakuknya Sampai Tanggal Expire”
7. Tutup aplikasi
Coding :
Imports System.Data.OleDb
Public ClassForm1
Private SubForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Label5.Text = Today
CallKoneksi()
CMD = NewOleDbCommand("select tglpakai,tglexpire from tbltanggalpakai", CONN)
DR = CMD.ExecuteReader
DR.Read()
If Not DR.HasRows Then
Dimsimpan As String= "insert into tbltanggalpakai values ('"& Label5.Text & "','"& DateAdd(DateInterval.Day, 5, Today) & "')"
CMD = NewOleDbCommand(simpan, CONN)
CMD.ExecuteNonQuery()
Else
Label6.Text = DR.Item("tglexpire")
MsgBox("aplikasi trial sampai " & DR.Item("tglexpire") & "")
Label7.Text = "Masa Expire Tinggal " & DateDiff(DateInterval.Day, Today, DR.Item("tglexpire")) & " Hari"
IfLabel5.Text >= DR.Item("tglexpire") Then
MsgBox("Masa berlaku aplikasi sampai tanggal " & DR.Item("tglexpire") & " - testing www.konsultasivb.com - Uus Rusmawan", MsgBoxStyle.Critical)
End
EndIf
End If
End Sub
End Class
Pada saat pertama kali program di RUN, maka akan tampil pesan seperti gambar di bawah ini :
Pesan Pertama Kali Prgram Digunakan
Pada saat program di RUN untuk yang kedua kali, ketiga dan keempat (jika masih di hari yang sama) maka akan tampil pesan seperti gambar di bawah ini :
Pesan Sebelum Habis Tanggal Pakai
Jika batas waktu (tanggal) sudah habis, maka akan tampil pesan seperti gambar di bawah ini :
Pesan Setelah Habis Tanggal Pakai
Tidak ada komentar:
Posting Komentar