4925

Основные свойства элемента управления MSFIexGrid

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

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

Цель работы Изучить основные свойства элемента управления MSFIexGrid (сетки) и способы использования ее для вывода информации. Задание 1 1. Разработайте форму для ввода данных в выделенную ячейку и исследуйте свойства сетки MSFIexGrid. 2. Составьте ...

Русский

2012-11-29

553.5 KB

12 чел.

Цель работы

Изучить основные свойства элемента управления MSFIexGrid (сетки) и способы использования ее для вывода информации.

Задание 1

1. Разработайте форму для ввода данных в выделенную ячейку и исследуйте свойства сетки MSFIexGrid.

2. Составьте таблицу значений функции на заданном отрезке. Результаты

запишите в массив переменных и выведите на экран с помощью сетки

З. Протабулировать функцию двух переменных с выводом результатов в сетку. 

Решение

  1.  Разработайте следующую форму:

2) Поместите на панель элементов управления сетку: введите команду Project, Components, установите флажок у элемента Microsoft FlexGrid Control 6.0;

3) Установите сетку на форму. Присвойте ей имя Grid1.

4) установите в окне свойств сетки значения требуемых свойств: Rows = 10, Cols = 10, FixedRows =1, FixedCols=1;

5) установите окно ввода txtTextl и кнопку Ввод (имя - cmdVvod);

                                                               

                                                             

                                                              Блок-схема

                                                       

                                                              Программа

Private Sub Command1_Click()

Form1.Visible = False

Form2.Visible = True

End Sub

    Private Sub MSFlexGrid1_SelChange()

    'выделенная ячейка закрашивается желтым цветом

MSFlexGrid1.CellBackColor = QBColor(14)

End Sub

Private Sub cmdVvod_Click()

' в выделенную ячейку вводится текст из объекта TextBox

MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel) = txtText1.Text

End Sub

Private Sub MSFlexGrid1_LeaveCell()

' обработчик события отмены выделения ячейки, при щелчке мышью

'по другой ячейке, ячейка закрашивается белым цветом

MSFlexGrid1.CellBackColor = QBColor(15)

End Sub

 

Private Sub MSFlexGrid1_LostFocus()

' очистка ячейки при потере фокуса

MSFlexGrid1.CellBackColor = QBColor(15)

End Sub

                                                      

                                                      Задание 2

Разработать форму для табулирования функции двух переменных. Данные выводить в сетку и сохранять в массиве для последующего вывода на печать. Поместить на форму строку состояния. В строку состояния выводить динамически  число строк и столбцов в массиве и текущее время.

                                                     

                                                     Решение

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

Поместите на форму строку состояния:

   1) Введите команду Project, Components и установите флажок у компонента Microsoft Windows Common Controls 6.0(SP3);

2) Установите на форму элемент управления StatusBar (строка состояния);

3) Вызовите контекстное меню строки состояния;

откройте закладку Panels и установите четыре поля: первое и второе текстовые (sbrText), третье - время (sbrTime), четвертое - текстовое (резервное). Все поля в строке состояния имеют индекс (как массивы элементов управления), тип полей устанавливается с помощью свойства Style. Заполнять поля будем программным путем.

                                             

                                                       Блок-схема

                                                Программа

Dim Xn As Single, Xk As Single, Dx As Single

Dim Yn As Single, Yk As Single, Dy As Single

Dim X As Single, Y As Single

Dim M As Integer, N As Integer

Dim Z() As Single

Private Sub Command1_Click()

Form1.Visible = True

Form2.Visible = False

End Sub

Private Sub Command2_Click()

Dim i As Integer, j As Integer

Cls

' ввод данных

Xn = Val(Text1(0).Text):     Xk = Val(Text1(1).Text)

Dx = Val(Text1(2).Text):     Yn = Val(Text1(3).Text)

Yk = Val(Text1(4).Text):      Dy = Val(Text1(5).Text)

' определение размерности массива и сетки

N = Int((Xk - Xn) / Dx) + 1

М = Int((Yk - Yn) / Dy) + 1

ReDim Z(N, M)

Grid1.Rows = N + 1

Grid1.Cols = M + 1

' нумерация строк

Grid1.ColAlignment(0) = 3

For i = 1 To N

Grid1.TextMatrix(l, 0) = Str$(i)

Next i

' нумерация столбцов

For j = 1 To M

Grid1.Col = j

Grid1.ColAlignment(j) = 3

Grid1.TextMatrix(0, j) = Str$(j)

Next j

' вычисление значения Z

X = Xn

