11664

Изучение основ работы с базовыми инструментами в системе программирования VB-Net 2008

Лабораторная работа

Информатика, кибернетика и программирование

Изучение основ работы с базовыми инструментами в системе программирования VBNet 2008. Цель работы: Изучение основ работы с основными инструментами VBNET: командной строкой полем метки текстовым полем познакомиться с вспомогательными элементами управления: радиокнопкой ф

Русский

2013-04-10

425.5 KB

2 чел.

Изучение основ работы с базовыми инструментами в системе программирования VB-Net 2008.

Цель работы: Изучение основ работы с основными инструментами VB-NET: командной строкой, полем метки, текстовым полем, познакомиться с вспомогательными элементами управления: радиокнопкой, флажком, списком, комбинированным списком.

Программа работы:

  1.  Изучить теоретический материал.
  2.  Выполнить изучение элемента управления Button
  3.  Выполнить изучение элемента управления Label
  4.  Выполнить изучение инструмента TextBox
  5.  Выполнить изучение инструмента RadioButton
  6.  Выполнить изучение инструмента CheckBox
  7.  Выполнить изучение инструмента ListBox
  8.  Выполнить изучение инструмента ComboBox
  9.  Ответить на контрольные вопросы
  10.  Составить отчет о выполненной работе

Задание 1. Изучение командной кнопки.

Напишите приложение в котором:

  1.  Цвет командной кнопки последовательно  при ее нажатии изменялся с зеленого на желтый и красный и далее с начала.
  2.  Командная кнопка имела горючую клавишу «T».

Form1. Внешний вид.

Form1. Код.

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       cc()

   End Sub

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

       Button1.BackColor = Color.Green

   End Sub

   Private Sub cc()

       Select Case Button1.BackColor

           Case Color.Green

               Button1.BackColor = Color.Yellow

           Case Color.Yellow

               Button1.BackColor = Color.Red

           Case Else

               Button1.BackColor = Color.Green

       End Select

   End Sub

   Private Sub Button1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown

       If e.KeyCode = Asc(UCase("t")) Then

           cc()

       End If

   End Sub

End Class

Результаты выполнения программы.

   

Задание 2. Изучение поля метки.

