ModuleModule1SubMain()'Краткий обзор консольных приложений Visual Basic перед более
'глубоким изучением.
'Апостроф начинает строку комментария.
'Чтобы изучить это руководство в компиляторе Visual Basic,
'я создал систему навигации.
'Эта система будет объяснена при прохождении этого урока.
'Постепенно вы всё поймете.
Console.Title=("Выучи Х за Y минут")Console.WriteLine("НАВИГАЦИЯ")'Display
Console.WriteLine("")Console.ForegroundColor=ConsoleColor.GreenConsole.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("Выберите номер из списка")DimselectionAsString=Console.ReadLine'«Case» в операторе Select не является обязательным.
'Например, "Select selection" вместо "Select Case selection"
'также будет работать.
SelectCaseselectionCase"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()EndSelectEndSub'Один - Я использую эти цифры для того, чтобы было проще
'соотносить код с системой навигации.
'Мы используем частные подпрограммы для разделения различных
'разделов программы.
PrivateSubHelloWorldOutput()'Название консольного приложения
Console.Title="Вывод данных | Выучи Х за Y минут"'Используйте Console.Write ("") или Console.WriteLine ("")
'для отображения результатов.
'Затем следует Console.Read () или Console.Readline ()
'Console.ReadLine () показывает вывод в консоли.
Console.WriteLine("Hello World")Console.ReadLine()EndSub'Два
PrivateSubHelloWorldInput()Console.Title="Ввод данных | Выучи Х за Y минут"'Переменная
'используется для хранения пользовательских данных.
'Объявление переменных начинается с Dim и заканчиваются
'As VariableType (тип переменной).
'В этом уроке мы хотим узнать ваше имя и заставить программу
'реагировать на это.
DimusernameAsString'Мы используем тип «string», так как ваше имя - это текстовая переменная.
Console.WriteLine("Привет, как тебя зовут? ")'Просит ввести имя.
username=Console.ReadLine()'Сохраняет имя в переменной username.
Console.WriteLine("Пирвет, "+username)'Выводит: «Привет, 'имя'»
Console.ReadLine()'Отображает вышеуказанный вывод.
'Вышеуказанная программа спросит ваше имя и скажет вам привет.
'Есть и другие типы переменных, такие как целые числа (Integer),
'мы используем Integer для обработки целых чисел.
EndSub'Три
PrivateSubCalculatingWholeNumbers()Console.Title="Расчёт целых чисел | Выучи Х за Y минут"Console.Write("Первое число: ")'Введите первое целое число: 1, 2, 50, 104 и т.д.
DimaAsInteger=Console.ReadLine()Console.Write("Второе число: ")'Введите второе целое число.
DimbAsInteger=Console.ReadLine()DimcAsInteger=a+bConsole.WriteLine(c)Console.ReadLine()'Приведенная программа сумирует два целых числа
EndSub'Четыре
PrivateSubCalculatingDecimalNumbers()Console.Title="Расчёт десятичных дробей | Выучи Х за Y минут"'Мы также должны уметь обрабатывать десятичные дроби.
'Просто измените тип переменной с Integer на Double.
'Введите число с плавающей точкой: 1.2, 2.4, 50.1, 104.9 и т.д.
Console.Write("Первое число: ")DimaAsDouble=Console.ReadLineConsole.Write("Второе число: ")'Введите второе число с плавающей точкой.
DimbAsDouble=Console.ReadLineDimcAsDouble=a+bConsole.WriteLine(c)Console.ReadLine()'Приведенный выше код может сложить две десятичных дроби.
EndSub'Пять
PrivateSubWorkingCalculator()Console.Title="Калькулятор | Выучи Х за Y минут"'Но что, если вам нужен калькулятор, который может обрабатывать сложение,
'вычитание, умножение и деление?
'Просто скопируйте и вставьте приведенный код.
Console.Write("Первое число: ")DimaAsDouble=Console.ReadLineConsole.Write("Второе число: ")DimbAsDouble=Console.ReadLineDimcAsDouble=a+bDimdAsDouble=a*bDimeAsDouble=a-bDimfAsDouble=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()EndSub'Шесть
PrivateSubUsingDoWhileLoops()'Код такой же, как и в предидущей подпрограмме
'На этот раз мы спрашиваем, хочет ли пользователь продолжить (да или нет?)
'Мы будем использовать цикл Do While, потому что не знаем,
'понадобиться ли пользователю калькулятор болше одного раза.
Console.Title="Использование циклов Do While | Выучи Х за Y минут"DimanswerAsString'Мы используем тип переменной "String", так как её значение текст.
Do'Мы начаем программу сConsole.Write("Первое число: ")DimaAsDouble=Console.ReadLineConsole.Write("Второе число: ")DimbAsDouble=Console.ReadLineDimcAsDouble=a+bDimdAsDouble=a*bDimeAsDouble=a-bDimfAsDouble=a/bConsole.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 и снова запускается.
LoopWhileanswer="yes"EndSub'Семь
PrivateSubUsingForLoops()'Иногда программу нужно запускать только один раз.
'В этой программе мы осуществим обратный отсчет от 10.
Console.Title="Использование циклов For | Выучи Х за Y минут"'Объявите переменные и Step (размер шага, то есть скорость уменьшения,
'например, -1, -2, -3 и т.д.).
ForiAsInteger=10To0Step-1Console.WriteLine(i.ToString)'Показывает значение счетчика.
Nexti'Рассчитать новое значение i.
Console.WriteLine("Поехали")Console.ReadLine()EndSub'Восемь
PrivateSubConditionalStatement()Console.Title="Условные выражения | Выучи Х за Y минут"DimuserNameAsStringConsole.WriteLine("Привет, как тебя зовут? ")'Спросите имя пользователя.
userName=Console.ReadLine()'Записать имя в переменную userName.
IfuserName="Адам"ThenConsole.WriteLine("Привет, Адам")Console.WriteLine("Спасибо за создание этого полезного сайта")Console.ReadLine()ElseConsole.WriteLine("Привет "+userName)Console.WriteLine("Вы заглянули на сайт www.learnxinyminutes.com")Console.ReadLine()'Программа останавливается и выводит вышеуказанный текст.
EndIfEndSub'Девять
PrivateSubIfElseStatement()Console.Title="Выражения If/Else | Выучи Х за Y минут"'Иногда важно рассмотреть более двух альтернатив.
'Иногда некоторые из них лучше других.
'Когда это произойдет, нам потребуется более одного утверждения «if» (если).
'Оператор «if» подобен торговому автомату.
'В котором пользователь пишет код (A1, A2, A3 и т.д.), чтобы выбрать элементы.
'Все варианты могут быть объединены в одном утверждении «if».
DimselectionAsString'Объявить переменную для выбора
Console.WriteLine("Пожалуйста, выберите продукт из нашего прекрасного торгового автомата.")Console.WriteLine("A1. для 7Up")Console.WriteLine("A2. для Fanta")Console.WriteLine("A3. для Dr. Pepper")Console.WriteLine("A4. для Diet Coke")selection=Console.ReadLine()'Сохранить выбор пользователя
Ifselection="A1"ThenConsole.WriteLine("7up")ElseIfselection="A2"ThenConsole.WriteLine("Fanta")ElseIfselection="A3"ThenConsole.WriteLine("Dr. Pepper")ElseIfselection="A4"ThenConsole.WriteLine("Diet Coke")ElseConsole.WriteLine("Извините, у меня нет "+selection)EndIfConsole.ReadLine()EndSubEndModule