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

Anhang 27
Public Sub hoechster_nachbar()
Dim verknuepfung1 As Recordset
Dim stp2 As Recordset
Dim stp As Recordset
Dim placebo As Database
Dim x As Long, y As Long, d, i As Integer, h, delta_x As Double, hbest As Double, stpin As Integer, stpout As Integer
Dim test As Integer
Set placebo = DBEngine.Workspaces(0).Databases(0)
Set verknuepfung1 = placebo.OpenRecordset("nachbarschaft_hoechster")
Set stp = placebo.OpenRecordset("stp")
Set stp2 = placebo.OpenRecordset("stp")
Do Until verknuepfung1.EOF
verknuepfung1.Delete
verknuepfung1.MoveNext
Loop
Do Until stp.EOF
stpin = stp![stp_id]
x = stp![x]
y = stp![y]
h = stp![hoehe]
d = 2501
hbest = 0
test = 1
stp2.MoveFirst
Do Until stp2.EOF
If ((x - stp2![x]) ^ 2) < d And ((y - stp2![y]) ^ 2) < d Then
If stp2![hoehe] >= h Then
If stp2![hoehe] >= hbest Then
hbest = stp2![hoehe]
stpout = stp2![stp_id]
End If
End If
End If
stp2.MoveNext
Loop
verknuepfung1.AddNew
verknuepfung1![stpin] = stpin
verknuepfung1![stpout] = stpout
verknuepfung1.Update
stp.MoveNext
Loop
End Sub