Основы визуального программирования

Loop Until «Условие»

Условие проверяется после того, как операторы, входящие в цикл, будут выполнены хотя бы один раз. Цикл работает до тех пор, пока «Условие» является ложным.

Аналогичным такому циклу является цикл вида:

Do

«Тело цикла»

Loop While «Условие»

Условие проверяется после того, как операторы, составляющие тело цикла, будут выполнены хотя бы один раз. Цикл работает до тех пор, пока «Условие» остается истинным.

Пример:

Do

Pr = Input Box («Введите пароль»)

Loop Until Pr = «QWERTY»

Если условие выхода из цикла находится в начале цикла, то такой цикл называется циклом с предусловием. Синтаксис записи оператора цикла с предусловием следующий:

Do Until «Условие»

«Тело цикла»

Loop

Цикл выполняется до тех пор, пока «Условие» является ложным. Если условие истинно, то цикл выполняться не будет.

Или цикл вида:

Do While «Условие»

«Тело цикла»

Loop

Цикл называется «петля». Условие проверяется, до того как выполняется тело цикла, будут выполнены хотя бы один раз. Цикл продолжает свою работу, пока «Условие» остается истинным.

Пример:

Const n As Integer =8

Dim S As Integer, j As Integer

S=0: j=2

Do Until S>n

S=S+j^2

j=j+1

Loop

Label2. Caption = S

Разновидностью циклов с предусловием является цикл типа Wend. Если условие истинно, то выполняется тело цикла. Если условие ложно, то цикл ни разу не выполнится.

While «Условие»

«Тело цикла»

Wend

В программе можно использовать операторы Exit Do или Exit For, с помощью которых происходит переход выполнения программы к оператору, следующему за неопределенным циклом.

Пример 4. Определить

,

где .

Решение. Работа выполняется в следующей последовательности:

1. Запустить VISUAL BASIC. В окне New Project выбрать Стандартный.EXE вкладки New (новый) и кликнуть по кнопке «Открыть».

2. На экране появится новый проект и форма Project1 - Form1 (Form), содержание которой нужно заполнить необходимыми компонентами, с помощью которых можно будет выполнить необходимые вычисления.

3. Во-первых, необходимы элементы, которые будут использоваться для ввода данных m и n. Используем для этой цели элементы Text1 и Text2. Во-вторых, необходимы элементы, в которых будут отражены результаты вычисления P, V. Используем для этой цели элементы Text3, Text4.

4 Для оформления надписей для обозначения текстовых окон Text1, Text2, Text3 и Text4 можно использовать метки Label1, Label2, Label3 и Label4 соответственно.

5. Для выполнения функций вычисления необходима одна кнопка Command1. Это будет «Старт». Вторая кнопка Command2 выполняет функцию завершения работы приложения - кнопка «Выход».

6. Теперь следует все указанные выше компоненты вынести на форму. Для этого на панели стандартных элементов находим значок одного из компонент, активизируем его и «переносим» на форму: рисуем условный прямоугольник в том месте формы, где будет предположительно находиться этот элемент, учитывая при этом его размеры.

7. Аналогичные действия выполняем поочередно для каждого элемента, пока на форме не появятся все 10 элементов.

