Глобальная компьютерная сеть Интернет

Для того чтобы создать макрос нужно в Редактор Visual Basic вызвать контекстное меню в окне Project Explorer, выбрать пункт Insert – Module (рис.1.). Создать модуль можно и другим способом: в Редактор Visual Basic выбрать пункт меню Insert-Module (рис.2.).

 

(рис.2.)                                              (рис.3.)

 

В модуле можно записать программный код на создание макроса (рис.4.).

(рис.4.)

5.2 Постановка задачи

 

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

 

5.3 Описание выполнения задания

 

При запуске программы выходит диалоговое окно, в котором необходимо ввести сумму кредита, сумму к возврату, срок кредита (см. Приложение 1, Рис.1.). При этом в коде программы прописано условие (см. программный код), при котором программа работает только в том случае, если введенное значение суммы кредита, суммы к возврату и срока кредита больше «0», и если сумма к возврату больше суммы кредита. Если же условия не выполняются, тогда выходит сообщение об ошибке (см. Приложение 1, Рис.2.) На форме есть кнопка «Очистить», которая очищает все поля.

5.4 Программный код

 

Dim vrtP As Variant 'объявление переменной P для хранения значения суммы  кредита

Dim vrtS As Variant 'объявление переменной S для хранения значения суммы  подлежащей возврату

Dim vrtT As Variant 'объявление переменной Т для хранения значения срока кредита

Dim vrtI As Variant 'объявление переменной I для подсчета и хранения значения  годовой процентной ставки по  кредиту

Private Sub Cmd_Click() 'Процедура подсчета  годовой процентной ставки при  нажатии на кнопку

vrtP = Val(TextBox1.Text) 'В переменную vrtP присваивается  значение текстового поля TextBox1

vrtS = Val(TextBox2.Text) 'В переменную vrtS присваивается  значение текстового поля TextBox2

vrtT = Val(TextBox3.Text) 'В переменную vrtT присваивается  значение текстового поля TextBox3

If vrtP = 0 Or vrtP < 0 Then 'Проверка условия, если значение переменной vrtP больше  или равно 0

MsgBox ("Chislo dolzno bit' bol'she 0!") ' Если условие выполняется выходит сообщение об ошибке

Else 'Иначе

If vrtS = 0 Or vrtS < 0 Then 'Проверка условия, если значение переменной vrtS больше или равно 0

MsgBox ("Chislo dolzno bit' bol'she 0!") 'Если условие выполняется выходит сообщение об ошибке

End If 'Конец Условия

If vrtT = 0 Or vrtT < 0 Then 'Проверка условия, если значение переменной vrtT больше или равно 0

MsgBox ("Chislo dolzno bit' bol'she 0!") 'Если условие выполняется выходит сообщение об ошибке

End If 'Конец Условия

If vrtP >= vrtS Then 'Проверка условия, если  значение переменной vrtP больше или  равно значению переменной vrtS

MsgBox ("Summa k vozvratu dolzna bit' bol'she summi kredita!") 'Если условие выполняется выходит сообщение об ошибке

Else 'Иначе

vrtI = (vrtS - vrtP) / vrtP * vrtT 'Подсчет переменной vrtI

TextBox4.Text = vrtI 'Значение переменной vrtI присваивается в поле TextBox4

End If 'Конец Если

End If 'Конец Если

End Sub 'Конец процедуры

Private Sub Cmd1_Click() 'Процедура очистки  полей при нажатии на кнопку

TextBox1.Text = " " 'Очистка текстового  поля TextBox1

TextBox2.Text = "" 'Очистка текстового  поля TextBox2

TextBox3.Text = "" 'Очистка текстового поля TextBox3

TextBox4.Text = "" 'Очистка текстового  поля TextBox4

End Sub 'Конец процедуры

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Заключение

 

Возможности Internet настолько широки, насколько у человека только может хватить фантазии. Сетевая технология уже серьезно зарекомендовала себя в качестве наилучшего источника информации на западе и стремительно развивается в станах бывшего Советского Союза. Например в России в минувшем году Internet получила развитие в 400%, на Украине — только 300%. Число пользователей Интернет постоянно растет. По мнению и глубокому убеждению генерального директора компании Microsoft Била Гейтса мировое сообщество в начале 21 столетия, стремительно движется к неизбежному перерождению в сетевое уже через 5-10 лет. Поэтому особо важно именно сегодня обратить свое внимание к данной технологической перспективе, и постараться сделать все возможное для интеграции Internet в сферу образования.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Список используемой литературы:

 

 

1. Леонтьев В.П., Персональный компьютер, Издательство «Олма-Пресс», М. 2008
2. Материалы из Интернет источников.
3. Могилев А.В., Пак Н.И., Хёллер Е.К., под редакцией Хёллера. Информатика: Учебное пособие для студентов пед. вузов/ М. 2009.
4. Перевод с английского А. Матросова. Visual Basic 6.0: наиболее полное руководство для профессиональной работы в среде Visual Basic 6.0 / БВХ-Петербург, 2009.
5. Симонович С., Евсеев Г., Алексеев А.; Общая информатика, Издательство ООО «АСТ Пресс- книга», М. 2012.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Рис.1 Форма «Процентная ставка по кредиту»

 

 

Рис.2 Сообщения об ошибке