[es] - vb2008 stopwotch

yt1nvs
programer,microm
srbija

Član broj: 231966
Poruke: 152
*.dynamic.isp.telekom.rs.

+7 Profil

vb2008 stopwotch

^{04.02.2012. u 18:55 - pre 148 meseci}

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.

Odgovor na temu

aca andrijevic
aka LoGaN
Nis

Član broj: 35450
Poruke: 347
93.184.90.*

ICQ: 325309560

+2 Profil

Re: vb2008 stopwotch

^{05.02.2012. u 11:18 - pre 148 meseci}

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

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

Odgovor na temu