4926

Дополнительные элементы управления для разработки интерфейса пользователя

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

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

Цель работы Приобрести навыки в использовании дополнительных элементов управления для разработки интерфейса пользователя. Задание Разработайте форму для демонстрации графиков элементарных функций. Форма должна позволять выводить на экран графи...

Русский

2012-11-29

813.5 KB

8 чел.

Цель работы

Приобрести навыки в использовании дополнительных элементов управления для разработки интерфейса пользователя.

Задание

  1.  Разработайте форму для демонстрации графиков элементарных функций. Форма должна позволять выводить на экран график трехфазного тока в каждой фазе отдельно и в любых сочетаниях, а также графики экспоненциальной, гиперболической функций и тангенса.
  2.   Разработайте форму для редактирования текста в окне TextBox: выравнивание текста по левому краю, по правому краю, по центру,также выбора высоты шрифта и начертания: полужирный, курсив, выделенный использованием элементов управления флажки, переключатели и списки.
  3.   Разработайте форму для демонстрации управления цветом с использованием линеек прокрутки и счетчиков.

                                                                   Решение 1

  1.  При выполнении задания 1 установите на форму элемент управления PictureBox, флажки, переключатели и кнопки согласно это форме:

  1.   Выполните масштабирование элемента управления PictureBox симметрично относительно центра элемента управления, например следующим образом: Picture1.Scale (-2 * pi, 5)-(2 * pi, -5). Постройте на графике оси координат. Для увеличения толщины линии установите значение свойства DrawWidth элемента управления PictureBox равным двум. Элементы управления CheckBox и OptionButton заключенные в рамку можно объявить как элементы массива.

                                                                                                       

                                                                     Блок-схема

                                                       

                                                                      Программа

Private Sub Command1_Click()

Picture1.Cls

Picture1.Scale (-2 * 3.14, 5)-(2 * 3.14, -5)

Picture1.Line (-2 * 3.14, 0)-(2 * 3.14, 0)

Picture1.Line (0, -5)-(0, 5)

If Option4 Then

For x = -2 * 3.14 To 2 * 3.14 Step 0.01

If Check1(0).Value Then Y1 = Sin(x): Picture1.PSet (x, Y1), vbGreen

If Check1(1).Value Then Y2 = Sin(x + 2 * 3.14 / 3): Picture1.PSet (x, Y2), vbBlue

If Check1(2).Value Then y3 = Sin(x + 4 * 3.14 / 3): Picture1.PSet (x, y3), vbRed

Next x

ElseIf Check5 Then

For x = -2 * 3.141 To 2 * 3.141 Step 0.01

If Option1(0).Value Then Y1 = Exp(x): Picture1.PSet (x, Y1), vbMagenta

If Option1(1).Value Then Y2 = Tan(x): Picture1.PSet (x, Y2), vbCyan

If Option1(2).Value Then y3 = 1 / x: Picture1.PSet (x, y3), vbGreen

Next x

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Form1.Visible = False

Form2.Visible = True

End Sub

                                                      Результат

                                                            

                                                     

                                                               Решение 2

При выполнении задания 2 установите на форму элементы управления согласно этой форме :

Заполните списки элементов ComboBox .

                                             

                                                            Блок-схема

                                                        Программа

Dim Ctl As Control

Private Sub Command1_Click()

For Each Ctl In Controls

If TypeOf Ctl Is TextBox Then

Ctl.Font.Name = Combo1.Text

Ctl.Font.Bold = False

Ctl.Font.Italic = False

Ctl.Font.Underline = False

Ctl.Font.Strikethrough = False

If Check1 Then Ctl.Font.Bold = True

If Check2 Then Ctl.Font.Italic = True

If Check3 Then Ctl.Font.Underline = True

If Check4 Then Ctl.Font.Strikethrough = True

Ctl.FontSize = Combo2.Text

End If

Next Ctl

End Sub

Private Sub Command2_Click()

Form2.Visible = False

Form1.Visible = True

End Sub

Private Sub Command3_Click()

Form2.Visible = False

Form3.Visible = True

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "Arial"

Combo1.AddItem "Times New Roman"

Combo2.AddItem "20"

Combo2.AddItem "24"

End Sub

                                                         Решение 3

Для выполнения задания по пункту 3 разработайте форму согласно  этой форме :

