Schaltfläche
Übersicht
BlitzBasic Allgemein
totonak5Betreff: Schaltfläche |
 Sa, Sep 25, 2004 12:54Antworten mit Zitat 
|
|
|---|---|---|
|
Hi!
ich habe in folgendem Quelltext 4 farbige Rechtecke gezeichnet! wenn ich auf das graue klicke, soll 1 da stehen, bei rot 2, bei blau 3 und bei grün 4! es sollte einfack gehen das zusammenzubringen aber so geschickt wie ich bin, ich bringe es nicht fertig! könnt ihr mir helfen? Code: [AUSKLAPPEN] Graphics 800,600 SetBuffer BackBuffer() Repeat Cls If Punktart < 1 Or Punktart > 1 If RectsOverlap(X,Y,1,1, 22,403,14,17) And MouseHit(1) Then PunktArt = 1 EndIf If Punktart < 2 Or Punktart > 2 If RectsOverlap(X,Y,1,1, 36,403,14,17) And MouseHit(1) Then PunktArt = 2 EndIf If Punktart < 3 Or Punktart > 3 If RectsOverlap(X,Y,1,1, 50,403,14,17) And MouseHit(1) Then PunktArt = 3 EndIf If Punktart < 4 Or Punktart > 4 If RectsOverlap(X,Y,1,1, 64,403,14,17) And MouseHit(1) Then PunktArt = 4 EndIf Color 255,255,255 Text 400,400, Punktart Color 170,170,170 Rect 22,403,14,17 Color 255,0,0 Rect 36,403,14,17 Color 0,255,0 Rect 50,403,14,17 Color 0,0,255 Rect 64,403,14,17 X = MouseX() Y = MouseY() Flip Until KeyHit(1) danke jetzt schon für eure hilfe! lg |
||
|
Just for Fun!
Jesus loves U! |
||
|
Hubsi |
Sa, Sep 25, 2004 12:57 Antworten mit Zitat
|
|---|---|---|
|
Füge das ein:Code: [AUSKLAPPEN] mh=MouseHit(1) Und bei den Abfargen ersetzt Du MouseHit(1) durch mh.
|
||
| Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn... | ||
totonak5 |
Sa, Sep 25, 2004 13:02 Antworten mit Zitat
|
|
|---|---|---|
|
so funktioniert es aber überhaupt nicht!
lg |
||
|
Just for Fun!
Jesus loves U! |
||
|
|
Hubsi |
Sa, Sep 25, 2004 13:05 Antworten mit Zitat
|
|---|---|---|
|
Doch:Code: [AUSKLAPPEN] Graphics 800,600
Ich setze selbstständiges Denken natürlich voraus SetBuffer BackBuffer() Repeat Cls mh=MouseHit(1) If Punktart < 1 Or Punktart > 1 If RectsOverlap(X,Y,1,1, 22,403,14,17) And mh Then PunktArt = 1 EndIf If Punktart < 2 Or Punktart > 2 If RectsOverlap(X,Y,1,1, 36,403,14,17) And mh Then PunktArt = 2 EndIf If Punktart < 3 Or Punktart > 3 If RectsOverlap(X,Y,1,1, 50,403,14,17) And mh Then PunktArt = 3 EndIf If Punktart < 4 Or Punktart > 4 If RectsOverlap(X,Y,1,1, 64,403,14,17) And mh Then PunktArt = 4 EndIf Color 255,255,255 Text 400,400, Punktart Color 170,170,170 Rect 22,403,14,17 Color 255,0,0 Rect 36,403,14,17 Color 0,255,0 Rect 50,403,14,17 Color 0,0,255 Rect 64,403,14,17 X = MouseX() Y = MouseY() Flip Until KeyHit(1) 
|
||
| Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn... | ||
totonak5 |
Sa, Sep 25, 2004 13:07 Antworten mit Zitat
|
|
|---|---|---|
|
oh!
Danke!! ich habe mh = mousehit(1) nicht in die Schleife gesetzt sonder ausserhalb! Danke für die Hilfe lg |
||
|
Just for Fun!
Jesus loves U! |
||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group