Bir Fonksiyonu Sürekli Çalıştırtmak.

[hakanight]

Merhaba arkadaşlar.

Atıyorum ;

func _hakan()

 

 

Endfunc 

diye bir fonksiyon oluşturdum.

O fonksiyonu bir kodla atıyorum 5 saniyede bir çalıştırabilirmiyiz?

Ben bunu bir ara görmüştüm. Fakat unuttum. Ve forumu aradım bulamadım.

Lütfen söylermisiniz?

[reyiz]

While 1 ; Döngü kuralım
	
	Sleep(5000) ; 5 saniye bekleyelim
	
	_hakan()
	
WEnd ; Döngüyü bitirelim

[hakanight]

Teşekkürler.

Fakat bende böyle yapmayı biliyorum :)

Fakat adam mesela bir butona basıcak. Bastıktan sonra 5 saniye beklemek zorunda kalcak.?

@reyiz

Edited August 23, 2013 by hakanight

[reyiz]

Yani hem ilk basıldığında 5 sn. bekledikten sonra fonksiyon çalışacak, hem de fonksiyonu 5 sn.de bir tekrar ettirecek mi? Tekrar sonsuza kadar sürecek mi yoksa durdura basınca tekrar duracak mı?

[hakanight]

sonsuza kadar devam edecek.

Otomatik 5 saniyede bir o fonksiyonu çalıştıracak. ama onun için sleep kullanmıcak.

[SimpsoN_Bart]

Adlibregister kodunu hgelp dosyasindan inceleyin.

[reyiz]

GUICreate("GUI", 300, 150)
GUISetState()

Local $TIMER_1[4] = [TimerInit(), 0, 0, 0], $ileribaslat = 0

Local $click = GUICtrlCreateButton("Tıklayınız!", 20, 30, 150, 40)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = -3
            GUIDelete()
            Exit
        Case $msg = $click
            $ileribaslat = 1
    EndSelect

    If $ileribaslat = 1 Then
        $TIMER_1[1] = Round(TimerDiff($TIMER_1[0]) / 1000)
        If $TIMER_1[1] <> $TIMER_1[2] Then
            $TIMER_1[2] = $TIMER_1[1]
            $TIMER_1[3] += 1

			if StringIsInt($TIMER_1[3] / 5) Then
				; fonksiyon
			EndIf

        EndIf
    EndIf
WEnd

; fonksiyon kısmına tekrar etmesini istediğiniz kodları yazabilirsiniz.

 

Oluşturduğunuz fonksiyonu orada çalıştırmak yerine fonksiyonun kodlarını oraya yazın. Böylece fonksiyon işlenirken programın diğer işlevleri devre dışı kalmaz.

[hakanight]

Reyiz kardeş.

Bende aynı ona benzer bir yol uyguluyodum.

Şu şekil ;

 

$a = 1

 

While 1

 

if $a = 1000 Then

;kod

else

$a = $a + 1

EndIf

 

 

Wend

[hakanight]

Adlibregister kodunu hgelp dosyasindan inceleyin.

saol kardeş. İşte aradağım cevap bu!

[DivaneTR]

Adlibregister ben de çalışmıyor yahu ! Acaba kullandığım Autoit sürümünden dolayı mıdır ?

[asmazh]

Adlibregister ben de çalışmıyor yahu ! Acaba kullandığım Autoit sürümünden dolayı mıdır ?

 

Hangi sürümü kullanıyorsun? Sürümden kaynaklandığını sanmıyorum. Sen göster bakim nasıl yaptığını, niye çalışmadığını anlarız.

[DivaneTR]

Çözdüm sorunu, sanırım Obfuscator ile alakalı.

[blackman12]

Sürümle alakalı olabilir bildiğiniz gibi adlibregister daha önceden adlibenable olarak bulunuyodu autoitte.

[SimpsoN_Bart]

Adlibenable uzun zaman once vardi yahu ben ilk basladigim zamanlarda. Eski autoit surumlerinde uyumsuzluk olabilr

[byhalil011]

peki amsde yapılabiliyormu

[SimpsoN_Bart]

Onu ilgili bolumde somak daha dogrj olur