Курсовая работа: Глобальная компьютерная сеть Интернет
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.
С. Симонович, Г. Евсеев,
А. Алексеев; Общая информатика, Издательство ООО «АСТ Пресс- книга», М. 2002.
2.
В.П. Леонтьев,
Персональный компьютер, Издательство «Олма-Пресс», М. 2004
3.
Могилев А.В., Пак
Н.И., Хёллер Е.К., под редакцией Хёллера. Информатика: Учебное пособие для
студентов пед. вузов/ М. 1999.
4.
перевод с
английского А. Матросова. Visual Basic 6.0:
наиболее полное руководство для профессиональной работы в среде Visual Basic 6.0 / БВХ-Петербург, 2003.
5.
Материалы из
Интернет источников.
Приложение
Рис.1 Форма «Процентная
ставка по кредиту»
Рис.2 Сообщения об ошибке
|
