2. Создание консольного проекта

Вначале необходимо построить интерфейс, обеспечивающий конечному пользователю доступ к тем сервисам, которые предоставляет созданный класс ClassLibraryMath. Начнем с построения простейшего интерфейса, позволяющего пользователю с консоли вводить исходную информацию – в нашем случае аргумент x. С исходными данными пользователь может провести вычисления, а затем полученные результаты вывести на консоль – экран дисплея. Для организации подобного интерфейса и служит тип проекта – Консольное приложение.

Чтобы создать новый проект, находясь в среде разработки, вовсе не обязательно начинать со стартовой страницы. Достаточно выбрать элемент Новый (New) основного меню Файл (File) и выполнить команду Проект (Project), приводящий на страницу создания нового проекта. В этом окне, как описано ранее, зададим тип строящегося проекта, и дадим ему имя – ConsoleToMath.

В консольном проекте стандартный модуль Module1 создается автоматически и содержит единственный статический метод – процедуру Main( ). Если этот проект запустить на выполнение, то начнет выполняться код этой процедуры, пока отсутствующий и который предстоит нам создать.

Когда проект запускается на выполнение, то в него должна входить сборка, отмеченная как стартовая, содержащая класс с точкой входа – статическим методом (процедурой) Main( ). Дальнейший сценарий зависит от содержимого точки входа. Как правило, в процессе работы метода Main( ) создаются один или несколько объектов других классов, они и вызывают методы и/или обработчики событий, происходящих с созданными объектами. В этих методах и обработчиках событий могут создаваться новые объекты, вызываться новые методы и новые обработчики. Так, начиная с одной точки, разворачивается целый мир объектов приложения.

Далее в проект добавим соответствующий программный код (Рис. 5.1-14).

Option Explicit On Option Strict On Namespace ConsoleToMath 'В данном случае можно опустить Module Module1 Sub Main() 'Входные данные Dim x As Double = 0 Const INVITE As String = _ "Введите вещественное число x" + _ "- аргумент функции Sin(x)" Const CONTINU As String = _ "Продолжим? (Yes/No)" Dim answer As String = "yes" Do 'Организация ввода данных Console.WriteLine(INVITE) Dim temp As String = Console.ReadLine() x = Convert.ToDouble(temp) 'Вычисления и вывод результата Dim res As Double = 0 res = Math.Sin(x) Console.WriteLine("Math.Sin(x) = " + _ res.ToString()) res = ClassLibraryМаth.ClassLibraryМаth.Sin(x) Console.WriteLine("MathTools.MyMath.Sin(x) = " + _ res.ToString()) 'диалог с пользователем Console.WriteLine(CONTINU) answer = Console.ReadLine() Loop While (answer <> "No") End Sub End Module End Namespace

Рис. 5.1-14