From 9842c8859b03e34f0ba09a3e6885218d67a3862d Mon Sep 17 00:00:00 2001 From: Boris Verkhovskiy Date: Thu, 16 May 2024 03:23:02 -0600 Subject: Correct URLs --- ru-ru/learnvisualbasic-ru.html.markdown | 283 -------------------------------- ru-ru/visualbasic-ru.html.markdown | 283 ++++++++++++++++++++++++++++++++ 2 files changed, 283 insertions(+), 283 deletions(-) delete mode 100644 ru-ru/learnvisualbasic-ru.html.markdown create mode 100644 ru-ru/visualbasic-ru.html.markdown (limited to 'ru-ru') diff --git a/ru-ru/learnvisualbasic-ru.html.markdown b/ru-ru/learnvisualbasic-ru.html.markdown deleted file mode 100644 index e9934822..00000000 --- a/ru-ru/learnvisualbasic-ru.html.markdown +++ /dev/null @@ -1,283 +0,0 @@ ---- -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 -``` 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 +``` -- cgit v1.2.3