For i = 1 To N

Y = Yn

For j = 1 To M

Z(i, j) = X + Y

Y = Y + Dy

Grid1.TextMatrix(i, j) = Str$(Round(Z(i, j), "#.##"))

Next j

X = X + Dx

Next i

StatusBar1.Panels(1) = "N=" & Str(N) ' вывод в строку состояния значений

StatusBar1.Panels(2) = "М=" & Str(M) ' числа строк и столбцов

End Sub

Private Sub Command3_Click()

End

End Sub

                                                        Вывод

Я научился программировать в среде в Visual Basic c использованием сетки     MSFIexGrid  , строки состояния и исследовал их свойства.


 

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

79693. Система материального стимулирования сотрудника для повышения эффективности работы предприятия 292.5 KB
  Истинные причины, побуждающие работника максимально прикладывать усилия в работе определить нелегко. Этими условиями являются его желание, возможности, квалификация и, конечно же, мотивация - то есть побуждение
79694. Історична панорама розвитку математики 82.22 KB
  Паралельно розвивалися уявлення про число Число́ одне з найголовніших понять математики яке в багатьох випадках може виступати як міра кількості чогось. Математика найдавніших цивілізацій Найдавніші відомості про використання математики господарські задачі в Стародавньому Єгипті Старода́вній Єги́пет одна з найдавніших держав на Землі і колиска цивілізації Середземноморя. Папірус Рінда Московський папірус Шкіряний сувій єгипетської математики та Вавилонії Вавило́нія давня держава в південній частині Месопотамії територія...
79695. Математика Християнського середньовіччя та епохи Відродження 485.53 KB
  Опанувавши елементарні знання, кращі учні монастирських і соборних шкіл вивчали «сім вільних мистецтв», які поділялися на дві частини: тривіум (граматика, риторика, діалектика) і квадривіум (арифметика, геометрія, астрономія, музика)
79696. Математика в Стародавньому Китаї 245.75 KB
  Періоди розвитку математики в Китаї Древнє математичне Десятікніжье Математика Китаю Висновок Список літератури Введення Математика в Китаї розвивалася з глибокої давнини і досягла свого найбільшого розвитку до XIV ст. Наша увага буде приділена математики стародавнього Китаю в період з II ст. Історія математики стародавнього Китаю розглядається в роботі у вигляді декількох глав кожна з яких є по суті незалежної один від одного про найбільш характерні проблеми математики стародавнього...
79697. Основні етапи розвитку математики 70.41 KB
  Основні етапи розвитку математики. Основні етапи становлення сучасної математики. Основні етапи розвитку математики. Історію математики не можна розглядати у відриві від історії розвитку філософії і науки в цілому бо усі ці три інтелектуальні пізнання тісно повязані між собою і роблять вплив один на одного як за часів Стародавнього світу так і в Новий час.
79698. Развитие математики 37.52 KB
  История развития математики – это не только история развития математических идей понятий и направлений но это и история взаимосвязи математики с человеческой деятельностью социально-экономическими условиями различных эпох.Становление и развитие математики как науки возникновение ее новых разделов тесно связано с развитием потребностей общества в измерениях контроле особенно в областях аграрной промышленной и налогообложения. Первые области применения математики были связаны с созерцанием звезд и земледелием.
79699. Андрей Николаевич Колмогоров - историк математики 29.4 KB
  В случае с историей математики это выглядит даже более естественно чем с физикой: напомню что свою научную карьеру в самом начале 20х гг. Статья начинается с определения математики данного Ф. Согласно Колмогорову история эта распадается на четыре этапа: 1 период зарождения математики на протяжении которого был накоплен достаточно большой фактический материал 2 период элементарной математики начинающийся в VIV вв.
79700. Нормативно-правовой акт и его виды 41.5 KB
  Обозначенные отличия нормативно-правового акта от иных источников права являются и выражением основных признаков нормативно-правового акта. Что касается видов, тот требуется более четкого рассмотрения каждого в по отдельности, как закона так и подзаконного акта.
79701. Правотворчество и систематизация законодательства 61 KB
  К способам правотворчества относят: Принятие нормативноправовых актов органами государства Принятие нормативных актов народом путем референдума Заключение различного рода нормативных договоров Признание юридических прецедентов Санкционирование обычаев или норм выработанных негосударственными организациями. В юриспруденции выработан ряд принципов правотворчества выражающихся в следующих закрепленных принципах: Принцип демократизма – население должно привлекаться к участию в правотворчестве а его мнение учитываться при разработке и...