Использование Visual Basic.NET

Академия управления при  Президенте Республики Беларусь

Институт управленческих кадров

Факультет инновационной  подготовки

Кафедра управления информационными  ресурсами

 

Компьютерные сети и интернет-технологии

 

 

 

 

 

 

 

отчет

по практической работе №3

ИСПОЛЬЗОВАНИЕ VISUAL BASIC.NET

 

 

 

 

 

 

 

 

 

Выполнила: Язвинская В.Д.     Проверила: Шавво Н.А.

Группа:  УИР-1

Курс: 4 курс

 

 

 

 

 

 

 

Минск 2012

 

Цель: изучение  синтаксиса  Visual  Basic.NET,  описание  и использование переменных,  массивов,  освоение  технологий  работы  с серверными  элементами  управления  ASP.NET  -  (Label,  Textbox,  Button, CheckBox,  RadioButton,  ComboBox);  разработка  Windows-приложений  на языке Visual Basic.Net.

 

Краткие теоретические  сведения

Visual Basic .NET (VB.NET) — это объектно-ориентированный язык программирования, который можно рассматривать как очередной виток эволюции Visual Basic (VB), реализованный на платформе Microsoft .NET. VB.NET не имеет обратной совместимости с более ранней версией (Visual Basic 6.0). Развитие проектов старых версий (*.vbp) возможно только после предварительной конвертации их в формат VB.NET специальным мастером (Migration Wizard); однако, как правило, после конвертации требуется существенная ручная доработка текстов.

Изменения по сравнению с VB 6.0

• Поддержка концепций объектно-ориентированного программирования с конструкторами и деструкторами, наследованием, перекрытием методов (Overrides) и др. Есть даже переопределение знаков операций.
• Компиляция в байт-код (intermediate language, IL), исполняемый с помощью виртуальной машины common language runtime (CLR).
• Использование всего набора объектных библиотек, входящих в .NET Framework, включающих мощные средства по работе с формами (Windows Forms), базами данных (ADO.NET), графикой (GDI+), средствами обеспечения безопасности, веб-страницами (ASP.NET) и т. п.
• Поддержка свободной многопоточности.
• Поддержка структурной обработки исключений (structured exception handling, SEH).
• С переходом на платформу .NET, изменилась сама парадигма программирования (и это наиболее важное изменение).

 

Контрольные вопросы:

1. Какие стандартные параметры имеются у обработчиков событий, используемых в страницах ASP.NET?

ASP.NET сначала ищет перегрузку, которая имеет сигнатуру стандартного  обработчика событий (то есть  задает параметры Object и EventArgs). Если обработчик событий с  этой сигнатурой не найден, ASP.NET ищет перегруженную версию, которая  не имеет параметров.

2. Что  такое  объектно-ориентированное  программирование? Относится  ли  Visual  Basic.NET  к  объектно-ориентированным языкам программирования? 

Объектно-ориентированное, или объектное, программирование — парадигма программирования, в которой основными концепциями являются понятия объектов и классов. Visual  Basic.NET относится к объектно-ориентированным языкам программирования.

3. Какие  особенности  синтаксиса  в  Visual  Basic.NET  следует учитывать при написании программы?

Отсутствие точки с  запятой, выделения блоков в фигурных скобках; Переменная объявляется при помощи Dim и указании типа данных после As; Циклы имеют другой синтаксис

4. Какие  типы  данных  могут  использоваться  в  Visual  Basic.NET? Приведите  примеры.  Какой  тип  данных  возвращает  элемент TextBox?

• Boolean - логический тип.
• Byte - числовой тип.
• Char - символьный тип.
• Date - предназначен для хранения дат.
• Decimal - самый мощный числовой тип.
• Double - это числовой тип. Применятся для хранения чисел в экспоненциальной форме.
• Integer - предназначен для обработки целочисленных значений.
• Long - предназначен для целочисленных значений.
• Object - по сути, переменная подобного типа является всего лишь ссылкой на некий конкретный экземпляр какого либо объекта.
• Short - облегченный целочисленный тип.
• Single - предназначен для хранения чисел в экспоненциальной форме.
• String - строковый тип.

TextBox – это имя класса, член этого класса Text возвращает  данные типа String.

5. В чем заключаются различия в использовании циклов for и while?

