Zemskov_my_sppo1

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Листинг 11.3. Программа для определения кодов клавиш

Uses Crt;

Const Ofst = $1E;

{смещение начала буфера клавиатуры относительно начала сегмента}

BufferKeyb : array[0..31] of Byte absolute $0:$41E;

KeybFlags : word absolute $40:$17;

Procedure ShowKeyb(n1,n2:byte);

{показать содержимое буфера клавиатуры с n1 по n2} var i, c1, c0 : Byte;

begin

for i:=n1 to n2 do begin c1 := BufferKeyb[2*i]; c0 := BufferKeyb[2*i+1];

Write(c1:3,’:’,c0:3,’; ’); end;

end;

Begin repeat

if KeyPressed then begin {если нажата клавиша} Writeln(’================================================’); Writeln(’Порт клавиатуры 60H = ’,port[$60]);

Writeln(’Флаги клавиатуры = ’, KeybFlags); Writeln(’BufferHead = ’,BufferHead); Writeln(’BufferTail = ’,BufferTail); Writeln(’Содержимое буфера клавиатуры:’); ShowKeyb(0,7); Writeln;

ShowKeyb(8,15); Writeln;

c1 := BufferKeyb[BufferHead-Ofst];

c0 := BufferKeyb[BufferHead-Ofst+1];

Writeln(’В буфере клавиатуры двухбайтовый код ’, c1,’:’,c0); ch := ReadKey;

if ch=#0 then begin

Writeln(’Нажата функц.клавиша, код ReadKey = 0:’, Ord(ReadKey)); end else

Writeln(’Нажата обычная клавиша "’, ch, ’" код ReadKey = ’, Ord(ch));

end;

until ch = #27; {код клавиши ESC} End.

83

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Листинг 11.4. Программа на языке Си — обработчик прерывания 05H

#include<dos.h>

#include<stdio.h>

//Определим структуру, единственное поле p которой // ссылается на процедуру оработки прерываний: struct intaddr {void interrupt (far * p) (void); };

//Указатель на старый обработчик прерывания 05: void interrupt (far * old_int05)(void);

}

old_int05(); // вызвали старый обработчик

}

void TSR(char, unsigned); // предварительное описание процедуры

int main(void){ // главная программа - установщик нового обработчика //Объявим новую переменную типа "указатель на обработчик прерывания" // и присвоим ему адрес обработчика прерывания 05:

struct intaddr far * int05 = (struct intaddr far *)MK_FP(0, 0x05<<2); old_int05 = int05 -> p; //запомнили адрес старого обработчика disable(); // запретили прерывания

int05 -> p = ISR_int05; // установили вектор на новый обработчик enable(); // разрешили прерывания

printf("\nУстановлен обработчик прерывания int05\n"); printf(" нажмите Shift+PrintScreen ... "); unsigned size = _SS + (_SP + 15) / 16 - _psp;

TSR(0, size); // завершили и остались резидентным return 0;

}

//Процедура "завершить и остаться резидентным": void TSR(char status, unsigned size) {

_AH = 0x31; // номер функции "завершиться, но остаться резидентным" _AL = status; // код возврата

_DX = size; // количество 16-байтных параграфов, оставляемых в памяти geninterrupt(0x21); // вызвали прерывание 21H

}

84

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Листинг 11.5. Программа на ассемблере — обработчик прерывания 00H (деление на 0)

name intzdiv

title Divide-by-zero interrupt Handler

85

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Листинг 11.6. Программа на ассемблере — обработчик прерывания 21H (запрещает удаление файлов с указанного диска)

86

Ю.В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

12.Работа с Visual Basic for Applications

12.1. Использование VBA в редакторе MS Word

Общий алгоритм работы:

1. Открыть MS Word ( Пуск í Программы í Microsoft Word ).

2.Вызвать панель “Visual Basic” ( í Вид í Панели ).

