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.

[code lang=”vbnet”][/code][/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