fRkn* ♥ CS -TR Kurucusu♥
Mesaj Sayısı : 345 Rep Puanı : 1103 Kayıt tarihi : 23/07/10 Nerden : İzmir
| Konu: Lisansli PRogram Yapimi [ Visual Basic ] Ptsi Tem. 26, 2010 1:11 am | |
| Arkadaşlar Bunu yapmak Çok Basit.
Sadece Kodu Forma Direk Yapıştırın.
İşte Bu Kadar.
Kod: Option Explicit Private Sub Form_Load() Dim kbel As String kbel = GetSetting("sınır", "sınırla", "kbel", 0) If kbel >= 5 Then 'Burdaki 5 rakamını isterseniz yükseltebilirsiniz bu rakam programın kaç kere çalışacağını belirtiyor. SaveSetting "sınır", "sınırla", "kbel", 111111 MsgBox "Programın kullanım süresi bitti", vbOKOnly, "Uyarı'" Unload Me End Else kbel = kbel + 1 SaveSetting "sınır", "sınırla", "kbel", kbel Label1.Caption = kbel End If End Sub | |
|