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
