Software Versi Trial dengan VB 6

Software Versi Trial biasanya digunakan untuk memperkenalkan produknya secara gratis dengan waktu tertentu maka software tersebut tidak dapat digunakan lagi atau biasanya muncul pesan untuk segera membeli produk aslinya.

Pembuatan Sottware Versi Trial tersebut biasanya di buat dalam batas pemakaian dan dalam batas waktu atau har, dalam kasus ini saya akan memberikan contoh membuat sotware versi trial dengan menggunakan dalam batas pemakaian.

tampilan Formnya yg mesti anda siapkan seperti di bawah ini 

setelah intu copy koding di bawah ini :

 Private Sub Form_Load()
    Dim x
    Dim y
    Dim jumlah
    Dim sisa
  
    MsgBox "Program ini hanya dapat dipakai 15 kali"
    x = GetSetting("Y", "Y", "Y")
    jumlah = Val(x) + 1
    SaveSetting "Y", "Y", "Y", jumlah
    Me.Label1.Caption = "Program ini sudah di gunakan sebanyak " _
                        & jumlah & " kali "
    sisa = 15 - jumlah
    Me.Label2.Caption = "Sisa pemakaian : " & sisa & " kali "
    If jumlah > 15 Then
        MsgBox "Batas Pemakaian Sudah habis " + vbCrLf + _
               "Untuk dapat memakai program ini lagi," + vbCrLf + _
               "      Anda harus mendaftar!!!"
        Unload Me
        End If
End Sub

Selamat mencoba