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  , строки состояния и исследовал их свойства.


 

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

32830. Структура сознания. Самосознание и его формы. Особенности самосознания врача 14.12 KB
  Структура сознания. Особенности самосознания врача. Психика высших животных явилась важнейшей предпосылкой формирования социальной формы отражения – сознания. В структуре сознания можно выделить несколько основных элементов.
32831. Проблема соотношения сознательного и бессознательного в психике человека. Учение З. Фрейда 15.21 KB
  Проблема соотношения сознательного и бессознательного в психике человека. Психика человека не исчерпывается сознанием она включает и сферу бессознательного. Сознание и бессознательное в психике человека неразрывны. Так человек как биологическое существо несвободен от инстинктов половой пищевой инстинкты они могут порождать у человека подсознательные желания эмоции однако в большинстве случаев затем они попадают в сферу сознания и контролируются ею.
32832. Познание как отражение действительности. Диагноз 16.96 KB
  gnosis – знание и logos – учение – теория познания раздел философии в котором рассматриваются вопросы о сущности источниках и методах познания о путях постижения и критериях истины. Скептицизм – необходимый элемент познания. – отрицание и gnosis – знание – течение в гносеологии сторонники которого отрицают возможность достоверного познания мира закономерностей развития природы и общества. Объект медицинского познания –пациент.
32833. Чувственное и рациональное познание и их формы. Роль чувственного и рационального познания в диагностическом процессе 17.5 KB
  Роль чувственного и рационального познания в диагностическом процессе. 2 Вторая форма чувственного познания – восприятие – представляет собой целостный чувственный образ предметов окружающего мира. 3 Более сложной формой чувственного познания является представление – сохранившийся в сознании чувственный образ предмета или явления не воздействующего на органы чувств в данный момент. Таким образом процесс познания представляет собой движение от чувственных к рациональным формам познания: 1 выделение отдельных свойств и признаков предмета...
32834. Истина как философская категория. Критерии истины 16.64 KB
  Критерии истины. Цель познания – достижение истины. Проблема истины является одной из основных в гносеологии. Одно из первых определений истины ставшее классическим предложено Аристотелем который признавал объективное независимое от сознания существование вещей и утверждал что знание истинно когда оно соответствует вещам и их связям.
32835. Культура и цивилизация как способы освоения человеком мира 13.88 KB
  Культура и цивилизация. Термин цивилизация впервые появился в трудах французских просветителей. Категории культура и цивилизация тесно взаимосвязаны в то же время они отражают разные способы отношения человека к действительности. Цивилизация – способ жизнедеятельности направленный на изменение мира; ее задача обеспечение физического комфорта.
32836. Современная цивилизация 18.83 KB
  civilis гражданский государственный 1 общефилософское значение социальная форма движения материи обеспечивающая её стабильность и способность к саморазвитию путём саморегуляции обмена с окружающей средой человеческая цивилизация в масштабе космического устройства; 2 историософское значение единство исторического процесса и совокупность материальнотехнических и духовных достижений человечества в ходе этого процесса В развитии человеческой цивилизации принято выделять несколько этапов: 1 доиндустриальное общество 2...
32837. Глобализация и ее роль в жизни общества 13.86 KB
  Глобализация и ее роль в жизни общества. С одной стороны глобализация привела к расширению связей между государствами и народами во всех сферах жизнедеятельности яркий пример тому – международные экипажи космических кораблей; к формированию целого ряда международных организаций деятельность которых направлена на совместное решение задач и проблем современного человечества среди них ООН целью которой является поддержание и укрепление мира безопасности и развития сотрудничества между государствами в ее составе около 200 государств; ЕЭС...
32838. Семья как социальный институт 14.62 KB
  Коротко говоря жизненный цикл семьи состоит в следующем. Заключение брака служит первой или начальной стадией семьи. Эта фаза продолжается от момента заключения брака до рождения последнего ребенка и называется стадией роста семьи. Вторая стадия начинается с момента рождения последнего ребенка и продолжается до того времени когда из родительской семьи отселяется первый взрослый ребенок обзаведшийся собственной семьей.