4.2. Использование в проекте списков

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

Пример 1. Создать приложение – проект PR_2, у которого на форме 1 есть следующие управляющие элементы: а) список, б) два элемента TextBox, над которыми расположить надписи "Индекс элемента" и "Содержание элемента", в) три кнопки Button с надписью “Вставить новый элемент массива с заданным индексом” и “Очистить элемент массива”, “Сортировать список”, процедуры которых выполняют соответствующие действия.

В конец списка автоматически при загрузке формы должны вноситься четыре пункта, равные "AA", "AB", "AC", "AD".

В режиме конструктора внести в список элементы "ВA", "ВB", "ВC", "ВD".

Указания к выполнению.

I. Создаем новый проект с именем PR_2, так же, как и ранее (Глава 3).

II. Программное внесение в конец списка четырех заданных элементов при загрузке формы.

Дважды щелкаем мышью по полю формы, при этом открывается окно Сode, в котором содержится код:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

В поле процедуры Sub Form1_Load вносим следующие операторы:

ListBox1. Items.Add("AA")

ListBox1. Items.Add("AB")

ListBox1. Items.Add("AC")

ListBox1. Items.Add("AD")

III. Создание текстовых окон с надписями "Индекс элемента" и "Содержание элемента".

Перетаскиваем на поле формы из Toolbox два элемента типа Label, в свойство Text которых вносим надписи "Индекс элемента" и "Содержание элемента" соответственно. Под надписями в форму заносим два элемента TextBox.

IV. Создание кнопки Button с надписью “Вставить новый элемент массива с заданным индексом”, реализующей данную функцию.

Перенести на форму элемент Button. Его свойству Text задаем значение “Вставить новый элемент массива с заданным индексом”. Для реализации действия откроем процедуру элемента и вставим в нее вызов функции Insert, в котором первый аргумент берем из первого текстового окна, а второй - из второго TextBox:

ListBox1.Items.Insert(TextBox1.Text, TextBox2.Text)

V. Аналогично создаем кнопку Button с надписью “Очистить элемент массива”, реализующей данную функцию. В код ее процедуры вносим строку:

ListBox1.Items.RemoveAt(TextBox1.Text)

VI. Аналогично создаем кнопку Button с надписью “ Сортировать список”, в ее код вносим строку, присваивающую свойству Sorted значение True:

ListBox1.Sorted = True

VII. Для внесения значений в режиме конструктора открыть свойство Items списка ListBox1 и занести требуемые значения.

Сохранить проект.

Пример 4. Создать форму под названием ”Книжный Интернет-магазин”, содержащую:

1. Список 1 «автор и название».

2. Список 2 «стоимость книги» (указать число рублей).

3. Группу управляющих элементов для ввода новой книги в списки 1 и 2.

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

5. Создать кнопку «суммарная стоимость заказа» и окно для вывода ее значения.

При начальной загрузке формы в списке должно быть четыре книги:

1. Сара Морган, Билл Райан, Шеннон Хорн, Марк Бломсма. Разработка распределенных приложений на платформе Microsoft .Net Framework - 300 руб.

2. Джон Чирилло. Обнаружение хакерских атак. Для профессионалов. – 450 пуб.

3. Зуев Е. А. Язык программирования Turbo Pascal 6.0, 7.0 – 150 руб.

4. Очков В. Ф., Пухначев Ю. В. 128 советов начинающему программисту– 200 руб.

Указания к выполнению.

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

2. Создать глобальную переменную для суммарной стоимости заказа: в код класса Form1 вставить описание глобальной переменной Sum:

Public Sum As Double

3. Для обеспечения обнуления суммы Sum и начальной загрузки формы в тело функции Form1_Load вставить операторы:

Sum = 0

ComboBox1.Items.Clear()

ComboBox1.Items.Add("Сара Морган, Билл Райан, Шеннон Хорн, Марк Бломсма. Разработка распределенных приложений на платформе Microsoft .Net Framework")

ComboBox2.Items.Add("300")

ComboBox1.Items.Add("Джон Чирилло. Обнаружение хакерских атак. Для профессионалов")

ComboBox2.Items.Add("450")

и т.д. для остальных книг.

Рис.4.1. Общий вид формы ”Книжный Интернет-магазин”

4. Для обеспечения удаления выделенной продаваемой книги в тело соответствующей функции кнопки “Удаление продаваемой книги” вставить код:

Dim N As Integer

N = ComboBox1.SelectedIndex

ComboBox1.Items.RemoveAt(N)

ComboBox2.Items.RemoveAt(N) в

5. Для вставки выделенной продаваемой книги в список выбранных книг в тело функции кнопки “Занесение новой книги в список” вставить код:

ComboBox1.Items.Add(TextBox1.Text + TextBox2.Text)

ComboBox2.Items.Add(TextBox3.Text)

6. Для обеспечения удаления выделенной выбранной книги из третего списка в тело функции кнопки “Удаление выбранной книги” вставить код:

Dim N As Integer

N = ComboBox3.SelectedIndex

ComboBox3.Items.RemoveAt(N

7. Для обеспечения выбора выделенной книги и наращивания суммарной стоимости выбранных книг в текст функции кнопки “Выбор выделенной книги” вставить код:

Dim N As Integer

N = ComboBox1.SelectedIndex

ComboBox3.Items.Add(ComboBox1.Items(N) + " - " + ComboBox2.Items(N) + " руб.")

Sum = Sum + Val(ComboBox2.Items(N))

8. Для иллюстрации на форме суммарной стоимости выбранных книг в текст функции кнопки “Суммарная стоимость заказа” вставить код:

TextBox4.Text = Str(Sum)

где TextBox4 - элемент управления, в окне которого будет показана суммарная стоимость.