1Module Module1
2
3 Sub Main()
4 'Краткий обзор консольных приложений Visual Basic перед более
5 'глубоким изучением.
6 'Апостроф начинает строку комментария.
7 'Чтобы изучить это руководство в компиляторе Visual Basic,
8 'я создал систему навигации.
9 'Эта система будет объяснена при прохождении этого урока.
10 'Постепенно вы всё поймете.
11 Console.Title = ("Выучи Х за Y минут")
12 Console.WriteLine("НАВИГАЦИЯ") 'Display
13 Console.WriteLine("")
14 Console.ForegroundColor = ConsoleColor.Green
15 Console.WriteLine("1. Вывод данных")
16 Console.WriteLine("2. Ввод данных")
17 Console.WriteLine("3. Расчёт целых чисел")
18 Console.WriteLine("4. Расчёт десятичных дробей")
19 Console.WriteLine("5. Калькулятор")
20 Console.WriteLine("6. Использование циклов Do While")
21 Console.WriteLine("7. Использование циклов For")
22 Console.WriteLine("8. Условные выражения")
23 Console.WriteLine("9. Выберите напиток")
24 Console.WriteLine("50. О приложении")
25 Console.WriteLine("Выберите номер из списка")
26 Dim selection As String = Console.ReadLine
27 '«Case» в операторе Select не является обязательным.
28 'Например, "Select selection" вместо "Select Case selection"
29 'также будет работать.
30 Select Case selection
31 Case "1" 'Вывод данных
32 Console.Clear() 'Очищает окно консоли
33 HelloWorldOutput() 'Открывает приватную подпрограмму.
34 Case "2" 'Ввод данных
35 Console.Clear()
36 HelloWorldInput()
37 Case "3" 'Расчёт целых чисел
38 Console.Clear()
39 CalculatingWholeNumbers()
40 Case "4" 'Расчёт десятичных дробей
41 Console.Clear()
42 CalculatingDecimalNumbers()
43 Case "5" 'Калькулятор
44 Console.Clear()
45 WorkingCalculator()
46 Case "6" 'Использование циклов Do While
47 Console.Clear()
48 UsingDoWhileLoops()
49 Case "7" 'Использование циклов For
50 Console.Clear()
51 UsingForLoops()
52 Case "8" 'Условные выражения
53 Console.Clear()
54 ConditionalStatement()
55 Case "9" 'Выражения If/Else
56 Console.Clear()
57 IfElseStatement() 'Выберите напиток
58 Case "50" 'Окно сообщения «О приложении»
59 Console.Clear()
60 Console.Title = ("Выучи Х за Y минут :: О приложении")
61 MsgBox("Это руководство от Брайана Мартина (@BrianMartinn")
62 Console.Clear()
63 Main()
64 Console.ReadLine()
65
66 End Select
67 End Sub
68
69 'Один - Я использую эти цифры для того, чтобы было проще
70 'соотносить код с системой навигации.
71
72 'Мы используем частные подпрограммы для разделения различных
73 'разделов программы.
74 Private Sub HelloWorldOutput()
75 'Название консольного приложения
76 Console.Title = "Вывод данных | Выучи Х за Y минут"
77 'Используйте Console.Write ("") или Console.WriteLine ("")
78 'для отображения результатов.
79 'Затем следует Console.Read () или Console.Readline ()
80 'Console.ReadLine () показывает вывод в консоли.
81 Console.WriteLine("Hello World")
82 Console.ReadLine()
83 End Sub
84
85 'Два
86 Private Sub HelloWorldInput()
87 Console.Title = "Ввод данных | Выучи Х за Y минут"
88 'Переменная
89 'используется для хранения пользовательских данных.
90 'Объявление переменных начинается с Dim и заканчиваются
91 'As VariableType (тип переменной).
92
93 'В этом уроке мы хотим узнать ваше имя и заставить программу
94 'реагировать на это.
95 Dim username As String
96 'Мы используем тип «string», так как ваше имя - это текстовая переменная.
97 Console.WriteLine("Привет, как тебя зовут? ") 'Просит ввести имя.
98 username = Console.ReadLine() 'Сохраняет имя в переменной username.
99 Console.WriteLine("Пирвет, " + username) 'Выводит: «Привет, 'имя'»
100 Console.ReadLine() 'Отображает вышеуказанный вывод.
101
102 'Вышеуказанная программа спросит ваше имя и скажет вам привет.
103 'Есть и другие типы переменных, такие как целые числа (Integer),
104 'мы используем Integer для обработки целых чисел.
105 End Sub
106
107 'Три
108 Private Sub CalculatingWholeNumbers()
109 Console.Title = "Расчёт целых чисел | Выучи Х за Y минут"
110 Console.Write("Первое число: ") 'Введите первое целое число: 1, 2, 50, 104 и т.д.
111 Dim a As Integer = Console.ReadLine()
112 Console.Write("Второе число: ") 'Введите второе целое число.
113 Dim b As Integer = Console.ReadLine()
114 Dim c As Integer = a + b
115 Console.WriteLine(c)
116 Console.ReadLine()
117 'Приведенная программа сумирует два целых числа
118 End Sub
119
120 'Четыре
121 Private Sub CalculatingDecimalNumbers()
122 Console.Title = "Расчёт десятичных дробей | Выучи Х за Y минут"
123 'Мы также должны уметь обрабатывать десятичные дроби.
124 'Просто измените тип переменной с Integer на Double.
125
126 'Введите число с плавающей точкой: 1.2, 2.4, 50.1, 104.9 и т.д.
127 Console.Write("Первое число: ")
128 Dim a As Double = Console.ReadLine
129 Console.Write("Второе число: ") 'Введите второе число с плавающей точкой.
130 Dim b As Double = Console.ReadLine
131 Dim c As Double = a + b
132 Console.WriteLine(c)
133 Console.ReadLine()
134 'Приведенный выше код может сложить две десятичных дроби.
135 End Sub
136
137 'Пять
138 Private Sub WorkingCalculator()
139 Console.Title = "Калькулятор | Выучи Х за Y минут"
140 'Но что, если вам нужен калькулятор, который может обрабатывать сложение,
141 'вычитание, умножение и деление?
142 'Просто скопируйте и вставьте приведенный код.
143 Console.Write("Первое число: ")
144 Dim a As Double = Console.ReadLine
145 Console.Write("Второе число: ")
146 Dim b As Double = Console.ReadLine
147 Dim c As Double = a + b
148 Dim d As Double = a * b
149 Dim e As Double = a - b
150 Dim f As Double = a / b
151
152 'С помощью следующего кода мы можем вывести результат сложения,
153 'вычитания, умножения и деления, рассчитанный выше, на экран.
154 Console.Write(a.ToString() + " + " + b.ToString())
155 'Мы хотим, чтобы в начале ответа было 3 пробела, для этого
156 'вы можете использовать метод String.PadLeft (3).
157 Console.WriteLine(" = " + c.ToString.PadLeft(3))
158 Console.Write(a.ToString() + " * " + b.ToString())
159 Console.WriteLine(" = " + d.ToString.PadLeft(3))
160 Console.Write(a.ToString() + " - " + b.ToString())
161 Console.WriteLine(" = " + e.ToString.PadLeft(3))
162 Console.Write(a.ToString() + " / " + b.ToString())
163 Console.WriteLine(" = " + f.ToString.PadLeft(3))
164 Console.ReadLine()
165
166 End Sub
167
168 'Шесть
169 Private Sub UsingDoWhileLoops()
170 'Код такой же, как и в предидущей подпрограмме
171 'На этот раз мы спрашиваем, хочет ли пользователь продолжить (да или нет?)
172 'Мы будем использовать цикл Do While, потому что не знаем,
173 'понадобиться ли пользователю калькулятор болше одного раза.
174 Console.Title = "Использование циклов Do While | Выучи Х за Y минут"
175 Dim answer As String
176 'Мы используем тип переменной "String", так как её значение текст.
177 Do 'Мы начаем программу с
178 Console.Write("Первое число: ")
179 Dim a As Double = Console.ReadLine
180 Console.Write("Второе число: ")
181 Dim b As Double = Console.ReadLine
182 Dim c As Double = a + b
183 Dim d As Double = a * b
184 Dim e As Double = a - b
185 Dim f As Double = a / b
186
187 Console.Write(a.ToString() + " + " + b.ToString())
188 Console.WriteLine(" = " + c.ToString.PadLeft(3))
189 Console.Write(a.ToString() + " * " + b.ToString())
190 Console.WriteLine(" = " + d.ToString.PadLeft(3))
191 Console.Write(a.ToString() + " - " + b.ToString())
192 Console.WriteLine(" = " + e.ToString.PadLeft(3))
193 Console.Write(a.ToString() + " / " + b.ToString())
194 Console.WriteLine(" = " + f.ToString.PadLeft(3))
195 Console.ReadLine()
196 'Спросите пользователя, хочет ли он продолжить,
197 'в ответе учитывается регистр букв.
198 Console.Write("Желаете ли вы продолжить? (да / нет)")
199 'Программа берет значение и записывает в переменную answer.
200 answer = Console.ReadLine()
201 'Когда пользователь вводит «да», программа переходит к Do и снова запускается.
202 Loop While answer = "yes"
203
204 End Sub
205
206 'Семь
207 Private Sub UsingForLoops()
208 'Иногда программу нужно запускать только один раз.
209 'В этой программе мы осуществим обратный отсчет от 10.
210
211 Console.Title = "Использование циклов For | Выучи Х за Y минут"
212 'Объявите переменные и Step (размер шага, то есть скорость уменьшения,
213 'например, -1, -2, -3 и т.д.).
214 For i As Integer = 10 To 0 Step -1
215 Console.WriteLine(i.ToString) 'Показывает значение счетчика.
216 Next i 'Рассчитать новое значение i.
217 Console.WriteLine("Поехали")
218 Console.ReadLine()
219 End Sub
220
221 'Восемь
222 Private Sub ConditionalStatement()
223 Console.Title = "Условные выражения | Выучи Х за Y минут"
224 Dim userName As String
225 Console.WriteLine("Привет, как тебя зовут? ") 'Спросите имя пользователя.
226 userName = Console.ReadLine() 'Записать имя в переменную userName.
227 If userName = "Адам" Then
228 Console.WriteLine("Привет, Адам")
229 Console.WriteLine("Спасибо за создание этого полезного сайта")
230 Console.ReadLine()
231 Else
232 Console.WriteLine("Привет " + userName)
233 Console.WriteLine("Вы заглянули на сайт www.learnxinyminutes.com")
234 Console.ReadLine() 'Программа останавливается и выводит вышеуказанный текст.
235 End If
236 End Sub
237
238 'Девять
239 Private Sub IfElseStatement()
240 Console.Title = "Выражения If/Else | Выучи Х за Y минут"
241 'Иногда важно рассмотреть более двух альтернатив.
242 'Иногда некоторые из них лучше других.
243 'Когда это произойдет, нам потребуется более одного утверждения «if» (если).
244 'Оператор «if» подобен торговому автомату.
245 'В котором пользователь пишет код (A1, A2, A3 и т.д.), чтобы выбрать элементы.
246 'Все варианты могут быть объединены в одном утверждении «if».
247
248 Dim selection As String 'Объявить переменную для выбора
249 Console.WriteLine("Пожалуйста, выберите продукт из нашего прекрасного торгового автомата.")
250 Console.WriteLine("A1. для 7Up")
251 Console.WriteLine("A2. для Fanta")
252 Console.WriteLine("A3. для Dr. Pepper")
253 Console.WriteLine("A4. для Diet Coke")
254
255 selection = Console.ReadLine() 'Сохранить выбор пользователя
256 If selection = "A1" Then
257 Console.WriteLine("7up")
258 ElseIf selection = "A2" Then
259 Console.WriteLine("Fanta")
260 ElseIf selection = "A3" Then
261 Console.WriteLine("Dr. Pepper")
262 ElseIf selection = "A4" Then
263 Console.WriteLine("Diet Coke")
264 Else
265 Console.WriteLine("Извините, у меня нет " + selection)
266 End If
267 Console.ReadLine()
268
269 End Sub
270
271End Module