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..
Bilgi Paylaşıldıkça Artar...!
- antepli
- Uzman Üye
- Offline
- antepli
- Uzman Üye
- Offline
Re: time out kullanımı
pardon READ CYCLE MODAL;
TIMEOUT 100
Bilgi Paylaşıldıkça Artar...!
- metin
- Uzman Üye
- Offline
Re: time out kullanımı
timer koy. süresini ayarla. içine de thisform.release yaz.
Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com
www.metinemre.com
- antepli
- Uzman Üye
- Offline
Re: time out kullanımı
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
Bilgi Paylaşıldıkça Artar...!
5 06.11.2007 15:26:53 Son düzenleyen, metin (06.11.2007 16:21:44)
- metin
- Uzman Üye
- Offline
Re: time out kullanımı
formun keypress event'ına:
thisform.mytimer.reset
yaz.
Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com
www.metinemre.com
- cetinbasoz
- Uzman Üye
- Offline
Re: time out kullanımı
Visual Fox Pro
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