<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Visual Basic FAQ &#187; Timer</title>
	<atom:link href="http://www.vbfaq.ru/category/timer/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.vbfaq.ru</link>
	<description>База готовых кодов на Visual Basic - бесплатно, бери и используй. Научимся программировать для себя, ведь писать программы - это просто интересно. Авторы: BiT, МП41А, Chan и Desant</description>
	<lastBuildDate>Wed, 21 Sep 2011 12:01:28 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3</generator>
		<item>
		<title>Передвигаем фигуру по форме</title>
		<link>http://www.vbfaq.ru/2009/01/peredvigaem-figuru-po-forme/</link>
		<comments>http://www.vbfaq.ru/2009/01/peredvigaem-figuru-po-forme/#comments</comments>
		<pubDate>Thu, 01 Jan 2009 07:00:21 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Timer]]></category>
		<category><![CDATA[передвигаем]]></category>
		<category><![CDATA[фигура]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=137</guid>
		<description><![CDATA[Передвигаем фигуру по форме Двигаем фигуру по форме, до края и возвращаем в начало координат, получаем цикличность – как бы бег по кругу. Option Explicit Const h As Integer = 50 Dim x As Integer, y As Integer Private Sub Command1_Click() x = Shape1.Left + h: y = Shape1.Top + h Timer1.Enabled = True End [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/peredvigaem-figuru-po-forme/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>Чертим линию от края до края формы</title>
		<link>http://www.vbfaq.ru/2008/12/chertim-liniyu-ot-kraya-do-kraya-formy/</link>
		<comments>http://www.vbfaq.ru/2008/12/chertim-liniyu-ot-kraya-do-kraya-formy/#comments</comments>
		<pubDate>Mon, 15 Dec 2008 17:00:39 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Timer]]></category>
		<category><![CDATA[линия]]></category>
		<category><![CDATA[форма]]></category>
		<category><![CDATA[чертим]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=136</guid>
		<description><![CDATA[Чертим линию от края до края формы Допустим Вам будет необходимо рисовать прямую линию на форме с определенным интервалом добавляя следующий штрих через время. Выставляем интервал от 10 до 100, чем больше тем медленнее рисует. Option Explicit Private Sub Command1_Click() CurrentX = 0: CurrentY = 500 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Line [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/chertim-liniyu-ot-kraya-do-kraya-formy/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как сделать задержку в программе?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-sdelat-zaderzhku-v-programme/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-sdelat-zaderzhku-v-programme/#comments</comments>
		<pubDate>Sun, 14 Dec 2008 04:00:07 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Timer]]></category>
		<category><![CDATA[задержка]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=115</guid>
		<description><![CDATA[Как сделать задержку в программе? Используем оператор DoEvents. В данном примере задержка составляет 5 секунд, что можно легко изменить. Для наглядности задержки, изменяем изображение курсора, с обычного на песочные часы. Задайте переменной intDelay значение нужной задержки, только не забывайте о типе переменной, чтобы не возникла ошибка переполнения. Option Explicit Private Sub Command1_Click() Dim intSecond As [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-sdelat-zaderzhku-v-programme/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Задержка с возможностью задачи времени.</title>
		<link>http://www.vbfaq.ru/2008/10/zaderzhka-s-vozmozhnostyu-zadachi-vremeni/</link>
		<comments>http://www.vbfaq.ru/2008/10/zaderzhka-s-vozmozhnostyu-zadachi-vremeni/#comments</comments>
		<pubDate>Thu, 23 Oct 2008 05:00:41 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Timer]]></category>
		<category><![CDATA[время]]></category>
		<category><![CDATA[задержка]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=53</guid>
		<description><![CDATA[Задержка с возможностью задачи времени. 'Форма появиться на экране по истечению заданного Вами промежутка Option Explicit Dim strSecond As String Private Sub Form_Load() strSecond = InputBox _ ("Введите число, лучше поменьше", _ "Введите количество секунд для задания задержки") If IsNumeric(strSecond) Then Call Delay(strSecond) Else Call Error End If End Sub Private Sub Delay(strSecond) Dim lngNow [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/10/zaderzhka-s-vozmozhnostyu-zadachi-vremeni/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как сделать секундомер?</title>
		<link>http://www.vbfaq.ru/2008/09/kak-sdelat-sekundomer/</link>
		<comments>http://www.vbfaq.ru/2008/09/kak-sdelat-sekundomer/#comments</comments>
		<pubDate>Sun, 14 Sep 2008 04:13:45 +0000</pubDate>
		<dc:creator>desant</dc:creator>
				<category><![CDATA[Timer]]></category>
		<category><![CDATA[секундомер]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=41</guid>
		<description><![CDATA[Как сделать секундомер? Можно реализовать несколькими способами: 2. Вариант с таймером Option Explicit Dim strsecond As String Dim strminute As String Dim strhour As String Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() strsecond = "00" strminute = "00" strhour = "00" Metka End Sub Private Sub Command3_Click() Timer1.Enabled = False End [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/09/kak-sdelat-sekundomer/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как сделать секундомер?</title>
		<link>http://www.vbfaq.ru/2008/09/kak-sdelat-sekundomer-2/</link>
		<comments>http://www.vbfaq.ru/2008/09/kak-sdelat-sekundomer-2/#comments</comments>
		<pubDate>Sat, 13 Sep 2008 04:06:25 +0000</pubDate>
		<dc:creator>desant</dc:creator>
				<category><![CDATA[Timer]]></category>
		<category><![CDATA[секундомер]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=42</guid>
		<description><![CDATA[Как сделать секундомер? Можно реализовать несколькими способами: 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 = "Начало: " &#038; Time End Sub Private Sub Command2_Click() Timer1.Interval = 0 End Sub Private Sub Form_Load() Label1.Caption = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/09/kak-sdelat-sekundomer-2/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>Как сделать светофор с помощью таймера?</title>
		<link>http://www.vbfaq.ru/2008/09/kak-sdelat-svetofor-s-pomoshhyu-tajmera/</link>
		<comments>http://www.vbfaq.ru/2008/09/kak-sdelat-svetofor-s-pomoshhyu-tajmera/#comments</comments>
		<pubDate>Fri, 12 Sep 2008 04:54:14 +0000</pubDate>
		<dc:creator>desant</dc:creator>
				<category><![CDATA[Timer]]></category>
		<category><![CDATA[изображения]]></category>
		<category><![CDATA[картинка]]></category>
		<category><![CDATA[светофор]]></category>
		<category><![CDATA[таймера]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=43</guid>
		<description><![CDATA[Как сделать светофор с помощью таймера? Просто, только нам понадобятся 2 картинки, соответствующие красному и зеленому цвету светофора. Их можно найти в одном из каталогов Visual Studio. Загрузите изображения в 2 Image и расположите, один Image точно над другим. Option Explicit Private Sub Form_Load() Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() If Image1.Visible = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/09/kak-sdelat-svetofor-s-pomoshhyu-tajmera/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>Как написать таймер обратного отсчета?</title>
		<link>http://www.vbfaq.ru/2008/09/kak-napisat-tajmer-obratnogo-otscheta/</link>
		<comments>http://www.vbfaq.ru/2008/09/kak-napisat-tajmer-obratnogo-otscheta/#comments</comments>
		<pubDate>Tue, 09 Sep 2008 14:00:40 +0000</pubDate>
		<dc:creator>desant</dc:creator>
				<category><![CDATA[Timer]]></category>
		<category><![CDATA[кнопка]]></category>
		<category><![CDATA[отсчет]]></category>
		<category><![CDATA[таймер]]></category>
		<category><![CDATA[число]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=22</guid>
		<description><![CDATA[Как написать таймер обратного отсчета? Вводим число, жмем батон, на метке видим отсчет секунд. Option Explicit Dim lngCount As Long 'Чтобы не было ошибок, вводим число не больше 547 'Количество минут до выключения программы Private Sub Command1_Click() Text1.Enabled = False Timer1.Interval = 1000 Command1.Enabled = False 'Text1.Text = Text1.Text End Sub Private Sub Form_Load() Text1.Text [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/09/kak-napisat-tajmer-obratnogo-otscheta/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
	</channel>
</rss>

