Формирование платёжного документа в Visual Basic

ФГБОУ ВПО «БАЛТИЙСКАЯ ГОСУДАРСТВЕННАЯ АКАДЕМИЯ РЫБОПРОМЫСЛОВОГО ФЛОТА»

                                                      Кафедра ИПЭМ

 

 

 

 

 

 

ОТЧЁТ

 

по курсовой работе

«Формирование платёжного документа в Visual Basic»

 

По учебной дисциплине

«Программирование»

 

 

 

 

 

Исполнитель: студент(ы) уч.гр. БИ-21_Корюкина В.А

                                                                    Никитин.С.О

                                                                                                  подпись, дата

Сдан на проверку «____» _________ 2013

Оценка по результатам защиты _____________

Преподаватель: ____________________

Калининград

2013

 

Этапы курсовой работы:

 

1. Выполнить постановку задач.

2. Создать интерфейс.

2.1. Окно входа в программу

2.2. Окно регистрации в программе

2.3. Рабочее окно программы

3. Разработать алгоритм.

3.1. Создание платёжного документа.

3.2. Редактирование платёжного документа.

3.3. Пример алгоритма входа в  программу.

4. Разработать код.

5. Создать контрольный пример.

6.Выводы и список литературы.

 

 

 

 

 

 

 

 

 

 

 

1.  Написать  программу на Visual Basic 6 для создания платёжного документа.

 Работа содержит меню, строку с текущей датой и временем, управляющие элементы (кнопки, поля для ввода/вывода информации), всплывающие окна открытия и сохранения документов, подключены некоторые используемы дополнительные модули и компоненты.

Язык программирования Visual Basic — средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса.

 

Классический Visual Basic (версии 6)

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

 

2. Интерфейс программы содержит  элементы:

• Элемент управления TextBox, представляющий текстовое поле, является одним из наиболее удобных и полезных. В текстовом поле может отображаться текстовая информация, адресуемая пользователю. Кроме того, с его помощью пользователь может вводить собственные данные.
• CommandButton - это кнопка, управляющая кнопка. При нажатии на кнопку в приложении выполняются определенные, разработчиком, действия.
• Строковое меню - элемент, при нажатии на который возникает событие или выполняется программа (часть программы).
• Элемент управления Label (надпись) предназначен для вывода в нужном месте окна какого-либо поясняющего текста.
• Listbox представляет пользователю список для выбора. По умолчанию пункты выбора отображены вертикально в одном столбце, хотя можно установить и несколько столбцов. Если число пунктов превышает размер listbox, в элементе управления автоматически появляются полосы прокрутки, и пользователь может листать список вверх и вниз или слева направо.
• Элемент управления   ComboBox (Комбинированный список) сочетает в себе функциональные возможности списка ListBox и текстового поля TextBox. В отличие от ListBox в ComboBox отображается только один элемент списка.
• Элемент управления Timer Visual Basic 6.0 является фактическим элементом управления, размещаемым в форме в режиме разработки; однако он не отображается во время выполнения. Задаёт интервал повторения выполнения определённой функции или задачи.
• Элемент управления CommonDialog позволяет разработчикам приложений максимально приблизить разработку интерфейса своей программы к стилю применяемого в Windows. Этот элемент программирования подключается отдельно с помощью компонента Microsoft Common Dialog Control 6.0 .
• Frame — элемент (виджет) графического интерфейса пользователя, который является контейнером для других объектов. Этот элемент позволяет скрывать элементы находящиеся внутри скрывать (делать невидимыми при работе программы).

 

Интерфейс программы состоит из нескольких окон (форм) и множества элементов (кнопок, рамок, полей для ввода информации), которые позволяют без труда пользоваться ею.

 

 

 

 

2.1. Окно входа в программу.

Это окно содержит три управляющие кнопки (вход, регистрация, выход), нажатие на которые происходит именованное событие.

Два текстовых поля предназначены для ввода логина/имени пользователя и пароля.

Два поля Label (Логин/Имя Пользователя, Пароль), которые не видны на форме служат для подписи к текстовым полям.

Также имеется меню с одним пунктом для входа в программу, как гость и работать в полном функционале без регистрации.

 

 

 

2.2. Окно регистрации в программе

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