Напишите приложение в котором:

  1.  Можно выбрать стиль оформления поля метки.
  2.  Автоматически отображались требуемые для вывода некоторого произвольного текста размеры поля метки: (в текстовом поле вводится текст, размеры поля метки для его отображения выводятся в двух других полях метки

Form1. Внешний вид.

Form1. Код.

Public Class Form1

   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

       If RadioButton1.Checked = True Then

           Label1.BorderStyle = BorderStyle.None

       End If

   End Sub

   Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

       If RadioButton2.Checked = True Then

           Label1.BorderStyle = BorderStyle.FixedSingle

       End If

   End Sub

   Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

       If RadioButton3.Checked = True Then

           Label1.BorderStyle = BorderStyle.Fixed3D

       End If

   End Sub

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

       Label1.Text = TextBox1.Text

       Label2.Text = Label1.PreferredHeight

       Label3.Text = Label1.PreferredWidth

   End Sub

End Class

Результаты выполнения программы.

   

Задание 3. Изучение текстового поля.

Напишите приложение в котором:

  1.  В введенном содержимом текстового поля отыскивается первый фрагмент, введенный во второе текстовое поле и найденный фрагмент выделяется.
  2.  В текстовое поле вводится пароль и при его правильном вводе становится доступна командная кнопка.
  3.  Имеется три текстовых поля. Выделенный фрагмент из одного текстового поля можно скопировать, вырезать или удалить. Содержимое буфера обмена можно поместить в любое другое текстовое поле по местоположению курсора, используя соответствующие команды приложения.

Form1 Внешний вид

Form1. Код.

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim l As Integer

       Dim s As Integer

       l = TextBox2.Text.Length

       s = InStr(TextBox1.Text, TextBox2.Text)

       If s <> 0 Then

           TextBox1.SelectionStart = s - 1

           TextBox1.SelectionLength = l

           TextBox1.Select()

       End If

   End Sub

   Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

       If sender.text = "12345" Then

           Button1.Enabled = True

       Else : Button1.Enabled = False

       End If

   End Sub

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

       Button1.Enabled = False

   End Sub

End Class

Результаты работы программы.

  

Задание 4. Изучение флажка.

Напишите приложение в котором:

  1.  Свойства текста: полужирный, курсив и подчеркивание изменялось бы в зависимости от состояния соответствующих флажков.

Form1. Внешний вид.

Form1. Код.

Public Class Form1

   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

       If CheckBox1.Checked = True Then

           If CheckBox2.Checked = True Then

               If CheckBox3.Checked = True Then

                   TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold Or FontStyle.Italic Or FontStyle.Underline)

               Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold Or FontStyle.Italic)

               End If

           ElseIf CheckBox3.Checked = True Then

               TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold Or FontStyle.Underline)

           Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold)

           End If

       ElseIf CheckBox2.Checked = True Then

           If CheckBox3.Checked = True Then

               TextBox1.Font = New Font(TextBox1.Font, FontStyle.Italic Or FontStyle.Underline)

           Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Italic)

           End If

       ElseIf CheckBox3.Checked = True Then

           TextBox1.Font = New Font(TextBox1.Font, FontStyle.Underline)

       Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Regular)

       End If

   End Sub

   Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

       If CheckBox1.Checked = True Then

           If CheckBox2.Checked = True Then

               If CheckBox3.Checked = True Then

                   TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold Or FontStyle.Italic Or FontStyle.Underline)

               Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold Or FontStyle.Italic)

               End If

           ElseIf CheckBox3.Checked = True Then

               TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold Or FontStyle.Underline)

           Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold)

           End If

       ElseIf CheckBox2.Checked = True Then

           If CheckBox3.Checked = True Then

               TextBox1.Font = New Font(TextBox1.Font, FontStyle.Italic Or FontStyle.Underline)

           Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Italic)

           End If

       ElseIf CheckBox3.Checked = True Then

           TextBox1.Font = New Font(TextBox1.Font, FontStyle.Underline)

       Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Regular)

       End If

   End Sub

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

   End Sub

   Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

       If CheckBox1.Checked = True Then

           If CheckBox2.Checked = True Then

               If CheckBox3.Checked = True Then

                   TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold Or FontStyle.Italic Or FontStyle.Underline)

               Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold Or FontStyle.Italic)

               End If

           ElseIf CheckBox3.Checked = True Then

               TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold Or FontStyle.Underline)

           Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold)

           End If

       ElseIf CheckBox2.Checked = True Then

           If CheckBox3.Checked = True Then

               TextBox1.Font = New Font(TextBox1.Font, FontStyle.Italic Or FontStyle.Underline)

           Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Italic)

           End If

       ElseIf CheckBox3.Checked = True Then

           TextBox1.Font = New Font(TextBox1.Font, FontStyle.Underline)

       Else : TextBox1.Font = New Font(TextBox1.Font, FontStyle.Regular)

       End If

   End Sub

End Class

Результаты работы программы.

  

  

Задание 5. Изучение радиокнопки.

Напишите приложение в котором:

  1.  В зависимости от выбора соответствующей радиокнопки выполнялось бы вычисление синуса, косинуса и тангенса угла, значение которого в градусах вводится в текстовое поле.

Form1. Внешний вид.

Form1. Код.

Public Class Form1

   Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

       Label2.Text = Math.Cos(TextBox1.Text * Math.PI / 180)

   End Sub

   Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

       Label2.Text = Math.Tan(TextBox1.Text * Math.PI / 180)

   End Sub

   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

       Label2.Text = Math.Sin(TextBox1.Text * Math.PI / 180)

   End Sub

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

       RadioButton1.Checked = True

   End Sub

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

       If RadioButton1.Checked = True Then

           Label2.Text = Math.Sin(TextBox1.Text * Math.PI / 180)

       ElseIf RadioButton2.Checked = True Then

           Label2.Text = Math.Cos(TextBox1.Text * Math.PI / 180)

       Else : Label2.Text = Math.Tan(TextBox1.Text * Math.PI / 180)

       End If

   End Sub

End Class

Результаты работы программы.

     

Задание 6. Изучение списка.

