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:

Comments

Post a Comment

Popular posts from this blog

Adab Adab Budaya Melayu Riau Berdasarkan Google

By
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
Post a Comment
Read more

Dimensi Besaran Pokok Dan Turunan

By
Di dalam mekanika, besaran pokok panjang, massa, dan waktu merupakan besaran yang berdiri bebas satu sama lain, sehingga dapat berperan sebagai  dimensi . Dimensi besaran panjang dinyatakan dalam L, besaran massa dalam M, dan besaran waktu dalam T. Persamaan yang dibentuk oleh besaran-besaran pokok tersebut haruslah konsisten secara dimensional, yaitu kedua dimensi pada kedua ruas harus sama. Dimensi suatu besaran yang dinyatakan dengan lambang huruf tertentu, biasanya diberi tanda [ ]. Tabel 1.4 menunjukkan lambang dimensi besaran-besaran pokok. Dimensi dari besaran turunan  dapat disusun dari dimensi besaran-besaran pokok. Tabel 1.5 menunjukkan berbagai dimensi besaran turunan .     Analisis Dimensi Setiap satuan turunan dalam fisika dapat diuraikan atas faktor-faktor yang didasarkan pada besaran-besaran massa, panjang, dan waktu, serta besaran pokok yang lain. Salah satu manfaat dari konsep dimensi adalah untuk menganalisis atau menjabarkan benar atau salahnya suatu
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 permasalaha
Post a Comment
Read more