Das deutsche QBasic- und FreeBASIC-Forum

[Westbeam]

Hi, gleich das nächste Problem. Ich möchte, dass man mit der Maus bei gedrückter linker Maustaste, ein Rechteck zeichnen kann(wie man es auf dem Desktop auch machen kann). Dazu habe ich folgendes gemacht:

[MisterD]

du verwechselst line und line step
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[nemored]

Meinst du das Gummiband (falls das noch so heißt)?

[Westbeam]

@nemored
Ja, so ungefähr. Allerdings hängt sich dein Beispiel bei mir kurz auf. Danach erscheint kurz ein schwarzer Kasten und dann läuft das Programm weiter ...

@MisterD
Wie wende ich Line Step an?

[nemored]

[Westbeam]

Ich habe das jetzt so gemacht:

[nemored]

Das wundert mich nicht ...
Hast du den Referenzeintrag gelesen?
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Westbeam]

Ja
Da steht(bei Step), dass die Ausgabe sich relativ zur aktuellen Mausposition verhält. Das bedeutend unhilfreich. Das Problem ist, dass sich die Variablen tx und ty sich verändern, also sie haben den selben Wert wie mousex und mousey und sie verändern sich so auch. Das sollen sie aber nicht, deswegen habe ich versucht, sie als Konstanten(mit Const) zu benutzen, das funktioniert aber leider auch nicht:

[MOD]

Mit Const geht es nicht, weil einer Konstante nur ein fester Wert zugeordnet werden kann, deswegen auch Const = Konstante.

Der Code von nemored funktioniert doch prima, hab ihn etwas ausgebaut, damit ein fertiges Programm entsteht:

[Westbeam]

Ich habe aber die Maus ausgestellt und eine eigene Maus wird geladen(Put (mousex,mousey),mousep,Trans), wenn ich also ein Rechteck zeichnen will, bleibt die Maus trotzdem in der linken oberen Ecke.

Dein Lösungsversuch ist ja ganz gut, aber ich schreibe eine (DOS)GUI. Da bei DOS standardmäßig kein Mauszeiger vorhanden ist, muss ich einen eigenen zeigen. So, das ist der ganze Code:

[nemored]

Zur Erläuterung des Codes:
Wenn die Maustaste niedergedrückt wird, dann - und nur dann - werden tx und ty auf die aktuelle Mauskoordinaten gesetzt. Solange die Maustaste gedrückt ist (wir befinden uns innerhalb der zweiten Schleife) werden zwar weiterhin die Mauskoordinaten abgefragt, aber eben nicht tx und ty neugesetzt. Das heißt, der Startpunkt bleibt gleich, der Endpunkt liegt bei der aktuellen Mausposition.

edit: ist schon wieder nicht mehr aktuell ... Aber jetzt ist zumindest die Problemstellung klarer.


edit2
Dass die Maus nicht mitwandert, liegt daran, dass du sie im Bereich

[Westbeam]

Hm, ja. Ich habs jetzt. So hab ichs gemacht(der ganze Code):

[nemored]

menu = 1 tritt wohl nur ein, wenn mousex < 20, wenn ich das beim Überfliegen richtig gesehen habe:

[Jojo]

[Westbeam]

@nemored
Das klappt aber so, wie es da steht. Mein Problem liegt bei der Zeile wo die Schleife endet (loop until ...). Da passiert leider gar nichts

[nemored]

Genau auf diese LOOP beziehe ich mich. Der Fehler entsteht aber nun mal schon vorher. Bzw. im Zusammenspiel beider Zeilen.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[28398]

Naja Westbeam, solange es läuft, sollte man nicht auf andere und erfahrenere Leute hören.

[Westbeam]

Es soll sich aber nicht beenden, wenn man auf bild2 klickt, sondern wenn man auf den Schriftzug "Beenden" klickt. Und der ist nun einmal an der angegebenen Position

[nemored]

Das mag ja sein, aber du erwartest beim LOOP ein menu=1, und aufgrund deines Codes ist, wenn sich die Maus an der gewünschten Position befindet, eben menu<>1. Du prüfst auf eine Bedingung, die nie eintritt.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Westbeam]

Das menu ist aber 1. Sonst würde es nicht da sein.
Das ganze funktioniert auch ohne menu=1 nicht: