Öncelikle İyi Akşamlar
Konumuza Geçelim İlk Yapmamız Gereken Şey Demo İçin 1 Tane Timer Eklemek Ve Timer'ın İnveralini 1000 Yapın 1000 1Saniye'ye Eşittir Timer Ekledikten Sonra Form Loadın İçine 1 Numaralı Kodu Yazın
Sonra Public Class Form1 Altına Değişken atayalım 2 Numaralı Kod
Daha Sonra Timer1 'in Kodlarına Gelelm Timer1'in İçine İse Bu Kodu Ekliyelim 3 Numaralı Kod
1 Numaralı Kod
2 Numaralı Kod
3 Numaralı Kod
Konumuza Geçelim İlk Yapmamız Gereken Şey Demo İçin 1 Tane Timer Eklemek Ve Timer'ın İnveralini 1000 Yapın 1000 1Saniye'ye Eşittir Timer Ekledikten Sonra Form Loadın İçine 1 Numaralı Kodu Yazın
Sonra Public Class Form1 Altına Değişken atayalım 2 Numaralı Kod
Daha Sonra Timer1 'in Kodlarına Gelelm Timer1'in İçine İse Bu Kodu Ekliyelim 3 Numaralı Kod
1 Numaralı Kod
Kod:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start() ' Kırmızı Yeri Yazın Sonra
End Sub2 Numaralı Kod
Kod:
Dim hak As Integer = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("demo").GetValue("Süre", 1)'Kopyalayıp Yapıştırın3 Numaralı Kod
Kod:
Label1.Text = "%" & hak
hak = hak + 1
If hak = 100 Then
MsgBox("Kullanım Hakkınız Sona Erdi")
Me.Close()
Else
Microsoft.Win32.Registry.CurrentUser.CreateSubKey("demo").SetValue("Süre", hak)
End If
