buda guzelde ben gecenlerde biyerde gördüm timer/1 gibi birsey yapiyorlar timer ucuyor bilgin varsa yazarmisn

Yüzel paylaşım ama For i = 0 To 1000000 text1. text = i dediğin zaman döngünün hiçbir özelliği kalmıyor DoEvents Next

flood mi yapacaksiniz yada bir dizi icinde mi arayacaksaniz? onemi yok cunku tum prof yazilimcilar bu yontemi kullanir... aradaki farki goreceksiniz... 3 tane command button atin ve codu copy paste yapin 1000000 luk dongu kac milisanie ile hangi yontemle oluyor ve hangisi iyi siz kendiniz karar verin:d Private Declare Function GetTickCount Lib "kernel32" As Long Private Declare Function GetInputState Lib "user32" As Long Private Const QS_HOTKEY = &H80 Private Const QS_KEY = &H1 Private Const QS_MOUSEBUTTON = &H4 Private Const QS_MOUSEMOVE = &H2 Private Const QS_PAINT = &H20 Private Const QS_POSTMESSAGE = &H8 Private Const QS_SENDMESSAGE = &H40 Private Const QS_TIMER = &H10 Private Const QS_ALLPOSTMESSAGE = &H100 Private Const QS_MOUSE = Private Const QS_INPUT = Private Const QS_ALLEVENTS = Private Const QS_ALLINPUT = Private Declare Function GetQueueStatus Lib "user32" As Long Sub DoEventsW If GetInputState Then DoEvents End Sub Sub DoEventsA If GetQueueStatus Then DoEvents End Sub Private Sub Command1_Click Dim m As Long Dim i As Long m = GetTickCount For i = 0 To 1000000 DoEventsW Next Command1. Caption = CStr & "ms" End Sub Private Sub Command2_Click Dim m As Long Dim i As Long m = GetTickCount For i = 0 To 1000000 DoEvents Next Command2. Caption = CStr & "ms" End Sub Private Sub Command3_Click Dim m As Long Dim i As Long m = GetTickCount For i = 0 To 1000000 DoEventsA Next Command3. Caption = CStr & "ms" End Sub belki kisa ve oz bir paylasim olabilir ama cok yararli bir paylasim olduguna inaniyorum en azindan programciliktan anlayanlar icin kolay gelsin...

Bu süper çok işime yarıyacak

eger timerin interval inden soz ediyorsan onu 1 yapmak demek 1 ms de bir timerin aktif olmasi demektir tabiki buda cok hizli o timer icinde olan olaylarin olmasina neden olmaktadir...

Dostum var ya harbiden şu kodları nereden bulup getiriyorsun Güzel paylaşımlar

Benim bildiğim =>Timer Değerinin az olması PC de kasma yaratabilir..