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


 

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

79223. Общая характеристика преступлений в сфере экономической деятельности 33.62 KB
  Статьи данной главы направлены на защиту законной предпринимательской деятельности охрану естественной государственной монополии на товарноденежную систему изделия драгоценные металлы права потребителей товаров и услуг защиту таможенных и налоговых отношений установленных в Российской Федерации. С учетом коренных изменений...
79224. Незаконное предпринимательство 33.01 KB
  171 УК РФ предполагает осуществление предпринимательской деятельности в нарушение установленного порядка регистрации лицензирования или в нарушение условий лицензирования. Непосредственный объект преступления общественные отношения регулирующие порядок занятия предпринимательской деятельностью. Объективная сторона преступления выражается в осуществлении предпринимательской деятельности либо без регистрации либо без специального разрешения лицензии в случаях когда такое разрешение обязательно или с нарушением условий лицензирования...
79225. Лжепредпринимательство 33.27 KB
  173 УК РФ определяется как создание коммерческой организации без намерения осуществлять предпринимательскую или банковскую деятельность имеющее целью получение кредитов освобождение от налогов извлечение иной имущественной выгоды или прикрытие запрещенной деятельности причинившее крупный ущерб гражданам организациям или государству. Этапы такой деятельности: подготовка необходимых документов принятие устава регистрация получение лицензии и т. Примеров такой деятельности к сожалению в настоящих условиях много. Субъектом преступления...
79226. Убийство. Понятие и виды 33.77 KB
  Основной состав убийства. Понятие убийства законодателем закреплено в ч. Квалифицированные виды убийства Квалифицированный состав отличается от основного состава тем что к признакам основного состава присоединяются дополнительные признаки они становятся обязательными либо отдельные признаки основного состава видоизменяются что влечет за собой повышение степени общественной опасности совершенного преступления. К квалифицированным видам убийства законодателем отнесены следующие: а двух или более лиц; б лица или его близких в связи с...
79227. Легализация (отмывание) денежных средств или иного имущества, приобретенного незаконным путем 34.13 KB
  Легализация отмывание денежных средств или иного имущества приобретенных другими лицами преступным путем ст. Предмет данного преступления денежные средства или иное имущество приобретенные преступным путем. Непосредственный объект преступления отношения регулирующие денежное обращение и иные имущественные отношения в экономической деятельности.
79228. Недопущение, ограничение или устранение конкуренции 36.27 KB
  Конкуренция это соперничество хозяйствующих субъектов при котором самостоятельными действиями каждого из них исключается или ограничивается возможность каждого из них в одностороннем порядке воздействовать на общие условия обращения товаров на соответствующем товарном рынке. Признаками ограничения конкуренции являются сокращение числа хозяйствующих субъектов не входящих в одну группу лиц на товарном рынке рост или снижение цены товара не связанные с соответствующими изменениями иных общих условий обращения товара на товарном рынке...
79229. Изготовление или сбыт поддельных денег или ценных бумаг 34.04 KB
  Изготовление или сбыт поддельных денег или ценных бумагст. Данная статья предусматривает уголовную ответственность за полную или частичную подделку фальшивомонетничество банковских билетов ЦБ РФ монет государственных ценных бумаг иных ценных бумаг в национальной или иностранной валюте. Объективная сторона преступления включает действия: а изготовление с целью сбыта поддельных денег или ценных бумаг; б сбыт поддельных денег или ценных бумаг.
79230. Контрабанда. Состав и виды 33.95 KB
  188 УК РФ заключается в незаконном перемещении через таможенную границу Российской Федерации товаров или иных предметов совершенном помимо или с сокрытием от таможенного контроля либо с обманным использованием документов или средств таможенной идентификации либо сопряженном с недекларированием или недостаточным неполным декларированием таких товаров предметов. Непосредственный основной объект преступления отношения регулирующие товарооборот перемещение через таможенную границу товаров и обеспечивающие поступление в бюджет таможенных...
79231. Невозвращение из-за границы средств в иностранной валюте 32.5 KB
  Невозвращение изза границы средств в иностранной валюте ст. 193 УК РФ устанавливает ответственность руководителей организаций за невозвращение изза границы валютных средств подлежащих обязательному перечислению на счета уполномоченного банка Российской Федерации. Непосредственный объект преступления отношения регулирующие внешнеэкономическую деятельность и расчеты совершаемые в иностранной валюте.