3.3. Определение ущерба от землетрясения

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

Цели :

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

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

Задания:

1. Определить нанесенный зданию ущерб от землетрясения по значению степени повреждения.

ущерб от землетрясения

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

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

2. В режиме выполнения приложение должно выглядеть следующим образом:

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

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

Private Sub Command1_Click()

If Option1.Value = True Then

List1.List(0) = "Ущерб незначительный;"

List1.List(1) = "Необходим текущий ремонт"

ElseIf Option2.Value = True Then

List1.List(0) = "Ущерб 10-15% от стоимости здания;"

List1.List(1) = "Необходим капитальный ремонт"

ElseIf Option3.Value = True Then

List1.List(0) = "Ущерб 30-40% от стоимости здания;"

List1.List(1) = "Необходим восстановительный ремонт"

ElseIf Option4.Value = True Then

List1.List(0) = "Ущерб 50% от стоимости здания;"

List1.List(1) = "Необходим снос здания"

ElseIf Option5.Value = True Then

List1.List(0) = "Полное разрушение здания"

List1.List(1) = ""

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Вопросы:

1. Какие элементы управления потребовались для создания интерфейса?

2. Что дает нам строка « Else I Option5.Value=True Then»

3. 4. Прогнозирование степени повреждения зданий

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

Цели :

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

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

Задания:

1. Определить степень повреждения кирпичных домов по значению балльности землетрясения.

2. Определить степень повреждения разных типов зданий по значению балльности землетрясения

3. Отразить в последней программе материальный ущерб разных типов зданий.

Таблица3.14

Степень повреждения кирпичных домов

J – 5.5	Степень повреждения
	0	1	2	3	4	5
0–0.5	90%	10%
0.5–1.5	40%	50%	10%
1.5–2.5	10%	30%	50%	10%
2.5–3.5	0	10%	30%	50%	10%
3.5–4.5	0	0	10%	30%	50%	10%
4.5–5.5	0	0	0	10%	30%	60%
>5.5	0	0	0	0	10%	90%

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

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

2. В режиме выполнения приложение должно выглядеть следующим образом:

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

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

Private Sub Command1_Click()

Select Case Val(Text0.Text) - 5.5

Case Is < 0

MsgBox "Разрушений нет", vbOKOnly, "Сообщение"

Case 0 To 0.5

Text1.Text = "10%"

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Case 0.5 To 1.5

Text1.Text = "50%"

Text2.Text = "10%"

Case 1.5 To 2.5

Text1.Text = "30%"

Text2.Text = "50%"

Text3.Text = "10%"

Case 2.5 To 3.5

Text1.Text = "10%"

Text2.Text = "30%"

Text3.Text = "50%"

Text4.Text = "10%"

Case 3.5 To 4.5

Text2.Text = "10%"

Text3.Text = "30%"

Text4.Text = "50%"

Text5.Text = "10%"

Case 4.5 To 5.5

Text2.Text = "10%"

Text4.Text = "30%"

Text5.Text = "60%"

Case Else

Text4.Text = "10%"

Text5.Text = "90%"

End Select

End Sub

Степень повреждения зданий

.

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

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

2. В режиме выполнения приложение должно выглядеть следующим образом:

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

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

Private Sub Command1_Click()

Select Case Combo1.ListIndex

Case 0

J = 4

Case 1

J = 4.5

Case 2

J = 5

Case 3

J = 5.5

Case 4

J = 6

Case 5, 6

J = 6.5

End Select

Select Case Val(Text1.Text) - J

Case Is < 0

MsgBox "Разрушений нет", vbOKOnly, "Сообщение"

Case 0 To 0.5

Text2.Text = "10%"

Case 0.5 To 1.5

Text2.Text = "50%"

Text3.Text = "10%"

Case 1.5 To 2.5

Text2.Text = "30%"

Text3.Text = "50%"

Text4.Text = "10%"

Case 2.5 To 3.5

Text2.Text = "10%"

Text3.Text = "30%"

Text4.Text = "50%"

Text5.Text = "10%"

Case 3.5 To 4.5

Text3.Text = "10%"

Text4.Text = "30%"

Text5.Text = "50%"

Text6.Text = "10%"

Case 4.5 To 5.5

Text4.Text = "10%"

Text5.Text = "30%"

Text6.Text = "60%"

Case Else

Text5.Text = "10%"

Text6.Text = "90%"

End Select

End Sub

Таблица 3.15

Величина материального ущерба зависит от степени повреждения здания

	Степень повреждения зданий
	1	2	3	4	5
УЩЕРБ, %	5%	15%	30%	50%	100%

Величина среднего ущерба определяется по формуле:

Damage=0.05*P_повр(1)+0.15*P_повр(2)+0.3*P_повр(3)+0.5*P_повр(4)+P_повр(5)

Материальный ущерб

Таблица 3.16

Степень повреждения здания

ПОТЕРИ	Степень повреждения зданий
	1	2	3	4	5
Общие	0.0	0.0	0.05	0.5	0.95
безвозвратные	0.0	0.0	0.01	0.17	0.65

Поскольку степень повреждения здания является случайной величиной, вероятность безусловных потерь населения определяется по формулам:

Общие потери

P_общ=0.05*P_повр(3)+0.5*P_повр(4)+0.95*P_повр(5)

Безвозвратные потери (доля жертв)

P_безв=0.01*P_повр(3)+0.17*P_повр(4)+0.65*P_повр(5)

Санитарные потери (доля раненых)

P_сан=P_общ-P_безв