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.

---

Смотрите также файлы

• Методические указания к курсовой.pdf

• Курсовая Разработка базы данных для АРМ паспортиста.docx

• Проверка выборочного распределения.docx

• Class_List(T)_Variants.pdf

• Проект по модулю ООП (3-й семестр).docx