Konu: time out kullanımı
arkadaşlar Fpw26 da read cycle timaut 10 ile zaman kontrolü yapa biliyorduk form da bu işlemi nasıl yaparız..
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
arkadaşlar Fpw26 da read cycle timaut 10 ile zaman kontrolü yapa biliyorduk form da bu işlemi nasıl yaparız..
pardon READ CYCLE MODAL;
TIMEOUT 100
timer koy. süresini ayarla. içine de thisform.release yaz.
metin hocam TIMEOUT klavye veya mouse kullanmadıgın zaman devreye giriyor yani hiç işlem yapmadıgın zaman formu kapatmak gibi timerda süre belli işlem yapsanda yapmasanda kapatır
ama TIMEOUT hiç veri girişi veya kullanım olmayınca başlıyor ve kullanılırsa kendini tekrar sıfırlıyor
onun için TIMEOUT kullanmak istiyorum
formun keypress event'ına:
thisform.mytimer.reset
yaz.
o = Createobject("modalform")
o.Show()
Define Class modalform As Form
WindowType = 1
Caption = "5 Saniye timeout"
Add Object btnExit As CommandButton With Caption = "Kapat"
Add Object timerOut As Timer With Interval = 5000
Procedure Init
#Define WM_NCMOUSEMOVE 0x00A0
#Define WM_KEYDOWN 0x0100
#Define WM_SYSKEYDOWN 0x0104
#Define WM_MOUSEMOVE 0x0200
Declare short GetCursorPos In win32api String @ lpPoint
lpPoint = Space(8)
GetCursorPos(@lpPoint)
AddProperty(This.timerOut,'ptLastPoint',lpPoint)
Bindevent(This.HWnd,WM_KEYDOWN,This,'ResetTimer',4)
Bindevent(This.HWnd,WM_SYSKEYDOWN,This,'ResetTimer',4)
*BINDEVENT(this.HWnd,WM_NCMOUSEMOVE,this,'ResetTimer',4)
*BINDEVENT(this.HWnd,WM_MOUSEMOVE,this,'ResetTimer',4)
Endproc
Procedure ResetTimer
Lparameters HWnd As Integer, Msg As Integer, wParam As Integer, Lparam As Integer
Thisform.timerOut.Reset()
Endproc
Procedure timerOut.Timer
lpPoint = Space(8)
If ( GetCursorPos(@lpPoint)#0 And lpPoint # This.ptLastPoint )
This.ptLastPoint = lpPoint && Save new pos
This.Reset()
Return
Endif
Thisform.Release()
Endproc
Procedure btnExit.Click
Thisform.Release
Endproc
Enddefine