VB Trainer

[DNA]

Ok,

dann erstellst du dir neue Teleporter ... z.B. so

[code=VB]
Dim Stromkasten As New Teleporter
Dim Holztreppe As New Teleporter[/code]

Nun musst du die Koordinaten 1mal auslesen, die du im
Trainer hinterlegen möchtest.
Das machst du vom Grundsatz her genau so, als ob du die Koordinate speicherst,
jedoch lässt du die die gespeichert Koordinaten anzeigen.

[code=VB]
Stromkasten = Read_Koord(addi, &HOFFSET, 0) 'Solltest du ja kennen
msgbox ("X = " & Stromkasten.XKoord & Chr(13) & "Y = " & Stromkasten.YKoord & _
Chr(13) & "Z = " & Stromkasten.ZKoord)
[/code]
Die drei Werte, die dann in der MsgBox stehen, musst du dir notieren und zwar
bei jeder Position, die du im Trainer hinterlegen möchtest.
Wenn du das gemacht hast, kannst du die Werte in die Variablen schreiben,
z.B. bei Form_Load

[code=VB]
Stromkasten.XKoord = 'Hier kommt der notierte X-Wert rein
Stromkasten.YKoord = 'Hier kommt der notierte Y-Wert rein
Stromkasten.ZKoord = 'Hier kommt der notierte Z-Wert rein[/code]
Das machst du dann wieder für jede Position (natürlich in unterschiedliche Variablen )

Wenn du das gemacht hast, kannst du direkt die Write_Koord funktion aufrufen

[code=VB]
Write_Koord(addi, &HOFFSET, Stromkasten, 0) 'Solltest du ja kennen[/code]

Wenn ich nichts vergessen habe, dann war's das schon