Hazırlanan Programı Demo Sürüm Haline Getirme VB.NET
Hazırlanan Programı Demo Sürüm Haline Getirme VB.NET
Daha önceden yapmış olduğumuz Zamlı maaş Programını demo sürüm haline getirelim.
Projemiz tamamlandıktan sonra ilk hangi form ile açılıyorsa onun Load ‘ na şağıdaki kodları yazıyoruz.
Bu program 20 kullanımlık olarak ayarlanmıştır. Kodlardaki 20 sayısını isteğinize göre değiştirebilirsiniz.
Demo sürüm hazırlanmış şeklini aşağıdaki Projeyi İNDİR linkinden indirebilirsiniz.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim kalan As Integer
kalan = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("gorselprogramlama yazılım").GetValue("gorsel", 20)
Label3.Text = kalan & " Kullanım Hakkınız Kaldı"
kalan -= 1
If kalan < 0 Then
MsgBox("Kullanım Hakkınız Sona Erdi")
Application.Exit()
Else
Microsoft.Win32.Registry.CurrentUser.CreateSubKey("gorselprogramlama yazılım").SetValue("gorsel", kalan)
End If
End Sub
Son Yorumlar