Главная Обратная связь

Дисциплины:






Вычисление интенсивности землетрясения



(Практическая работа №2)

Цели :

1. Закрепить теоретический материал

2. Приобрести практические навыки

Задания:

1.Определить балльность в эпицентре землетрясения по формуле

2.Модифицировать код программы в примере 3, поставив ограничения на диапазон допустимых значений магнитуды M и глубины очага H.

3. Определить характеристики землетрясения по значениям магнитуды M и глубины очага H.

вычисление балльности

1. Поместить на форму кнопку, две метки и два текстовых поля.

2. Задать следующие значения свойств объектов:

form
Caption Балльность землетрясения
label1
Caption Магнитуда
label2
Caption Глубина очага
text1
Text (пусто)
text2
Text (пусто)
Command1
Caption Ok

Рис. 3.16 «Форма»

3. Код программы:

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

характеристики землетрясения

Ввод:

i. магнитуда

ii. глубина очага

Вывод:

i. тип

ii. зона действия

iii. балльность

 

1. С помощью управляющих элементов создать интерфейс пользователя.

 

Рис.3.19 «Интерфейс»

2. Код программы:

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. Примеры сложных и простых условий

 





sdamzavas.net - 2019 год. Все права принадлежат их авторам! В случае нарушение авторского права, обращайтесь по форме обратной связи...