Beiträge von JanSka

Zitat von alpines

Du musst auch $x1 einen Startwert zuweisen, ohne geht das nicht. For $variable = Startwert To EndWert [Step Schritt]

Und bitte beantworte meine Frage von vorhin:

Daran lag es, vielen Dank nochmal alpines.

Das ganze soll später eine Art Taschenrechner werden, mit dem man verschiedene geometrische Berechnungen durchführen kann. Das wird mir beim technischen Zeichnen helfen.

Danke für eure schnellen Antworten.

Der Fehler liegt allerdings nicht in der If Bedingung. Ich habe im Forumbeitrag hier vergessen die $ zu setzen, weil ich die Formel kurz aus dem Internet kopiert habe, aber selbst wenn ich die If Bedingung ganz entferne und eine einfache MsgBox ausgebe, kommt der Fehler.

Test.PNG

Danke für deine Antwort alpines.

Ich bin mir die Iteration nochmal durchgegangen und du hast Recht, er geht durch jede Koordinate.

Allerdings erhalte ich nun bei den For Schleifen die Fehlermeldungen:

error: syntax error

error: statement cannot be just an expression

Mein Ziel:

Ich habe 2 Koordinaten (px1, py1) & (px2, py2) und dann zusätzlich noch die 2 Koordinaten (x1,y1) & (x2,y2) , die einen Koordinatenbereich darstellen sollen und durch die ich, wie oben beschrieben, mit der For Schleife iterieren möchte.

Mein Ziel ist es, herauszufinden ob die 2 gegebenen Punkte (px1, py1) & (px2, py2) zu irgendeinem der Punkte zwischen dem Bereich (x1,y1) & (x2,y2) Linear ist. Wenn irgendein Punkt aus dem Bereich  (x1,y1) & (x2,y2) Linear zu den Punkten (px1, py1) & (px2, py2) ist, soll die MsgBox erscheinen. Die If Bedingung sagt mir ober ein die 3 Punkte Linear sind oder nicht, allerdings muss ich durch den gesamten Bereich (x1,y1) & (x2,y2) iterieren.

So sieht mein Code aus, die Koordinaten sind in diesem Beispiel frei erfunden, da ich die richtig aktuell nicht da habe.

$px1 = 30
$py1 = 30
$px2 = 60
$py2 = 76
$x1 = 15
$y1 = 34
$x2 = 52
$y2 = 66

For $x1 To $x2 Step +1         ;hier kommt die Fehlermeldung

    For $y1 To $y2 Step +1     ;hier kommt die Fehlermeldung

        If ((y1 - py2)*(px2 - px1) == (py2 - py1)*(x1 - px2)) Then    ;prüft ob Linear
            MsgBox(0, "Titel", "Ist Linear")
        EndIf

    Next

Next

Hallo,

ich habe 2 Koordinaten herausgefunden, einmal die obere Linke Ecke und einmal die untere Rechte Ecke.

Nun möchte ich durch jede mögliche Spalten und Zeilenkombination mit einer For Schleife iterieren.

Nehmen wir als Beispiel folgende Koordinaten:

$x1 = 5
$y1 = 10
$x2 = 20
$y2 = 40

Ich hab zunächst eine verschachtelte Schleife verwendet, aber dann ist mir aufgefallen dass er dann garnicht durch alle möglichen Koordinaten iteriert.

For $x To $x2 Step +1
    For $y To $y2 Step +1
        If (Meine Bedingung True) Then
            ;tue was
        EndIf
    Next
Next

Ich habe nun irgendwo gelesen dass ich ein 2 Dimensionales Array brauche mit der Anzahl der Spalten und den Zeilen:

local $array[x2-x1][y2-y1]

Doch wie verwende ich das nun in meiner For-Schleife?

Danke.