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

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

       


 

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

34748. Виды летоисчисления (эры) и точки отсчета 15.88 KB
  К первым например относится эра Кали в Индии. К политическим эрам относятся те исходной точкой которых служат даты основания городов вступления на престол различных правителей и т. Такова например эра постконсулата исходной точкой которой явилось избрание последнего римского консула Флавия Василия Меньшего в 541 г.В реальных эрах за точку отсчета времени принимается историческое событие в фиктивных легендарное.
34749. Эра от Рождества Христова Дионисия Малого 11.06 KB
  эры Диоклетиана монахом Дионисием Малым. от начала правления императора Диоклетиана около 243 313 гг. Римляне называли это эрой Диоклетиана. Дионисии Малый считал приличнее заменить эру язычника и противника христианства Диоклетиана другой эрой каклибо связанной с христианством.
34750. Обыденные представления человека Древней Руси о времени и хронологии 17.96 KB
  Таковы например масленица коляда от латинского календы; другое название этого праздника овсень от овесень которым отмечали поворот солнца на лето красная горка праздник встречи весны радуница и русалии весенний и летний поминальные праздники и другие.Пережиточные названия дней недели связанные с астральными культами сохранились в некоторых странах Европы до наших дней например: немецкие Montg день Луны понеденьник Sonntg день солнца воскресенье французское Vendredi день Венеры пятница...
34751. Реформа Летоисчисления Петра 1 11.17 KB
  Петр же хотел чтобы подобно остальным европейским государствам новый год считали от Рождества Христова с 1 января. С этой целью 20 декабря был издан указ чтобы Новый год по примеру всех остальных христианских держав считать с 1 января через 8 дней после Рождества Христова 25 декабря по старому стилю. Кроме того повсюду где место удобное от 1 до 7 января надобно зажигать костры и смоляные бочки .
34752. Понятие о мартовском, сентябрьском и ультрамартовском годах византийской эры. Способы их перевода на современную систему летоисчисления 55.18 KB
  Перевод даты по ультрамартовскому стилю на современную систему летосчисления: Если событие приходится на период времени между мартом и декабрем включительно для перевода в современную систему счета времени необходимо от даты по эре от сотворения мира отнять 5509 лет. Задача 1:Перевести в современную систему летосчисления дату приведенную по ультрамартовскому стилю: 18 июля 6793 г. Решение:Так как дата приведена по ультрамартовскому стилю то для месяца июля вычитаем 5509. Задача 2:Перевести в современную систему летосчисления дату...
34753. Датировка событий по указаниям на церковные праздники. Датировка по астрономическим явлениям 15.25 KB
  Что касается подвижных праздников то все они зависят от Пасхи отделяясь от нее определенными постоянными сроками до Пасхи или после нее. Например Вознесение Господне четверг через 39 дней после Пасхи Вербное воскресенье за 7 дней до Пасхи Фомино воскресенье через 7 дней после Пасхи вход Господен в Иерусалим за 7 дней до Пасхи.Подвижность самой Пасхи объясняется тем что она рассчитывается по лунному календарю.Для определения дня Пасхи пользуются специальными таблицами обращения великого индиктиона.
34754. Определение дней недели с помощью формул и таблиц 15.12 KB
  Существует несколько математических формул для определения дня недели. Перевощикова: X равен остатку от деления выражения [H 1 1 4 H1 T1]:7 гдеX порядковый номер дня недели считая с воскресенья воскресенье 1 понедельник 2 и т. Черухина: X равен остатку от деления выражения [5 Н:4МТ]:7 гдеX порядковый номер дня недели считая с понедельника понедельник 1 вторник 2 и т.
34755. Предмет, цели и задачи метрологии 16.23 KB
  Задачей метрологии является обеспечение единства и необходимой точности измерений. Метрология делится на 3 самостоятельных раздела: Законодательная метрология предметом которой является установление обязательных технических и юридических требований по применению единиц физических величин эталонов методов и средств измерений направленных на обеспечение единства и необходимой точности измерений в интересах общества. Цели и задачи метрологии: Создание общей теории измерений; образование единиц физических величин и систем единиц;...
34756. Диалектика как учение о всеобщей связи и развитии. Метафизическое понимание развития. Объективная и субъективная диалектика. Софистика и эклектика. Диалектическая логика и догматизм 27 KB
  Объективная и субъективная диалектика. Диалектическая логика и догматизм Диалектика достаточно сложное учение и даже наше поверхностное учитывая дефицит времени рассмотрение ее проблематики займет у нас шесть вопросов. Начало традиционно дается определение диалектика. Учитывая что диалектика присутствовала и в дофилософские времена и разрабатывалась на протяжении всей истории философии целесообразно дать два определения диалектика.