4925

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

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

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

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

Русский

2012-11-29

553.5 KB

16 чел.

Цель работы

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


 

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

39564. Разработка модели анализа структуры затрат на услуги ООО «Противо Пожарная защита» 2.68 MB
  В экономической литературе можно найти множество вариантов снижения затрат на предприятии, однако комплексного подхода для разработки модели анализа структуры затрат на услуги предприятия нет. В связи с этим разработка такой модели является важным и актуальным шагом в изучении экономики предприятия.
39565. Загрузка синхронного транспортногой модуля STM – RR или STM – 1 1.62 MB
  Объединяются 1300 каналов тональной частоты и 6 каналов звукового вещания первого класса в системе с временным разделением каналов и 8ми разрядной импульснокодовой модуляцией. Рассчитать временные и частотные характеристики нарисовать структурную схему объединения и разделения каналов с учетом плезиохронной цифровой иерархии. Рассчитаем частоты дискретизации для каналов ТЧ и звукового вещания. Определим общее число каналов.
39566. Организационная схема предприятия «Вольво» ОАО «Белмагистральавтотранс» 377 KB
  Проверка давления включения и отключения регулятора давления 2. Проверка стояночного тормоза и запорного клапана 3. Проверка педали и тормозного клапана Проверки снаружи 4. Проверка крепления кабины гидросистемы запорных устройств решетки радиатора и механизма подъема кабины 5.
39567. Проект компрессора высокого давления с гладкой проточной частью для ТРДД с тягой 140 кН 1.34 MB
  Описание конструкции КВД 7 3.Описание конструкции КВД. КВД осевой левого вращения восьмиступенчатый приводится во вращение турбиной газогенератора. КВД состоит из следующих узлов: входного направляющего аппарата ВНА; корпуса с направляющим аппаратом 1 ст.
39568. БЛОК УПРАВЛЕНИЯ ВАКУУМНОЙ СИСТЕМЫ УСКОРИТЕЛЯ ЭЛЕКТРОНОВ УРТ-1 12.63 MB
  БЛОК УПРАВЛЕНИЯ ВАКУУМНОЙ СИСТЕМЫ УСКОРИТЕЛЯ ЭЛЕКТРОНОВ УРТ1 ВЫПУСКНАЯ КВАЛИФИКАЦИОННАЯ РАБОТА БАКАЛАВРА Пояснительная записка 210100. ЭКСПЕРИМЕНТАЛЬНАЯ УСТАНОВКА БЛОК УПРАВЛЕНИЯ ВАКУУМНОЙ СИСТЕМОЙ. Объект исследования: автоматизация контроля и управления вакуумной системы наносекундного ускорителя электронов. Цель работы: разработка блока управления вакуумной системой ускорителя электронов создание программного обеспечения для персонального компьютера предназначенного для управления и отладки блока управления.
39569. Проект мероприятий по увеличению объема реализации услуг предприятия туристического бизнеса ООО «Флагман Груп» г. Москва 238.77 KB
  Основным видом деятельности ООО «Флагман Груп» является осуществление туристической деятельности как внутри Российской Федерации, так и за рубежом.
39570. Проектирование гидроэлектростанции приплотинного типа на расчетный напор 158,75 м 439.28 KB
  В соответствии с номенклатурой осевые гидротурбины (Пр и ПЛ) применяют на напоры H=2…80м. Применение Пр гидротурбин выгодно при незначительных колебаниях напора и работе ГЭС в энергосистеме. Кроме того Пр экономически предпочтительнее чем Пл гидротурбины
39571. Совершенствование системы мотивации персонала (на примере РИА «Волекс») 127.25 KB
  В РИА «Волекс» для стимулирования труда работников руководство использует экономические, социальные и административные методы мотивации. Значимым экономическим методом мотивации на предприятии является зарплата, начисляемая по повременно-премиальной и сдельной системам оплаты труда, вся выработка рабочего оплачивается по одной постоянной сдельной расценке, для руководителей, специалистов и служащих используется система должностных окладов, выплачивается премия.