3.Войти в режим конструктора (одноимённая кнопка на панели “Visual Basic”).

4.Вызвать панель “Элементы управления” (одноимённая кнопка на панели “Visual Basic”).

5.Разместить на странице документа нужные элементы управления (флажок, поле ввода, кнопка, переключатель, список, поле со списком, выключатель, счётчик, полоса прокрутки, надпись, рисунок, другие элементы — любые элементы ActiveX, зарегистрированные в системе).

6.Изменить, если нужно, свойства каждого элемента управления ( Свойства на панели “Элементы управления” или правая кнопка мыши). По каждому свойству доступна подсказка (F1).

7.Задать действия для нужных элементов управления ( Исходный текст ) на языке Visual Basic.

8.Выйти из режима конструктора (отжать одноимённую кнопку) и проверить, как всё работает.

9.Сохранить документ.

Пример 12.1 Разместить на листе два поля ввода (TextBox), две надписи (Label) и одну кнопку (Button), как показано на рис. 12.1.

Private Sub CommandButton1_Click() ’ моя первая процедура на VBA

Label1.Caption = " = " + Str(Val(TextBox1.Text) + Val(TextBox2.Text)) End Sub

Проверьте, как всё работает. Что происходит при вводе “неправильных” чисел?

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

Замените Label2 на поле со списком, элементы которого задают арифметические действия. Напишите необходимый обработчик.

Пример 12.2 Вывод на экран сообщения в отдельном окне.

Разместим на пустом листе надпись и кнопку. Напишем следующий текст обработчика нажатия на кнопку:

Dim Msg, Style, Title, Help, Ctxt, Response Msg = " Будем продолжать? "

Style = vbYesNo Title = " Вопрос "

Help = "demo.hlp" ’ имя файла справки (если есть) Ctxt = 10000 ’ номер раздела справки

Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes then

Label1.Caption = "Yes" Else

Label1.Caption = "No" End If

Что происходит при нажатии на кнопку? Изменяется ли текст надписи в соответствии с вашим ответом? Если в конце процедуры вставить оператор

SendKeys "%{F4}", True

то приложение закроется, как будто нажали Alt+F4. Проверьте. Вообще, данный оператор позволяет имитировать любые нажатия на клавиатуру (знак процента соответствует клавише Alt).

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

InputBox(Message, Title, DefaultValue)

Проверьте, как работает следующий фрагмент:

87

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

CommandButton1.Capture = InputBox( "Введите название для кнопки", "Ввод названия", "Нажми меня")

Пример 12.3 Диалоговая форма.

Запустите редактор Visual Basic (одноимённая кнопка на панели “Visual Basic”). В главном меню выполните í Insert í UserForm . Разместите на появившейся пустой форме три элемента управления: TextBox1, Label1

и ComandButton1. Обработчик для кнопки:

Label1.Caption = TextBox1.Text

Вернитесь в редактор Word и разместите на пустом листе кнопку, для которой введите следующий текст обработчика:

Dim UserForm1 As New UserForm1 ’ можно создавать сколько угодно одинаковых форм Load UserForm1 ’ данная строка обычно лишняя

UserForm1.Show ’ показать форму CommandButton1.Caption = UserForm1.Label1.Caption

Проверьте, как всё работает.

Если надо, чтобы форма появлялась автоматически, например, при открытии документа, то в редакторе MS Word необходимо создать макрос ( í Сервис í Макрос í Макросы Создать ) с именем AutoOpen и в нём вызвать форму. Сделайте это.

Если получилось, добавьте в текст макроса следующий фрагмент:

ActiveDocument.Contetn.MoveEnd ActiveDocument.Contetn.InsertAfter( UserForm1.Label1.Caption )

Для последовательного ввода текста в документ можно также использовать

Selection.TypeText( " ... " ) Selection.TypeParagraph ’ новый абзац

Проверьте и этот вариант.

12.2. Использование VBA в MS Excel

