Correct URLs

1 files changed, 283 insertions, 0 deletions

diff --git a/ru-ru/visualbasic-ru.html.markdown b/ru-ru/visualbasic-ru.html.markdown
new file mode 100644
index 00000000..e9934822
--- /dev/null
+++ b/ru-ru/visualbasic-ru.html.markdown
@@ -0,0 +1,283 @@
+---
+language: Visual Basic
+contributors:
+    - ["Brian Martin", "http://brianmartin.biz"]
+translators:
+    - ["satory-ra", "https://github.com/satory-ra"]
+filename: learnvisualbasic-ru.vb
+lang: ru-ru
+---
+
+```vbnet
+Module Module1
+
+    Sub Main()
+        'Краткий обзор консольных приложений Visual Basic перед более
+        'глубоким изучением.
+        'Апостроф начинает строку комментария.
+        'Чтобы изучить это руководство в компиляторе Visual Basic,
+        'я создал систему навигации.
+        'Эта система будет объяснена при прохождении этого урока.
+        'Постепенно вы всё поймете.
+        Console.Title = ("Выучи Х за Y минут")
+        Console.WriteLine("НАВИГАЦИЯ") 'Display
+        Console.WriteLine("")
+        Console.ForegroundColor = ConsoleColor.Green
+        Console.WriteLine("1. Вывод данных")
+        Console.WriteLine("2. Ввод данных")
+        Console.WriteLine("3. Расчёт целых чисел")
+        Console.WriteLine("4. Расчёт десятичных дробей")
+        Console.WriteLine("5. Калькулятор")
+        Console.WriteLine("6. Использование циклов Do While")
+        Console.WriteLine("7. Использование циклов For")
+        Console.WriteLine("8. Условные выражения")
+        Console.WriteLine("9. Выберите напиток")
+        Console.WriteLine("50. О приложении")
+        Console.WriteLine("Выберите номер из списка")
+        Dim selection As String = Console.ReadLine
+        '«Case» в операторе Select не является обязательным.
+        'Например, "Select selection" вместо "Select Case selection"
+        'также будет работать.
+        Select Case selection
+            Case "1" 'Вывод данных
+                Console.Clear() 'Очищает окно консоли
+                HelloWorldOutput() 'Открывает приватную подпрограмму.
+            Case "2" 'Ввод данных
+                Console.Clear()
+                HelloWorldInput()
+            Case "3" 'Расчёт целых чисел
+                Console.Clear()
+                CalculatingWholeNumbers()
+            Case "4" 'Расчёт десятичных дробей
+                Console.Clear()
+                CalculatingDecimalNumbers()
+            Case "5" 'Калькулятор
+                Console.Clear()
+                WorkingCalculator()
+            Case "6" 'Использование циклов Do While
+                Console.Clear()
+                UsingDoWhileLoops()
+            Case "7" 'Использование циклов For
+                Console.Clear()
+                UsingForLoops()
+            Case "8" 'Условные выражения
+                Console.Clear()
+                ConditionalStatement()
+            Case "9" 'Выражения If/Else
+                Console.Clear()
+                IfElseStatement() 'Выберите напиток
+            Case "50" 'Окно сообщения «О приложении»
+                Console.Clear()
+                Console.Title = ("Выучи Х за Y минут :: О приложении")
+                MsgBox("Это руководство от Брайана Мартина (@BrianMartinn")
+                Console.Clear()
+                Main()
+                Console.ReadLine()
+
+        End Select
+    End Sub
+
+    'Один - Я использую эти цифры для того, чтобы было проще
+    'соотносить код с системой навигации.
+
+    'Мы используем частные подпрограммы для разделения различных
+    'разделов программы.
+    Private Sub HelloWorldOutput()
+        'Название консольного приложения
+        Console.Title = "Вывод данных | Выучи Х за Y минут"
+        'Используйте Console.Write ("") или Console.WriteLine ("")
+        'для отображения результатов.
+        'Затем следует Console.Read () или Console.Readline ()
+        'Console.ReadLine () показывает вывод в консоли.
+        Console.WriteLine("Hello World")
+        Console.ReadLine()
+    End Sub
+
+    'Два
+    Private Sub HelloWorldInput()
+        Console.Title = "Ввод данных | Выучи Х за Y минут"
+        'Переменная
+        'используется для хранения пользовательских данных.
+        'Объявление переменных начинается с Dim и заканчиваются
+        'As VariableType (тип переменной).
+
+        'В этом уроке мы хотим узнать ваше имя и заставить программу 
+        'реагировать на это.
+        Dim username As String
+        'Мы используем тип «string», так как ваше имя - это текстовая переменная.
+        Console.WriteLine("Привет, как тебя зовут? ") 'Просит ввести имя.
+        username = Console.ReadLine() 'Сохраняет имя в переменной username.
+        Console.WriteLine("Пирвет, " + username) 'Выводит: «Привет, 'имя'»
+        Console.ReadLine() 'Отображает вышеуказанный вывод.
+
+        'Вышеуказанная программа спросит ваше имя и скажет вам привет.
+        'Есть и другие типы переменных, такие как целые числа (Integer),
+        'мы используем Integer для обработки целых чисел.
+    End Sub
+
+    'Три
+    Private Sub CalculatingWholeNumbers()
+        Console.Title = "Расчёт целых чисел | Выучи Х за Y минут"
+        Console.Write("Первое число: ") 'Введите первое целое число: 1, 2, 50, 104 и т.д.
+        Dim a As Integer = Console.ReadLine()
+        Console.Write("Второе число: ") 'Введите второе целое число.
+        Dim b As Integer = Console.ReadLine()
+        Dim c As Integer = a + b
+        Console.WriteLine(c)
+        Console.ReadLine()
+        'Приведенная программа сумирует два целых числа
+    End Sub
+
+    'Четыре
+    Private Sub CalculatingDecimalNumbers()
+        Console.Title = "Расчёт десятичных дробей | Выучи Х за Y минут"
+        'Мы также должны уметь обрабатывать десятичные дроби.
+        'Просто измените тип переменной с Integer на Double.
+
+        'Введите число с плавающей точкой: 1.2, 2.4, 50.1, 104.9 и т.д.
+        Console.Write("Первое число: ")
+        Dim a As Double = Console.ReadLine
+        Console.Write("Второе число: ") 'Введите второе число с плавающей точкой.
+        Dim b As Double = Console.ReadLine
+        Dim c As Double = a + b
+        Console.WriteLine(c)
+        Console.ReadLine()
+        'Приведенный выше код может сложить две десятичных дроби.
+    End Sub
+
+    'Пять
+    Private Sub WorkingCalculator()
+        Console.Title = "Калькулятор | Выучи Х за Y минут"
+        'Но что, если вам нужен калькулятор, который может обрабатывать сложение, 
+        'вычитание, умножение и деление?
+        'Просто скопируйте и вставьте приведенный код.
+        Console.Write("Первое число: ")
+        Dim a As Double = Console.ReadLine
+        Console.Write("Второе число: ")
+        Dim b As Double = Console.ReadLine
+        Dim c As Double = a + b
+        Dim d As Double = a * b
+        Dim e As Double = a - b
+        Dim f As Double = a / b
+
+        'С помощью следующего кода мы можем вывести результат сложения,
+        'вычитания, умножения и деления, рассчитанный выше, на экран.
+        Console.Write(a.ToString() + " + " + b.ToString())
+        'Мы хотим, чтобы в начале ответа было 3 пробела, для этого 
+        'вы можете использовать метод String.PadLeft (3).
+        Console.WriteLine(" = " + c.ToString.PadLeft(3))
+        Console.Write(a.ToString() + " * " + b.ToString())
+        Console.WriteLine(" = " + d.ToString.PadLeft(3))
+        Console.Write(a.ToString() + " - " + b.ToString())
+        Console.WriteLine(" = " + e.ToString.PadLeft(3))
+        Console.Write(a.ToString() + " / " + b.ToString())
+        Console.WriteLine(" = " + f.ToString.PadLeft(3))
+        Console.ReadLine()
+
+    End Sub
+
+    'Шесть
+    Private Sub UsingDoWhileLoops()
+        'Код такой же, как и в предидущей подпрограмме
+        'На этот раз мы спрашиваем, хочет ли пользователь продолжить (да или нет?)
+        'Мы будем использовать цикл Do While, потому что не знаем,
+        'понадобиться ли пользователю калькулятор болше одного раза.
+        Console.Title = "Использование циклов Do While | Выучи Х за Y минут"
+        Dim answer As String
+        'Мы используем тип переменной "String", так как её значение текст.
+        Do 'Мы начаем программу с
+            Console.Write("Первое число: ")
+            Dim a As Double = Console.ReadLine
+            Console.Write("Второе число: ")
+            Dim b As Double = Console.ReadLine
+            Dim c As Double = a + b
+            Dim d As Double = a * b
+            Dim e As Double = a - b
+            Dim f As Double = a / b
+
+            Console.Write(a.ToString() + " + " + b.ToString())
+            Console.WriteLine(" = " + c.ToString.PadLeft(3))
+            Console.Write(a.ToString() + " * " + b.ToString())
+            Console.WriteLine(" = " + d.ToString.PadLeft(3))
+            Console.Write(a.ToString() + " - " + b.ToString())
+            Console.WriteLine(" = " + e.ToString.PadLeft(3))
+            Console.Write(a.ToString() + " / " + b.ToString())
+            Console.WriteLine(" = " + f.ToString.PadLeft(3))
+            Console.ReadLine()
+            'Спросите пользователя, хочет ли он продолжить,
+            'в ответе учитывается регистр букв.
+            Console.Write("Желаете ли вы продолжить? (да / нет)")
+            'Программа берет значение и записывает в переменную answer.
+            answer = Console.ReadLine()
+            'Когда пользователь вводит «да», программа переходит к Do и снова запускается.
+        Loop While answer = "yes"
+
+    End Sub
+
+    'Семь
+    Private Sub UsingForLoops()
+        'Иногда программу нужно запускать только один раз.
+        'В этой программе мы осуществим обратный отсчет от 10.
+
+        Console.Title = "Использование циклов For | Выучи Х за Y минут"
+        'Объявите переменные и Step (размер шага, то есть скорость уменьшения,
+        'например, -1, -2, -3 и т.д.).
+        For i As Integer = 10 To 0 Step -1
+            Console.WriteLine(i.ToString) 'Показывает значение счетчика.
+        Next i 'Рассчитать новое значение i.
+        Console.WriteLine("Поехали")
+        Console.ReadLine()
+    End Sub
+
+    'Восемь
+    Private Sub ConditionalStatement()
+        Console.Title = "Условные выражения | Выучи Х за Y минут"
+        Dim userName As String
+        Console.WriteLine("Привет, как тебя зовут? ") 'Спросите имя пользователя.
+        userName = Console.ReadLine() 'Записать имя в переменную userName.
+        If userName = "Адам" Then
+            Console.WriteLine("Привет, Адам")
+            Console.WriteLine("Спасибо за создание этого полезного сайта")
+            Console.ReadLine()
+        Else
+            Console.WriteLine("Привет " + userName)
+            Console.WriteLine("Вы заглянули на сайт www.learnxinyminutes.com")
+            Console.ReadLine() 'Программа останавливается и выводит вышеуказанный текст.
+        End If
+    End Sub
+
+    'Девять
+    Private Sub IfElseStatement()
+        Console.Title = "Выражения If/Else | Выучи Х за Y минут"
+        'Иногда важно рассмотреть более двух альтернатив.
+        'Иногда некоторые из них лучше других.
+        'Когда это произойдет, нам потребуется более одного утверждения «if» (если).
+        'Оператор «if» подобен торговому автомату.
+        'В котором пользователь пишет код (A1, A2, A3 и т.д.), чтобы выбрать элементы.
+        'Все варианты могут быть объединены в одном утверждении «if».
+
+        Dim selection As String 'Объявить переменную для выбора
+        Console.WriteLine("Пожалуйста, выберите продукт из нашего прекрасного торгового автомата.")
+        Console.WriteLine("A1. для 7Up")
+        Console.WriteLine("A2. для Fanta")
+        Console.WriteLine("A3. для Dr. Pepper")
+        Console.WriteLine("A4. для Diet Coke")
+
+        selection = Console.ReadLine() 'Сохранить выбор пользователя
+        If selection = "A1" Then
+            Console.WriteLine("7up")
+        ElseIf selection = "A2" Then
+            Console.WriteLine("Fanta")
+        ElseIf selection = "A3" Then
+            Console.WriteLine("Dr. Pepper")
+        ElseIf selection = "A4" Then
+            Console.WriteLine("Diet Coke")
+        Else
+            Console.WriteLine("Извините, у меня нет " + selection)
+        End If
+        Console.ReadLine()
+
+    End Sub
+
+End Module
+```