Главная страница  Справочная по Бейсику

Как сделать секундомер?

Private Sub Form_Load()
Text1.Text = "0"
Text1.Locked = True
'1000 = 1 секунде
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

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

Нужно на форме разместить таймер и Textbox.


Для Поисковиков:
Исходники на Бейсике;
Программа на Бейсике;
Секундомер;
Сделать секундомер;
Хостинг от uCoz