Общий алгоритм работы:

1. Открыть MS Excel ( Пуск í Программы í Microsoft Excel ).

2.Вызвать панель “Visual Basic” ( í Вид í Панели ).

3.Войти в режим конструктора (одноимённая кнопка на панели “Visual Basic”).

4.Вызвать панель “Элементы управления” (одноимённая кнопка на панели “Visual Basic”).

5.Разместить на странице документа нужные элементы управления (флажок, поле ввода, кнопка, переключатель, список, поле со списком, выключатель, счётчик, полоса прокрутки, надпись, рисунок, другие элементы — любые элементы ActiveX, зарегистрированные в системе).

6.Изменить, если нужно, свойства каждого элемента управления ( Свойства на панели “Элементы управления” или правая кнопка мыши). По каждому свойству доступна подсказка (F1).

7.Задать действия для нужных элементов управления ( Исходный текст ) на языке Visual Basic.

8.Создать при необходимости пользовательские формы (как и в Word’е).

9.Создать макросы (процедуры) для выполнения необходимых действий (Alt+F8 или í Сервис

íМакрос í Макросы ).

10.Разместить при необходимости новые кнопки на панели инструментов или новые команды меню,

вызывающие созданные макросы на выполнение ( í Вид í Панели í Настройка Команды Категории: Ú Макросы и перетащить настраиваемую кнопку на панель или в меню, после чего через правую кнопку мыши настроить её внешний вид и назначить ей нужный макрос).

11.Выйти из режима конструктора (отжать одноимённую кнопку) и проверить, как всё работает.

12.Сохранить документ.

Примечание: Не все перечисленные пункты обязательны.

При программировании в VBA используется объектная модель. Как и в Object Pascal, имя объекта от имени поля или метода отделяется точкой. Так, запись Application.ActiveWorkbook.Name означает, что мы обращаемся к объекту «Приложение», к его полю «Активная рабочая книга», к её полю «Имя».

Главный объект — Application (приложение); приложение может работать с несколькими рабочими книгами (Workbook), перед использованием рабочую книгу надо активизировать с помощью вызова Workbooks(book).Activate, где book — имя книги (т. е. файла *.xls). Книга содержит несколько рабочих листов (Worksheets), перед использованием каждый лист также нуждается в активизации: Worksheets(sheet).Activate, где sheet — имя листа (оно написано в левом нижнем углу листа). Только одна книга и только один лист могут быть активны в каждый момент времени. Каждый лист — это множество ячеек (cell), с которыми можно работать по отдельности или в группе. Обращение к ячейке осуществляется с помощью объекта Range("имя ячейки").

88

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Пример 12.4 Создайте макрос (Alt+F8) с именем Test01, при выполнении которого в ячейку A1 будет записываться имя текущего файла (рабочей книги Excel), в ячейку B1 — имя текущего листа, а в ячейки с C1 по Cx — числа от 1 до x, где x — число листов в текущей рабочей книге. Соответствующий текст на языке Visual Basic:

Sub Test01()

’Описания переменных: Dim book As String Dim sheet As String Dim addr As String

’Узнаем имя рабочей книги:

book = Application.ActiveWorkbook.Name

’ Узнаем имя рабочего листа:

sheet = Application.ActiveSheet.Name

’Запишем эти имена в нужные ячейки

’текущего листа текущей рабочей книги: Workbooks(book).Activate Worksheets(sheet).Activate

Range("A1") = book Range("B1") = sheet

’А теперь числа от 1 до x:

Dim s As String

Dim xList As Integer

’ Узнаем, сколько есть листов: xList = Application.Sheets.Count

addr = "C" ’ выводить будем в столбец C For x = 1 To xList

s = addr + LTrim(Str(x))

’ Функция LTrim удаляет пробелы в начале строки Range(s) = x

Next x

End Sub