8. Далее изменяем свойства объектов, используя страницу свойств Properties. Для изменения свойств элементов следует активизировать элемент - выделить его на форме. Далее для выделенного элемента в окне свойств можно вносить изменения: для Command1 изменить свойство Caption = `Старт», для Command2 - свойство Caption = `Выход `. Для остальных элементов задать значения свойств:

Text1. Text = ``

Text2. Text = ``

Text3. Text = ``

Text4. Text = ``

Label1. Caption = `Введите значение m`

Label2. Caption = `Введите значение n`

Label3. Caption = `Вывод значения P`

Label4. Caption = `Вывод значения V`

Заготовку формы для примера 4 с измененными свойствами смотрите на рис. 2.6.

9. Для создания программного кода в проводнике проекта или в меню View выбрать команду Code.

В окне Project1 - Form1 (Code) выбрать в списке General название кнопки 1 и кликнуть по ней. В результате появится заготовка записи программного кода для Command1 с инициированием для нее события Click. Значения m, n пользователь должен ввести в окна Text1, Text2. Но в текстовом окне данные получаются также текстовые, типа Single. Поэтому используем функцию Val() для перевода в числовой тип Single, который объявлен для переменных m, n в начале программы в операторе Dim. Для вывода значений P, V используется функция Round(), которая округляет количество знаков после запятой до трех.



Рис. 2.4. Заготовка формы для примера 4 с измененными свойствами

10. Аналогичные действия выполняем в отношении кнопки 2. Для Command2 будет выполняться одно действие - закрыть приложение. Это выполняет команда End.

11. Программный код для примера 4 будет иметь вид (см. блок - схему циклического вычислительного процесса на рис. 2.7):

Private Sub Command1_Click()

Rem Лабораторная работа 3-1, вариант 15

Dim m, n, P, V As Single, k As Integer

m = Val (Text1. Text)

n = Val (Text2. Text)

P = 1

For k = 1 To 15

P = P * n ^ 2 / Sqr (m * k ^ 2 + 1)

Next k

P = m * P

V = (m + n) * P ^ 2 - 2.54 * P + 77.85

Text3. Text = Round (P, 3)

Text4. Text = Round (V, 3)

End Sub

Private Sub Command2_Click()

End

End Sub

12. Для сохранения проекта надо выполнить команду меню File (файл) > Save Project As (Сохранить проект как). В диалоговом окне Save File As (Сохранить файл как) выбрать название диска, на котором должна быть создана папка для хранения файлов нового проекта. Далее для сохранения формы, следует набрать имя файла в поле ввода File Name (Имя файла), например Primer3-1, и нажать клавишу «Enter». Форма Form1 будет сохранена в файле с расширением Primer3-1.frm.

13. После сохранения формы следует сохранить проект. В VISUAL BASIC это происходит автоматически, после чего должно появиться диалоговое окно Save Project As - Сохранить проект. Следует набрать то же имя Primer3-1 и нажать клавишу «Enter». Файл проекта будет сохранен с расширением Primer3-1.vbp.

14. Теперь запустить проект на выполнение. Выбираем команду Run > Start или Shift+F5. В поле Text1 нужно ввести значение m, в поле Text2 - значение n - после чего нажать кнопку «Старт». В окнах Text3 и Text4 появились значения P, V. Для завершения работы приложения следует нажать кнопку «Выход».

Пример 5 Составить таблицу значений функции y при изменении значений переменной x на отрезке [2, 6] с шагом h=0,5:

Решение. Работа выполняется в следующей последовательности:

1. Запустить VISUAL BASIC. В окне New Project выбрать Стандартный.EXE вкладки New (новый) и кликнуть по кнопке «Открыть».

2. На экране появится новый проект и форма Project1 - Form1 (Form), содержание которой нужно заполнить необходимыми компонентами, с помощью которых можно будет выполнить необходимые вычисления.

3. Во-первых, необходимы элементы, которые будут использоваться для ввода данных m и n. Используем для этой цели элементы Text1 и Text2. Во-вторых, необходим элемент, в котором будут отражены результаты табулирования x, y. Используем для этой цели элемент List1, List2.

4 Для оформления надписей для обозначения окон Text1, Text2, List1, List2 можно использовать метки Label1, Label2, Label3 и Label4 соответственно.

5. Для выполнения функций вычисления необходима одна кнопка Command1. Это будет «Старт». Вторая кнопка Command2 выполняет функцию завершения работы приложения - кнопка «Выход».

6. Теперь следует все указанные выше компоненты вынести на форму. Для этого на панели стандартных элементов находим значок одного из компонент, активизируем его и «переносим» на форму: рисуем условный прямоугольник в том месте формы, где будет предположительно находиться этот элемент, учитывая при этом его размеры.

7. Аналогичные действия выполняем поочередно для каждого элемента, пока на форме не появятся все 10 элементов.

8. Далее изменяем свойства объектов, используя страницу свойств Properties. Для изменения свойств элементов следует активизировать элемент - выделить его на форме. Далее для выделенного элемента в окне свойств можно вносить изменения: для Command1 изменить свойство Caption = `Старт», для Command2 - свойство Caption = `Выход `. Для остальных элементов задать значения свойств:

Text1. Text = ``

Text2. Text = ``

Text3. Text = ``

Text4. Text = ``

Label1. Caption = `Введите значение m`

