[/align]
(04/11/2008, 13:59)PuLeTiN yazdı: Aşagıdaki kodla Programınızın Demo olmasını sağlaya bilirsiniz
Programınızın açılış formuna aşağıdaki kodları yapıştırın. Program 90 günlük siz istediğin rakamı yazabilirsiniz. İster 1 gün ister 10 gün.
NOT : Üretim Planlama yerine kendi programınızın ismini yazın.
Private Sub Form_Load()
On Local Error Resume Next
Dim d, x, y
d = GetSetting("Üretim Planlama", "Ayarlar", "Ilk Giris", "")
If d = "" Then
SaveSetting "Üretim Planlama", "Ayarlar", "Ilk Giris", Date
Else
If (Date - CDate(d)) > 90 Then
MsgBox ("Programin Demo Süresi dolmustur.Uzatmak Için E-Mail adresine Not mesaj atabilirsiniz")
DoCmd.Close
Else
x = GetSetting("Üretim Planlama", "Ayarlar", "Son Çikis Tarihi", "")
If CVDate(x) > Date Then
MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Close
Else
y = GetSetting("Üretim Planlama", "Ayarlar", "Son Çikis Saati", "")
If (CVDate(x) = Date) And (CVDate(y) > Time) Then
MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Close
End If
End If
x = GetSetting("Üretim Planlama", "Ayarlar", "Sayi", "1")
MsgBox ("Programi" & x & ". defa çalistiriyorsunuz.")
SaveSetting "Üretim Planlama", "Ayarlar", "Sayi", x + 1
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "Üretim Planlama", "Ayarlar", "Son Çikis Tarihi", Date
SaveSetting "Üretim Planlama", "Ayarlar", "Son Çikis Saati", Time
End Sub
her açılışta birin ci ikinici diye sayar Programi" & x & ". defa çalistiriyorsunuz uyarısını verir ve belirlediğiniz günde kullanım Programin Deneme Süresi Doldu Lütfen Israr Etmeyin ikazı ile program kapanır açamazsınız kolay gelsin
ALINTIDIR..
