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

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

       


 

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

66182. Вибрионы. Спирохеты. Жгутики у бактерий. Изучение подвижности 107.5 KB
  Актуальность темы. Знание морфологии вибрионов и спирохет имеет большое значение для микроскопического метода лабораторной диагностики инфекционных болезней. Изучение морфологии осуществляется как у окрашенных с помощью иммерсионного микроскопа...
66183. Лабораторная диагностика аденовирусных инфекций 77 KB
  На модели аденовирусов изучают важные молекулярно-биологические факторы. Немного позже у лиц с заболеваниями верхних дыхательных путей сопровождающихся конъюнктивитами были выделены другие типы аденовирусов. Диаметр вирионов аденовирусов 60–90 нм они содержат двунитчатую...
66185. Пайка проводів 147.5 KB
  Припої повинні мати гарну рідинотекучість малий інтервал температур кристалізації механічну міцність корозійну стійкість і високу електропровідність Однак існує ряд факторів що утрудняють процес пайки. Припої підрозділяють на м'які і тверді таблиця.
66186. Розробка структури служби експлуатації електрообладнання і засобів автоматизації 166.5 KB
  Кожне електрогосподарство представляє собою велику кількість різноманітного електроустаткування, електроустановок, ліній електропередач, трансформаторних підстанцій, КТП, апаратури керування, захисту, силова і освітлювальна проводка.
66187. Лабораторная диагностика энтеровирусных инфекций 88.5 KB
  Цель: Изучение лабораторной диагностики полиомиелита и инфекций вызванных вирусами Коксаки и ЕСНО. Представителями рода являются вирусы полиомиелита Коксаки ECHO энтеровирусы типов 6871. Широко распространено носительство вирусов полиомиелита Коксаки ECHO.
66188. Монтаж люмінесцентних світильників 67.5 KB
  Люмінесцентні лампи відносяться до групи газорозрядних джерел світла. Всередину вводиться дозовану кількість ртуті яка при роботі лампи переходить в пароподібний стан. На кінцях лампи є цоколі з контактними штирями 1 для підключення лампи в ланцюг.
66189. Планування робіт з технічного обслуговування і поточного ремонту електрообладнання 82 KB
  Планування ТО і ПР енергетичного обладнання здійснюється по нормативним значенням періодичності і трудомісткості цих заходів з планування умов експлуатації, що складаються в сільськогосподарському підприємстві.
66190. Лабораторная диагностика бешенства 86 KB
  Бешенство (синонимы: rabies, lyssa, hydrophobia - водобоязнь) – особо опасная инфекционная болезнь человека и теплокровных животных, передающаяся при контакте с инфицированным животным (укус, ослюнение микроповреждений)...