3.2 Вычисление интенсивности землетрясения
(Практическая работа №2)
Цели :
1. Закрепить теоретический материал
2. Приобрести практические навыки
Задания:
Определить балльность в эпицентре землетрясения по формуле
Модифицировать код программы в примере 3, поставив ограничения на диапазон допустимых значений магнитуды M и глубины очага H.
3. Определить характеристики землетрясения по значениям магнитуды M и глубины очага H.
вычисление балльности
Поместить на форму кнопку, две метки и два текстовых поля.
Задать следующие значения свойств объектов:
form |
|
Caption |
Балльность землетрясения |
label1 |
|
Caption |
Магнитуда |
label2 |
|
Caption |
Глубина очага |
text1 |
|
Text |
(пусто) |
text2 |
|
Text |
(пусто) |
Command1 |
|
Caption |
Ok |
Рис. 3.16 «Форма»
Код программы:
Private Sub Command1_Click()
Print 3 + 1.5 * Val(Text1.Text) - 3.5 * Log(Val(Text2.Text)) / Log(10)
End Sub
Для проверки выполнения простых и сложных условий используется оператор If : Then : Else.
Синтаксис:
If условие Then инструкция End If
If условие Then инструкция 1 Else инструкция 2 End If |
Рис. 3.17 «Синтаксис»
Если условие, стоящее после If истинно (True), то выполняется инструкция 1, следующая за Then, если условие ложно (False), то выполняется инструкция 2, следующая за Else.
Рис. 3.18 «Инструкция»
Примеры простых условий:
a > b
a < b
a = b
a ≥ b: a >= b
a ≤ b: a <= b
a ≠ b: a <> b
Примеры сложных условий:
a, b > c: a > c And b > c
a > c [b > c]: a > c Or b > c
вычисление балльности
Private Sub Command1_Click()
If Val(Text1.Text) <= 0 Or Val(Text1.Text) > 9 Or Val(Text2.Text) <= 0 Then
MsgBox "Ошибка ввода", vbOKOnly, "Внимание"
Else
Print 3 + 1.5 * Val(Text1.Text) - 3.5 * Log(Val(Text2.Text)) / Log(10)
End If
End Sub
характеристики землетрясения
Ввод:
магнитуда
глубина очага
Вывод:
тип
зона действия
балльность
С помощью управляющих элементов создать интерфейс пользователя.
Рис.3.19 «Интерфейс»
Код программы:
Sub Character()
Select Case Val(Text1.Text)
Case Is <= 0
MsgBox "Ошибка ввода", vbOKOnly, "Внимание"
Case 0 To 70
Text3.Text = "нормальное"
Case 70 To 300
Text3.Text = "промежуточное"
Case Is > 300
Text3.Text = "глубокофокусное"
End Select
End Sub
Sub Region()
...
End Sub
Private Sub Intensity()
...
End Sub
Private Sub Command1_Click()
Character
Region
Intensity
End Sub
Вопросы:
1. Для проверки выполнения простых и сложных условий используется
2. Примеры сложных и простых условий