mirror of
https://github.com/adambard/learnxinyminutes-docs.git
synced 2024-12-27 19:28:51 +00:00
285 lines
15 KiB
Markdown
285 lines
15 KiB
Markdown
---
|
||
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
|
||
|
||
```
|