Цикл For является циклом со счетчиком, а While – без счетчика.

6. В  каких  случаях  целесообразно  использовать  Select-Case? Приведите пример.

Оператор Select-Case выполняет один из блоков операторов в зависимости от значения выражения. Его целесообразно использовать в случаях множественного выбора.

Пример: ввод цифр от 1 до 10. В  зависимости от введенного числа  выполняем некоторое действие.

7. К  какому  пространству  имен  относятся  категории  Integer  и Double?

System

8. Расшифруйте запись:

Partial Class VB_Programing

    Inherits System.Web.UI.Page

End Class

 

Partial Указывает, что объявление класса Class VB_Programing является частичным определением класса или структуры. Инструкция Inherits вызывает текущий класс для наследования атрибутов, переменных, свойств, процедур и событий из другого класса System.Web.UI.Page.

 

Задание 1. "Пароль"

Создайте  форму  для  регистрации  пользователей  (имя,  адрес электронной почты, пароль), в  которой  предусмотрена проверка  пароля. При вводе верного пароля должна появляться картинка-приветствие.

Дополнительный  балл: при вводе пароля осуществляется переход на главную страницу Вашего Web-сайта.

Файл FormPass.vb

Public Class FormPass

 

    Private Sub FormPass_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "Password"

        Me.Size = New System.Drawing.Size(360, 480) 'задание размера окна

        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow 'запрет изменения размера вручную

    End Sub

    'разворачивание регистрационного окна при нажатии кнопки

    Private Sub Button_ClickRegistration(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRegistration.Click

        Me.Size = New System.Drawing.Size(790, 480)

        TBoxInputLogin.Enabled = False

        TBoxInputPass.Enabled = False

        TBoxInputLogin.Text = ""

        TBoxInputPass.Text = ""

    End Sub

    'сворачивание регистрационного окна при нажатии кнопки

    Private Sub Button_ClickRegCancel(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRegCancel.Click

        Me.Size = New System.Drawing.Size(360, 480)

        TBoxInputLogin.Enabled = True

        TBoxInputPass.Enabled = True

        TBoxRegLogin.Text = ""

        TBoxRegMail.Text = ""

        TBoxRegPass.Text = ""

        TBoxRegCheckPass.Text = ""

    End Sub

    'ввод данных пользователя и вход

    Private Sub Button_ClickInput(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonInput.Click

        Dim inpLogin As String

        Dim inpPass As String

        inpLogin = CStr(TBoxInputLogin.Text)

        inpPass = CStr(TBoxInputPass.Text)

        If My.Computer.FileSystem.FileExists(inpLogin) = False Then

            LabelInfoInput.Text = "Пользователь " + inpLogin + " не зарегистрирован"

        Else

            Dim passCheck As String

            passCheck = My.Computer.FileSystem.ReadAllText(inpLogin)

            If inpPass = passCheck Then

                LabelInfoInput.Text = "Получилось. Входим..."

                Process.Start("http://localhost:1032/MyBlog/Default.aspx")

            Else

                LabelInfoInput.Text = "Неверный пароль!"

            End If

        End If

    End Sub

    'регистрация пользователя

    Private Sub Button_ClickRegOk(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRegOk.Click

        Dim regLogin As String

        Dim regMail As String

        Dim regPass As String

        Dim regCheckPass As String

        regLogin = CStr(TBoxRegLogin.Text)

        regMail = CStr(TBoxRegMail.Text)

        regPass = CStr(TBoxRegPass.Text)

        regCheckPass = CStr(TBoxRegCheckPass.Text)

 

        If My.Computer.FileSystem.FileExists(regLogin) = True Then

            LRegLogin.Text = "имя занято"

        Else

            LRegLogin.Text = ""

            If regPass <> regCheckPass Then

                LRegPass.Text = "пароли не совпадают"

            Else

                LabelInfoReg.Text = "Пользователь " + regLogin + " успешно зарегистрирован"

                My.Computer.FileSystem.WriteAllText(regLogin, regPass, 0)

            End If

        End If

    End Sub

End Class

 

 

Описание  работы приложения

Рисунок 3.1.1 – Стартовая  форма приложения

Пользователь может ввести свое имя и пароль либо зарегистрироваться. Кликаем на кнопку «Регистрация», так  как выходим в систему впервые. Окно расширяется, и элементы TextBox для входа становятся недоступными (при нажатии «Отмена» в объекте GroupBox окно принимает исходное состояние):

Рисунок 3.1.2 – Форма для  регистрации нового пользователя

При вводе имени, которое  было уже зарегистрировано в системе, выводится соответствующее сообщение  в объекте Label напротив введенного имени. Аналогично с неверно введенным  паролем:

Рисунок 3.1.3 – Ввод неверной информации при регистрации

При удачной регистрации  выводится сообщение об успехе:

Рисунок 3.1.4 – Успешная регистрация  пользователя

При входе ошибочный ввод имени и пароля сопровождается соответствующими надписями:

Рисунок 3.1.5 – Ввод неверной информации при входе

При успешном входе появляется информация об этом и загружается  стартовая страница моего блога  с отчетами по практическим работам  по дисциплине «Компьютерные сети и  Интернет-технологии».

 

 

Задание 2. "Радуга"

В форме приложения разместите элемент Label, присвоив свойствам соответствующие  значения:

Свойство	Значение
Text	РАДУГА
Font-Size	52pt
Font-Bold	True

 Создайте элемент управления ComboBox, в котором перечисляются  названия цветов радуги. При выборе  пользователем названия цвета  слово "Радуга" окрашивается  в соответствующий цвет.

Дополнительный  балл:  Предоставьте  пользователю  возможность выбрать начальный цвет  радуги  и опишите процедуру автоматического перехода от одного цвета к другому (возможно Вам пригодится элемент Timer).  Предусмотрите элемент управления  для остановки цветового перехода.

Файл FormRainbow.vb

Public Class FormRainbow

    Dim k%, i%      'переменные для обработки времени

    Private Sub FormPass_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "Радуга"

        Timer1.Interval = 1     'задание интервала отсчета таймера

        Timer1.Enabled = False  'отключение работы таймера

        k = 1

    End Sub

    'обработка объекта ComboBox

    Private Sub ComboBox_Change() Handles ComboBox.Click

        If ComboBox.Text = "Красный" Then

            LRainbow.ForeColor = Color.Red

        ElseIf ComboBox.Text = "Оранжевый" Then

            LRainbow.ForeColor = Color.Orange

        ElseIf ComboBox.Text = "Желтый" Then

            LRainbow.ForeColor = Color.Yellow

        ElseIf ComboBox.Text = "Зеленый" Then

            LRainbow.ForeColor = Color.Green

        ElseIf ComboBox.Text = "Голубой" Then

            LRainbow.ForeColor = Color.LightBlue

        ElseIf ComboBox.Text = "Синий" Then

            LRainbow.ForeColor = Color.DarkBlue

        ElseIf ComboBox.Text = "Фиолетовый" Then

            LRainbow.ForeColor = Color.Purple

        End If

    End Sub

    'функция изменения цвета Радуги по таймеру

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If i * k < k * 127 * (k + 1) Then

            i = i + 1 * k

            LRainbow.ForeColor = System.Drawing.ColorTranslator.FromOle(RGB(255 - i, i, i))

        Else

            k = k * (-1)

        End If

    End Sub

    'функция запуска таймера по нажатию объекта Label

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LRainbow.Click

        Timer1.Enabled = Not (Timer1.Enabled)

    End Sub

End Class

 

Описание  работы приложения

Рисунок 3.2.1 – Стартовая  форма приложения

Рисунок 3.2.2 – Изменение  цвета «Радуги» при выборе значения в ComboBox'е

При нажатии мышью по объекту Label запускается таймер и на каждый его такт увеличивается на шаг  счетчик, который определяет цвет «Радуги».

 

Задание 3. "Тест"

Разработайте простейший тест из 5 вопросов по тематике ASP.NET (вопрос  –  варианты  ответа,  один  из  которых  верный).  Используйте  конструкцию If-Then, а в качестве  управляющих элементов  используйте  Button (Старт-Финиш), CheckBox, RadioButton.

Дополнительный  балл: К тесту, выполненному в задании 4, добавьте подсчет количества  правильных  ответов.  В том случае,  если  верных ответов 60%  или более,  то  выводится «Тест успешно сдан»,  в иных случаях – «Вы не сдали тест».