Cara Membuat Mode Trial Pada Form Visual Basic ( VB ) 6.0

Cara Membuat Mode Trial Pada Form Visual Basic ( VB ) 6.0 - Masih pada bingung ketika program kalian selamanya di jalankan dan yang kalian inginkan adalah membatasi pemakaian program yang kalian bikin, nah disini saya akan kasih solusi atas keluhan tersebut dengan membatasi program kalian kalian menggunakan metode Trial. Disini saya akan berbagi cara membuat program versi Trial dengan 2 cara atau 2 metode yang berbeda yaitu :

Versi Trial menggunakan waktu ( hari, bulan, tahun )
Dan versi Trial menggunakan pemakaian program tersebut

Pengertian Versi Trial

Program versi Trial ialah program yang memiliki batas waktu tertentu yang sudah di buat oleh sang programer program tersebut dengan tujuan agar ketika program itu habis masa pakainya maka kita akan menghubungi sang programer itu atau juga kita bisa langsung mendownload lagi pada situs tersebut.

Versi Trial ini pada umumnya di bagikan secara gratis dan dengan waktu yang berbeda - beda sesuai Perusahaan atau Programer yang membuatnya, ada yang 60 hari, 30 hari, bahkan ada juga yang hanya 10 kali pemakaian.

Versi Trial Menggunakan Waktu

Versi trial menggunakan waktu ialah versi trial yang sangat banyak di gunakan oleh para programer dalam pembuatan software atau program tersebut, karena versi trial menggunakan waktu sangatlah efektif untuk memikat hati pengguna ( user ) untuk membeli software tersebut setelah masa trialnya habis.

Cara Membuat Versi Trial Menggunakan Waktu

Buatlah sebuah form atau jika kalian sudah punya programnya silahkan di buka
Copy kode di bawah ini dan letakan di program kalian ( karena disini saya menggunakan form kosong maka saya menggunakan kode Private Sub Form_Load() )

'www.EXPXO.net'
Private Sub Form_Load()
Dim tglterakhir As Date
tglterakhir = CDate("2019-06-11")
If Date >= tglterakhir Then
MsgBox "Masa Pemakaian Cheat Telah Habis"
MsgBox "Silahkan Kunjungi Website Kami Di Www.EXPXO.Net Atau Hubungi Admin EXPXO Untuk Menggunakan Cheatnya ..."
MsgBox "Terimakasih Telah Memakai Jasa Kami ^_^ ..."
End
End If
MsgBox ("SELAMAT DATANG DI VVIP EXPXO CIT")
If MsgBox("Klik =====> YES <===== Untuk Melanjutkan", vbYesNo + vbDefaultButton2 + vbQuestion, "Klik Yes") = vbNo Then
MsgBox ("KUNJUNGI TERUS WWW.EXPXO.NET UNTUK INFORMASI-INFORMASI MENARIK DAN UPDATE CHEAT VVIP GRATIS")
MsgBox ("BYE BYE............ :P")
End
End If
Form2.Show 'Perintah Menampilkan Form 7
Form1.Visible = False 'Menyembunyikan Form 6
Unload Me 'Menutup Form 6
End Sub
'www.EXPXO.net'

Kode di atas sudah saya tambahin dengan MsgBox yang nanti fungsinya jika Trial habis akan keluar pesan dan ketika masuk akan keluar pesan juga ( silahkan edit bagian MsgBox sesuai kebutuhan kalian, atau kalian hapus juga
Silahkan rubah pada bagian ("2019-06-11") sesuai kenginan kalian karena pada bagian ini dimana program yang kamu bikin akan berhenti.

Versi Trial Menggunakan Pemakaian

Versi trial yang satu ini berbeda dengan versi trial di atas ( menggunakan waktu ) karena versi trial ini menggunakan pemakaian jadi akan cepat habis masa programnya saat di gunakan. Contoh saya kasih waktu pemakaian 10 kali jadi ketika kalian membuka program tersebut selama 10 kali maka program tersebut akan habis masanya atau sudah tidak bisa di buka lagi.

Cara Membuat Trial Menggunakan Pemakaian

Sama seperti di atas buatlah sebuah form atau jika kalian sudah punya programnya silahkan di buka
Copy kode di bawah ini dan letakan di program kalian ( karena disini saya menggunakan form kosong maka saya menggunakan kode Private Sub Form_Load() )

Private Sub Form_Load()
Dim x
Dim y
Dim jumlah
Dim sisa
MsgBox "Program ini hanya dapat dipakai 10 kali"
x = GetSetting("y", "y", "y")
jumlah = Val(x) + 1
SaveSetting "y", "y", "y", jumlah
Label1.Caption = "Program ini sudah digunakan sebanyak :" & jumlah & " kali"
sisa = 10 - jumlah
Label2.Caption = "Sisa pemakaian:" & sisa & " kali"
If jumlah > 10 Then
MsgBox "Batas waktu pemakaian sudah habis" + vbCrLf + " Untuk dapat memakai program ini lagi," + vbCrLf + "Ada harus mendaftar"
DeleteSetting "y", "y", "y"
Unload Me
End If
End Sub

Kode di atas juga sudah saya tambahin dengan MsgBox yang sangat pas pada trial ini di jalankan.
Silahkan rubah angka 10 dengan keinginan kalian karena angka 10 itu adalah masa trialnya.
Buatlah Label1 dan Label2 untuk Captionnya di kosongin saja.

Nah seperti itulah Cara Membuat Mode Trial Pada Form Visual Basic ( VB ) 6.0. Jika ada yang salah atau yang kurang silahkan berkomentar di bawah ini. Semoga dengan artikel ini bisa menambah wawasan kita dalam dunia pemrograman dan khususnya di visual basic 6.0