Label2. Caption = `Введите значение n`

Label3. Caption = `Значения x`

Label4. Caption = `Значения y`

Заготовку формы для примера 5 с измененными свойствами смотрите на рис. 2.8.

9. Для создания программного кода в проводнике проекта или в меню View выбрать команду Code.

В окне Project1 - Form1 (Code) выбрать в списке General название кнопки 1 и кликнуть по ней. В результате появится заготовка записи программного кода для Command1 с инициированием для нее события Click. Значения m, n пользователь должен ввести в окна Text1, Text2. Но в текстовом окне данные получаются также текстовые, типа Single. Поэтому используем функцию Val() для перевода в числовой тип Single, который объявлен для переменных m, n в начале программы в операторе Dim. Для вывода значений x, y используется функция Round(), которая округляет количество знаков после запятой до трех.

10. Аналогичные действия выполняем в отношении кнопки 2. Для Command2 будет выполняться одно действие - закрыть приложение. Это выполняет команда End.

11. Программный код для примера 5 будет иметь вид (см. блок - схему циклического вычислительного процесса на рис. 2.9):

Private Sub Command1_Click()

Rem Лабораторная работа 3-2, вариант 15

m = Val (Text1. Text)

n = Val (Text2. Text)

For x = 2 To 6 Step 0.5

y = (Exp(-X) + 5 * m) / (X + n)

XB = Str (Round(x, 3))

YB = Str (Round(y, 3))

List1. AddItem (XB)

List2. AddItem (YB)

Next x

End Sub

Private Sub Command2_Click()

End

End Sub

12. Для сохранения проекта надо выполнить команду меню File (файл) > Save Project As (Сохранить проект как). В диалоговом окне Save File As (Сохранить файл как) выбрать название диска, на котором должна быть создана папка для хранения файлов нового проекта. Далее для сохранения формы, следует набрать имя файла в поле ввода File Name (Имя файла), например Primer3-2, и нажать клавишу «Enter». Форма Form1 будет сохранена в файле с расширением Primer3-2.frm.

Рис. 2.5. Заготовка формы для примера 5 с измененными свойствами

13. После сохранения формы следует сохранить проект. В VISUAL BASIC это происходит автоматически, после чего должно появиться диалоговое окно Save Project As - Сохранить проект. Следует набрать то же имя Primer3-2 и нажать клавишу «Enter». Файл проекта будет сохранен с расширением Primer3-2.vbp.

14. Теперь запустить проект на выполнение. Выбираем команду Run > Start или Shift+F5. В поле Text1 нужно ввести значение m, в поле Text2 - значение n - после чего нажать кнопку «Старт». В окнах List1 и List2 появилась таблица значений x, y. Для завершения работы приложения следует нажать кнопку «Выход».

Пример 6. Составить таблицу значений функции z=f (x; y) при изменении значений переменной x на отрезке [a, b] с шагом h, переменной y на отрезке [c, d] с шагом l: , где a=1, b=2, h=0,2; c=2, d=4, l=0,4.

Решение. Работа выполняется в следующей последовательности:

1. Запустить VISUAL BASIC. В окне New Project выбрать Стандартный.EXE вкладки New (новый) и кликнуть по кнопке «Открыть».

2. На экране появится новый проект и форма Project1 - Form1 (Form), содержание которой нужно заполнить необходимыми компонентами, с помощью которых можно будет выполнить необходимые вычисления.

3. Во-первых, необходимы элементы, которые будут использоваться для ввода данных m и n. Используем для этой цели элементы Text1 и Text2. Во-вторых, необходимы элементы, в которых будут отражены табличные значения x, y и z. Используем для этой цели элемент MSFlexGrid1.

4 Для оформления надписей для обозначения окон Text1 и Text2 можно использовать метки Label1 и Label2 соответственно.

5. Для выполнения функций вычисления необходима одна кнопка Command1. Это будет «Старт». Вторая кнопка Command2 выполняет функцию завершения работы приложения - кнопка «Выход».

6. Теперь следует все указанные выше компоненты вынести на форму. Для этого на панели стандартных элементов находим значок одного из компонент, активизируем его и «переносим» на форму: рисуем условный прямоугольник в том месте формы, где будет предположительно находиться этот элемент, учитывая при этом его размеры.

