4925

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

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

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

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

Русский

2012-11-29

553.5 KB

14 чел.

Цель работы

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


 

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

41877. ТОТАЛИТАРИЗМ КАК ПОЛИТОЛОГИЧЕСКИЙ КОНЦЕПТ: ТРАНСФОРМАЦИЯ ПОНЯТИЯ 346 KB
  В результате своеобразной дефрагментации понятия тоталитаризм в последние десятилетия научное познание этого явления оказалось в серой зоне неопределенности: старые теории объективно отмирают но новые концепции не успевают их замещать
41878. Создание сложных комплексных объектов в 3D MAX 1.88 MB
  Выберите в Меню создание формы линии на панели инструментов Object Type сплайны. Для этого задайтесь замкнутыми сплайнлиниями выберите Strt New Shpes сплайны и Линия Нарисуйте несколько замкнутых линий. Вернитесь в раздел геометрия выберите раздел Compound Objects на закладку ландшафт Terrin В пункте Pick Opernd выберите Pick Opernd и Reference. Выберите 2 объемные фигуры сферу и цилиндр или другие.
41879. Сброс и подбор пароля Windows7 1.49 MB
  Сброс пароля Windows7 На многих компьютерах ноутбуках и других устройствах под управлением Windows 7 пользователи устанавливают пароли на вход.Сброс пароля Windows 7 при помощи командной строки Для реализации этого способа необходим доступ к командной строке с правами Администратора.Сначала нам необходимо создать установочный диск или флешку с Windows 7.Загружаемся с диска и запускаем установку:Нажимаем Далее:Щелкаем по ссылке Восстановление системы:Немного ждем пока происходит поиск установленных Windows выбираете вашу Windows 7 и...
41880. Создание документов с помощью функции слияния 202.6 KB
  Принцип слияния: при подготовке серийного документа используются файл с основным документом и файл источника данных. В основной документ вставляются поля подстановки или поля слияния в которые затем и помещаются переменные данные в результате чего образуется готовый документ. Во время слияния MS Word строит на основе этих файлов множество необходимых документов.
41882. Элементный анализ органических веществ 84.34 KB
  В сухую пробирку насыпают черный порошок оксида меди. Добавляют половину микролопатки глюкозы и тщательно перемешивают встряхивая пробирку. Пробирку закрывают пробкой с газоотводной трубкой при этом конец трубки должен упираться в вату. Нижний конец трубки опускают в пробирку с 56 каплями баритовой воды.
41883. СТАТИЧЕСКАЯ И ДИНАМИЧЕСКАЯ НАСТРОЙКА СТАНКА 3.23 MB
  Для выполнения любой операции механической обработки заготовок необходимо произвести настройку станка. Под настройкой понимают процесс установки и закрепления режущего инструмента, приспособлений и других устройств (упоров, кулачков и т.д.) для обеспечения необходимого взаимного положения обрабатываемой заготовки и инструмента, при котором выдерживается заданная точность обработки
41884. Исследование метеорологических условий (микроклимата) в производственном помещении 187.53 KB
  Измерить температуру влажность скорость движения воздуха создаваемую вентилятором и атмосферное давление воздуха в помещении лаборатории результаты измерений занести в таблицу 1. Определить расчетным путем относительную влажность воздуха по результатам измерений параметров микроклимата для аспирационного психрометра используя формулы 2 и 3 методических указаний. Для измерения температуры воздуха в помещении наиболее целесообразно использовать сухой термометр аспирационного психрометра. Относительная влажность воздуха Аспирационный...
41885. Информатика и системы вычисления. Сборник лабораторных работ. 108.14 KB
  Список с двумя указателями Номер абонемента Название книги дата выдачи дата возврата дата фактического возврата. Вставить новый узел в список после последнего узла с таким же номером абонентадата фактического возврата еще не заполнена. Список с головным элементом Номер мед. полисом в новый список.