Методические указания по выполнению учебной практики студентами 1 курса (стр. 3 из 5)

Private Sub CommandButton1_Click()

End Sub

11. Протестируйте макрос. Теперь при нажатии кнопки Создать Овал будет появляться на рабочем поле соответствующая геометрическая фигура.

Задание № 6

1. Запустите Microsoft Office Excel.

2. Откройте окно Макрос либо через меню Сервис / Макрос / Макросы, либо нажатием кнопок (Alt + F8).

3. Создайте макрос. Для этого в поле Имя наберите MY, а в поле Находится в выберите - Это книга (место нахождения этого макроса).

4. Нажмите кнопку Создать, если она станет активной. Появится редактор VBA.

5. Введите в пустую строку программный код MsgBox “ПРИВЕТ VBA!!!”, как на рисунке (Пустая строка между Sub и End Sub).

ПРИМЕЧАНИЕ: Здесь используется функция MsgBox, которая выводит на экран окно сообщения.

6. Закройте редактор VBA и закройте файл.

7. Привяжите макрос к кнопке. Для этого через меню Сервис / Настройка / Команды в разделе Категории выберите Макросы.

8. Захватите левой кнопкой мыши «веселую желтую рожицу» и перетащите ее на панель.

9. Нажмите правой кнопкой мыши на «рожице» и выберите пункт меню Назначить макрос. 10. Выберите макрос MY и нажмите Ok, а затем закройте окно настройки.

11. Протестируйте макрос. Для этого нажмите кнопку - макрос выполняется и появляется надпись.

Задание № 7

Запустите редактор Microsoft Office Word.

Создайте новый макрос с именем Радиус через Сервис / Макрос / Начать запись и нажмите Остановить запись.

Откройте окно редактора Visual Basic и найдите в окне Code программный код:

Sub Радиус ()
'
' Радиус Макрос
' Макрос создан < Дата > < Ваше имя >
'

End Sub

4. Запишите в пустой строке следующий программный код:

RADfrm.Show

ПРИМЕЧАНИЕ: Этой строкой вызывается форма RADfrm.

5. Создайте саму форму. Для этого в окне редактора Visual Basic найдите кнопку

(Insert UserForm) перед вами появится окно с пустой формой, перейдите на панель Properties (слева, если у вас его нет нажмите кнопку F4 ). В ней найдите свойство (Name) и измените его значение (по умолчанию UserForm1) на RADfrm, в свойстве Caption (Надпись) наберите ВЫЧИСЛЕНИЕ РАДИУСА.

6. На саму форму перенесите Textbox (окно ввода), Button (кнопку) и Label(метку).

Разместите всё друг за другом:

7. Задайте следующие параметры через на панель Properties:

Textbox:

Name: txtRadius

Text: (пусто)

Button:

Name: cmdCalc

Caption: РЕЗУЛЬТАТ

Label:

Name: lblLenght

Caption: (пусто)

8. Разберитесь в том, что должно получиться: в поле ввода вводим цифру, нажимаем на кнопку Результат, и на Label появляется сосчитанная по формуле длина окружности.

9. Откройте окна программного кода созданной формы. Для этого щелкните два раза по кнопке Результат.

10. Напишите в окне кода следующее:

'Объявляем переменные радиуса и длины окружности

Dim Radius As Integer

Dim Lenght As Integer

' Объявление постоянного числа Pi

Const Pi = 3.14159

Private Sub cmdCalc_Click()

'Считывание чисел в окне ввода

Radius = txtRadius.Text

' Считаем…

Lenght = 2 * Radius * Pi

'Полученный результат выводим на Label

lblLenght.Caption = Lenght

End Sub

11. Протестируйте макрос. Для этого перейдите через Панель задач в Word, запустите на выполнение макрос, в появившемся окне ВЫЧИСЛЕНИЕ РАДИУСА в поле Textbox наберите любое число и нажмите кнопку Результат.

Задание № 8

Это задание позволяет сделать текущий запрос о свободной оперативной памяти. К примеру, на слабых машинах, из-за сильной их загруженности, приложения Microsoft Office вылетают с сообщением об ошибке. Причина, которой можно объяснить это - нехватка оперативной памяти, и ошибка при переходе на использование «виртуальной» памяти.

ПРИМЕЧАНИЕ: Код этого макроса уже намного серьезнее предыдущих. Стандартными средствами Visual Basic, на котором пишутся макросы, эту задачу не решить. На помощь приходят API - функции Windows. API - это сокращение от Application Programming Interface. API состоит из целого ряда функций, которые позволяют использовать системные Windows-конструкции. Чтобы использовать API -функции, нужно сначала их декларировать (объявить).

Запустите Microsoft Office Excel.

Создайте новый макрос с именем RAM через Сервис / Макрос / Начать запись и нажмите Остановить запись.

Откройте окно редактора Visual Basic и найдите в окне Code программный код:

Sub RAM ()
'
' RAM Макрос
' Макрос создан < Дата > < Ваше имя >
'

End Sub

4. Запишите в пустой строке

Ramfrm.Show

ПРИМЕЧАНИЕ: Этой строкой вызывается форма Ramfrm.

Создайте саму форму. Для этого в окне редактора Visual Basic найдите кнопку

(Insert UserForm) и перед вами появится окно с пустой формой. Перейдите на панель Properties (слева, если у вас его нет нажмите F4). В ней найдите свойство (Name) и измените его значение (по умолчанию UserForm1) на Ramfrm.

Нажмите F7 , появится окно редактора кода. Удалите все, что там есть и внесите туда следующий код:

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type

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

Private Sub UserForm_Initialize()
Dim w1 As MEMORYSTATUS
Dim q1 As Single
Dim q2 As Single
Dim d2 As String
Dim e As Integer
w1.dwLength = Len(w1)
GlobalMemoryStatus w1
q1 = w1.dwMemoryLoad
q2 = w1.dwTotalPhys
d2 = (q2 - q1 * 0.01 * q2) / 1024 ^ 2
d2 = Int(d2 * 10) / 10
d2 = d2 & " Mb"
e = MsgBox("Свободно: " & d2, vbOKOnly + vbInformation, "Информация о RAM")
If e = 1 Then
End
End If
End Sub

8. Протестируйте созданный макрос RAM.

7. Варианты заданий.

Номер варианта (реферата и практического задания) определяются в табл.1 по последней и предпоследней цифрам номера зачетной книжки студента (шифра). Например, студент, у которого номер зачетной книжки оканчивается на 58, должен выбрать вариант №29 по списку тем рефератов и по табл. 2.

Таблица 1

Таблица 1. Номер варианта.

Предпоследняя цифра шифра	Последняя цифра шифра
	0	1	2	3	4	5	6	7	8	9
0	1	2	3	4	5	6	7	8	9	10
1	11	12	13	14	15	16	17	18	19	20
2	21	22	23	24	25	26	27	28	29	30
3	1	2	3	4	5	6	7	8	9	10
4	11	12	13	14	15	16	17	18	19	20
5	21	22	23	24	25	26	27	28	29	30
6	1	2	3	4	5	6	7	8	9	10
7	11	12	13	14	15	16	17	18	19	20
8	21	22	23	24	25	26	27	28	29	30
9	1	2	3	4	5	6	7	8	9	10

7.1 Темы рефератов.