Textboxtaki sayıyı +1 artırma

[ARTHUR48]

Selamunaleyküm.
arkadaşlar aşağıdaki gibi bir kodlama yaptım, seçtiğim tuşa bastıkça textboxtaki sayı 1 artıyor. artırma hızını nasıl hızlandırabilirim. (1 yerine 1000 yada 10000 vs. yazmadan)

Dim sayi As Integer 

    Private Sub Timer134_Tick(sender As System.Object, e As System.EventArgs) Handles Timer134.Tick
        On Error Resume Next
        If GetAsyncKeyState(Keys.Up) Then
            Int(sayi = Convert.ToInt32(TextBox6.Text))
            sayi += 1
            TextBox6.Text = sayi.ToString()

        End If
    End Sub

 

[hamiaslantas]

Int değerini değiştirip textboxdaki sayıyı kaç katlamak istiyorsan çarpma yaptırabilirsin. Olabilir diye düşünüyorum.

 

[tarAFSIZ]

intervalı arthur
delay uzayınca 30ms gibi çarparak ilerle

 

[TeknoHayduT]

mesela 1 değilde basılı tutunca 1000+1000 mi diyorsun ?

Post automatically merged: 28 Eki 2019

eğer öyle diyorsan

Dim sayi As Integer

    Private Sub Timer134_Tick(sender As System.Object, e As System.EventArgs) Handles Timer134.Tick
        On Error Resume Next
        If GetAsyncKeyState(Keys.Up) Then
            Int(sayi = Convert.ToInt32(TextBox6.Text))
            sayi += 1000
            TextBox6.Text = sayi.ToString()

        End If
    End Sub

her bastığında 1000 artar

 

[ARTHUR48]

mesela 1 değilde basılı tutunca 1000+1000 mi diyorsun ?

Post automatically merged: 28 Eki 2019

eğer öyle diyorsan

Dim sayi As Integer

    Private Sub Timer134_Tick(sender As System.Object, e As System.EventArgs) Handles Timer134.Tick
        On Error Resume Next
        If GetAsyncKeyState(Keys.Up) Then
            Int(sayi = Convert.ToInt32(TextBox6.Text))
            sayi += 1000
            TextBox6.Text = sayi.ToString()

        End If
    End Sub

her bastığında 1000 artar

(1 yerine 1000 yada 10000 vs. yazmadan) demiştim ama. mesela tuşa basılı tuttuğumda saniyede 2 kez ekleme yapıyor diyelim. ven bunu saniyede 100 çıkarmak istiyorum. hız artacak sadece. 1 sabit

 

[ShouldIDie]

Şimdi bu C# değil ancak C# mantığı ile yürürsem İf eventinin içine Invertal'ı = 100 olan (kendine göre ayarla) bir timer eklersen ve bu timer içine sayı artışını eklersen yapabilirsin diye düşünüyorum aklına yatıyor ise örnek source oluşturup paylaşabilirim.

 

[ARTHUR48]

Şimdi bu C# değil ancak C# mantığı ile yürürsem İf eventinin içine Invertal'ı = 100 olan (kendine göre ayarla) bir timer eklersen ve bu timer içine sayı artışını eklersen yapabilirsin diye düşünüyorum aklına yatıyor ise örnek source oluşturup paylaşabilirim.

ok vb dilinde bir örnek yaparsan denerim. sağol

 

[EasyyHax]

Button ekle şunu yaz
If timer1.enabled = true then 'timer1 aktif ise yapılacaklar
timer1.enabled = false 'timer1 i durdur
Else 'başarısız olursa yapılacaklar
timer1.enabled = true 'timer1 i aktif et
Timer ekle şunu yaz
label1.text = val(label1.text) +1 ' sürekli bir bir artacaktır

 

[ARTHUR48]

Button ekle şunu yaz
If timer1.enabled = true then 'timer1 aktif ise yapılacaklar
timer1.enabled = false 'timer1 i durdur
Else 'başarısız olursa yapılacaklar
timer1.enabled = true 'timer1 i aktif et
Timer ekle şunu yaz
label1.text = val(label1.text) +1 ' sürekli bir bir artacaktır

buna benzer bir kod hatırladım evet , deniyim sağol

 

[Muhammet Akkus]

Dim sayi As Integer

Private Sub Timer134_Tick(sender As System.Object, e As System.EventArgs) Handles Timer134.Tick
On Error Resume Next
If GetAsyncKeyState(Keys.Up) Then
Int(sayi = Convert.ToInt32(TextBox6.Text))
sayi += 1000 '1000 yazan yere istediğin sayı
TextBox6.Text = sayi.ToString()

End If
End Sub

'vb'den bi b*k anlamıyom XD

 

[Cromeflex]

Eğer textboxtaki sayıyı arttıran kodu timera bağladıysan timerin intervali ne kadarsa o kadar hızlı yapar basılı tutarken timer 1 çalışacaksa timerin intervalini 1 yap dene

 

[seukaiwokeo]

Timer içinde yapma thread oluştur while döngüsüne sok alabileceğin maksimum hızı o şekilde alırsın gerisi işlemci saatine göre değişir.

 

[mowen1]

adamın kafası daha cok karısacak herkes farklı bir şey yazmıs

 

[nevocan35]

eyw kanka sagol

 

[abdoghyad]

Yukarıda cevap verdikten sonra cevap veremiyorum, bu doğru

 

[fufuker1]

Intervali 1 yap?

 

[kral2647]

Bencede Knk artmaliyiz

 

[xelladze22]

everything seems fine for me :/

 

[ahmed00hacker]

everything seems good for me