[ yt1nvs @ 04.02.2012. 18:55 ] @
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. |