7. Аналогичные действия выполняем поочередно для каждого элемента, пока на форме не появятся все 7 элементов.

8. Далее изменяем свойства объектов, используя страницу свойств Properties. Для изменения свойств элементов следует активизировать элемент - выделить его на форме. Далее для выделенного элемента в окне свойств можно вносить изменения: для Command1 изменить свойство Caption = `Старт», для Command2 - свойство Caption = `Выход `. Для остальных элементов задать значения свойств:

Text1. Text = ``

Text2. Text = ``

Label1. Caption = `Введите значение m=`

Label2. Caption = `Введите значение n=`

Заготовку формы для примера 6 с измененными свойствами смотрите на рис. 2.10.



Рис. 2.6. Заготовка формы для примера 6 с измененными свойствами

9. Для создания программного кода в проводнике проекта или в меню View выбрать команду Code. В окне Project1 - Form1 (Code) выбрать в списке General название кнопки 1 и кликнуть по ней. В результате появится заготовка записи программного кода для Command1 с инициированием для нее события Click. Значения m, n пользователь должен ввести в окна Text1, Text2. Но в текстовом окне данные получаются также текстовые, типа Single. Поэтому используем функцию Val() для перевода в числовой тип Single, который объявлен для переменных m, n в начале программы в операторе Dim. Для вывода значений x, y и z используется функция Round(), которая округляет количество знаков после запятой до трех.

10. Аналогичные действия выполняем в отношении кнопки 2. Для Command2 будет выполняться одно действие - закрыть приложение. Это выполняет команда End.

11. Программный код для примера 6 будет иметь вид (см. блок - схему циклического вычислительного процесса на рис. 2.11):

Private Sub Command1_Click()

Rem Лабораторная работа 3-3, вариант 15

m = Val (Text1. Text)

n = Val (Text2. Text)

MSFlexGrid1. Row = 0

MSFlexGrid1. Col = 0

MSFlexGrid1. Text = «x= \ y=»

For y = 2 To 4.01 Step 0.4

MSFlexGrid1. Row = 0

MSFlexGrid1. Cols = MSFlexGrid1. Cols + 1

MSFlexGrid1. Col = MSFlexGrid1. Cols - 1

MSFlexGrid1. Text = CStr(y)

Next y

For x = 1 To 2.01 Step 0.2

MSFlexGrid1. Col = 0

MSFlexGrid1. Rows = MSFlexGrid1. Rows + 1

MSFlexGrid1. Row = MSFlexGrid1. Rows - 2

MSFlexGrid1. Text = CStr(x)

Next x

i = 1

For y = 2 To 4.01 Step 0.4

j = 1

For x = 1 To 2.01 Step 0.2

z = (x ^ 2 - y ^ 2 + m) / (x ^ 2 + y ^ 2) / n

z = Round (z, 3)

MSFlexGrid1. Col = i

MSFlexGrid1. Row = j

MSFlexGrid1. Text = CStr(z)

j = j + 1

Next x

i = i + 1

Next y

End Sub

Private Sub Command2_Click()

End

End Sub

12. Для сохранения проекта надо выполнить команду меню File (файл) > Save Project As (Сохранить проект как). В диалоговом окне Save File As (Сохранить файл как) выбрать название диска, на котором должна быть создана папка для хранения файлов нового проекта. Далее для сохранения формы, следует набрать имя файла в поле ввода File Name (Имя файла), например Primer3-3, и нажать клавишу «Enter». Форма Form1 будет сохранена в файле с расширением Primer3-3.frm.

13. После сохранения формы следует сохранить проект. В VISUAL BASIC это происходит автоматически, после чего должно появиться диалоговое окно Save Project As - Сохранить проект. Следует набрать то же имя Primer3-3 и нажать клавишу «Enter». Файл проекта будет сохранен с расширением Primer3-3.vbp.

14. Теперь запустить проект на выполнение. Выбираем команду Run > Start или Shift+F5. В поле Text1 нужно ввести значение m, в поле Text2 - значение n - после чего нажать кнопку «Старт». В окне MSFlexGrid1 появилась таблица значений x, y, z. Для завершения работы приложения следует нажать кнопку «Выход».

Обработка массивов данных

Массивы. Массив - это упорядоченная совокупность данных одного типа, объединенных общим именем. Массив представляет собой множество ячеек памяти для хранения значений. Упорядоченность заключается в том, что каждый элемент массива имеет определенное место в массиве, которое задается индексом массива, т.е. его порядковым номером.

Чтобы получить доступ к нужной ячейки, нужно указать имя массива и его индекс. Индекс записывается в круглых скобках после имени массива. Если нужно присвоить, например, значение 5 третьему элементу массива A, нужно написать A(3) = 5.

При выполнении этого оператора будет найден массив A, отсчитана третья ячейка памяти и в нее присвоено значение 5.

Индекс может быть переменной. Если нужно всем пяти элементам массива A присвоить значение 5, можно написать

For I = 1 TO 5

A(I) = 5

Next I

Имя массива образуется так же как имя переменной. В VISUAL BASICе массивы могут быть одномерные и двумерные и т.д. В двумерном массиве каждый элемент идентифицируется номером строки и номером столбца, на пересечении которых он расположен. При записи элемента массива индекс (индексы) записывается в круглых скобках после имени массива. Если индексов несколько, то они разделяются запятой.

Массивы необходимо описывать с помощью оператора Dim, при этом надо указать тип массива и его размер. Массив с заданным размером называется массивом фиксированной длины, массив с переменным размером называется динамическим массивом.

После имени массива в круглых скобках должен быть указан диапазон изменения индекса - нижняя и верхняя граница. Если не указана нижняя граница изменения индекса массива, то по умолчанию она равна нулю. Допускаются отрицательные значения индекса.

Пример:

Dim Tab1 (5) As Integer - описан массив из 6 целых чисел

Dim Tab2 (5,6) As Integer - описан массив, содержащий 6 столбцов и 7 строк целых чисел

Dim Tab3 (2 To 13) As Single - описан массив 12 чисел вещественного типа

Dim Tab4 (1 To 3, 2 To 8) As Single - описан массив из 7 строк и 3 столбцов чисел вещественного типа.

В VISUAL BASICе допускается описание массивов, имеющих до 60 размерностей. Для обработки массивов используются вложенные циклы For Next.

Обработка массивов, а также ввод - вывод массивов осуществляется поэлементно.

Например, ввод одномерного массива A, содержащего 10 элементов, можно осуществить при помощи операторов

Dim Tab1 (1 To 5, 1 To 5) As Integer, Nc As Integer, Nw As Integer

For Nw = 1 To 5

For Nc = 1 To 5

MSFlexGrid1. Col = Nc

MSFlexGrid1. Row = Nw

MSFlexGrid1. Text = tab1 (Nw-1, Nc-1)

Next Nc

Next Nw

Пример 7. Даны два массива x_i и y_i (i=1,10). Составить программу для вычисления суммы квадратов положительных x_i.

Решение. Работа выполняется в следующей последовательности:

1. Запустить VISUAL BASIC. В окне New Project выбрать Стандартный.EXE вкладки New (новый) и кликнуть по кнопке «Открыть».

2. На экране появится новый проект и форма Project1 - Form1 (Form), содержание которой нужно заполнить необходимыми компонентами, с помощью которых можно будет выполнить необходимые вычисления.

3. Во-первых, необходим элемент, в котором будут отражены табличные значения x, и y. Используем для этой цели элемент MSFlexGrid1. Во-вторых, необходим элемент, который будут использоваться для работы с файлом данных x и y. Используем для этой цели элемент CommonDialog1 (Диалоговое окно для выбора файла).

4 Для оформления надписей для обозначения результата решения задачи можно использовать метку Label1.

5. Первая кнопка Command1 выполняет функцию открытия внешнего файла приложения - кнопка «Открыть файл». Вторая кнопка Command2 выполняет функцию вычисления. Это будет «Вычислить». Третья кнопка Command3 выполняет функцию завершения работы приложения - кнопка «Выход».

6. Теперь следует все указанные выше компоненты вынести на форму. Для этого на панели стандартных элементов находим значок одного из компонент, активизируем его и «переносим» на форму: рисуем условный прямоугольник в том месте формы, где будет предположительно находиться этот элемент, учитывая при этом его размеры.

7. Аналогичные действия выполняем поочередно для каждого элемента, пока на форме не появятся все 6 элементов.

8. Далее изменяем свойства объектов, используя страницу свойств Properties. Для изменения свойств элементов следует активизировать элемент - выделить его на форме. Далее для выделенного элемента в окне свойств можно вносить изменения: для Command1 изменить свойство Caption = `Открыть файл», для Command2 - свойство Caption = `Вычислить» и для Command3 - свойство Caption = `Выход». Для остальных элементов задать значения свойств:

