Skip to main content

AccessTr.neT


Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek

Form Verilerinde Değişiklik Olup Olmadığını Kontrol Etmek

#25
Burada amaç kullanıcı bilgisayar başında mı yoksa bırakıp gitmiş mi yani herhangi bir hayat belirtisi arıyoruz 
mouse hareketi tıklama aktif control değişikliği value değişikliği her ne ise 
Bilgisayar başında mı değil mi. 
30 sn sonra tekrar baktığında bunlardan herhangi birinin değişmiş olması yeterli
Cevapla
#26
Şöyle yapılabilir.60 saniye başladığında bir değişkene yada tabloya controladı formadı control değeri aktarılır.Donra if süre =30 then gibi koşul eklenir.Kafam karıştı iyice abey.Acayip acayip sorular Img-grin
Normalde problem şu eğer bir zat-ı muhterem bilgisyarar başındayken birşeye tıklamazsa ve maus ile sağa sola hareket ettirirse nesnelerle uğraşmadan bu durumda süre devamlı çalışırı o zaman nasıl olacak.Yani maus hareket etmesiylede süre durdurulmalı.Onuda bilmiyorum.Galiba başka yerde benzer bir dosya hatırlıyorum.Dediğimi anladınuz umarım yani maus eğer textboxa tıklanmazsa yada comboya ve adam mausu sadece oynatırsa süre durmaz buna çmzüm olmalı.

Çözebilirsem yazarım.
Cevapla
#27
sanırım çözeceğim Img-grin
Cevapla
#28
Senden kaçmaz
Cevapla
#29
Üstadım alttaki kodla hallettim.Private Sub Ayrýntý_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) burda işin çözümümüş bende hep formMove ile uğraşıyordum.

Gereksiz kodları sildim.

Mantık şu eğer form üzerinde en ufak bir maus hareketinde süre 60 dan başlar hiç oynamazsa maus o zaman sıfıra kadar geri geri saım başlar.Eğer 30 a gelince orda ister  email kodları eklersiniz isterseniz mesaj kodları.

Bilmiyorum doğru oldumu.

txtSay bu textboxu silebilirsinizde onu sürei görün diye ekelmiştim.



Option Compare Database

Const sure As Long = 60 '1 dakika
Const saniye As Long = 1000 'saniye cinsi

Dim say As Byte

Private Sub Ayrýntý_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    say = 1
End Sub

Private Sub Form_Load()
    TimerInterval = saniye
End Sub

Private Sub Form_Timer()

    Static ExpiredTime
    Dim ExpiredMinutes
   
    On Error Resume Next
 
    If say = 1 Then
        ExpiredTime = 0
        say = 0
    Else
        ExpiredTime = ExpiredTime + Me.TimerInterval
    End If

    ExpiredMinutes = (ExpiredTime / saniye)
    Me.txtSay.Value = sure - ExpiredMinutes
   
    If sure - ExpiredMinutes = 30 Then
        Beep
'        MsgBox "uyuma calis...", vbInformation, "calisss"
        'msgbox yerine emailde yollandirilabilir
'        ExpiredTime = 0
    End If
   
    If sure - ExpiredMinutes <= 0 Then
          Beep
          MsgBox "uyuma calis...", vbInformation, "calisss"
          'Msgbox yerine dosya kapatma kodu eklenebilir.
          ExpiredTime = 0
    End If
 
End Sub
.rar Belirli süre sonra mesaj yada kapanma son.rar (Dosya Boyutu: 31,64 KB | İndirme Sayısı: 1)
Cevapla
#30
sn. @feraz son halini ekliyorum değişen neler var
kod çalışmasında sıkıntı olması endişesini bertaraf etmek için
sadece 10 sn de bir çalışacak veya ne kadar aralıklarla isterseniz (interva1 =10.000)

mouse 10 sn önceki yerde mi diye bakacak
aktif form veya aktif control veya aktif control value si değişmiş mi
eğer bunlardan biri değişmisse hala bilgisayar başında olduğunuzu düşünüp paniğe kapılmayacak
yok bunlar on saniye öncekinden farklı değilse mesaj verecek veya ne isterseniz onu yapacak
.rar Belirli süre sonra mesaj yada kapanma_acc.rar (Dosya Boyutu: 63,26 KB | İndirme Sayısı: 1)
@benbendedeilem
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task