PDF complete version (5 MB) - ETH - LUE - ETH Zürich

Anhang 31
6.6 Restriktion
Public Function restriktion(lawi_typ, hoehe, Rest_hoehe, neigung, Rest_neigung, massnahme, Rest_aufforstung, Rest_law)
Dim auff_indikator, h_indikator, n_indikator, l_indikator, g_indikator, s_indikator, a_indikator As Integer
Dim placebo As Database
Dim indikator As Recordset
Set placebo = DBEngine.Workspaces(0).Databases(0)
Set indikator = placebo.OpenRecordset("indikatoren")
indikator.MoveFirst
If hoehe < Rest_hoehe Then
h_indikator = indikator![hoehe_ind_wahr]
Else
h_indikator = indikator![hoehe_ind_falsch]
End If
If neigung < Rest_neigung Then
n_indikator = indikator![neigung_ind_wahr]
Else
n_indikator = indikator![neigung_ind_falsch]
End If
If Rest_law = 1 Then
l_indikator = indikator![lawi_ind_falsch]
Else
l_indikator = 1
End If
'Else
' l_indikator = 0
'End If
'If hoehe > 1400 Then
' If Rest_schneegleiten > 0 Then
' g_indikator = 0.2
' Else
g_indikator = 1
' End If
'Else
' g_indikator = 1
'End If
If Rest_aufforstung = 1 Then
If lawi_typ = 1 Then
auff_indikator = indikator![aufforst_ind_wahr]
Else
auff_indikator = indikator![aufforst_ind_falsch]
End If
Else
auff_indikator = indikator![aufforst_ind_wahr]
End If
'If bobede = 3 Or bobede = 4 Then
' If schutt = 1 Then
' s_indikator = 0.1
' Else
' s_indikator = 1
' End If
'Else
s_indikator = 1
'End If
If massnahme > 0 Then
restriktion = h_indikator * n_indikator * l_indikator * g_indikator * s_indikator * auff_indikator
Else
restriktion = 0
End If