Visual Basic ile Programlarınızı Limitli Hale Getirin
Bu Kodla Programınız Sizin İstediğiniz Kadar Kulanılabilir
Şimdi Formumuza 1 adet label koyalım adını da değiştirmeyelim.
Label bize programın kaç defa çalıştırıldığını söyleyecek - CrawlinqTR
Kodumuz
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
Visual Basic ile Txt olarak kaydetme
Gerekli malzemeler :
1 adet common dialog, 1 adet text box ve 1 adet buton
Text box ın içindeki metin txt olarak kaydediliyor
Kodumuz
Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo Son
CommonDialog1.DialogTitle = "Kaydet"
CommonDialog1.Filter = "Metin Belgesi(*.txt)|*.txt"
CommonDialog1.FileName = "mayhemious"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Append As #1
Print #1, Text1.Text
Print #1, ""
Print #1, ""
Print #1,
Close #1
MsgBox "Kayıt Tamamlanmıştır"
Son:
End Sub
Formunuza Şifreli Koruma Yapmak
1.form=şifreli giriş kısmı
2.form=istediğinizi yazabilirsiniz
Formumuza 2 adet text box 1 adet command ve toplam yerleştiriyoruz.
text1=kullanıcı adı
text2=şifre
burdan itibaren yazmaya başlayabilirsiniz...
Private Sub Command1_Click()
If Text1.Text = "CrawlinqTR" Then
Form2.Show
Else
MsgBox "Kullanıcı adı yanlış"
End If
If Text2.Text = "CrawlinqTR" Then
Form2.Show
Else
MsgBox "Şifre yanlış"
End If
End Sub
Not=text2 kutusunu seçip propertis ayarlarından passwordchar kısmına * şeklini katın.O zaman şifreniz yıldız şeklinde gözükücektir.Ayrıca text lerle işiniz bittiği zaman text kutularının caption yazan kısmını silin.Daha az hata verir.
Txt ye dönüştürme hariç diğer anlatımlar benimdir bir teşekkürü çok görmeyin
---------------------------------------CrawlinqTR------------------------------------------------
Bu Kodla Programınız Sizin İstediğiniz Kadar Kulanılabilir
Şimdi Formumuza 1 adet label koyalım adını da değiştirmeyelim.
Label bize programın kaç defa çalıştırıldığını söyleyecek - CrawlinqTR
Kodumuz
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
Visual Basic ile Txt olarak kaydetme
Gerekli malzemeler :
1 adet common dialog, 1 adet text box ve 1 adet buton
Text box ın içindeki metin txt olarak kaydediliyor
Kodumuz
Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo Son
CommonDialog1.DialogTitle = "Kaydet"
CommonDialog1.Filter = "Metin Belgesi(*.txt)|*.txt"
CommonDialog1.FileName = "mayhemious"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Append As #1
Print #1, Text1.Text
Print #1, ""
Print #1, ""
Print #1,
Close #1
MsgBox "Kayıt Tamamlanmıştır"
Son:
End Sub
Formunuza Şifreli Koruma Yapmak
1.form=şifreli giriş kısmı
2.form=istediğinizi yazabilirsiniz
Formumuza 2 adet text box 1 adet command ve toplam yerleştiriyoruz.
text1=kullanıcı adı
text2=şifre
burdan itibaren yazmaya başlayabilirsiniz...
Private Sub Command1_Click()
If Text1.Text = "CrawlinqTR" Then
Form2.Show
Else
MsgBox "Kullanıcı adı yanlış"
End If
If Text2.Text = "CrawlinqTR" Then
Form2.Show
Else
MsgBox "Şifre yanlış"
End If
End Sub
Not=text2 kutusunu seçip propertis ayarlarından passwordchar kısmına * şeklini katın.O zaman şifreniz yıldız şeklinde gözükücektir.Ayrıca text lerle işiniz bittiği zaman text kutularının caption yazan kısmını silin.Daha az hata verir.
Txt ye dönüştürme hariç diğer anlatımlar benimdir bir teşekkürü çok görmeyin
---------------------------------------CrawlinqTR------------------------------------------------
