МИНОБРНАУКИ РОССИИ
Федеральное государственное бюджетное образовательное учреждение
высшего профессионального образования
«САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ ИНЖЕНЕРНО-ЭКОНОМИЧЕСКИЙ УНИВЕРСИТЕТ»
(СПбГИЭУ, ИНЖЭКОН)
Отчёт по индивидуальным работам в Excel и Visual Basic
Выполнил: Тихомирова Е. В.
Факультет информационных систем
в экономике и управлении
Группа 3811
Научный руководитель:
Стельмашонок Е. В. д.э.н., профессор
Санкт-Петербург
2011
Оглавление
Индивидуальное задание по Excel 3
Постановка задачи 3
Используемые формулы 4
Visual Basic 5
Постановка задачи 5
Выполнение задания 6
Форма 1 6
Форма 2 7
Форма 3 8
Форма 4 10
Форма 5 11
Индивидуальное задание по Excel
Вариант 6
Постановка задачи
Создать две исходные таблицы. Первая исходная таблица должна быть создана на рабочем листе "Наличие на начало" и иметь следующий вид:
Код материала |
Наименование материала |
Остаток текущий |
Дата Последнего движения |
Единицы измерения |
|
|
|
|
|
Вторая исходная таблица создается на рабочем листе "Расход в течение декады" и имеет вид:
Код материала |
Количество расхода |
Дата расхода |
Номер приходного документа |
|
|
|
|
При создании этой таблицы необходимо учесть, что по каждому коду материала возможен многократный расход в течение декады.
На основе данных исходных таблиц на рабочем листе "Наличие после расхода" получить результатную таблицу следующего вида:
Код материала |
Наименование материала |
Остаток после расхода |
Дата Последнего движения |
Единицы измерения |
|
|
|
|
|
Используемые формулы
Каждая из таблиц построена на отдельном листе. На рисунке 1 приведена таблица с данными «Наличие на начало»; на рисунке 2 – таблица с данными «Расход в течение декады»; на рисунке 3 – таблица с данными «Наличие после расхода».
Рис. 1 Таблица «наличие на начало»
Рис. 2. Таблица «Расход в течение декады»
Рис. 3. Таблица «Наличие после расхода»
Для нахождения остатка после расхода в ячейку С2 вводим формулу:
=СУММЕСЛИ('Наличие на начало'!$A$2:$E$6; 'Наличие на начало'!A2;'Наличие на начало'!$C$2:$C$6)-СУММЕСЛИ('Расход в течение декады'!$A$2:$D$6; 'Расход в течение декады'!A2;'Расход в течение декады'!$B$2:$B$6).
Visual Basic
Вариант 6
Постановка задачи
Создать Windows-приложение "Расчет заплаты к выдаче".
Предусмотреть:
Создание входных файлов: Справочник работников (Табельный номер, Фамилия, Имя, Отчество, Номер отдела, Количество льгот); Начисления (Табельный номер, Начислено).
На основе данных входных файлов получение выходного файла: Удержания (Табельный номер, Удержание в ПФ, Удержание ПН).
Вывод суммы зарплаты к выдаче по заданному табельному номеру.
Создание меню для выполнения всех указанных в задании пунктов.
Примечание: Размер МРОТ должен быть задан при открытии формы Расчет удержаний.
Удержание в ПФ = Начислено* 0.01
Удержание ПН = (Начислено - МРОТ*Количество льгот)*0.12
Выполнение задания
В состав проекта входит 5 форм и один модуль.
Форма 1
Вид формы, объекты формы
На рисунке 4 приводится вид первой формы «Справочник работников» программы. В ней использованы объекты «Button», «Label», «TextBox», «GroupBox».
Рис. 4. Форма «Справочник работников»
Программный код первой формы
Public Class Form1
Private Sub writeRab()
Rab.I_r = txtIm.Text
Rab.t_num = nRab
Rab.F_r = txtFam.Text
Rab.Ot_r = txtOt.Text
Rab.num_ot = txtNOtd.Text
Rab.count_l = txtNLgt.Text
FilePut(3, Rab, nRab)
kol = nRab
nRab += 1
txtTNum.Text = nRab
txtIm.Text = ""
txtNLgt.Text = ""
txtFam.Text = ""
txtOt.Text = ""
txtNOtd.Text = ""
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
kol = LOF(3) / Len(Rab)
FileClose(3)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FileOpen(3, "Rab.dat", OpenMode.Random, _
OpenAccess.Default, OpenShare.Default, Len(Rab))
nRab = LOF(3) / Len(Rab) + 1
nkol = nRab
txtTNum.Text = nRab
End Sub
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
writeRab()
End Sub
End Class