Üye
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]VB.net ile programlarınıza demo hazırlamayı öğreneceksiniz.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]My Project[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif] > [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Settings[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif] > [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Name[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif][kalan] > [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Value[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif][5][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]bunları settingsdeki textboxlara yazın.Ve şu kodları form1_load'a ekleyin.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]My Project[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif] > [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Settings[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif] > [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Name[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif][kalan] > [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Value[/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif][5][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]bunları settingsdeki textboxlara yazın.Ve şu kodları form1_load'a ekleyin.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
Kod:
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a As String = My.Settings.kalan
My.Settings.kalan = a - 1
If a = 0 Or 0 > a Then
MsgBox("Deneme sürümünüz bitti, lütfen tam sürüme geçiniz.")
End
Else
MsgBox(a & " Giriş hakkınız kaldı!")
My.Settings.Save()
End If
End Sub
End Class
