Tutorial membuat program trial pada Visual Basic
2 posters
:: Visual Basic
Halaman 1 dari 1
Tutorial membuat program trial pada Visual Basic
AGOENG_JR wrote:ini biasanya buat yang suka jualan aplikasi.
misalnya kamu kasi waktu 5x pemakaian aplikasi kamu, kamu bisa tulis kaya gini :
- Spoiler:
Code:Private Sub Form_Load()
Dim x
Dim y
Dim jumlah
Dim sisa
MsgBox “Program ini hanya dapat dipakai 5 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 = 5 – jumlah
Me.Label2.Caption = “Sisa pemakaian : ” & sisa & ” kali “
If jumlah > 30 Then
MsgBox “Batas Pemakaian Sudah habis ” + vbCrLf + _
“Untuk dapat memakai program ini lagi,” + vbCrLf + _
“ loe harus beli”
Unload Me
End If
End Sub
nah misalnya tiap aplikasi di buka itu akan kaya gene:itu menandakan kalo registri akan tambah 1 tiap kamu buka.
- Spoiler:
Code:x = GetSetting(”Y”, “Y”, “Y”)
jumlah = Val(x) + 1
SaveSetting “Y”, “Y”, “Y”, jumlahGetSettingsecara otomatis tulisan akan muncul, jika pemakaian udah ampe 5x
- Spoiler:
Code:If jumlah > 5 Then
MsgBox “Batas Pemakaian Sudah habis ” + vbCrLf + _
“Untuk dapat memakai program ini lagi,” + vbCrLf + _
“lo harus beli!!“
Re: Tutorial membuat program trial pada Visual Basic
bang ini di tulisnnya di mana pengertiannya tolong bantu [You must be registered and logged in to see this image.]
reza987- C4~ Member
- Jumlah posting : 1
Reputation : 1000
Join date : 05.06.11
Similar topics
» Program Tambahan Visual Basic : Text Berkedip
» ANTIVIRUS VISUAL BASIC
» Membuat effect bintang pada VB6.0
» ANTIVIRUS VISUAL BASIC
» Membuat effect bintang pada VB6.0
:: Visual Basic
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|