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

                                   

                                                         Результат

                                                        Вывод

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


 

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

81936. Теоретичні та практичні аспекти вдосконалення організації праці та виробництва на прикладі місцевого підприємства 3.22 MB
  Важливою ознакою НОП є її спрямованість на рішення взаємозалежних груп завдань: економічних економія ресурсів підвищення якості продукції ріст результативності виробництва; психофізіологічних оздоровлення виробничого середовища гармонізація психофізіологічних навантажень на людину зниження ваги...
81937. Проблема профессионального самоопределения молодежи в условиях начального профессионального образования 537.5 KB
  В отечественной психологии накоплен богатый опыт в области теории профессионального самоопределения, который во многом предопределил современные подходы к данной проблеме. Это ставшими классическими исследования в области профессиональной ориентации и профконсультирования...
81938. Монтаж главных распределительных щитов (ГРЩ) 798.5 KB
  Щиты ГРЩ предназначены для приёма и распределения электроэнергии (возможен также учёт) в сетях переменного тока с разделенной землёй и нейтралью возможно подключение к сетям с глухозаземлённой нейтралью тип заземления TN-C, TN-S, TN-C-S напряжением до 380 вольт частотой 50 Гц...
81939. Особенности начисления заработной платы в бюджетном учреждении (на примере ФГУ «Карабашская КЭЧ района») 62.03 KB
  Учет труда и заработной платы по праву занимает одно из центральных мест во всей системе учета в учреждении. Он должен обеспечить оперативный контроль над количеством и качеством труда за использованием средств включаемых в фонд заработной платы и выплаты социального характера.
81940. Ресторанный комплекс при клубе знаменитых людей: ресторан высшего класса на 140 мест, бар на 28 мест, арт-кафе на 40 мест, банкетный зал на 100 мест 395.5 KB
  Дипломная работа включает разработку и обоснование использования различных форм и методов обслуживания, выбор средств и информационного обеспечения процесса обслуживания, порядка подготовки торговых помещений к обслуживанию. Определение рыночной стратегии выхода на рынок: сбытовой, ценовой, и рекламной политики.
81941. Управление инновационной политикой компании по продвижению продукции нетрадиционной энергетики на мировой рынок 771.81 KB
  Экономика глобализируется вследствие возникновения новых форм конкуренции, когда возрастающее количества участников мирохозйственных связей не имеет определенной государственной принадлежности. Развертывание процесса глобализации противоречиво с точки зрения характера влияния на национальные экономики...
81942. ОФИСНАЯ PBX НА БАЗЕ СЕРВЕРА АSTERISK 13.09 MB
  Целью квалификационной работы является создание офисной PBX на базе сервера Asterisk с возможностями. Прием и распределения вызовов через диспетчера, удержание вызова, переадресация вызова, переадресация вызова при отсутствии ответа.
81943. ОРГАНИЗАЦИЯ РАБОТЫ ПО СТИМУЛИРОВАНИЮ СБЫТА И ПРОДВИЖЕНИЮ ПРОДУКЦИИ НА ПРЕДПРИЯТИИ 110 KB
  Целью исследования настоящей дипломной работы является: совершенствование работы по стимулированию сбыта и продвижению продукции в ООО «Целебные кристаллы». Задачи исследования: проанализировать теоретические аспекты работы по стимулированию сбыта и продвижению продукции на предприятии.
81944. Изучение особенностей существования финансово-промышленных групп в Российской Федерации и за рубежом 382.5 KB
  Одной из основных целей данной работы является выработка альтернативного существующему подхода к формированию финансово промышленной группы не на основе ссудного кредитования а за счет повышения внутренней эффективности и качественно другой информационной составляющей деятельности ФПГ.