Textboxtaki sayıyı +1 artırma

ARTHUR48 · 28 Eki 2019

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)

Kod:

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 · 28 Eki 2019

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

tarAFSIZ · 28 Eki 2019

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

TeknoHayduT · 28 Eki 2019

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

Post automatically merged: 28 Eki 2019

eğer öyle diyorsan

Kod:

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 · 28 Eki 2019

TeknoHayduT' Alıntı:
mesela 1 değilde basılı tutunca 1000+1000 mi diyorsun ?

Post automatically merged: 28 Eki 2019

eğer öyle diyorsan

Kod:

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 · 28 Eki 2019

Ş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 · 29 Eki 2019

UunknowTR' Alıntı:
Ş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 · 29 Eki 2019

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 · 29 Eki 2019

EasyyHax' Alıntı:
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 · 29 Eki 2019

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 · 30 Eki 2019

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 · 16 Kas 2019

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 · 6 Şub 2020

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

nevocan35 · 25 Şub 2020

eyw kanka sagol

abdoghyad · 26 Şub 2020

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

fufuker1 · 2 Mar 2020

Intervali 1 yap?

kral2647 · 3 Mar 2020

Bencede Knk artmaliyiz

xelladze22 · 19 Mar 2020

everything seems fine for me :/

ahmed00hacker · 21 Nis 2020

everything seems good for me

Textboxtaki sayıyı +1 artırma

ARTHUR48

hamiaslantas

tarAFSIZ

TeknoHayduT

Dedektif Mithra

ARTHUR48

ShouldIDie

I Still Know Kung Fu

ARTHUR48

EasyyHax

ARTHUR48

Muhammet Akkus

Cromeflex

Tutti mi chiedono perché ho imparato questa lingua

seukaiwokeo

mowen1

nevocan35

abdoghyad

fufuker1

kral2647

xelladze22

ahmed00hacker

Benzer Konular

Textboxtaki sayıyı +1 artırma

Dedektif Mithra

I Still Know Kung Fu

Tutti mi chiedono perché ho imparato questa lingua

Benzer Konular

Privacy & Transparency

Privacy & Transparency