Label1. Caption = `Сумма квадратов всех x(i)>0 равна`

Заготовку формы для примера 7 с измененными свойствами смотрите на рис. 2.12.

9. Для создания программного кода в проводнике проекта или в меню View выбрать команду Code.

В окне Project1 - Form1 (Code) выбрать в списке General название кнопки 1 и кликнуть по ней. В результате появится заготовка записи программного кода для Command1 с инициированием для нее события Click.

Рис. 2.7. Заготовка формы для примера 7 с измененными свойствами.

10. Аналогичные действия выполняем в отношении кнопок 2 и 3. Для Command3 будет выполняться одно действие - закрыть приложение. Это выполняет команда End.

11. Программный код для примера 7 будет иметь вид (см. блок - схему циклического вычислительного процесса на рис. 2.13):

Dim s As String, f As String, a As Double, b As Double

Rem Лабораторная работа 4-1, вариант 15

Private Sub Command1_Click()

For i = 0 To 9

MSFlexGrid1. Row = 0

MSFlexGrid1. Col = i

a = Val (MSFlexGrid1. Text)

If a > 0 Then b = b + a ^ 2

Next i

Label1. Caption = Label1. Caption + CStr(b)

End Sub

Private Sub Command2_Click()

CommonDialog1. ShowOpen

