Курсовой проект по MS Visual Basic 6.0 “Магазин игрушек”

Содержание :

Содержание : 2

2

1.Постановка задачи 3

Введение в Visual Basic 4

М – Артикль (М - мужская, Д - дамская, П - детская) 5

Кроссовки Adidas – Наименование обуви 5

20 – Кол-во пар обуви в магазине 5

3000 – Цена одной пары 5

Создание формы 6

1. Постановка задачи

Создать файл, содержащий сведения об ассортименте игрушек в магазине.

Каждая запись содержит поля: название игрушки, цена, количество, возрастные границы, например, 2-5, т.е. от 2 до 5 лет.

Написать программу, в результате выполнения которой выдаются следующие сведения:

- название игрушек, которые подходят детям от 1 до 3 лет.

- стоимость самой дорогой игрушки и ее наименование.

- название игрушки, которая по стоимости не превышает х руб. и подходит ребенку в возрасте от а до b лет. Значения x, a, b, вводятся пользователем.

Введение в Visual Basic

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

При программировании любой задачи в основе ее решения лежит понятие алгоритма. Алгоритм – это последовательность действий, выполнение которых приводит к решению задачи. Различают три основных типа алгоритмов – линейный, разветвляющийся и циклический.

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

Создание текстового файла

Для выполнения поставленной задачи в текущем каталоге был создан файл data.txt, в котором находились необходимые сведения для решения задачи.

Данный файл используется как файл последовательного доступа, в котором данные в цикле считываются в соответствующие переменные, в нашем случае в массив данных, с которым впоследствии мы и работаем. Как видно из рисунка, согласно заданию, формат ввода данных таков:

М,Кроссовки Adidas,20,3000 Эти данные могут быть любыми, их вводит пользователь, но обязательно должны быть обязательно такого формата.

М – Артикль (М - мужская, Д - дамская, П - детская)

Кроссовки Adidas – Наименование обуви

20 – Кол-во пар обуви в магазине

3000 – Цена одной пары

Создание формы

Объект форма создается с помощью Visual Basic. В нашей программе она одна: “Обувной магазин”. На данной форме находятся командные кнопки, элементы управления Label, а также комбинированное поле ComboBox, с помощью которых мы выполняем поставленную перед нами задачу. На рисунке можно увидеть эту форму.

Форма:

Используя ComboBox, мы выбираем нужный нам артикль. В List1, List2, List3 выводится информация по выбранному артиклю. В поля List4, List5 выводится информация о женской обуви. По нажатию на кнопку «Выход» программа завершает свою работу.

2. Блок-схема алгоритма решения

Блок-схема Form_Load()

Нет

Да

Блок-схема Combo1_Click()

Нет

ДА

3. Текст программы на языке Visual Basic

Dim ShoesName(100), ShoesArticle(100) As String

Dim ShoesValue(100), ShoesPrice(100), i As Integer

Private Sub Combo1_Click()

List1.Clear

List2.Clear

List3.Clear

Dim N As Integer

For N = 0 To i

If ShoesArticle(N) = Combo1.Text Then

List1.AddItem (ShoesName(N))

List2.AddItem (ShoesValue(N))

List3.AddItem (ShoesPrice(N))

End If

Next N

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Dim N As Integer

i = -1

'Загрузка значений в массив

Open App.Path + "\data.txt" For Input As #1

Do Until EOF(1)

i = i + 1

Input #1, ShoesArticle(i), ShoesName(i), ShoesValue(i), ShoesPrice(i)

Loop

Close #1

'Выбераем только женскую обувь

For N = 0 To i

If ShoesArticle(N) = "Ж" Then

List4.AddItem (ShoesName(N))

List5.AddItem (ShoesValue(N))

End If

Next N

End Sub

4. Анализ полученного результата

При запуске программы в массивы загружаются данные из файла. Затем из массивов в List4 и List5 загружается наименование женской обуви и ее кол-во.

При выборе артикля очищаются List1, List2, List3 и в них загружаются значения выбранного артикля из массивов.

Вывод по проделанной работе

Итак, я выполнил поставленную передо мной задачу. В результате чего научился пользоваться средой Visual Basic серии 6.0. Таким образом, я убедился в возможности довольно просто создавать быстрые Windows-приложения. Освоив принципы визуального, объектно-ориентированного программирования, мною поэтапно была решена типичная для программирования задача: ввод данныхобработка данныхвывод данных.

11