4925

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

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

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

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

Русский

2012-11-29

553.5 KB

15 чел.

Цель работы

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


 

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

38916. Исследование способов Моделирования стационарных случайных процессов с разной степенью дифференцируемости 180.5 KB
  Краткие теоретические сведения Распределение энергии случайного процесса по гармоническим составляющим описывается его спектральной плотностью спектром Sw где w=2πf круговая частота. В зависимости от временной структуры процесса этот спектр может принимать различную форму. Следовательно характер распределения энергии процесса по спектру связан со степенью гладкости самого процесса и может быть использован для ее оценки. Известно что спектр процесса однозначно связан с его корреляционной функцией Bτ парой преобразований Фурье...
38917. Исследование способов Моделирование стационарных случайных процессов с заданными статистическими свойствами 181.5 KB
  В настоящей работе такой моделью является модель случайного стационарного процесса с заданными статистическими свойствами описываемыми его корреляционной функцией и спектральной плотностью В соответствии с теорией сформировать случайный процесс с заданной корреляционной функцией можно в частности следующим образом.01; интервал дискретизации t=0 : Ts : 20; вектор моментов времени x1=rndn1 lengtht; белый шум...
38918. Исследование способов ОБРАБОТКИ ЭКСПЕРЕМЕНТАЛЬНЫХ ДАННЫХ в программной среде curveexpert 1.3 236 KB
  Цель работы Исследование возможностей приложения CurveExpert для обработки и анализа экспериментальных данных. Получение практических навыков по аппроксимации данных различными моделями поиску наилучшей модели созданию собственных моделей. Получение практических навыков по анализу полученной модели получение дополнительных сведений о исследуемых данных и их моделях.
38919. Исследование способов интерполяции случайных стационарных процессов с разной степенью дифференцируемости 152 KB
  Цель работы Численное исследование погрешности интерполяции случайных стационарных процессов имеющих заданное количество производных. Экспериментальное определение погрешности интерполяции негауссовских процессов сопровождаемых аддитивным шумом. Такое восстановление непрерывного процесса по его дискретным отсчетам носит название интерполяции.
38920. Исследование Свойств энтропии одиночных отсчетов случайных последовательностей 107 KB
  Цель работы Численное определение величины энтропии последовательностей дискретных случайных величин. Краткие теоретические сведения Согласно классической теории информации минимальное количество данных на один отсчет необходимых при идеальном кодировании дискретной случайной величины X определяется распределением вероятностей этой величины Pxi. Квантование непрерывной случайной величины преобразует эту величину в дискретную. Очевидно что полученный при этом результат будет зависеть как от плотности распределения вероятностей...
38921. АВТОМАТИЗИРОВАННЫЕ СИСТЕМЫ, ИСПОЛЬЗУЕМЫЕ В ПРОЕКТИРОВАНИИ 2.4 MB
  В каждом узле присутствует 2 степени свободы: X перемещение вдоль оси X; Z перемещение вдоль оси Z. В каждом узле присутствует 3 степени свободы: X перемещение вдоль оси X; Z перемещение вдоль оси Z; UY поворот вокруг оси Y. В каждом узле присутствует 3 степени свободы: Z перемещение вдоль оси Z; UX поворот вокруг оси X; UY поворот вокруг оси Y. В каждом узле присутствует 3 степени свободы: X перемещение вдоль оси X; Y перемещение вдоль оси Y; Z перемещение вдоль оси Z.
38922. МЕТАДИЧЕСКИЕ УКАЗАНИЯ К ЛАБОРАТОРНЫМ РАБОТАМ ПО АВТОМАТИЗИРОВАННЫМ СИСТЕМАМ, ИСПОЛЬЗУЕМЫМ В ПРОЕКТИРОВАНИИ 5.29 MB
  Расчёт элементов каменных и армокаменных конструкций по подпрограмме КАМИН SCD Office 11. Анализ результатов армирования бетонных элементов и конструкций по программе АРБАТ SCD Office 11. Расчёт элементов деревянных конструкций по подпрограмме ДЕКОР SCD Office 11. Расчёт элементов оснований и фундаментов по программе ЗАПРОС SCD Office 11.
38923. Автоматизированные системы, используемые в лабораторном проектировании 6.9 MB
  После этого щелкните по кнопке Подтвердить. После этого щёлкните по кнопке Применить. Щелкните по кнопке Сохранить. Щелкните по кнопке Перерисовать.
38924. Измерение параметров оптического изображения 202.44 KB
  Таким образом в процессе вывода зарядов из ФЭП осуществляется второй этап преобразования: где емкость выходной структуры ТВД.9 можно записать в виде Здесь в явной форме представлено соотношение между амплитудой сигнала от объекта и освещенностью создаваемой объектом на входе ФЭП. Амплитуда видеосигнала ; ток сигнала на выходе ФЭП; нагрузочное сопротивление коэффициент усиления видеоусилителя. Для описания свойств ФЭП как преобразователя световой энергии в энергию электрического...