f = CommonDialog1. FileName

Open f For Input As 1

For i = 0 To 19

Line Input #1, s

If i <= 9 Then MSFlexGrid1. Row = 0 Else MSFlexGrid1. Row = 1

If i <= 9 Then MSFlexGrid1. Col = i Else MSFlexGrid1. Col = i - 10

MSFlexGrid1. Text = s

Next i

End Sub

Private Sub Command3_Click()

End

End Sub

12. Для сохранения проекта надо выполнить команду меню File (файл) > Save Project As (Сохранить проект как). В диалоговом окне Save File As (Сохранить файл как) выбрать название диска, на котором должна быть создана папка для хранения файлов нового проекта. Далее для сохранения формы, следует набрать имя файла в поле ввода File Name (Имя файла), например Primer4-1, и нажать клавишу «Enter». Форма Form1 будет сохранена в файле с расширением Primer4-1.frm.

13. После сохранения формы следует сохранить проект. В VISUAL BASIC это происходит автоматически, после чего должно появиться диалоговое окно Save Project As - Сохранить проект. Следует набрать то же имя Primer4-1 и нажать клавишу «Enter». Файл проекта будет сохранен с расширением Primer4-1.vbp.

14. Теперь запустить проект на выполнение. Выбираем команду Run > Start или Shift+F5. Нажать кнопку «Открыть файл» и открыть файл с исходными данными x_i. После этого нажать кнопку «Выполнить». Значение суммы квадратов положительных x_i появляется на форме. Для завершения работы приложения следует нажать кнопку «Выход».

Пример 8. Дан массив C_i,j, i=0,1,2,3,4, j=0,1,2,3,4. Найти

Решение. Работа выполняется в следующей последовательности:

1. Запустить VISUAL BASIC. В окне New Project выбрать Стандартный.EXE вкладки New (новый) и кликнуть по кнопке «Открыть».

2. На экране появится новый проект и форма Project1 - Form1 (Form), содержание которой нужно заполнить необходимыми компонентами, с помощью которых можно будет выполнить необходимые вычисления.

3. Во-первых, необходим элемент, в котором будут отражены табличные значения C_i,j. Используем для этой цели элемент MSFlexGrid1. Во-вторых, необходим элемент, который будут использоваться для работы с файлом данных C_i,j. Используем для этой цели элемент CommonDialog1 (Диалоговое окно для выбора файла).

4. Для ввода исходных данных C_i,j из текстового файла необходима одна кнопка Command1 - кнопка «Открыть файл».

