Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...
Топ:
Характеристика АТП и сварочно-жестяницкого участка: Транспорт в настоящее время является одной из важнейших отраслей народного хозяйства...
Марксистская теория происхождения государства: По мнению Маркса и Энгельса, в основе развития общества, происходящих в нем изменений лежит...
Установка замедленного коксования: Чем выше температура и ниже давление, тем место разрыва углеродной цепи всё больше смещается к её концу и значительно возрастает...
Интересное:
Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...
Берегоукрепление оползневых склонов: На прибрежных склонах основной причиной развития оползневых процессов является подмыв водами рек естественных склонов...
Подходы к решению темы фильма: Существует три основных типа исторического фильма, имеющих между собой много общего...
Дисциплины:
2021-05-27 | 30 |
5.00
из
|
Заказать работу |
|
|
(повышенный уровень)
Задание № 5. Составить таблицу истинности функции F =
Порядок выполнения.
Создать макрос «Табл», в который записать следующий код:
Sub Табл ()
Dim А, В, Z, F As Boolean
Range("B1") = "А": Range("C1") = "В" Формируем строку заголовка
Range("D1") = "Z": Range("E1") = "F"
i = 2 Начинаем таблицу со 2 строки
For А = True To False Цикл перебора по А
For В = True To False Цикл перебора по В
For Z = True To False Цикл перебора по Z
With Application Формируем значения в столбцах
Cells(i, 1) = i - 1
Cells(i, 2) = А
Cells(i, 3) = В
Cells(i, 4) = Z
Cells(i, 5) = Not A Or B Imp Not Z
End with
i = i + 1 переходим на следующую строку
Next закрываем цикл по Z
Next закрываем цикл по В
Next закрываем цикл по А
End Sub
В результате запуска макроса создаётся таблица истинности заданной функции.
| A | B | Z | F |
1 | -1 | -1 | -1 | 0 |
2 | -1 | -1 | 0 | -1 |
3 | -1 | 0 | -1 | -1 |
4 | -1 | 0 | 0 | -1 |
5 | 0 | -1 | -1 | 0 |
6 | 0 | -1 | 0 | -1 |
7 | 0 | 0 | -1 | 0 |
8 | 0 | 0 | 0 | -1 |
.
Вопросы к упражнению.
Самостоятельная работа
|
Задание. Составить таблицу истинности функции–
1 вариант. Логического сложения.
2 вариант. Логического следования
3 вариант. Логического умножения.
Задание № 6. Для вашей рабочей книги описать события Open и Close таким образом, чтобы при открытии файла запрашивалось имя пользователя и записывалось в другой файл Excel, а также время начала работы. При закрытии в тот же файл записывать время окончания работы.
Пояснения к выполнению.
Now – функция Visual Basic, возвращающая системную дату и время компьютера.
Выполнение:
Private Sub Workbook_Open()
Dim i As String ' Объявляем строковую переменную
Dim row As Integer ' объявляем вспомогательную переменную row
i = InputBox("Ваше имя?", "", "ХХ") ' Запрашиваем имя пользователя
Application.ScreenUpdating = False ' Даём команду не обновлять экран
Workbooks.Open ("D:\....\s.xls") ' Необходимо указать полный путь до файла s.xls
With Workbooks("s.xls").Worksheets("Лист1")
row = Range("F1").Value + 3 ' Вычисляем номер заполняемой строки
Cells(row, 1).Value = row - 2 ' Создаём порядковый номер строки
Cells(row, 2).Value = i ' Вносим пользователя
Cells(row, 3).Value = Date ' Вносим дату начала работы
Cells(row, 4).Value = Time Вносим время начала работы
End With
|
Workbooks("s.xls").Save ‘Сохраняем файл “s.xls”.
Workbooks("s.xls").Close ‘ Закрываем файл “s.xls”
Application.ScreenUpdating = True ' Разрешаем обновление экрана
End Sub
Внести следующий код:
Private Sub Workbook_Close()
Dim i As String ' Объявляем строковую переменную
Dim row As Integer ' объявляем вспомогательную переменную row
Application.ScreenUpdating = False ' Даём команду не обновлять экран
Workbooks.Open ("D:\издат\s.xls") ' Необходимо указать полный путь до файла s.xls
With Workbooks("s.xls").Worksheets("Лист1")
row = Range("F1").Value + 2 ' Вычисляем номер заполняемой строки
Cells(row, 5).Value = Time ‘Вносим время окончания работы
End With
Workbooks("s.xls").Save
Workbooks("s.xls").Close
Application.ScreenUpdating = True ‘Разрешаем обновлять экран
End Sub
Журнал пользователей
Всего записей
2
№пп
Пользователь
1
Паша Филонов
29 сентября 2006 г.
19:10
19:11
2
Миша Белокриницкий
29 сентября 2006 г.
19:15
19:16
ЛАБОРАТОРНАЯ РАБОТА № 4.
|
|
Состав сооружений: решетки и песколовки: Решетки – это первое устройство в схеме очистных сооружений. Они представляют...
Особенности сооружения опор в сложных условиях: Сооружение ВЛ в районах с суровыми климатическими и тяжелыми геологическими условиями...
Поперечные профили набережных и береговой полосы: На городских территориях берегоукрепление проектируют с учетом технических и экономических требований, но особое значение придают эстетическим...
Таксономические единицы (категории) растений: Каждая система классификации состоит из определённых соподчиненных друг другу...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!