4925

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

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

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

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

Русский

2012-11-29

553.5 KB

12 чел.

Цель работы

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


 

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

51525. ВИЗУАЛИЗАЦИЯ РЕШЕНИЙ МОДЕЛЕЙ ТЕРМИЧЕСКОЙ ДИФФУЗИИ 194 KB
  Для одномерного случая если глубина диффузии значительно меньше поперечных размеров площади на которой она происходит первый закон Фика имеет вид: где J x – плотность потока примеси число атомов вещества переносимых в единицу времени через единичную площадь Nx – концентрация примесей D=D0expE kT – коэффициент диффузии; D0 – постоянная диффузии E – энергия активации. Согласно второму закону Фика скорость изменения числа примесных атомов в единичном объеме равна разности между потоками примеси входящих и выходящих из этого...
51526. Диференціальні рівняння у частинних похідних 52.85 KB
  Проведемо дискретизацію крайових умов отримаємо: Початкову матрицю обираємо як нульову. На кожній ітерації перераховуємо значення елементів матриці за попередніми формулами. Умова завершення
51528. Определение удельного сопротивления проводника 222 KB
  Цель работы: определение удельного сопротивления нихромовой проволоки изучение методов обработки результатов эксперимента. Приборы и принадлежности: прибор для измерения удельного сопротивления резистивного провода F PM01. Единица удельного сопротивления есть Омметр .
51530. Определить горизонтальную составляющую индукции магнитного поля Земли 532.5 KB
  В этом случае к генератору подсоединяются последовательно только амперметр и магазин сопротивлений Rдоб. Установили на магазине сопротивлений какоелибо значение Rдоб например Rдоб = 3000 Ом и получите на экране осциллографа устойчивую картину изображенную на рис. Измерили величину =0 и определили разность фаз колебаний входного напряжения и напряжения на активном сопротивлении Rдоб φ=0 А=04 В. Δа=0049 кОм Rдоб=34 кОм ΔR=003 кОм χ2=356.
51531. ИЗУЧЕНИЕ ЗАКОНОВ ПЕРЕМЕННОГО ТОКА 3.44 MB
  При этом в цепи возникает переменный электрический ток. С помощью переключателя К катушка индуктивности может быть отключена от цепи. Замыкание кнопочного переключателя К4 приводит к отключению емкости от цепи. Для определения действующего значения силы тока в цепи используется вольтметр универсальный цифровой на котором должен быть установлен режим измерения силы переменного тока m.
51532. ИЗУЧЕНИЕ СЛОЖЕНИЯ ГАРМОНИЧЕСКИХ КОЛЕБАНИЙ С ПОМОЩЬЮ ОСЦИЛЛОГРАФА 2.12 MB
  Устройство и принцип работы электронного осциллографа рассмотрены в Приложении 1. Электронный осциллограф С1137 может работать в двух основных режимах: а Исследуемый сигнал подается на вход канала вертикального отклонения осциллографа вход I или II а на вход канала горизонтального отклонения подается пилообразное напряжение с генератора развертки встроенного в осциллограф. При этом на экране осциллографа наблюдается график зависимости исследуемого сигнала от времени.