<?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; Разное</title>
	<atom:link href="http://www.vbfaq.ru/category/other/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/2011/02/opredelit-den-nedeli/</link>
		<comments>http://www.vbfaq.ru/2011/02/opredelit-den-nedeli/#comments</comments>
		<pubDate>Fri, 25 Feb 2011 04:37:28 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[день]]></category>
		<category><![CDATA[неделя]]></category>
		<category><![CDATA[определить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=471</guid>
		<description><![CDATA[Определить день недели Private Sub Command1_Click() Dim b As Integer Dim otvet As String b = Text1.Text Select Case Combo1.ListIndex Case 0 b = (b - 1) Mod 7 otvet = Combo1.List(b) MsgBox otvet Case 1 b = (b - 0) Mod 7 otvet = Combo1.List(b) MsgBox otvet Case 2 b = (b + 1) [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/02/opredelit-den-nedeli/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как реализовать перебор всех возможных комбинаций лотереи</title>
		<link>http://www.vbfaq.ru/2011/02/kombinacij-loterei/</link>
		<comments>http://www.vbfaq.ru/2011/02/kombinacij-loterei/#comments</comments>
		<pubDate>Fri, 25 Feb 2011 04:25:02 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[комбинации]]></category>
		<category><![CDATA[лотерея]]></category>
		<category><![CDATA[перебор]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=451</guid>
		<description><![CDATA[Как реализовать перебор всех возможных комбинаций лотереи Option Explicit Dim a() As String, m As Integer Sub Loto(ByVal i As Integer, ByVal n As Integer) For i = i + 1 To m - n + 1 a(n) = i If n > 1 Then Loto i, n - 1 Else Debug.Print Join(a) End If [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/02/kombinacij-loterei/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как использовать цикл</title>
		<link>http://www.vbfaq.ru/2011/02/kak-ispolzovat-cikl/</link>
		<comments>http://www.vbfaq.ru/2011/02/kak-ispolzovat-cikl/#comments</comments>
		<pubDate>Fri, 25 Feb 2011 04:23:49 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[цикл]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=449</guid>
		<description><![CDATA[Как использовать цикл strText="" for i=1 to 4 step 1 strText=strText &#038; "Спасибо " next i msgbox strText]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/02/kak-ispolzovat-cikl/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Средствами VB получить тактовую частоту процессора</title>
		<link>http://www.vbfaq.ru/2011/01/poluchit-taktovuyu-chastotu-processora/</link>
		<comments>http://www.vbfaq.ru/2011/01/poluchit-taktovuyu-chastotu-processora/#comments</comments>
		<pubDate>Sat, 15 Jan 2011 07:42:41 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[wmi]]></category>
		<category><![CDATA[процессор]]></category>
		<category><![CDATA[частота]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=435</guid>
		<description><![CDATA[Средствами VB получить тактовую частоту процессора Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim txt$, FN% Private Sub Form_Load() FN = FreeFile Open "1.bat" For Output As #FN Print #FN, "wmic cpu get MaxClockSpeed >cpu.txt" &#038; vbCrLf &#038; "del 1.bat" Close #FN Shell "1.bat" Sleep 1000 Open "cpu.txt" For Input As #FN [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/01/poluchit-taktovuyu-chastotu-processora/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Если рядом равные элементы, то вставить между ними ноль</title>
		<link>http://www.vbfaq.ru/2009/12/esli-ryadom-ravnye-elementy-to-vstavit-mezhdu-nimi-nol/</link>
		<comments>http://www.vbfaq.ru/2009/12/esli-ryadom-ravnye-elementy-to-vstavit-mezhdu-nimi-nol/#comments</comments>
		<pubDate>Fri, 11 Dec 2009 04:00:48 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[вставить]]></category>
		<category><![CDATA[ноль]]></category>
		<category><![CDATA[элементы]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=362</guid>
		<description><![CDATA[Если рядом равные элементы, то вставить между ними ноль Public Sub Label1_Click() Form1.Cls Dim n As Byte n = Combo1.Text ReDim a(1 To n) As Integer Print "array A(n):" For i = 1 To n a(i) = Rnd * 10 - 5 Form1.Print "a("; i; ")="; a(i) Next i Dim b() As Integer s = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/12/esli-ryadom-ravnye-elementy-to-vstavit-mezhdu-nimi-nol/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Вычислить сумму кодов всех символов</title>
		<link>http://www.vbfaq.ru/2009/12/vychislit-summu-kodov-vsex-simvolov/</link>
		<comments>http://www.vbfaq.ru/2009/12/vychislit-summu-kodov-vsex-simvolov/#comments</comments>
		<pubDate>Tue, 08 Dec 2009 04:00:01 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[вычислить]]></category>
		<category><![CDATA[код]]></category>
		<category><![CDATA[символ]]></category>
		<category><![CDATA[сумма]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=356</guid>
		<description><![CDATA[Вычислить сумму кодов всех символов Private Sub Form_Load() Dim sum As Integer, txt As String txt = "Я уже кое-что понимаю в Visual Basic!" For i = 1 To Len(txt) sum = sum + Asc(Mid(txt, i, 1)) Next MsgBox "Сумма кодов символов - " &#038; sum End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/12/vychislit-summu-kodov-vsex-simvolov/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Вывод по очереди месяцев</title>
		<link>http://www.vbfaq.ru/2009/11/vyvod-po-ocheredi-mesyacev-2/</link>
		<comments>http://www.vbfaq.ru/2009/11/vyvod-po-ocheredi-mesyacev-2/#comments</comments>
		<pubDate>Sun, 29 Nov 2009 04:03:45 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[вывод]]></category>
		<category><![CDATA[месяц]]></category>
		<category><![CDATA[очередь]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=338</guid>
		<description><![CDATA[Вывод по очереди месяцев Private Sub Command1_Click() Static i&#038; i&#038; = i&#038; + 1 If i&#038; = 13 Then i&#038; = 1 Text1.Text = MonthName(i&#038;) End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/11/vyvod-po-ocheredi-mesyacev-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Вывод по очереди месяцев</title>
		<link>http://www.vbfaq.ru/2009/11/vyvod-po-ocheredi-mesyacev/</link>
		<comments>http://www.vbfaq.ru/2009/11/vyvod-po-ocheredi-mesyacev/#comments</comments>
		<pubDate>Sat, 28 Nov 2009 04:00:21 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[вывод]]></category>
		<category><![CDATA[месяц]]></category>
		<category><![CDATA[очередь]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=335</guid>
		<description><![CDATA[Вывод по очереди месяцев Option Explicit 'переменные должны объявляться явно Option Base 1 'массивы начинаются с 1 Dim mesyac() As String 'массив, содерж. месяцы Dim a As Integer 'счетчик Private Sub Command1_Click() a = a + 1 'при каждом нажатии а увел. на единицу If a < 12 Then 'по значению а проверяем какой месяц [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/11/vyvod-po-ocheredi-mesyacev/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Ввод произвольной цифры и вывод её названия</title>
		<link>http://www.vbfaq.ru/2009/11/vyvoda-eyo-nazvaniya/</link>
		<comments>http://www.vbfaq.ru/2009/11/vyvoda-eyo-nazvaniya/#comments</comments>
		<pubDate>Mon, 23 Nov 2009 04:00:53 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[ввод]]></category>
		<category><![CDATA[вывод]]></category>
		<category><![CDATA[названия]]></category>
		<category><![CDATA[цифры]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=325</guid>
		<description><![CDATA[Ввод произвольной цифры и вывод её названия. dim digit as String digit = Me.Text1.Text Select Case digit Case is = "0" MsgBox("Ноль") Case is = "1" MsgBox("Один") Case is = "2" MsgBox("Два") Case is = "3" MsgBox("Три") Case is = "4" MsgBox("Четыре") Case is = "5" MsgBox("Пять") Case is = "6" MsgBox("Шесть") Case is = [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/11/vyvoda-eyo-nazvaniya/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Копирование и вставка текста в MSFlexGrid</title>
		<link>http://www.vbfaq.ru/2009/10/kopirovanie-i-vstavka-teksta-v-msflexgrid/</link>
		<comments>http://www.vbfaq.ru/2009/10/kopirovanie-i-vstavka-teksta-v-msflexgrid/#comments</comments>
		<pubDate>Sun, 25 Oct 2009 04:00:02 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[excel]]></category>
		<category><![CDATA[msflexgrid]]></category>
		<category><![CDATA[вставка]]></category>
		<category><![CDATA[копирование]]></category>
		<category><![CDATA[текст]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=255</guid>
		<description><![CDATA[Копирование и вставка текста в MSFlexGrid Sub CopyClipboard() On Error Resume Next Dim xStart As Integer, yStart As Integer Dim xEnd As Integer, yEnd As Integer Dim i As Integer, j As Integer Dim strClipboard As String With Screen.ActiveForm.ActiveControl 'координаты верхнего левого угла диапазона копирования xStart = .Col yStart = .Row 'координаты нижнего правого угла [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/10/kopirovanie-i-vstavka-teksta-v-msflexgrid/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