Форма предназначена для исследования функции управления цветом RGB. Линейки прокрутки ScrollBar, окна ввода TextBox и счетчики UpDown, предназначенны для управления цветом объекта Text1. Вертикальные линейки прокрутки VScroll1, окна ввода Text2 и счетчики UpDown1 объявите как массивы элементов управления. Для демонстрации изменения цвета можно использовать любой объект, имеющий свойство BackColor: TextBox, Label, Shape, текущую форму. При изменении положения ползунка на любой линейке прокрутки синхронно должен изменяться цвет объекта Text1 и одновременно значение кода цвета должно отображаться в окне Text2. Код цвета можно вводить в окно Text2 с клавиатуры или с помощью элемента управления UpDown1. Одновременно с вводом кода цвета в окно Text2 должен меняться цвет объекта Text1 и положение ползунка. Максимальное значение свойства Value элементов управления VScroll1 и UpDown1 должно быть равно 255. При установке элементов управления Text2 и UpDown1 соблюдайте последовательность установки: установите элемент управления Text2(0), установите элемент управления UpDown1(0) и так далее. В этом случае свойства TabIndex элементов управления Text2(i) и UpDown1(i) будут смежными, что облегчит настройку элемента управления UpDown. Настройка элемента управления UpDown:  вызовите контекстное меню объекта UpDown1(0) щелчком правой кнопки мыши по объекту;  щелкните по пункту меню Properties. Открывается окно диалога Property Pages;  выберите в окне диалога закладку Buddy;  - установите флажки AutoBaddy и SyncBuddy. При правильной установке свойств TabIndex объектов Text2(0) и UpDown1(0) в окне Buddy Control появится имя объекта Text2(0), а в окне Buddy Property – слово Default – по умолчанию. Таким образом будут связаны свойства Text элемента управления Text2(0) и свойство Value элемента управления UpDown1(0). Настройте аналогично и другие элементы управления Text2 и UpDown1. Текст программы запишите в обработчики событий Change элемента управления Text2 и в обработчик события Scroll элемента управления VScroll1.

                                                            Блок-схема

                                                        Программа

Private Sub Text2_Change(Index As Integer)

If Val(Text2(Index).Text) <= 255 Then

VScroll1(Index).Value = Val(Text2(Index).Text)

Text1.BackColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).Value)

End If

End Sub

Private Sub VScroll1_Change(Index As Integer)

Text2(Index).Text = Str(VScroll1(Index).Value)

Text1.BackColor = RGB(VScroll1(0).Value, _

VScroll1(1).Value, VScroll1(2).Value)

End Sub

Private Sub Command2_Click()

Form3.Visible = False

Form2.Visible = True

End Sub

Private Sub Command1_Click()

End

End Sub

                                   

                                                         Результат

                                                        Вывод

Я приобрел навыки в использовании дополнительных элементов управления для разработки интерфейса пользователя.


 

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

22351. Теоремы Лиувилля и Мореры 98 KB
  По определению аналитическая функция это функция комплексной переменной обладающая производной в каждой точке некоторой области D. Если функция fz аналитична в области D и непрерывна в то она обладает в каждой точке D производными всех порядков причем n я производная представляется формулой 1 где C граница области D. По определению производной и формуле Коши имеем: Но очевидно что при функция равномерна для всех на C стремиться к и следовательно по теореме 2 предыдущей лекции для случая семейства функций...
22352. Представление аналитических функций рядами 464 KB
  Ряды Тейлора. при каких условиях функция представима своим рядом Тейлора с центром в точке : 4 даёт Теорема 1 Коши. Функция представима своим рядом Тейлора 4 в любом открытом круге с центром в точке в котором она аналитична.
22353. Ряды Лорана 269.5 KB
  Поэтому обе формулы можно объединить в одну: 7 Полученное разложение 6 функции fz по положительным и отрицательным степеням za с коэффициентами определяемыми по формулам 7 называется лорановским разложением функции fz с центром в точке a; ряд 2 называется правильной а ряд 4 главной частью этого разложения. и в нашем рассуждении могут быть взяты сколь угодно близкими к r и R а q может сколь угодно мало отличаться от 1 то разложение 6 можно считать справедливым для...
22354. Примеры особых точек 2.06 MB
  Функции имеют в начале координат устранимую особую точку. Функции имеют начале координат существенную особую точку. Проверим справедливость теоремы Сохоцкого для функции . Целые функции.
22355. Бесконечно удаленная точка 682.5 KB
  Пусть функция аналитична в некоторой окрестности бесконечно удаленной точки кроме самой точки . В этом случае функция очевидно ограничена и в некоторой окрестности точки . Пусть функция аналитична в полной поскости. Но тогда функция ограничена во всей плоскости: для всех имеем .
22356. Приложение теории вычетов 797 KB
  Напомним что мероморфной называется функция fz все конечные особые точки которой являются полюсами. в любой ограниченной области такая функция может иметь лишь конечное число полюсов то все ее полюсы можно пронумеровать например в порядке не убывания модулей: Будем обозначать главную часть fz в точке т. Если мероморфная функция fz имеет лишь конечное число полюсов и кроме того является либо правильной регулярной ее точкой либо полюсом то эта функция представляется в виде суммы своих главных частей 3 и...
22357. Обращение степенных рядов 217.5 KB
  Выберем число столь малым чтобы в круге функция обращалась в нуль только в точке . Каждое значение из круга функция принимает в круге только один раз. В самом деле на окружности выполняется неравенство и по теореме Руше функция имеет в круге столько же нулей сколько и функция т. Итак пусть тот круг в котором функция принимает каждое значение ровно один раз а область плоскости ограниченная кривой кривая является простой кривой т.
22358. Аналитическое продолжение 680.5 KB
  Представляет большой интерес вопрос нельзя ли расширить область определения этой функции сохранив регулярность. Функцию регулярную в области содержащей и совпадающую с регулярной в области называют аналитическим продолжением функции на область . Если аналитическое продолжение регулярной функции в данную более широкую область определения возможно то оно возможно лишь единственным образом. В самом деле пусть существуют два аналитических продолжения и функции регулярной в области в одну и туже область .