Напишите приложение в котором:

  1.  Пользователь мог выбрать элемент списка, который отображался бы в поле метки. Список задать на этапе программирования.

Form1. Внешний вид.

Form1. Код.

Public Class Form1

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

       Dim i As Int32

       For i = 0 To 4

           ListBox1.Items.Add(i)

       Next

       Label1.Text = ("")

   End Sub

   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

       Label1.Text = ListBox1.SelectedItem

   End Sub

End Class

Результаты работы программы.

   

Задание 7. Изучение комбинированного списка.

Напишите приложение в котором:

  1.  Пользователь мог выбрать элемент списка, который отображался бы в поле метки. Список задать на этапе выполнения, записываю содержимое поля ввода по нажатию Enter.

Form1. Внешний вид.

Form1. Код.

Public Class Form1

   Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown

       If e.KeyCode = Keys.Enter Then

           e.SuppressKeyPress = True

           ComboBox1.SelectAll()

           If ComboBox1.SelectedText <> "" Then

               ComboBox1.Items.Add(ComboBox1.SelectedText)

           End If

       End If

   End Sub

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

       Label2.Text = ComboBox1.SelectedItem

   End Sub

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

       Label2.Text = ""

   End Sub

End Class

Результаты работы программы.

       


 

А также другие работы, которые могут Вас заинтересовать

68871. ВНУТРІШНЬОВИРОБНИЧІ ЕКОНОМІЧНІ ВІДНОСИНИ 63.5 KB
  Організація внутрівиробничих економічних відносин В умовах розвитку вільної ринкової економіки особливо на початковому етапі актуальною є проблема докорінної зміни механізму управління економікою підприємства.
68872. ЗОВНІШНЬОЕКОНОМІЧНА ДІЯЛЬНІСТЬ ПІДПРИЄМСТВА 62 KB
  Зовнішньоекономічна діяльність підприємства може мати ряд напрямків повязаних з обміном товарів науковотехнічним співробітництвом спеціалізацією і кооперуванням наданням економічного і технічного сприяння створенню спільних підприємств фінансово-кредитними відносинами та іншими формами співробітництва.
68873. САНАЦІЯ І БАНКРУТСТВО ПІДПРИЄМСТВА 62 KB
  Банкрутство як елемент ринкових відносин стало реальністю української економіки. В економічно розвинутих країнах банкрутство (за винятком зловмисного) розглядають як нормальне явище господарського життя. За статистикою США близько 1% діючих у країні фірм щорічно стають банкрутами.
68876. ОРГАНІЗАЦІЯ ОСНОВНОГО ВИРОБНИЦТВА 127.5 KB
  Поняття і класифікація виробничих процесів Успішність діяльності будьякого підприємства залежить від ряду умов серед яких особливе місце належить організації виробництва. Під організацією виробництва розуміють сукупність методів раціонального поєднання процесів праці та матеріальних елементів...
68877. ПІДПРИЄМСТВО В СТРУКТУРІ НАЦІОНАЛЬНОЇ ЕКОНОМІКИ 100.5 KB
  Зміна організаційної структури правового поля призвела до введення в дію постановою ВР №424-IV від 16.01.2003р. Господарського кодексу, в якім зазначено, що підприємство – самостійний суб’єкт господарювання, створений компетентними органами державної влади або місцевого господарювання...
68878. ПРАВЛІННЯ ТА ПЛАНУВАННЯ ДІЯЛЬНОСТІ ПІДПРИЄМСТВА 91.5 KB
  Структура органів управління підприємством. Поняття принципи і методи управління промисловим виробництвом. Процес виробництва матеріальних благ вимагає двох видів праці: перший праця для створення матеріальних благ другий робота з координації першої праці тобто управління.
68879. ПЕРСОНАЛ ПІДПРИЄМСТВА ТА ПРОДУКТИВНІСТЬ ПРАЦІ 106 KB
  Якими б досконалими не були засоби виробництва, знаряддя праці, їх ефективне використання завжди залежатиме від головної виробничої сили – тих, хто працює. Кадри – це основний (штатний) склад працівників. Усі, хто працює, залежно від ступеня їх участі у виробничій діяльності...