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

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

       


 

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

26313. Крестьянская война в Германии. Т.Мюнцер 40.51 KB
  Крестьянская война в Германии: Обострение классовой борьбы народных масс в деятельность союза Башмак С наступлением феодальной реакции нарастала борьба крестьян. характерно значительно более тесное сближение крестьянской массы с городскими низами чем в предшествовавший период. Усиление же крестьянскоплебейского лагеря не могло не оказать влияния на радикальные элементы в бюргерстве и на известный подъём бюргерской оппозиции вообще. Такое крестьянское общество было раскрыто в 1502 г.
26314. Реформация в Швейцарии. У.Цвингли и Ж.Кальвин 34.59 KB
  Начало же этому было положено в Цюрихе где в 1518 году священником кафедрального собора был избран известный проповедник Ульрих Цвингли. Даже изгнание Цвингли торговца индульгенциями монаха Самсона удостоилась не осуждения а похвалы представителя местного епископа. Так продолжалось до 1522 года когда Цвингли сам пошел на обострение ситуации. Однако и этот вызов не вызвал ожидаемых мер со стороны римского священноначалия напротив папский легат передал Цвингли письмо в котором ему сулились огромные блага если бы он стал поддерживать...
26315. Реформация и религиозные (гражданские) войны во Франции 29.06 KB
  Широко стали распространяться идеи Кальвина во Франции при короле Генрихе II. Именно при Генрихе II кальвинизм во Франции достиг наибольшего распространения. Ослабление королевской власти при сыновьях Генриха II благоприятствовало политическим притязаниям феодальной аристократии и борьба за религиозную свободу слилась с борьбой за власть. Своего короля Генриха Наваррского гугеноты воспринимали как конституционного государя.
26316. Реформация в Англии 14.33 KB
  Реформация в Англии Англия страна известная своими реформаторскими тенденциями. Однако решающую роль в Реформации в Англии предстояло сыграть другому человеку. Реформацию в Англии можно в полном смысле назвать Реформацией сверху так как во главе её стал английский король Генрих VIII. Реформация в Англии при Генрихе VIII Первоначально Генрих был противником Реформации даже написал книги против Лютера В защиту семи таинств 1521 в основе которой были не аргументы а брань в адрес виттенбергского реформатора.
26317. Контрреформация в странах Западной Европы 25.22 KB
  Контрреформация Контрреформация в Западной Европе католическое движение возникшее после выдвижения идей Лютера Кальвина Цвингли и других реформаторов имевшее своей целью восстановить престиж католической церкви и веры. Кроме этих мер принимались и решения по изменению организации церкви. Упрёки по поводу упадка нравов внутри церкви были слышны уже в XII в. И внутри церкви были те кто пытался искоренить эти недостатки.
26318. Абсолютизм в Западной Европе (на примере Англии, Франции, Испании) 64.42 KB
  В XIV в. Но все же парламент сыграл прогрессивную роль в политическом развитии Англии XIV XVвв. Фронда Людовик XIII лишь несколькими месяцами пережил своего министра и престол перешёл к его сыну Людовику XIV 1643 1715 годы во время малолетства которого управляли мать его Анна Австрийская и кардинал Мазарини продолжатель политики Ришельё. Людовик XIV Дело кончилось победой кардинала Мазарини но молодой король вынес из этой борьбы крайне печальные воспоминания.
26319. Социально – экономичское и политическое развитие Нидерландов в п.п. XVI в. 29.97 KB
  XVI в. был создан тот трамплин отталкиваясь от которого Нидерланды осуществили поразивший современников динамичный прыжок в XVI столетие. На рынках Эклоо Гента Куртре к середине XVI в. В XVI в.
26320. Усиление феодально – католической реакции при Филиппе II. Назревание революционной ситуации 16.7 KB
  Усиление испанского гнета во второй половине XVI в. Филипп II c самого начала решил установить в Нидерландах бюрократическую систему испанского абсолютизма с целью полного экономического политического и религиозного подчинения страны. Для достижения этой цели испанское правительство наметило следующие мероприятия: увеличение количества испанских войск в стране; сосредоточение фактической власти в руках узкого состава государственного совета консульты членами которого были верные слуги испанского правительства придание епископам...
26321. Основные этапы Нидерландской буржуазной революции и их характерные особенности 25.61 KB
  В рамках усилий по созданию стабильного и надёжного правительства Нидерландов Филипп назначил Маргариту Пармскую штатгальтером Нидерландов. Он продолжил политику своего отца при назначении членов высшего дворянства Нидерландов в Государственный совет руководящий орган семнадцати провинций. Тем не менее уже в 1558 году штаты провинций и генеральный штат Нидерландов стали противоречить пожеланиям Филиппа возражая против его налоговой политики и требуя вывода испанских войск с юга Нидерландов. Несмотря на это к 1570 году испанцы в целом...