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

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(оператор)- скрывает файл для ввода/вывода.

 

 

5. Контрольный пример.

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

Данный курсовой проект был выполнен в полном соответствии поставленному заданию и отлажен в среде Visual Basic 6.0. В ходе выполнения курсовой работы была разработана программа для создания платёжного документа.

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

В результате выполнения данной курсовой работы, были освоены широкие возможности языка программирования Visual Basic 6.0.

 

 

1. Браун, С. Visual Basic 6; СПб: Питер, 2001. - 576 c.
2. Якушева, Н.М. Visual Basic для студентов; М.: Радио и связь, 2001. - 232 c.
3. Глушаков, С.В.; Сурядный, А.С. Microsoft Excel 2007. Краткий курс; АСТ, АСТ Москва, Харвест, 2008. - 352 c.
4. Сайлер, Споттс  "Использование Visual Basic 6", Издательский дом "Вильямс", 1999.

Эта книга - для программистов средней руки.

5. “VISUAL BASIC  - ЭТО ПРОСТО!” . http://www.vb6easy.narod.ru/