Кнопка вход позволяет вернуться к окну входа в программу для ввода логина и пароля.

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

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

Также, как и в окне входа имеются два текстовых поля для ввода логина и пароля, два элемента Label.

Окно регистрации содержит меню с одним пунктом, при нажатии на который открывается файл.

 

 

 

2.3. Рабочее окно программы

Это окно содержит элементы :

• CommandButton
• Строковое меню
• Label
• Listbox
• ComboBox
• Timer
• CommonDialog
• Frame

Строковое меню содержит четыре пункта для работы с программой. Каждый пункт имеет собственные подпункты (древовидное меню).

• Главная. Это пункт содержит всего один подпункт, вызывающий код программы, отвечающий за загрузку данных в программу для формирования документа.
• Шрифт. Содержит в себе два подпункта:
• Размер. В свою очередь содержит подпункты, выполняющие функции изменения размера шрифта в элементах программы.
• Стиль. Позволяет изменить стиль шрифта в элементах программы. Содержит подпункты.
• Работа с чеками. Содержит два подпункта:
• Открыть чек на редактирование.
• Открыть чек на печать. Выполняет печать выбранного чека.
• Помощь. Содержит два подпункта:
• О программе.
• Инструкция.

3. Алгоритм программы состоит  в чтении файла со списком, сортировке каждой части списка  в нужный элемент программы, объединение в другой список для последующего сохранения отчёта о работе программы.

 

3.1. Создание платёжного документа.

1. Создание пользователя.
2. Вход под пользователем в программу.
3. Загрузка списка товаров в программу.
4. Формирование платёжного документа.
5. Сохранение или печать документа.

 

3.2. Редактирование платёжного документа.

1. Создание пользователя.
2. Вход под пользователем в программу.
3. Открытие документа на редактирование.
4. Сохранение или печать изменённого документа.

 

 

 

 

 

 

 

 

 

 

 

3.3. Пример алгоритма входа в программу.

 
3.3. Пример подсчёта суммы.

 

 
4. Разработать код.

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

Dim d As String, tov() As String, chek() As String, f As Variant, z As Variant, i As Integer, k As Variant, dob() As String, SUM As Double ' Объявление всех переменных в программе

 

Private Sub aria_black_Click() ' Команда смены стиля шрифта  на Arial Black. Выполняется на клик клавишей мыши

List1.FontName = "Arial Black" ' Изменение стиля в элементе List1 (хранит в себе цены товаров)

List2.FontName = "Arial Black" ' Изменение стиля в элементе List2 (хранит в себе наименование)

List3.FontName = "Arial Black" ' Изменение стиля в элементе List3 (хранит в себе производителя)

List1.Height = 1815 ' Изменение размера элемента List1

List2.Height = 1815 ' Изменение размера элемента List2

List3.Height = 1815 ' Изменение размера элемента List3

End Sub ' Конец команды

 

Private Sub Combo1_Click() ' Команда выбора товара. Выполняется при клике на элементе списка

k = Split(Combo1.Text, " ") ' В переменную k записывается часть элементов, разделённых командой Split. Разделитель переменных пробел

ReDim dob(UBound(k)) ' Переобъявляем массив dob(). Команда Ubound считает колличество разделённых элементов (отсчёт ведётся с нуля)

For i = 0 To UBound(k) ' Начинается цикл с нулевого элемента до конечного номера резделённых элементов

dob(i) = k(i) ' записываем в переменную dob() каждую разделённую часть, которая хранится в k

Next i ' конец цикла

List1.AddItem dob(0) ' записываем в элемент List1 (хранит в себе цену) нулевой элемент переменной dob()

List2.AddItem dob(1) ' записываем в элемент List2 (хранит в себе наименование) первый элемент переменной dob()

List3.AddItem dob(2) ' записываем в элемент List3 (хранит в себе производителя) второй элемент переменной dob()

Call summa ' вызов функции summa (сумма)

Call del ' вызов функции del (описание в самой функции)

End Sub ' конец команды

 

Function summa() ' Функция суммы

SUM = 0 ' обнуление переменной sum

For i = 0 To List1.ListCount - 1 ' начало цикла с нуля, т.к. нумерация в элементе listbox начинается с нуля, до последнего элемента в lostbox

