Mousehit macht Funktion unbrauchbar

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

Vidde

Betreff: Mousehit macht Funktion unbrauchbar

 BeitragDi, Apr 27, 2010 15:37
Antworten mit Zitat
Benutzer-Profile anzeigen
Folgender Code funktioniert soweit tadellos:

Code: [AUSKLAPPEN]
Graphics 640,480, 16,0
SetBuffer BackBuffer()

Global x
Global y
Global HZ
Global RZ
Global nummer


Repeat
      nummer = nummer + 1
      
      Cls   
         
      x = MouseX()
      y = MouseY()
      
      Text 20,20, x
      Text 20,40, y
      
         
      Button_hoch()
      Button_runter()
      
      Text 20,80, "Durchlauf " + nummer

      
      Text 117,160, HZ
      Text 117,250, RZ
      
      Flip
Until HZ > 100 Or RZ < -100




Function Button_hoch()
   Rect 100,120, 50,30,0   
   Text 115,128,   "/\"
      
   If x > 100 And x < 150 And y > 120 And y < 150 Then      ; And MouseHit(1)
      HZ = HZ + 1
   End If      
End Function



Function Button_runter()
   Rect 100,270, 50,30,0      
   Text 115,278,   "\/"
   
   If x > 100 And x < 150 And y > 270 And y < 300 Then      ; And MouseHit(1)
      RZ = RZ - 1
   End If   
End Function


Planze ich jedoch "And Mousehit(1)" in die beiden If-Bedingungen, funktioniert nur noch die erste
Schaltfläche wie gewünscht. Die zweite zeigt nur nach etlichen Klicks eine erste Reaktion.

Code: [AUSKLAPPEN]
Graphics 640,480, 16,0
SetBuffer BackBuffer()

Global x
Global y
Global HZ
Global RZ
Global nummer


Repeat
      nummer = nummer + 1
      
      Cls   
         
      x = MouseX()
      y = MouseY()
      
      Text 20,20, x
      Text 20,40, y
      
         
      Button_hoch()
      Button_runter()
      
      Text 20,80, "Durchlauf " + nummer

      
      Text 117,160, HZ
      Text 117,250, RZ
      
      Flip
Until HZ > 10 Or RZ < -10




Function Button_hoch()
   Rect 100,120, 50,30,0   
   Text 115,128,   "/\"
      
   If x > 100 And x < 150 And y > 120 And y < 150 And MouseHit(1) Then
      HZ = HZ + 1
   End If      
End Function



Function Button_runter()
   Rect 100,270, 50,30,0      
   Text 115,278,   "\/"
   
   If x > 100 And x < 150 And y > 270 And y < 300 And MouseHit(1) Then
      RZ = RZ - 1
   End If   
End Function


Wo genau liegt mein Fehler?
Gern der Zeiten gedenk ich, als alle Glieder gelenkig - bis auf eins. Diese Zeiten kehren nie wieder, steif sind nun alle Glieder - bis auf eins.

Xeres

Moderator

BeitragDi, Apr 27, 2010 15:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Arrow Wie kann ich Mausklicks richtig abfragen ?
Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Vidde

 BeitragDi, Apr 27, 2010 15:42
Antworten mit Zitat
Benutzer-Profile anzeigen
Besten Dank
Gern der Zeiten gedenk ich, als alle Glieder gelenkig - bis auf eins. Diese Zeiten kehren nie wieder, steif sind nun alle Glieder - bis auf eins.

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group