Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
04/11/2008 13:59
Konu Sahibi
Puletin
Yorumlar
6
Okunma
7549
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

Puletin

Onursal Üye
 Belirtilmemiş
 1.717
 40
 01/11/2008
416
 -
 
 Ofis 2003
 24/12/2016,00:18
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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...

Kullanici Avatari

accessman

Aktif Üye
 Belirtilmemiş
 2.367
 561
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
teşekkürler puletin



Kullanici Avatari

Redgreen

Aktif Üye
 38
 108
 20
 19/11/2008
0
 Ankara
 
 Ofis 2003
 12/10/2013,01:32
(04/11/2008 13:59)PuLeTiN Adlı Kullanıcıdan Alıntı: 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



Kullanici Avatari

alpeki99

Uzman
OL....
 38
 6.138
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 24/11/2018,10:13
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.

Kullanici Avatari

Redgreen

Aktif Üye
 38
 108
 20
 19/11/2008
0
 Ankara
 
 Ofis 2003
 12/10/2013,01:32
(08/12/2008 17:07)alpeki99 Adlı Kullanıcıdan Alıntı: 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



Kullanici Avatari

by_ufuk

Üye
UF....
 Belirtilmemiş
 16
 4
 27/11/2010
0
 Hatay
 
 Ofis 2003
 04/03/2014,17:07
Arkadaşlar vermiş olduğunuz kodları denedim ancak işe yaramadı,acaba yanlış yeremi koyuyorum kodları




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Resim Zoom yapma ve küçültme örneği mehmetdemiral 6 4.527 27/11/2017, 14:54
Son Yorum: elektrikci
Brick Yabancı dil kelime pratik yapma programı kupacor 10 4.567 16/01/2016, 00:57
Son Yorum: ferit39
  Mazot Takip Programı demo ozguryasin 6 2.824 23/07/2015, 15:11
Son Yorum: firatm
  Programınızı .ZIP Olarak Yedekleyin SCavusoglu 2 1.933 18/05/2014, 20:32
Son Yorum: ozanakkaya
Shocked Microsoft Access Yurt Kayıt dosyası yapma gazialp43 1 1.841 10/03/2014, 03:20
Son Yorum: omerdd

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444