Основные приемы построения классов и разработка программного интерфейса для работы с базами данных с помощью языка Visual Basic 6,0

ВВЕДЕНИЕ

Учебное пособие предназначено для лабораторных работ по курсу "Информатика и программирование" специальности 351400 "Прикладная информатика в управлении".

Актуальность учебного пособия обуславливается бурным развитием средств программирования с одной стороны и недостаточным вниманием к языкам программирования высокого уровня при обучении информационным технологиям.

Основная цель пособия — помочь студенту быстро и эффективно освоить основные приемы построения классов и получить навыки разработки программного интерфейса ' для работы с базами данных с помощью языка Visual Basic 6.0

Пособие направлено на дальнейшее изучение возможностей интегрированной среды разработки программ Visual Basic 6.0, связанных с работой с классами и базами данных. Пособие ориентировано на студентов, имеющих опыт создания программ в среде Visual Basic 6.0.

Все учебное пособие разбито на отдельные уроки, сгруппированных по темам, что облегчает изучение технологий построения программ на языке Visual Basic 6.0. Для успешного освоения материала каждого урока необходимо внимательно прочитать краткую справку, затем выполнить учебное задание, для которого имеется подробная технология решения, далее ответить на контрольные вопросы. Если вы успешно ответили на контрольные вопросы и разобрались с учебным заданием, то можете переходить к выполнению самостоятельных заданий.

В результате изучения курса студенты должны

приобрести знания в области построения классов и объектов при разработке программ;

получить навыки работы с базами данных.

РАБОТА С МАССИВАМИ

 Матрицы

Основные цели:

научиться работать с двумерными массивами;

реализовать типичные операции с матрицами.

Краткая справка

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

Если m=n, то матрица называется квадратной.

Основные операции над матрицами: сложение матриц, умножение матрицы на число и умножение матриц.

Сложение матриц: по определению складывать можно только прямоугольные матрицы одинаковых размеров. Складываются элементы матриц с одинаковыми индексами.

 Умножение матрицы на число: каждый элемент исходной матрицы умножается на число. Умножение матриц: по определению, произведением двух квадратных матриц является матрица, у которой каждый элемент стоящий  на пересечении i-ой строки и j-гo столбца, равен произведению i-ой строки первой матрицы на j-ый столбец второй матрицы.

Для обработки матриц лучше всего подходит тип переменных - массивы. Массив - набор однотипных переменных, объединенных одним именем и доступных через это имя и индекс т.е. порядковый номер элемента в наборе.

Учебное задание 11.1

Написать программу, формирующую квадратную матрицу порядка N по заданному образцу. Сформированную матрицу вывести в текстовый элемент (TextBox) и в файл Rez_array.txt в рабочем каталоге.

Технология выполнения учебного задания 1

1.  Создайте новый проект File, New Project   (Файл, Новый проект) или при открытии Visual Basic выберите значок Standard.exe и щелкните по кнопке Открыть.

2.  Задайте  свойству Name  формы  значение frmMatrics,  а свойству Caption формы — значение Построение матрицы.

3.  Разместить   на   форме   текстовый   элемент,   в   который   будет   выводиться формирующаяся   матрица.   Задайте   свойству   Name   значение   txtProtokol. Свойство Text очистите, задайте свойству MultiLine значение True, а свойству ScrollBars - значение Both для организации вертикальной и горизонтальной полос прокрутки. Разместите в нижней части формы кнопки Matrics и Record. Задайте свойствам Name значения cmdMatrics и cmdRecord. Щелчок по кнопке Matrics будет приводить к вычислению элементов матрицы и выводу их в текстовый элемент, а щелчок по кнопке Record - к записи матрицы в файл.

4.  Для того,  чтобы матрица А(nхn) была доступна для обеих подпрограмм, которые будут обрабатывать события Click для каждой из кнопок, объявим массив А() и его размер intN в секции (General)(Declarations) формы. Но так как    размерность    матрицы    пользователь    должен    задавать    в    процессе выполнения программы, массив нужно объявить динамическим:

Option Explicit Private A() As Integer Private intN As Integer

5.  Для того, чтобы аккуратно организовать выбор полного пути для сохранения файла используйте стандартный элемент Microsoft Common Dialog 6.0. Если этого элемента нет на панели -инструментов, добавьте его, щелкнув правой кнопкой мыши на пустом пространстве панели инструментов и выбрав из контекстного меню команду Компоненты (Components) и далее отметив элемент Microsoft Common Dialog 6.0.

6.  Дважды щелкните по элементу Microsoft Common  Dialog  6.0  на панели инструментов, и после того, как он появится на форме задайте свойству Name значение comSaveFile (Рис. 1).

7. Запрограммируем событие Click для элемента cmdMatrics. Private Sub cmdMatrics_Click()

' Ввести размерность массива через диалоговое окно

intN = Val(InputВох("Введите размерность массива", _

"Размер массива"))

' Переопределить размерность массива до первого обращения к его элементу

ReDim A(1 To intN, 1 To intN)

For i = 1 То intN

Forj = l To intN

If i=j ThenA(i,j) = i + j frmMatrics.Print A(i, j); Next j

frmMatrics.Print Next i End Sub

•    Элементы   матрицы,   стоящие   на   главной   диагонали   имеют   одинаковые индексы строки и столбца, т.е. i=j.

•               В   качестве   отладочной   записи   использован   вывод   в   элемент  TextBox,
формирующий протокол выполнения задания Элементы списка, являющиеся
одной строкой матрицы, в операторе Print Список; записываются подряд без
разделителя.   Для   организации   перехода   на   новую   строку  сразу   после
окончания внутреннего цикла использован оператор frmMatrics.Print.

8. Запрограммируем событие Click для элемента cmdRecord. Private Sub cmdRecord_Click()* Dim i, j As Integer Dim strPath As String

' Используя метод ShowSave для элемента comSaveFile определим полное ‘имя  файла результатов

comSaveFile.ShowSave strPath = comSaveFile.FileName filenol = FreeFile

Open strPath For Output As filenol

For i = 1 To intN

For j = 1 To intN

Print #filenol,A(i,j);

Next j

Print # filenol, Next i

Close # filenol

' Уведомление пользователя о том, что запись осуществлена. frmMatrics.Print "Файл записан" End Sub

•               Для корректного и удобного определения полного имени файла при открытии
или   сохранении   файлов   используйте   методы   .ShowOpen   и   .ShowSave
элемента Microsoft Common Dialog 6.0.

•                 Из   двух    возможностей    записи    информации    в    файл,    воспользуемся
оператором   Print   #filenol,   т.к.   оператор   Write   #filenol    записывает
элементы списка через запятую, а элементы матриц принято записывать
через пробел.

Контрольные упражнения

1.  Допишите фрагмент программы, который подсчитывал бы и выводил след матрицы т.е. сумму элементов на ее главной диагонали.