Eine Linie mit der Mouse ziehen, aber wie?

Anfängerfragen zum Programmieren mit PureBasic.
neuling
Beiträge: 26
Registriert: 18.10.2007 16:25

Eine Linie mit der Mouse ziehen, aber wie?

Beitrag von neuling »

Hallo,

im laufe meiner Experimente dachte ich mir, einfach mal mit der Mouse eine Linie zu ziehen. Garnicht so einfach wie es sich anhört......

Hat jemand eine Idee?
Benutzeravatar
#NULL
Beiträge: 2238
Registriert: 20.04.2006 09:50

Beitrag von #NULL »

sorry, aber da musst du erst nochmal einiges dazu sagen. so kann dir wirklich keiner helfen.
im Fenster? im screen? worauf zeichnen? meinst du einfach pixel nach dem mausverlauf zeichnen, oder geraden von einem punkt zu einem anderen?
my pb stuff..
Bild..jedenfalls war das mal so.
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 7031
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Beitrag von STARGÅTE »

Code: Alles auswählen

ClearScreen(0)
If MouseButton(1) And Punkt = 0 : 
 x1 = MouseX() : y1 = MouseY() : Punkte = 1
ElseIf MouseButton(1) = 0 and Punkt = 1 : 
 x2 = MouseX() : y2 = MouseY() : Punkte = 0
EndIf
LineXY(x1,y1,x2,y2,RGB(255,255,255))
FlipBuffers()
So....

Mausdrücken und Linie ziehen, loslassen und die Linie ist "fest".
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Benutzeravatar
Bisonte
Beiträge: 2468
Registriert: 01.04.2007 20:18

Beitrag von Bisonte »

STARGÅTE hat geschrieben:

Code: Alles auswählen

ClearScreen(0)
If MouseButton(1) And Punkte = 0 : 
 x1 = MouseX() : y1 = MouseY() : Punkte = 1
ElseIf MouseButton(1) = 0 and Punkte = 1 : 
 x2 = MouseX() : y2 = MouseY() : Punkte = 0
EndIf
LineXY(x1,y1,x2,y2,RGB(255,255,255))
FlipBuffers()
So....

Mausdrücken und Linie ziehen, loslassen und die Linie ist "fest".

So wärs Richtig... Punkt in Punkte ändern sonst schafft der es nie den 2. Punkt zu setzen ;)
PureBasic 6.21 (Windows x86/x64) | Windows11 Pro x64 | AsRock B850 Steel Legend Wifi | R7 9800x3D | 64GB RAM | GeForce RTX 5080 | ThermaltakeView 270 TG ARGB | build by vannicom​​
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 7031
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Beitrag von STARGÅTE »

ach ja ^^ danke, tia, das passiert hat wenn man Codes schreibt ohne sie zu testen ^^
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
neuling
Beiträge: 26
Registriert: 18.10.2007 16:25

Beitrag von neuling »

Hallo,

oh, ziemlich einfach eigentlich.........
Danke euch!
Antworten