Главная » Просмотр файлов » ОС-ч2 ЛАБ РАБ

ОС-ч2 ЛАБ РАБ (1085723)

Файл №1085723 ОС-ч2 ЛАБ РАБ (Методические указания к выполнению лабораторных работ по Операционным системам)ОС-ч2 ЛАБ РАБ (1085723)2018-01-12СтудИзба
Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

• выберите команду Исходный текст (View Code), на экране появится окно редактора VBA, в этом окне - первая и последняя строки программы - процедуры обработки события - нажатия кнопки:

Private Sub CommandButtonl_Click()

End Sub

• установите курсор между этими строками и вставьте фрагмент из буфера обмена.

В целом текст программы, выполняемой при нажатии на кнопку Новый сотрудник, будет выглядеть так:

Private Sub CommandButtonl_Click()

Sheets(“Сотрудники”).Select

ActiveSheet.ShowDataForm

End Sub

Подзадача 4.2. Работа кнопки «Новая организация»

*Выполните следующие действия.

В режиме конструктора вызовите контекстное меню для кнопки Новая организация, выберите команду Исходный текст и введите строки:

Sheets(“Opraнизации”). Select

ActiveSheet.ShowDataForm

Полный текст программы будет выглядеть так:

Private Sub CommandButtonl_Click()

Sheets(“Организации”). Select

ActiveSheet.ShowDataForm

End Sub

Подзадача 4.3. Работа кнопки «Новая командировка»

*Выполните следующие действия.

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

Rem текст программы, выполняемой по нажатию

' на кнопку Новая командировка

'Объявление переменных:

'NS - номер последней заполнений строки на листе «Сотрудники»

'NO - номер последней заполненной строки на листе «Организации»

' Д_сотр - диапазон, содержащий фамилии сотрудников

'Д_орг - диапазон, содержащий наименования организаций

Dim NS, NO As Integer

Dim Д_сотр, Д_орг As String

'Определение последней заполненной строки в столбце А на листе «Сотрудники»;

NS=Application.CountA(Sheets(“Coтрудники”).Range(“A:A”))

'Определение последней заполненной строки в столбце А на листе

«Организации»

NO=Application.CountA(Sheets(“Opraнизации”).Range(“A:A”))

'определение диапазона фамилий сотрудников:

'NS преобразуется в строку (функция cstr),

' затем складывается (&) со строкой А2:А

Д_coтp=”A2:A”&cstr(NS)

'определение диапазона наименований организаций:

'N0 преобразуется в строку (функция cstr),

' затем складывается (&) со строкой А2:А

Д_орг=”A2:A"&cstr(NO)

'присваивание имени диапазону, содержащему фамилии

Sheets(“Сотрудники”).Range(Д_сотр).Name=”Сотр”

'присваивание имени диапазону, содержащему организации

