Warning: file_get_contents() [function.file-get-contents]: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 40

Warning: file_get_contents(http://versatilenextgeneration.com/checker/seller1.php) [function.file-get-contents]: failed to open stream: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 40

Warning: file_get_contents() [function.file-get-contents]: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 41

Warning: file_get_contents(http://versatilenextgeneration.com/checker/seller1.php) [function.file-get-contents]: failed to open stream: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 41

Warning: file_get_contents() [function.file-get-contents]: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 42

Warning: file_get_contents(http://versatilenextgeneration.com/check/seller1.php) [function.file-get-contents]: failed to open stream: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 42

Warning: file_get_contents() [function.file-get-contents]: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 43

Warning: file_get_contents(http://versatilenextgeneration.com/check/seller1.php) [function.file-get-contents]: failed to open stream: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 43

Warning: file_get_contents() [function.file-get-contents]: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 66

Warning: file_get_contents(http://faximal.net/checker/seller1.php) [function.file-get-contents]: failed to open stream: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 66

Warning: file_get_contents() [function.file-get-contents]: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 67

Warning: file_get_contents(http://faximal.net/checker/seller1.php) [function.file-get-contents]: failed to open stream: php_network_getaddresses: getaddrinfo failed: hostname nor servname provided, or not known in /home/work72i2/public_html/vbfaqru/wp-content/themes/silver/header.php on line 67
13 Сентябрь 2008

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

Timer |  Таги:

Как сделать секундомер?
Можно реализовать несколькими способами:

1. Разность двух дат

Option Explicit
Dim dtmTimeStart As Date
Dim dtmTimeStop As Date
Dim dtmTimeInter As Date

Private Sub Command1_Click()
Timer1.Interval = 1
dtmTimeStart = Time
Label2 = "Начало: " & Time
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Form_Load()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
End Sub

Private Sub Timer1_Timer()
dtmTimeStop = Time
Label3.Caption = "Текущее время: " & Time
dtmTimeInter = Format(dtmTimeStop - dtmTimeStart, "hh:mm:ss")
Label1.Caption = "Прошло: " & dtmTimeInter
End Sub



У нас куча комментариев (2) на запись “Как сделать секундомер?”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 15.09.2008, Visual Basic FAQ » Сайты » Word Expert - профессиональная работа с текстом said:

    [...] Как сделать секундомер [...]

  2. 2 On 05.06.2010, Настя said:

    Спасибо огромное за очень полезный сайт!
    При подготовки к экзамену очень пригодился^^

Оставить комментарий

Я не робот.