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.

[/code]

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

[/Code]

Projeyi İNDİR

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.