AccessTr.neT

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..[/align]

teşekkürler puletin

(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..[/align]

Programı? defa çalıştırıyorsunuz mesajını verirken microsoft Access yazısını kaldırabilirmiyiz. Ben 2 gün süre verdim.iki gün sonra programı çalıştıramazsam külahları değişiriz. Gerçi benim istediğimde çalışmaması ama başkasının..

Saygılarımla,
MG

Sevgili Redgreen.

Buradaki Demo kodları ile Demo yapmak kesinlikle güvenilmez bir yöntemdir buna bel bağlamayın.

(08/12/2008, 17:07)alpeki99 yazdı: [ -> ]Sevgili Redgreen.

Buradaki Demo kodları ile Demo yapmak kesinlikle güvenilmez bir yöntemdir buna bel bağlamayın.

Uyarınız için teşekür ederim.

Saygılar,
MG

Arkadaşlar vermiş olduğunuz kodları denedim ancak işe yaramadı,acaba yanlış yeremi koyuyorum kodları