Cara Membuat Aplikasi Trial

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

Comments

Adab Adab Budaya Melayu Riau Berdasarkan Google

Orang Melayu mengaku identitas kepribadiannya yang utama adalah adat istiadat Melayu, dan agama Islam. Dengan demikian, seseorang yang mengaku dirinya orang Melayu harus beradat-istiadat Melayu, berbahasa Melayu, dan beragama Islam. Dari tiga ciri utama kepribadian orang Melayu tersebut, yang menjadi pondasi pokok adalah agama Islam, karena agama Islam menjadi sumber adat-istiadat Melayu. Oleh karena itu, adat-istiadat Melayu Riau bersendikan syarak dan syarak bersendikan kitabullah. Dalam bahasa Melayu berbagai ungkapan, pepatah, perumpamaan, pantun, syair, dan sebagainya menyiratkan norma sopan-santun dan tata pergaulan orang Melayu. 1. Pendahuluan Orang Melayu menetapkan identitasnya dengan tiga ciri pokok, yaitu berbahasa Melayu, beradat-istiadat Melayu, dan beragama Islam. Dalam makalah ini, penulis akan mengemukakan beberapa hal pokok yang berkaitan dengan adat istiadat Melayu Riau. Seperti diketahui bersama, segala hal yang bersangkutan dengan adat-istiadat Me

Pembahasan Soal Olimpiade TIK Tingkat Kabupaten Tahun 2006

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 permasalaha

Tradisi dan Budaya PraIslam di Nusantara

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 struktur b

IrfanSyahPutra

Search This Blog