Skip to main content

AccessTr.neT


Access Programınızı Demo yapma

Access Programınızı Demo yapma

#1
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..Az[/align]
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
#2
teşekkürler puletin
Cevapla
#3
(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..Az[/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
Cevapla
#4
Sevgili Redgreen.

Buradaki Demo kodları ile Demo yapmak kesinlikle güvenilmez bir yöntemdir buna bel bağlamayın.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#5
(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
Cevapla
#6
Arkadaşlar vermiş olduğunuz kodları denedim ancak işe yaramadı,acaba yanlış yeremi koyuyorum kodları
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da