Linie Berechnen

[Steffen W. (woern92)]

Guten abend,

Ich stehe irgendwie auf dem Schlauch, ich möchte eine linie in wie soll 
ich sagen wegdaten umwandeln.

Also ich Habe:
X1 und Y1 als Startpunkt,
X2 und Y2 als Endpunkt

Mein Ziel:
AABAABAAB

A = X+
B = X-
C = Y+
D = Y-

Proggen tue ich in VisualBasic6.0 und ich komme einfach nicht weiter...

Wenn jemand nen guten Plan hätte währe ich sehr dankbar, es würde auch 
eine erklärung reichen wie ich dieses am besten anstelle.

MFG

[jmp (Gast)]

N'amd,

lies dich mal hier ein:

https://de.wikipedia.org/wiki/Bresenham-Algorithmus

--jmp

[Steffen W. (woern92)]

Es ist vielleicht nicht der schönste und schnellste geworden aber... 
TADAA.

Also wenn noch jemand interesse an sowas haben sollte ;)

Private Function Fahrweg(StartX As Long, StartY As Long, EndX As Long, EndY As Long) As String
Dim DifX As Long
Dim DifY As Long
Dim StepY As String
Dim temp As Long
Dim lasty As Long
Dim a As Long
Dim Ya As String

Dim CX As String
Dim CY As String

Dim IX As Long
Dim IY As Long

IX = 0
IX = 0

If StartX > EndX Then
    CX = "B"
    temp = EndX
    EndX = StartX
    StartX = temp
Else
    CX = "A"
End If

If StartY > EndY Then
    CY = "D"
    temp = EndY
    EndY = StartY
    StartY = temp
Else
    CY = "C"
End If


DifX = EndX - StartX
DifY = EndY - StartY

If DifX = 0 Then
    DifX = 5
    CX = ""
End If

If DifY = 0 Then
    DifY = 5
    CY = ""
End If

If DifX > DifY Then

StepY = DifX / DifY

lasty = 0

For a = 1 To DifX
    Ya = StepY * lasty
    If Ya < a Then
        Fahrweg = Fahrweg & CY
        lasty = lasty + 1
        IY = IY + 1
    End If
    Fahrweg = Fahrweg & CX
    IX = IX + 1
Next a

Else

StepY = DifY / DifX

lasty = 0

For a = 1 To DifY
    Ya = StepY * lasty
    If Ya < a Then
        Fahrweg = Fahrweg & CX
        lasty = lasty + 1
        IX = IX + 1
    End If
    Fahrweg = Fahrweg & CY
    IY = IY + 1
Next a

End If

End Function

MFG