Секундомер ?

[W@D'ok]

Как написать свой секундомер, что при нажатии кнопки "Пуск" время пошло как в секундомере, и при нажатии "Стоп" оно остановилось, а при нажатии "обнулить", то сбрасывалось бы время ?
Пожалуйста дайте сразу код программы, а то ну ни как не могу поставить время другое, всегда получается какое на часах которые в трее висят, пожалуйста скажите как написать секундомер ?

[WEB_13]

Не помню точно, кажется надо делать через функцию Timer, а если нужно обнулить, то присваиваются просто элементу управления нули (если используется контрол TextBox).

[GSerg]

На форме Timer1, Text1, Command1.

Код: Выделить всё

Option Explicit

Private mSec As Long

Private Sub Command1_Click()
  Timer1.Enabled = Not Timer1.Enabled
  If Not Timer1.Enabled Then Text1.Text = 0: mSec = 0
End Sub

Private Sub Form_Load()
  Timer1.Interval = 1000
  Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
  mSec = mSec + 1
  Text1.Text = mSec
End Sub

[Sebas]

На форме Timer1, Text1, Command1.

Код: Выделить всё

Option Explicit

Private mSec As Long

Private Sub Command1_Click()
  Timer1.Enabled = Not Timer1.Enabled
  If Not Timer1.Enabled Then Text1.Text = 0: mSec = 0
End Sub

Private Sub Form_Load()
  Timer1.Interval = 1000
  Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
  mSec = mSec + 1
  Text1.Text = mSec
End Sub

ДА..... с таким секундомером только на Черноб. АЭС работать!
Тут погрешность будет сек 3 в минуту

надо через АПи делать...
Таймер ставить гденить на 300 милсек и проверять GetTickCount

[GoGosha]

Три комманд баттона и текст бокс

Код: Выделить всё

Dim Stops As Boolean

Private Sub Command1_Click()
    Dim Time As Single
    Stops = False
   
    Time = Timer - CSng(Text1)
   
    Do
        DoEvents
        Text1.Text = Round(Timer - Time, 2)
       
        If Stops Then Exit Do
    Loop
End Sub

Private Sub Command2_Click()
    Stops = True
End Sub

Private Sub Command3_Click()
    Text1 = "0"
End Sub

Private Sub Form_Load()
    Text1.Text = "0"
    Text1.Locked = True
End Sub