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

                                   

                                                         Результат

                                                        Вывод

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


 

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

26433. Опорно-двигательный аппарат (apparatus locomotorius) 20.5 KB
  Все его системы активно участвуют в реализации биомеханического двигательного поведения животных которое складывается из 2 компонентов: статический удержание животного на ногах во время покоя динамический перемещение тела в пространстве локомоция. Костносвязочная и мышечная системы единый биомеханический аппарат а его системы взаимообуславливают друг друга.
26434. Орган слуха и равновесия 20.5 KB
  Наружное ухо: ушная раковина и наружный слуховой проход железы выделяющие серу. Среднее ухо: барабанная полость молоточек наковальня чечевицеобразная косточка и стремечко евстахиева труба с носоглоткой. Внутреннее ухо: костный и перепончатый лабиринт. Внутреннее ухо состоит из преддверия vestibulum улитки cochlea и вестибулярного аппарата.
26435. Организм и его составляющие 21 KB
  Уровни анатомической организации организма: организм аппарат функциональное объединение разнородных органов которые отличаются своим происхождением развитием но объединяются общностью функций эндокринный опорнодвигательный мочеполовой аппарат система органов совокупность органов имеющих общий план строения общность развития из 1 эмбрионального зачатка функций система органов пищеварения трубкообразный тип из энтодермы. 3 группы систем органов: соматическая висцеральная и интегрирующая сердечнососудистая система...
26436. Органы кроветворения и иммунной защиты 21.5 KB
  Они делятся на: центральные органы красный костный мозг и тимус и периферические контролирующие внутреннюю среду: селезёнка и лимфоузлы; на границе организма с внешней средой: миндалины лимфоидные образования пищеварительного тракта дыхательного аппарата мочеполового аппарата. Красный костный мозг medulla osse в костях вырабатывает в периферическую кровь кровяные клетки.
26437. Органы мочевыделения organa uropoetica 21.5 KB
  Анатомический состав: почки постоянно образуют мочу мочеточники непарный мочевой пузырь и мочеиспускательный канал у самцов мочеполовой. У птиц: почки мочеточники уросинус клоаки. Иннервация: почки: вагусом через экстра и интрамуральные ганглии. Кровоснабжение: почки: почечные арт.
26438. Парасимпатическая НС 20 KB
  Парасимпатическая иннервация происходит в голове от центров среднего и продолговатого мозга через экстра и интрамуральные ганглии а также ресничный крылонёбный подчелюстной и ушной ганглии; органы грудной и брюшной полости от продолговатого мозга по вагусу через экстра и интрамуральные ганглии тазовой полости от крестцового отдела спинного мозга по тазовым нервам через экстра и интрамуральные ганглии. Перерыв происходит в парасимпатических ганглиях: экстра и интрамуральных.
26439. Передняя кишка 21.5 KB
  Пищевод трубчатый мышечный орган выстланный слизистой оболочкой покрытой многослойным плоским ороговевающим эпителием устойчивым к воздействиям корма. Пищевод начинается в глотке и заканчивается в желудке. По расположению различают шейную грудную и брюшную части пищевода.
26440. Плечевой пояс 21 KB
  В области лопатки располагаются мышцы действующие на плечевой сустав предостная supraspinatus дельтовидная заостная infraspinatus малая круглая teres minor клювовидноплечевая coracobrachialis подлопаточная subscapularis большая круглая напрягатель капсулы сустава а также часть мышц плечевого пояса трапециевидная ромбовидная зубчатая вентральная serratus ventralis. У птиц плечевой пояс имеет трёхчленное построение: саблевидная лопатка коракоид и ключица.
26441. ПНС 20 KB
  По дорсальным корешкам через лежащие на дорсальном корешке чувствительные ганглии происходит афферентная связь со всеми органами тела. Через вентральные корешки осуществляются: прямая эфферентная соматическая связь центров с оперечно исчерченной мускулатурой; прерывистая эфферентная связь с мышечной стенкой сосудов перерыв происходит в симпатических ганглиях; прерывистая эфферентная связь с мышечной стенкой внутренностей и железами перерыв происходит в экстра или интрамуральных ганглиях.