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

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

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

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 - элемент (виджет) графического интерфейса пользователя, который является контейнером для других объектов. Этот элемент позволяет скрывать элементы находящиеся внутри скрывать (делать невидимыми при работе программы).

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

· CommandButton

· Строковое меню

· Label

· Listbox

· ComboBox

· Timer

· CommonDialog

· Frame

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

- Главная. Это пункт содержит всего один подпункт, вызывающий код программы, отвечающий за загрузку данных в программу для формирования документа.

- Шрифт. Содержит в себе два подпункта:

· Размер. В свою очередь содержит подпункты, выполняющие функции изменения размера шрифта в элементах программы.

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

- Работа с чеками. Содержит два подпункта:

· Открыть чек на редактирование.

· Открыть чек на печать. Выполняет печать выбранного чека.

- Помощь. Содержит два подпункта:

· О программе.

· Инструкция.

3. Алгоритм программы

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

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

1. Создание пользователя.

2. Вход под пользователем в программу.

3. Загрузка списка товаров в программу.

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

5. Сохранение или печать документа.

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

1. Создание пользователя.

2. Вход под пользователем в программу.

3. Открытие документа на редактирование.

4. Сохранение или печать изменённого документа.

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

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

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

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

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

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

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

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

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

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

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

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

Private Sub Form_Load() ' команда выполняется при загрузке формы

Label6. Caption = Date + Time ' вывод в элемент label дату и время

Label4. Caption = «Список товара» ' присваивание свойству caption элемента label надписи

Label3. Caption = «Цена» ' присваивание свойству caption элемента label надписи

Label1. Caption = «Наименование товара» ' присваивание свойству caption элемента label надписи

Label2. Caption = «Производитель» ' присваивание свойству caption элемента label надписи

Command1. Caption = «Сохранить чек» ' присваивание свойству caption элемента commandbutton надписи

Command2. Caption = «Удалить позицию» ' присваивание свойству caption элемента commandbutton надписи

Command3. Caption = «Сохранить изменения в чеке» ' присваивание свойству caption элемента commandbutton надписи

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

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

Private Sub Instrukciya_Click() ' Команда вызова инструкции. Выполняется на клик мыши

Shell «C:\Program Files\Internet Explorer\iexplore.exe E:\Пары\Программирование\курсовая\Курсовой проект\instrukciya.htm», vbNormalFocus ' Запуск инструкции

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

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

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

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

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

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

List2. FontSize = 10 ' Изменение размера в элементе List2 (хранит в себе наименование)

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

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

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

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

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

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

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

List2. FontSize = 12 ' Изменение размера в элементе List2 (хранит в себе наименование)

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

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

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

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

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

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

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

List2. FontSize = 8 ' Изменение размера в элементе List2 (хранит в себе наименование)

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

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

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

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

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

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

MsgBox «Программа создана для курсовой работы по программированию.», «О программе.» ' выводит на экран окно с нашей информацией

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

Private Sub Otkr_chek_na_pechat_Click() ' команда открытия чека на печать. Выполняется на клик клавишей мыши

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

CommonDialog4. ShowOpen ' отображение окна открытия

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

Printer. Print CommonDialog4. FileName ' выполение печати выбранного нами файла

Printer. EndDoc ' конец задачи печати

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

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

Dim gline As String ' объявление переменной в команде

List1. Clear ' очистка элемента list1

List2. Clear ' очистка элемента list2

List3. Clear ' очистка элемента list3

Frame3. Visible = True ' элемент frame3 виден на форме

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

CommonDialog1. ShowOpen ' отображение окна открытия

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

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

Do While Not EOF(2) ' начало цикла с условием (конец файла номер 2)

Line Input #2, gline ' запись из файла в переменную целой строки

f = Split (gline,»;») ' В переменную записывается часть элементов, разделённых командой Split. Разделитель переменных точка с запятой

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

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

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

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

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

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

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

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

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

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

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

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

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

Combo1. Clear ' очистка элемента

Dim line As String ' объявление переменной в команде

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

CommonDialog2. ShowOpen ' отображение окна открытия

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

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

Do While Not EOF(1) ' начало цикла с условием (конец файла номер 1)

Line Input #1, line ' запись из файла в переменную целой строки

z = Split (line,»;») ' В переменную записывается часть элементов, разделённых командой Split. Разделитель переменных точка с запятой

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

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

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

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

d = tov(0) + «» + tov(1) +» " + tov(2) ' объединение всех данных в наших переменных и запись их в одну переменную d. Между переменными пробел

Combo1. AddItem (d) ' добавление в элемент combobox данных из перемнной d

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

Close #1 ' закрытие и сохрание нашего файла

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

Sub ShowTime() ' отображение текущего времени

Label6. Caption = Date + Time ' Вывод в Label текущие дату и время

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

Private Sub Form_Initialize() ' инициализация формы

Timer1. Interval = 1000 ' установка в таймере интервала (1000 милисекунд = 1 секудна)

Timer1. Enabled = True ' включение самого таймера

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

Private Sub Form_Paint() ' обработка события Paint

Call ShowTime ' отображение времени

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

Private Sub Timer1_Timer() ' обработка сигнала таймера

Call ShowTime ' отображение времени

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

Функции и команды Visual Basic, использованные в проекте.

- Dim(оператор) - объявляет переменные и выделяет память под них.

- String(функция) - возвращает строку заданной длины из одинаковых символов.

- Private(оператор) - используется на уровне модуля для объявления Privateпеременных и выделяет место в памяти для их хранения.

- Sub(оператор) - объявляет имя, параметры и тело процедуры.

- Command(функция) - возвращает командную строку, используемую для запуска Visual Basic или приложения на Visual Basic.

- Input #(оператор) - считывает данные из открытого файла в переменные.

- Input(функция) - возвращает символы из файла, открытого для последовательного доступа или как двоичный файл.

- ReDim(оператор) - используется на уровне подпрограммы для переопределения размера динамических массивов и выделения под них места в памяти.

- UBound(функция) - возвращает значение наибольшего индекса для данной размерности массива.

- EOF(функция) - возвращает значение, указывающее, достигнут ли конец файла.

- Line Input #(оператор) - считывает строку из файла в переменную.

- If…Then…Else(оператор) - выполнение групп команд в зависимости от значения выражения.

- Do…Loop(оператор) - повторяет блок команд до тех пор, пока условие верно или до тех пор, пока условие не станет верным.

- Close(оператор) - закрывает файл, открытый оператором Open.

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

- Load(оператор) - загружает в память форму или элемент управления.

- End(оператор) - заканчивает подпрограмму или блок команд.

- Exit(операторы) - осуществляет выход из циклов Do…Loop, For…Next, функции и процедур.

- Shell(функция) - запускает внешнюю программу на выполнение.

- Open(оператор) - скрывает файл для ввода / вывода.

Размещено на Allbest.ru

...