4925

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

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

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

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

Русский

2012-11-29

553.5 KB

20 чел.

Цель работы

Изучить основные свойства элемента управления 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  , строки состояния и исследовал их свойства.


 

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

36862. Word: Работа с таблицами 80 KB
  Выполните подготовительные действия для работы с таблицами: выполните команду меню Таблица и в меню этой команды установите команду Отображать сетку если в этой строке установлена команда Скрыть сетку то выделите эту строку и нажмите на левую кнопку мыши после чего там появится команда Отображать сетку; выведите на экран панель инструментов Таблицы и границы что проще всего сделать нажатием на кнопку Панель границ на Стандартной панели инструментов но можно также или использовать контекстное меню в области панелей...
36863. Работа со сводными таблицами. Создание сводных таблиц 681.5 KB
  Сохраните документ в своей папке под именем Сводные таблицы. Установите курсор в диапазоне ячеек содержащих значения заголовки строк и столбцов В любую заполненную данными ячейку таблицы Выберите команду Данные Сводная таблица. Во втором диалоговом окне проверьте правильно ли выделен диапазон данных для создания сводной таблицы или задайте диапазон данных если диапазон не был выбран Рис. Третье диалоговое окно предлагает выбрать лист для размещения сводной таблицы оставьте принятую по молчанию установку Новый лист Рис.
36864. Исследование недвоичных счетчиков 72.5 KB
  При построении счетчиков с дешифратором состояния наиболее целесообразно использовать счетчики интегрального состояния например 74191 см. Счетчик с дешифратором состояния. D; счетный вход ─ CLK; вход направления счета ─ U суммирование активен высоким уровнем ─ D вычитание активен низким уровнем; вход управления предварительной установкой ─ LOD; выход переноса ─ RCO выход дешифратора состояния активен низким уровнем при достижении последнего состояния счетчика. При выполнении этой части работы необходимо снимать временные диаграммы...
36865. Построение трехмерных графиков в Scilab 676.5 KB
  Функции plot3d и plot3d1 В Scilb поверхность можно построить с помощью функций plot3d или plot3d1. Их отличие состоит в том что plot3d строит поверхность и заливает ее одним цветом а plot3d1 поверхность каждая ячейка которой имеет цвет зависящий от значения функции в каждом соответствующем узле сетки. Обращение к функциям следующее: plot3dxyz[thetlphlegflgebox][keyn=vluen] plot3d1xyz[thetlphlegflgebox][keyn=vluen] здесь x векторстолбец значений абсцисс; y векторстолбец значений ординат; z матрица значений...
36866. ПОДГОТОВКА ДОКУМЕНТА MS EXCEL К ПЕЧАТИ 64.5 KB
  ПОДГОТОВКА ДОКУМЕНТА MS EXCEL К ПЕЧАТИ Цель работы: рассмотреть этапы подготовки документов MS Excel к печати. Вопросы компетенции навыки для освоения: Изучить элементы интерфейса MS Excel служащие для подготовки документа к печати. Освоить технологии и рассмотреть этапы подготовки документов MS Excel к печати. Подготовить к печати документ большого объема.
36867. Построение поверхностей заданных параметрически с помощью функций param3d и param3d1 752 KB
  Затем обратимся к функции prm3d передав ей математические выражения функций y y1 и y2 а также углы в градусах под которыми наблюдатель будет видеть формируемый график 45 и 35 Листинг 6. Построение линии заданной параметрически с помощью функции prm3d t=[0:0. Построение линии заданной параметрически с помощью функции prm3d t=50pi:0. Для построения графиков линий в одной системе координат обратимся к функции prm3d1.
36868. ОСНОВНЫЕ ВСТРОЕННЫЕ ФУНКЦИИ MS EXCEL 284 KB
  Имя функции описывает операцию которая эта функция выполняет. 1 или нажатием кнопки Вставить функция в строке Формул. В этом окне сначала следует выбрать категорию функции из списка Категория а затем в открывшемся алфавитном списке Функция указать нужную функцию. Математические функции Функция СУММ Функция СУММ суммирует множества чисел.
36869. Решение нелинейных уравнений и систем 120.5 KB
  Всякое алгебраическое уравнение относительно x можно записать в виде 0xn1xn−1 n−1xn = 0 где 0 0 n 1 и i коэффициенты алгебраического уравнения nй степени. Решение алгебраического уравнения в Scilb состоит из двух этапов. Примеры символьных операций с полиномами p1=poly[1 2]xc p1 = 1 2x p2=poly[3 7 2]xc p2 = 2 3 7x 2x p1p2 Сложение ns = 2 2 5x 2x p1p2 Вычитание ns = 2 4 9x 2x p1p2 Умножение ns = 2 3 3 13x 16x 4x p1 p2 Деление ns = 1 3 x p1^2 Возведение в...
36870. ВВОД И РЕДАКТИРОВАНИЕ ФОРМУЛ. СТАНДАРТНЫЕ ФУНКЦИИ EXCEL 312 KB
  На первом листе повторитеОбразец 1 Образец 2 Образец 3 и Образец 4 используя команды форматирования ячеек Таблица 1 и средства автозаполнения команда меню Правка Заполнить Прогрессия. Образец 1 Образец 2 Образец 3 Образец 4 Таблица 1 Команда меню вкладка Опции Действие Формат Ячейкивкладка Граница области Все Отдельные и Линии Создание границ таблицы или обрамление таблицы Формат Ячейкивкладка Число список Числовые форматы Изменениечислового формата Формат Ячейкивкладка Выравнивание раскрывающиеся списки по...