warum kann man net klicken? -.-"

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

Kado

Betreff: warum kann man net klicken? -.-"

BeitragSa, Dez 04, 2004 17:08
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]

Graphics 640,480,0,2
umfang = LoadImage("buttons/Umfang.bmp")
flaeche = LoadImage("buttons/Flaecheninhalt.bmp")
quadrat = LoadImage("buttons/quadrat.bmp")
DrawImage umfang, 80,30
DrawImage flaeche, 330,30
If x => 330 And x <= 500 And y => 30 And y <=100 And MouseDown(1)
   Cls
   DrawImage quadrat, 80,30
EndIf
Delay 500000


help ....

warum kann ich net auf fläche klicken?? 330,30,500,100 ???
 

getlose

BeitragSa, Dez 04, 2004 17:12
Antworten mit Zitat
Benutzer-Profile anzeigen
weil das programm nicht weiter läuft, außer du
schaffst es inerhalb eines Bruchteils einer Sekunde
drauf zu klicken.
 

konstantin

BeitragSa, Dez 04, 2004 17:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Benutze Schleifen
 

Kado

BeitragSa, Dez 04, 2004 17:25
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]
Graphics 640,480,0,2
Repeat
umfang = LoadImage("buttons/Umfang.bmp")
flaeche = LoadImage("buttons/Flaecheninhalt.bmp")
quadrat = LoadImage("buttons/quadrat.bmp")
DrawImage umfang, 80,30
DrawImage flaeche, 330,30
If x => 330 And x <= 500 And y => 30 And y <=100 And MouseDown(1)
   
   DrawImage quadrat, 80,300
   Print "efisefjksefn"
EndIf
Until KeyHit


omg :S ... irgendwie lappts net ....
 

konstantin

BeitragSa, Dez 04, 2004 17:26
Antworten mit Zitat
Benutzer-Profile anzeigen
warum zum teufel lädst du die bilder auch in der schleife? Smile
 

Kado

BeitragSa, Dez 04, 2004 17:29
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]

Graphics 640,480,0,2
umfang = LoadImage("buttons/Umfang.bmp")
flaeche = LoadImage("buttons/Flaecheninhalt.bmp")
quadrat = LoadImage("buttons/quadrat.bmp")
DrawImage umfang, 80,30
DrawImage flaeche, 330,30
Repeat
If x => 330 And x <= 500 And y => 30 And y <=100 And MouseDown(1)
   DrawImage quadrat, 80,300
   Print "efisefjksefn"
EndIf
Until KeyHit


.... Laughing ... geht noch net :S
 

konstantin

BeitragSa, Dez 04, 2004 17:30
Antworten mit Zitat
Benutzer-Profile anzeigen
Kado hat Folgendes geschrieben:
Code: [AUSKLAPPEN]

Graphics 640,480,0,2
umfang = LoadImage("buttons/Umfang.bmp")
flaeche = LoadImage("buttons/Flaecheninhalt.bmp")
quadrat = LoadImage("buttons/quadrat.bmp")
DrawImage umfang, 80,30
DrawImage flaeche, 330,30
Repeat
If x => 330 And x <= 500 And y => 30 And y <=100 And MouseDown(1)
   DrawImage quadrat, 80,300
   Print "efisefjksefn"
EndIf
Until KeyHit


.... Laughing ... geht noch net :S


Wie wärs wenn du X und Y mal die Positionen vom Mauszeiger zuweist? Smile
 

Kado

BeitragSa, Dez 04, 2004 17:34
Antworten mit Zitat
Benutzer-Profile anzeigen
ahhhh daran scheitere ich -.- .... is schon alles programmiert bloss jetzt wollte ich das ganze mit buttons verschönern -.-"

Code: [AUSKLAPPEN]
Graphics 640,480,0,2
x=MouseX()
y=MouseY()
umfang = LoadImage("buttons/Umfang.bmp")
flaeche = LoadImage("buttons/Flaecheninhalt.bmp")
quadrat = LoadImage("buttons/quadrat.bmp")
DrawImage umfang, 80,30
DrawImage flaeche, 330,30
Repeat
If x => 330 And x <= 500 And y => 30 And y <=100 And MouseDown(1)
   DrawImage quadrat, 80,300
   Print "efisefjksefn"
EndIf
Until KeyHit
[/code]
 

konstantin

BeitragSa, Dez 04, 2004 17:38
Antworten mit Zitat
Benutzer-Profile anzeigen
du musst die maus-position in der schleife aktuallisieren Smile
 

Kado

BeitragSa, Dez 04, 2004 17:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Alu hat Folgendes geschrieben:
du musst die maus-position in der schleife aktuallisieren Smile


das versteh ichj jetzt net :S
 

Apocalyptic

BeitragSa, Dez 04, 2004 17:40
Antworten mit Zitat
Benutzer-Profile anzeigen
Und zeichnen solltest du auch in der Schleife. Und Keyhit(1) oder ähnliches wär auch nicht schlecht Wink

Code: [AUSKLAPPEN]
Graphics 640,480,0,2
umfang = LoadImage("buttons/Umfang.bmp")
flaeche = LoadImage("buttons/Flaecheninhalt.bmp")
quadrat = LoadImage("buttons/quadrat.bmp")
Repeat
x=MouseX()
y=MouseY()
DrawImage umfang, 80,30
DrawImage flaeche, 330,30
If x => 330 And x <= 500 And y => 30 And y <=100 And MouseDown(1)
   DrawImage quadrat, 80,300
   Print "efisefjksefn"
EndIf
Until KeyHit(1)


So in etwa (habs natürlich nicht getestet)

Und dann würde ich noch Cls und Flip verwenden
Suum cuique

[ www.ffs-net.de.vu ] [ Raycaster ]
 

konstantin

BeitragSa, Dez 04, 2004 18:34
Antworten mit Zitat
Benutzer-Profile anzeigen
Apocalytpic: Du sprichst von Doublebuffering Smile
 

Apocalyptic

BeitragSa, Dez 04, 2004 19:02
Antworten mit Zitat
Benutzer-Profile anzeigen
Alu hat Folgendes geschrieben:
Apocalytpic: Du sprichst von Doublebuffering Smile


Richtig. Aber mit dem Begriff kann kein Anfänger was anfangen Wink
Suum cuique

[ www.ffs-net.de.vu ] [ Raycaster ]
 

konstantin

BeitragSa, Dez 04, 2004 19:05
Antworten mit Zitat
Benutzer-Profile anzeigen
Apocalyptic hat Folgendes geschrieben:
Alu hat Folgendes geschrieben:
Apocalytpic: Du sprichst von Doublebuffering Smile


Richtig. Aber mit dem Begriff kann kein Anfänger was anfangen Wink


aber nur FLIP und CLS bringen ohne das initiallisieren des DoubleBufferings auch nichts
 

Apocalyptic

BeitragSo, Dez 05, 2004 17:19
Antworten mit Zitat
Benutzer-Profile anzeigen
Klugscheißer Wink
Suum cuique

[ www.ffs-net.de.vu ] [ Raycaster ]

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group