SUM = SUM + Val(List1.List(i)) ' присваиваем sum сумму всех элементов, поочерёдно суммируя друг с другом определённое колличество раз

Next ' конец цикла

Label5.Caption = "Итого: " + Str(SUM) + "руб." ' вывод в элемент label строки содержащей Итого: "Наша полученная сумма" руб.

End Function ' конец функции

 

Function del() ' функция del проверяет на наличие в элементе list2 каких либо записей

If List2.ListCount = 0 Then ' проверка условия содержания элементов в элементе listbox. Свойство listcount отвечает за подсчёт колличества элементов. Listcount=0 означает, что нет элементов. Ели да то

Frame2.Visible = False ' элемент frame2 не виден

Else ' иначе

Frame2.Visible = True 'элемент frame2 виден

End If ' конец условия

End Function ' конец  функции

 

Private Sub Command1_Click() ' выполнение команды кликом мыши  на кнопке "сохранить чек"

CommonDialog3.InitDir = App.Path & "" & Form1.Text1.Text ' присваивание  свойству Initdir элемента commondialog начальной папки. App.path указывает путь к папке с программой, form1.text1.text хранит в себе имя пользователя

CommonDialog3.Filter = "Текстовые файлы (*.txt) |*.txt" ' указываем фильтр файлов

CommonDialog3.ShowSave ' отображение окна сохранения

If CommonDialog3.FileName = "" Then Exit Sub ' проверка условия на пустоту имени. Если пусто, то конец команды

Open CommonDialog3.FileName For Output As #4 ' открытие(создание) нашего файла для записи в него информации

For i = 0 To List1.ListCount - 1 ' начало цикла с нуля, т.к. нумерация в элементе listbox начинается с нуля, до последнего элемента в lostbox

d = List1.List(i) + ";" + List2.List(i) + ";" + List3.List(i) ' запись в переменную d объединённые элементы содержащиеся в каждом listbox

Print #4, d ' запись в файл переменной d

Next i ' конец цикла

Close #4 ' закрытие файла и сохранение в нём изменений

 

End Sub ' конец команды

 

Private Sub Command2_Click() ' выполнение команды клик на кнопке (удалить позицию)

List3.RemoveItem List2.ListIndex ' удаление в элементе list3 номер позиции, выбранной в элементе list2

List1.RemoveItem List2.ListIndex ' удаление в элементе list1 номер позиции, выбранной в элементе list2

List2.RemoveItem List2.ListIndex ' удаление в элементе list2 номер позиции, выбранной в элементе list2

Call summa ' вызов  функции summa

Call del ' вызов функции del

Call vibor ' вызов  функции vibor

End Sub ' конец команды

 

Function vibor() ' функция vibor (выбор). Проверяет элемент list2 на наличие выбора

If List2.SelCount = 1 Then ' проверка условия выбора. Если list2.selcount=1 то выбран один элемент. Если да то

Frame1.Visible = True ' элемент frame1 виден

Else ' иначе

Frame1.Visible = False ' элемент frame1 не виден

End If ' конец условия

End Function ' конец функции

 

Private Sub Command3_Click() ' выполнение команды клик на кнопке (сохранить изменения...)

If CommonDialog1.FileName = "" Then Exit Sub ' проверка условия на пустоту имени. Если пусто, то конец команды

Open CommonDialog1.FileName For Output As #3 ' открытие файла для записи

For i = 0 To List1.ListCount - 1 ' начало цикла с нуля, т.к. нумерация в элементе listbox начинается с нуля, до последнего элемента в lostbox

d = List1.List(i) + ";" + List2.List(i) + ";" + List3.List(i) ' запись в переменную d объединённые элементы содержащиеся в каждом listbox

Print #3, d ' запись в файл переменной d

Next i ' конец цикла

Close #3 ' закрытие файла

End Sub ' конец команды

 

Private Sub consolas_Click() ' Команда смены стиля шрифта на Consolas. Выполняется на клик клавишей мыши

List1.FontName = "Consolas" ' Изменение стиля в элементе List1 (хранит в себе цены товаров)

List2.FontName = "Consolas" ' Изменение стиля в элементе List2 (хранит в себе наименование)

List3.FontName = "Consolas" ' Изменение стиля в элементе List3 (хранит в себе производителя)

List1.Height = 1815 ' Изменение размера элемента List1