18.02.2010, 00:11 | #1 (permalink) |
Member
Регистрация: 12.10.2009
Сообщений: 46
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Таймер на VB
Код : Option Explicit Private Sub Form_Load() Form1.AutoRedraw = True Form1.BorderStyle = 3 Form1.Caption = "Timer" Command1.Caption = "Start" Label1.BorderStyle = 1 Label2.BorderStyle = 1 Label3.BorderStyle = 1 Label1.Caption = "00" Label2.Caption = "00" Label3.Caption = "00" Label1.Alignment = 2 Label2.Alignment = 2 Label3.Alignment = 2 Label1.FontSize = 32 Label2.FontSize = 32 Label3.FontSize = 32 Timer1.Interval = 10 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Label3.Caption = Label3.Caption + 1 If Label3.Caption > 99 Then Label3.Caption = "0" Label2.Caption = Label2.Caption + 1 End If If Label2.Caption > 59 Then Label2.Caption = "0" Label1.Caption = Label1.Caption + 1 End If If Label1.Caption > 59 Then Label1.Caption = "0" End If End Sub Private Sub Command1_Click() Timer1.Enabled = True Command1.Caption = "Stop" End Sub Заранее благодарен. |
18.02.2010, 00:11 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Где то я это уже видел Циклический таймер Таймер для отключения электромотора Четырёхчасовой таймер Таймер Таймер на С++ |
27.04.2010, 07:12 | #3 (permalink) |
Новичок
Регистрация: 26.04.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
На дату не посмотрел
Думаю тебе уже давно это не надо... |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|