VB.Net Kronometre sayaç yapımı

[Wunlysa]

Merhabalar, işine yarayabilecek biri mutlaka vardır
o yüzden sizinle paylaşmak istedim.
gerekenler; sadece 3 Adet Button, 1 Adet Timer, 1 Adet Textbox

 Dim ms As Integer = 0
    Dim sn As Integer = 0
    Dim dk As Integer = 0

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If MS = 100 Then 'sorun yaşarsan bunu 65 yada 60 yap
            MS = 0
            sn += 1
        End If

        If sn = 60 Then
            sn = 0
            dk += 1
        End If

        Dim deger As String = ""

        If dk < 10 Then
            deger = deger & "0" & dk.ToString() & "."
        Else
            deger = deger & dk.ToString() & "."
        End If

        If sn < 10 Then
            deger = deger & "0" & sn.ToString() & "."
        Else
            deger = deger & sn.ToString() & "."
        End If

        deger = deger & MS.ToString()
        TextBox1.Text = deger
        MS += 1
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

 

[YTMadam]

Yararlı konu fakat 3 adet button gerekiyor + button 2 yani dur butonuna Timer1.Stop() koyulması lazım.

 

[Wunlysa]

Yararlı konu fakat 3 adet button gerekiyor + button 2 yani dur butonuna Timer1.Stop() koyulması lazım.

düzelttim, teşekkür ederim.

 

[zed146146]

Başarılarının devamını dilerim kardeşim Cok güzel olmuş Temayı Logoyu Değiştirirsen Mükemmel Gözükebilir yani arkaplan Resmi falan demek istedim

 

[weexin]

Konu için teşekkürler. Kodun C# halini arayanlar için ekleme;

class Sayac
{
    private int ms = 0;
    private int sn = 0;
    private int dk = 0;

    private void Timer1_Tick(object sender, EventArgs e)
    {
        if (MS == 100)
        {
            MS = 0;
            sn += 1;
        }

        if (sn == 60)
        {
            sn = 0;
            dk += 1;
        }

        string deger = "";

        if (dk < 10)
            deger = deger + "0" + dk.ToString() + ".";
        else
            deger = deger + dk.ToString() + ".";

        if (sn < 10)
            deger = deger + "0" + sn.ToString() + ".";
        else
            deger = deger + sn.ToString() + ".";

        deger = deger + MS.ToString();
        TextBox1.Text = deger;
        MS += 1;
    }

    private void Button1_Click(object sender, EventArgs e)
    {
        Timer1.Start();
    }
}

 

[oktarlasa]

teşekkürler yararlı oldu

 

[kayranveysi3356]

Düzelttim bende teşekkür ettim

 

[RevengeYT]

kullanacaklar için yararlı bir paylaşım

 

[apokan311]

Bende kendime bisikletim için yapmayı düşünüyorum