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

Anhang 25
6.2 Initialisierung
Public Sub zufalls_kombination()
'Erstellt die Initial-Zufallskombination
Dim P As Single
Dim stp As Recordset
Dim stp_opt, kontrolle, anzahl_mn As Recordset
Dim placebo As Database
Set placebo = DBEngine.Workspaces(0).Databases(0)
Set stp = placebo.OpenRecordset("stp")
Set stp_opt = placebo.OpenRecordset("stp_opt")
Set kontrolle = placebo.OpenRecordset("kontrolle")
Set anzahl_mn = placebo.OpenRecordset("anzahl_massnahmen", dbOpenDynaset)
stp_opt.MoveFirst
Do Until stp_opt.EOF
stp_opt.Delete
stp_opt.MoveNext
Loop
Do Until kontrolle.EOF
kontrolle.Delete
kontrolle.MoveNext
Loop
stp.MoveFirst
anzahl_mn.MoveFirst
Do Until stp.EOF
stp.Edit
stp![massnahme] = 0
stp.Update
stp_opt.AddNew
stp_opt![stp_id] = stp![stp_id]
stp_opt![x] = stp![x]
stp_opt![y] = stp![y]
stp_opt.Update
stp.MoveNext
Loop
stp.MoveFirst
Do Until stp.EOF
P = Rnd
If P > 0.6 And stp![Bestockung] = 99 Then
stp.Edit
stp![massnahme] = Round(0.5 + ((anzahl_mn![anzahl] - 1) * Rnd))
stp.Update
Else
stp.Edit
stp![massnahme] = 0
stp.Update
End If
stp.MoveNext
Loop
End Sub