vb2008 stopwotch

vb2008 stopwotch 04.02.2012. u 19:55 · pre 179 meseci #1

Pokusao sam da napravim stopericu u VB2008 gledajuci neki primer na YouTube,moj prg. je slican i jednostavniji (za probu nego taj klip ali to nece da radi.

Code:
Public Class Form1
    Private stopwatch As New Stopwatch
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
        Me.stopwatch.Stop()
        Label1.Text = "00:00:00:000"
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim elapsed As TimeSpan = Me.stopwatch.Elapsed
        Label1.Text = String.Format("(0:00):(1:00):(2:00):(3:000)", _
                                   Math.Floor(elapsed.TotalHours), _
                                   elapsed.Minutes, _
                                   elapsed.Seconds, _
                                   elapsed.Milliseconds)
    End Sub
End Class

na formu sam dodao button1 i button2 label1 kao i timer1

kad pokrenem aplikaciju button 1 i 2 rade ali se ne desava rad stoperice.VB ne prijavjuje nikakvu gresku.

Re: vb2008 stopwotch 05.02.2012. u 12:18 · pre 179 meseci #2

Zameni samo zagrade za formatiranje () sa drugim zagradama {}

Code (vbnet):

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim elapsed As TimeSpan = Me.stopwatch.Elapsed

        Label1.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:000}", _

                                   Math.Floor(elapsed.TotalHours), _

                                   elapsed.Minutes, _

                                   elapsed.Seconds, _

                                   elapsed.Milliseconds)

End Sub

Potpis

"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic

Re: vb2008 stopwotch 05.02.2012. u 17:06 · pre 179 meseci #3

HVALA DRUZE!!!

inace sam pocetnik u VB

Forum kao aplikacija na telefonu

Srodne teme