Skip to main content

Cara Membuat Aplikasi Trial

By


Aplikasi trial adalah aplikasi yang mempunyai batasan waktu penggunaan berdasarkan lama hari atau berapa kali aplikasi dijalankan.
Pembuatanya biasanya digunakan pada aplikasi shareware (berbayar) yang bertujuan agar user dapat menikmati aplikasi (demo) sebelum membeli aplikasi.
Berikut ini adalah contoh pembuatan aplikasi trial yang menggunakan lama hari penggunaan, lengkap dengan prosedur input kode registrasinya.

[ VB 6.0 ]
Buat Project baru dengan sebuah Form. Di bagian '(Declarations)' dari Form ketikkan :
Const LocationReg = "System\Windows\User" 'lokasi penyimpanan d registry (ubah sesuai selera)
Const PasswordReg = "kode" 'kode kunci registrasi

Function GetInfoReg() As String 'fungsi utk mendapatkan info registrasi
On Error GoTo Ero
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
GetInfoReg = Reg.RegRead("HKEY_CLASSES_ROOT\" & LocationReg & "\")
Exit Function
Ero:
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", Format(Now, "short date") 'memasukkan tgl sekarang
GetInfoReg = Format(Now, "short date")
End Function

Function SuccessReg() As Boolean 'fungsi utk prosedur pemasukan kode registrasi
Dim s As String
Lagi:
s = InputBox("Masukkan kode registrasi", "Registrasi")
If s = PasswordReg Then
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", "Registered" 'mendaftarkan k registry
MsgBox "Terima kasih telah melakukan registrasi", vbInformation, "Registrasi Sukses"
SuccessReg = True

ElseIf s = "" Then
SuccessReg = False

Else
If MsgBox("Maaf kode registrasi salah, coba lagi ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then GoTo Lagi
SuccessReg = False
End If
End Function

Lalu di bagian 'Form_Load' ketikkan :
Dim s As String, l As Long

s = GetInfoReg
If s <> "Registered" Then 'jika belum terdaftar"
l = 30 - (CDate(Format(Now, "short date")) - CDate(s)) 'max penggunaan trial 30 hari

If l > 0 And l <= 30 Then 'jika masih ada sisa hari
If MsgBox("Aplikasi ini hanya dapat digunakan sampai " & l & " hari lagi." & vbCrLf & _
"Jika ingin menggunakan tanpa batasan waktu, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbInformation, "Registrasi") = vbYes Then SuccessReg

Else 'jika kadaluarsa
If MsgBox("Aplikasi ini sudah tidak dapat digunakan lagi." & vbCrLf & _
"Jika ingin menggunakannya kembali, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then

If SuccessReg = False Then End 'mengakhiri aplikasi
Else
End 'mengakhiri aplikasi
End If

End If
End If

Labels

Labels:

Comments

Post a Comment

Popular posts from this blog

Tradisi dan Budaya PraIslam di Nusantara

By
  Tradisi dan Budaya Islam di Nusantara Sejarah tentu pastilah ada yang mengawalinya dan bisa saja sejarah tersebut dirubah, baik itu untuk hal-hal yang negatif atau bisa juga sejarah tersebut dirubah menjadi sesuatu yang positif dan bermanfaat bagi masyarakat luas. Keadaan geografis dan wilayah yang dimiliki bangsa ini, telah membentuk keragaman dan perbedaan struktur masyarakatnya. Secara sederhana, keragaman ini ditunjukkan setidaknya oleh tiga jenis kelompok masyarakat yang berkembang di seluruh wilayah nusantara. Kelompok I, adalah masyarakat yang hidup di daerah-daerah pedalaman dan kawasan-kawasan yang terpencil. Masyarakat ini biasanya memiliki kepercayaan animisme dan komitmen kesukuannya sangat kuat. Kelompok II, adalah masyarakat yang hidup di sepanjanggaris pesisir, dimana jalur-jalur pedagangan laut telah memudahkan mereka untuk dapat mengenal dan bertukar kebudayaaan dengan dunia luar. Sedangkan kelompok III , adalah masyarakat yang dipengaruhi oleh strukt...
Post a Comment
Read more

Pembahasan Soal Olimpiade TIK Tingkat Kabupaten Tahun 2006

By
  Hey bro! kali ini saya mau membahas soal Olimpiade TIK yang di selenggarakan oleh TOKI! Langsung aja ya! SOAL OLIMPIADE TIK Tingkat Kabupaten tahun 2006 Pembahasan ini kami sengaja buat secara berseri, dengan tujuan agar kita tidak lekas bosan dan jenuh. Di samping itu juga agar kita mudah memahami apa yang kami sampaikan dalam pembahasan ini. SOAL 1 – 2: Deskripsi untuk pertanyaan 1-2 Deret bilangan Fibonacci didefisikan secara rekursif sbb. f1 = 1 f2 = 1 fn = fn-1 + fn-2 untuk semua n > 2 1. Berapa banyak kah bilangan Fibonacci antara 10 sampai dengan 100? (A) 90 (B) 9 (C) 5 (D) 10 (E) 12 2. Dengan mengambil satu harga n kemudian anda menjumlahkan bilangan-bilangan tsb mulai dari f1 s.d. fn maka berapakah n terkecil agar jumlah itu > 150? (A) 9 (B) 10 (C) 11 (D) 15 (E) 20 PEMBAHASAN SOAL: Sebagaimana yang kita ketahui bersama, soal-soal dalam olimpiade komputer jarang merupakan soal mandiri. Biasanya, soal-soal ini merupakan soal berkelompok, dengan satu macam permasa...
Post a Comment
Read more

Prinsip - Prinsip Perbankan Syariah

By
  BAB I PENDAHULUAN         A.       Latar Belakang Perbankan Syariah merupakan suatu sistem perbankan yang dikembangkan berdasarkan sistem syariah (hukum islam). Usaha pembentukkan sistem ini berangkat dari larangan islam untuk memungut dan meminjam bedasarkan bunga yang termasuk dalam riba dan investasi untuk usaha yang dikategorikan haram,misalnya dalam makanan,minuman,dan usaha-usaha lain yang tidak islami,yang hal tersebut tidak diatur dalam Bank Konvensional. Di Indonesia pelopor perbankan syariah adalah Bank Muamalat Indonesia. Dengan adanya bank tersebut diharapkan tidak adanya kerancuan dalam proses muamalah bagi para pemeluk agama islam, sehingga mereka terjaga dari keharaman akibat tidak adanya suatu wadah yang melayani mereka dalam bidang muamalah yang bersifat islami. Sampai saat ini perbankan syariah di Indonesia belum mampu menunjukan eksistensinya ,banyak masyarakat yang tidak menaruh kepercay...
Post a Comment
Read more