Пример 12.5 Теперь создадим набор рабочих книг (набор объектов, в общем случае разнотипных, называют коллекцией). Объект «коллекция» имеет два метода: Add (добавить новый элемент в коллекцию) и Remove (удалить элемент из коллекции). Доступ к каждому элементу производится по его номеру: Item(номер), количество элементов в коллекции можно узнать, обратившись к полю Count.

Создайте новый макрос Text02:

Sub Test02()

Dim MyCollection As New Collection

’Добавим новые книги в коллекцию: MyCollection.Add ("Книга 1") MyCollection.Add ("Книга 2") MyCollection.Add ("Книга 3")

’Выведем сообщение о количестве книг: MsgBox (Str(MyCollection.Count))

’Сообщим имя первой книги:

MsgBox (MyCollection.Item(1))

’Удалим её из коллекции: MyCollection.Remove (1)

’Как называется вторая книга, которая теперь уже первая? MsgBox (MyCollection.Item(1))

End Sub

Чтобы всё время не писать MyCollection, как и в Паскале, можно использовать оператор with:

With MyCollection

.Add ("Книга 1")

.Add ("Книга 2")

..................

End With

Пример 12.6 Создайте новый макрос Text03 и попытайтесь разобраться, что он делает:

Application.WindowState = xlMinimized

Application.WindowState = xlNormal

Workbooks.Add

ActiveCell.FormulaR1C1 = "12"

89

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Range("A2").Select ActiveCell.FormulaR1C1 = "23" Range("A3").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)" Range("A4").Select

ChDir "C:\WINDOWS\Рабочий стол"

ActiveWorkbook.SaveAs FileName:="C:\WINDOWS\Рабочий стол\Книга2.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False

90

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Список литературы

[1]Гордеев А.В., Молчанов А.Ю. Системное программное обеспечение. — СПб.: Питер, 2001. — 736 с.

[2]Иртегов Д.В. Введение в операционные системы. — СПб.: БХВ-Петербург, 2002. — 624 с.

[3]Олифер В.Г., Олифер Н.А. Сетевые операционные системы. — СПб.: Питер, 2002. — 544 с.

[4]Бородич Ю.С., Вальвачев А.Н., Кузьмич А.И. Паскаль для персональных компьютеров: Справочное пособие. — Минск.: Вышейшая школа, 1991. — 365 с.

[5]Касаткин А.И. Профессиональное програмирование на языке Си. Книга 3. Системное программирование. — Минск.: Вышейшая школа, 1993. — 301 с.

[6]Зубков В.С. Assembler для DOS, Windows и Unix. — М.: ДМК Пресс, 2000. — 608 с.

[7]Юров В. Assembler. — СПб.: Питер, 2000. — 624 с.

[8]Пустоваров В.И. Язык Ассемблера в программировании информационных и управляющих систем. — М.: Энтроп, Киев: «Век», 1998. — 304 с.

[9]Харт Дж.М. Системное программирование в среде Win32, 2-е изд.: Пер. с англ. — М.: Издательский дом «Вильямс», 2001. — 464 с.

[10]Данкан Р. Профессиональная работа в MS–DOS: Пер. с англ. — М.: Мир, 1993. — 509 с.

[11]Бек Л. Введение в системное программирование: Пер. с англ. — М.: Мир, 1988. —448 с.

[12]Браун Р., Кайл Дж. Справочник по прерываниям для IBM PC: В 2-х ч. — СПб: Ассоциация OILCO, 1992. — Ч.1. — 357 с. Ч.2. — 378 с.

[13]Нортон Д. Написание драйверов для Windows: Пер. с англ. — М.: Мир, 1994. — 560 с.

91

Ю. В. Земсков. Системное и прикладное программное обеспечение. Конспект лекций, варианты заданий и методические указания в лабораторным работам. ВГИ ВолГУ, 2002 г.

Материалы к экзамену по дисциплине “Системное и прикладное программное обеспечение”

92