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

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

РассмотримЭтапы процесса проектирования Программного Проекта (простейшего) с использованием системы (среды) 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. Содержание Отчёта по разработанному Проекту

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

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