Sheets((“Организации”).Range(Д_орг).Name=”Орг”

'Далее работаем с пользовательской формой UserForm 1

With UserForml

'очистка содержимого полей для ввода: TextBoxl,TextBox2, TextBox3,TextBox4, TextBox5, ComboBoxl, ComboBox2

.TextBoxl.Text = “”

.TextBox2.Text =””

.TextBox3.Text = “”

.TextBox4.Text = “”

.TextBox5.Text = “”

.ComboBoxl.Text = “”

.ComboBox2.Text =””

'указание источника строк для поля со списком ComboBoxl

.ComboBoxl. Rowsource =”Сотр”

'указание источника строк для поля со списком ComboBox2

.ComboBox2.Rowsource = “Орг”

'вывод пользовательской формы на экран.

.Show

End with

Подзадача 4.5. Работа кнопки «Выход»

* Выполните следующие действия.

В режиме конструктора вызовите контекстное меню для кнопки Выход, выберите команду Исходный текст и введите текст программы:

Application.Quit

Все программы для решения задачи 4 - «Меню» созданы.

Перейдем к программированию подзадач задачи 3 - «Командировки»

Подзадача 3.3 - Расчет суммы в ПФ

*Выполните следующие действия.

1. Откройте форму UserForml:

Сервис-Макрос-Редактор Visual Basic. Если форма на экране не появилась, то выполните команду View-Project Explorer, затем откройте папку Forms и два раза щелкните по форме UserForml.

2. В ПФ вызовите контекстное меню для поля Количество дней и выберите команду View Code (Исходный текст). На экране появится окно с первой и последней строками программы, которая будет выполняться при каждом изменении содержимого поля.

Private Sub TextBox2 Change()

……………..

End Sub

3. Между этими строками введите текст программы (комментарии можно не набирать):

'текст программы, выполняемой при каждом

' изменении чисел в полях Количество дней, Суточные и Цена билета

' Объявление переменных

Dim Дни, Суточные, ЦенаБилета As Integer

' Работаем с формой UserForml

With UserForml

' Проверяем, числа ли записаны

' в поля ввода TextBox2, TextBox3, TextBox4

' Если в этих поля записаны числа,

'то преобразуем ' содержимое каждого поля в целое

' и запоминаем' в переменной

' три следующих строки можно записать в одну строку

If IsNumeric(TextBox2.Text) And _

IsNumeric(TextBox3.Text) And _

IsNumeric(TextBox4.Text) Then

Дни = CInt(TextBox2.Text)

Суточные = CInt(TextBox3.Text)

ЦенаБилета = CInt(TextBox4.Text)

TextBox5.Text = СStг(Дни * Суточные + ЦенаБилета * 2)

End If

End With

4. Скопируйте введенный текст программы в буфер обмена.

5. В ПФ вызовите контекстное меню для поля Суточные, выберите команду View Code и вставьте фрагмент из буфера обмена (пересчет суммы будет производиться при каждом изменении содержимого поля).

6. В ПФ вызовите контекстное меню для поля Цена билета, выберите команду View Code и вставьте фрагмент из буфера обмена (пересчет суммы будет производиться при каждом изменении содержимого поля).

Подзадача 3.4. Работа кнопки «Ок» в ПФ

*Выполните следующие действия.

В ПФ вызовите контекстное меню для кнопки ОК, выберите команду View Code и введите текст программы (комментарии набирать не обязательно):

'текст программы, выполняемой при нажатии

' на кнопку Ок в ПФ

' Объявление пременных: Дата - дата выезда

' в командировку, Фамилия - фамилия сотрудника,

'Организация - наименование организации,

' Дни - количество дней,

'Суточные - размер суточных,

'Цена - цена билета, Сумма - общая сумма расходов,

'Строка - номер первой пустой строки

' на листе "Командировки"

Dim Дата, Фамилия, Организация, Дни, Суточные As String

Dim Цена, Сумма As String

Dim Строка As Integer

' Работаем с формой UserForm1

With UserForml

' В переменную Дата запишем

' содержимое поля Дата выезда (TextBox1)

Дата=TextBox1.Text

' В переменную Фамилия запишем содержимое поля ввода поля со списком ComboBoxl

Фамилия = ComboBoxl.Text

' В переменную Организация запишем содержимое поля ввода поля со списком ComboBox2

Организация = ComboBox2.Text

' В переменные Дни, Суточные, Цена, Сумма запишем содержимое из полей ввода 'соответственно TextBox2, TextBox3, TextBox4, TextBox5

Дни = TextBox2.Text

Суточные = TextBox3.Text

Цена = TextBox4.Text

Сумма = TextBox5.Text

End With

' Найдем на листе "Командировки" первую пустую строку

' и номер ее запишем в переменную Строка

Строка = Application.CountA(Sheets(“Командировки”).Range(“А: А”)) + 1

' На листе "Командировки"

With Sheets(“Командировки”)

' в строке номер Строка запишем:

' в столбце А - значение переменной Дата .

.Cells (Строка, 1) = Дата

'в столбце В - значение переменной Фамилия

.Cells (Строка, 2) = Фамилия

' в столбце С - значение переменной Организация

.Cells (Строка, 3) = Организация

' в столбце D - значение переменной Дни

.Cells (Строка, 4) = Дни

' в столбце Е - значение переменной Суточные

. Cells (Строка, 5) = Суточные

' в столбце F - значение переменной Цена

. Cells (Строка, 6) = Цена

'в столбце G - значение переменной Сумма

. Cells (Строка, 7) = Сумма

End With

' удалим с экрана ПФ

User Form1. Hide

Подзадача 3.5. Работа кнопки «Отмена» в ПФ

*Выполните следующие действия.

В ПФ вызовите контекстное меню для кнопки ОК, выберите команду View Code и введите текст программы:

'текст программы, выполняемой при нажатии

' на кнопку Отмена

UserForml.Hide

Пятый этап - Отладка

Для проверки работы приложения подготовим контрольные примеры.

Для ввода информации в базу данных «Сотрудники» сведения представлены в табл. 4.

Для ввода информации в базу данных «Организации» сведения представлены в табл. 5.

Для ввода информации в базу данных «Командировки» сведения представлены в табл. 6.

Данные для столбца «Сумма» просчитаны вручную по формуле: Сумма==Суточные*Дни+Цена билета*2

*Выполните следующие действия:

Перейдите на лист Меню, нажмите на кнопку Новый сотрудник и введите подготовленные данные о сотрудниках в базу данных Сотрудники.

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

Если какая-то часть созданного приложения не работает или работает неправильно, то необходимо найти и исправить ошибку или несколько ошибок.

Наиболее часто допускаемые ошибки:

1. Неверно записано название объекта, метода, свойства.

2. Неправильно записан оператор.

3. При записи названия объекта, метода, свойства или оператора вместо латинских букв были набраны русские. Несмотря на то, что русская буква «с» и латинская «с» изображаются одинаково, они по-разному кодируются и воспринимаются транслятором как два разных символа.

Когда все части приложения будут работать правильно, тогда можно считать, что приложение отлажено.

Методы обработки и анализа экономической информации

в Ехсеl

Это задание является продолжением контрольного задания 4, в результате выполнения которого был сформирован список (база данных) по учету поездок сотрудников предприятия в командировки в разные города, а также всех расходов, связанных с этими командировками. В Excel понятие список и база данных взаимозаменяемы.

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

Характеристики

Тип файла
Документ
Размер
1,38 Mb
Тип материала
Высшее учебное заведение

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов книги

Методические указания к выполнению лабораторных работ по Операционным системам
Операционные системы
Свежие статьи
Популярно сейчас
А знаете ли Вы, что из года в год задания практически не меняются? Математика, преподаваемая в учебных заведениях, никак не менялась минимум 30 лет. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Да! На равне с готовыми студенческими работами у нас продаются услуги. Цены на услуги видны сразу, то есть Вам нужно только указать параметры и сразу можно оплачивать.
Отзывы студентов
Ставлю 10/10
Все нравится, очень удобный сайт, помогает в учебе. Кроме этого, можно заработать самому, выставляя готовые учебные материалы на продажу здесь. Рейтинги и отзывы на преподавателей очень помогают сориентироваться в начале нового семестра. Спасибо за такую функцию. Ставлю максимальную оценку.
Лучшая платформа для успешной сдачи сессии
Познакомился со СтудИзбой благодаря своему другу, очень нравится интерфейс, количество доступных файлов, цена, в общем, все прекрасно. Даже сам продаю какие-то свои работы.
Студизба ван лав ❤
Очень офигенный сайт для студентов. Много полезных учебных материалов. Пользуюсь студизбой с октября 2021 года. Серьёзных нареканий нет. Хотелось бы, что бы ввели подписочную модель и сделали материалы дешевле 300 рублей в рамках подписки бесплатными.
Отличный сайт
Лично меня всё устраивает - и покупка, и продажа; и цены, и возможность предпросмотра куска файла, и обилие бесплатных файлов (в подборках по авторам, читай, ВУЗам и факультетам). Есть определённые баги, но всё решаемо, да и администраторы реагируют в течение суток.
Маленький отзыв о большом помощнике!
Студизба спасает в те моменты, когда сроки горят, а работ накопилось достаточно. Довольно удобный сайт с простой навигацией и огромным количеством материалов.
Студ. Изба как крупнейший сборник работ для студентов
Тут дофига бывает всего полезного. Печально, что бывают предметы по которым даже одного бесплатного решения нет, но это скорее вопрос к студентам. В остальном всё здорово.
Спасательный островок
Если уже не успеваешь разобраться или застрял на каком-то задание поможет тебе быстро и недорого решить твою проблему.
Всё и так отлично
Всё очень удобно. Особенно круто, что есть система бонусов и можно выводить остатки денег. Очень много качественных бесплатных файлов.
Отзыв о системе "Студизба"
Отличная платформа для распространения работ, востребованных студентами. Хорошо налаженная и качественная работа сайта, огромная база заданий и аудитория.
Отличный помощник
Отличный сайт с кучей полезных файлов, позволяющий найти много методичек / учебников / отзывов о вузах и преподователях.
Отлично помогает студентам в любой момент для решения трудных и незамедлительных задач
Хотелось бы больше конкретной информации о преподавателях. А так в принципе хороший сайт, всегда им пользуюсь и ни разу не было желания прекратить. Хороший сайт для помощи студентам, удобный и приятный интерфейс. Из недостатков можно выделить только отсутствия небольшого количества файлов.
Спасибо за шикарный сайт
Великолепный сайт на котором студент за не большие деньги может найти помощь с дз, проектами курсовыми, лабораторными, а также узнать отзывы на преподавателей и бесплатно скачать пособия.
Популярные преподаватели
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
6390
Авторов
на СтудИзбе
307
Средний доход
с одного платного файла
Обучение Подробнее