5. Вторая кнопка Command2 выполняет функцию вычисления. Это будет «Найти Z_i,j». Третья кнопка Command3 выполняет функцию завершения работы приложения - кнопка «Выход».

6. Теперь следует все указанные выше компоненты вынести на форму. Для этого на панели стандартных элементов находим значок одного из компонент, активизируем его и «переносим» на форму: рисуем условный прямоугольник в том месте формы, где будет предположительно находиться этот элемент, учитывая при этом его размеры.

7. Аналогичные действия выполняем поочередно для каждого элемента, пока на форме не появятся все 5 элементов.

8. Далее изменяем свойства объектов, используя страницу свойств Properties. Для изменения свойств элементов следует активизировать элемент - выделить его на форме. Далее для выделенного элемента в окне свойств можно вносить изменения: для Command1 изменить свойство Caption = `Открыть файл», для Command2 - свойство Caption = `Найти Z_i,j` и для Command3 - свойство Caption = `Выход».

Заготовку формы для примера 8 с измененными свойствами смотрите на рис. 2.14.

Рис. 2.8. Заготовка формы для примера 8 с измененными свойствами

9. Для создания программного кода в проводнике проекта или в меню View выбрать команду Code.

В окне Project1 - Form1 (Code) выбрать в списке General название кнопки 1 и кликнуть по ней. В результате появится заготовка записи программного кода для Command1 с инициированием для нее события Click.

10. Аналогичные действия выполняем в отношении кнопок 2 и 3. Для Command3 будет выполняться одно действие - закрыть приложение. Это выполняет команда End.

11. Программный код для примера 8 будет иметь вид (см. блок - схему циклического вычислительного процесса на рис. 2.15):

Dim s As String, f As String, a As Double

Rem Лабораторная работа 4-2, вариант 15

Private Sub Command1_Click()

For i = 0 To 4

For j = 0 To 4

MSFlexGrid1. Row = i

MSFlexGrid1. Col = j

a = Val (MSFlexGrid1. Text)

If a >= 1 Then

MSFlexGrid1. Text = «1»

ElseIf a > 0 And a < 1 Then

Rem Z (i, j)=C (i, j)

Else

MSFlexGrid1. Text = «0»

End If

Next j

Next i

End Sub

Private Sub Command2_Click()

CommonDialog1. ShowOpen

f = CommonDialog1. FileName

Open f For Input As 1

For i = 0 To 4

For j = 0 To 4

Line Input #1, s

MSFlexGrid1. Row = i

MSFlexGrid1. Col = j

MSFlexGrid1. Text = s

Next j

Next i

End Sub

Private Sub Command3_Click()

End

End Sub

12. Для сохранения проекта надо выполнить команду меню File (файл) > Save Project As (Сохранить проект как). В диалоговом окне Save File As (Сохранить файл как) выбрать название диска, на котором должна быть создана папка для хранения файлов нового проекта. Далее для сохранения формы, следует набрать имя файла в поле ввода File Name (Имя файла), например Primer4-2, и нажать клавишу «Enter». Форма Form1 будет сохранена в файле с расширением Primer4-2.frm.

13. После сохранения формы следует сохранить проект. В VISUAL BASIC это происходит автоматически, после чего должно появиться диалоговое окно Save Project As - Сохранить проект. Следует набрать то же имя Primer4-2 и нажать клавишу «Enter». Файл проекта будет сохранен с расширением Primer4-2.vbp.

14. Теперь запустить проект на выполнение. Выбираем команду Run > Start или Shift+F5. Нажать кнопку «Открыть файл» и открыть файл с исходными данными C_i,j. После этого нажать кнопку «Найти Z_i,j». В окне MSFlexGrid1 появилась таблица значений Z_i,j. Для завершения работы приложения следует нажать кнопку «Выход».

Литература

компьютер программа алгоритмический

С.В. Симоновича и др. Информатика. Базовый курс. Санкт-Петербург: Издательский дом Питер. 2002, - 640 с.

А.В. Могилев, Н.И. Пак, Е.К. Хеннер. Информатика. - 3-е изд., перераб. и доп. - М.: Издательский центр «Академия», 2004, - 848 с.

М.Д. Князева. Программирование на Visual Basic 6. Учеб. Пособие. - М.: КУДИЦ-ОБРАЗ, 2006. - 176 с.

Размещено на Allbest.ru