Сохранение созданного Проекта

Этапы создания (Проектирования) Программного Проекта

Рассмотрим Этапы процесса проектирования Программного Проекта (простейшего) с использованием системы (среды) Visual Basic 6.0 для задач Прямого счёта – это для выполняемых нами лабораторных работ, домашних заданий и Контрольной работы:

1. Постановка задачи – разработка словесного задания разрабатываемого Проекта и Экранной формы для исходных данных и результатов – первый этап Проектирования.

2. Разработка Интерфейса – создание Экранной Формы со всеми её элементами управления и описание их свойств – второй этап Проектирования.

3. Собственно Программирование – разработка (составление) Алгоритмов в соответствии с условием задачи и написание Программ по разработанным алгоритмам – третий этап Проектирования.

4. Отладка программных кодов.

6. Представление и защита Отчёта.

1.7. Пример разработки Проекта (Интерфейса, Алгоритма и Программы)

Задание:

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

– элементы, которые входят в массив по одному разу ‘вывод в ListBox

– элементы, которые входят в массив боле одного раза ‘вывод в ListBox

Макет исходных данных:

Рис.1.12. Экранная форма до запуска Программы

Для компоновки Экранной формы рассматриваемого Задания использованы следующие элементы управления Окна ToolBox:

- метка Label (надпись: Исходный массив:) с имением Lbl1;

- текстовое поле Text с именем TxtViv для отображения исходного массива;

- метка Label (надпись) с именем Lbl2 получает значение свойства Caption (Элементы, встречающиеся один раз или Элементов, встречающихся один раз, НЕТ) в процессе выполнения программного кода;

- метка Label (надпись) с именем Lbl3 получает значение свойства Caption (Элементы, встречающиеся более одного раза, или Элементов, встречающих-

ся более одного раза, НЕТ) в процессе выполнения программного кода;

- список ListBox с именем Lst1 заполняется элементами, имеющимися в массиве A по одному разу;

- список ListBox с именем Lst2 заполняется элементами, имеющимися в массиве A более одного раза;

- командная кнопка CommandButton с именем ПУСК;

- командная кнопка CommandButton с именем ВЫХОД.

Элементы Экранной формы и их основные свойства (рис.1.12, рис. 1.13 и рис. 1.14)

Элемент экранной формы	Имя свойства	Значение свойства
Label	Name	LblИсхМасс
Caption	Исходный массив
TextBox (Text)	Name	TxtViv
Label	Name	Lbl1
Caption	Элементы, встречающиеся один раз, или Элементов, встречающихся один раз, НЕТ
Label	Name	Lbl2
Caption	Элементы, встречающиеся более одного раза, или Элементов, встреча-ющихся более одного раза, НЕТ
ListBox	Name	Lst1
ListBox	Name	Lst2
CommandButton	Name	ПУСК
Caption	ПУСК
CommandButton	Name	ВЫХОД
Caption	ВЫХОД

Алгоритм:

Описание Данных

Redim A,R,Kol

Переобъявление (переопределение) массивов A, R, Kol

	TxtViv.Text= ””

Очистка текстового поля

Цикл ввода и отображения исходного массива A

Ввод

массва

Отображение

исходного

массива A

NextI  

	K = 0

Цикл формирование массива R различных

чисел

нет

да

	Kol(J) = Kol(J) + 1

нет

да

K = K + 1

да

R (K) = A (I)

Подсчёт количества различных

чисел K и создание массива

различных чисел R

L2 = -1

Цикл вывода на форму различных чисел, встречающихся

по одному и более одного раза

нет

L2 = L2 + 1  

да

нет нет

да

да

End If

нет

Next I

да

нет

да

Программа:

Private Sub ПУСК_Click ()

Dim A() As Single ‘исходный массив вещественных чисел

Dim R() As Single ‘результирующий массив различных чисел

Dim Kol() As Integer ‘результирующий массив количеств различных чисел

Dim K As Integer ‘количество различных чисел в исходном массиве

Dim I As Integer, J As Integer ‘индексы

Dim F As Integer ‘индикатор факта повторения чисел

Dim L1 As Integer ‘индикатор однократной фиксации числа и номер в списке

Dim L2 As Integer ‘индикатор двух и более повторений чисел и номер в списке

Dim M As Integer ‘размер массива

M = InputBox(“Укажите размер исходного массива A: ”)

ReDim A(1 To M), R(1 To M), Kol(1 To M) ‘переобъявление массивов A, R, Kol

TxtViv.Text =”” ‘очистка текстового поля

For I = 1 To M ‘Цикл ввода и отображения исходного массива А

A(I) = InputBox(“Введите значение элемента с номером: ” & I)

TextViv.Text = TextViv.Text & “ “ & A(I) ‘отображение исходного массива А

Next I

K = 0

For I = 1 To M ‘Цикл формирования массива различных чисел

F = 0

For J = 1 To K

If A(I) = R(J) Then Kol(J) = Kol(J) + 1: F = 1

Next J

If F = 0 Then K = K + 1: R(K) = A(I): Kol(K) = 1

Next I

L1 = -1: L2 = -1

For I = 1 To K ‘Цикл вывода на форму различных чисел, встречающихся _

If Kol(I) = 1 Then ‘по одному и более одного раза

L1 = L1 + 1

If L1 = 0 Then Lbl1.Caption = “Элементы, встречающиеся по одному разу”

Lst1.List(L1) = R(I)

Else L2 = L2 + 1

If L2 = 0 Then Lbl2.Caption = “Элементы, встречающиеся более одного раза”

Lst2.List(L2) = R(I)

End If

Next I

If L1 = -1 Then Lbl1.Caption = “Элементов, встречающихся по одному разу, Нет”

If L2 = -1 Then Lbl2.Caption = “Элементов, встречающихся более одного раза, Нет”

End Sub

Private Sub ВЫХОД_Click ()

End

End Sub

Рис.1.13. Экранная фор-

ма с началом ЗАПУСКА

Программы

Рис. 1.14. Экранная

форма с отображён-

ными результатами

1.8. Содержание Отчёта по разработанному Проекту

(лабораторным работам, домашним Заданиям)

Отчёт должен содержать:

Дата добавления: 2014-01-05