 |
Das deutsche QBasic- und FreeBASIC-Forum Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
WinterStorm

Anmeldungsdatum: 14.11.2005 Beiträge: 198 Wohnort: Linz
|
Verfasst am: 07.07.2006, 13:38 Titel: Getmouse-Problem |
|
|
moin,
also ich habe ein kleines problem, und zwar folgendes:
ich habe einen button mit line gezeichnet, wenn ich ihn anklicke soll
er rot werden, wenn ich nochmal klicke sollte dann "Hallo World" dastehen...
hier mal der code:
Code: |
cls
screen 20,32,,1
line (100,100)-(150,150),&h42D428,bf
do
getmouse (x,y,,tast)
if x > 100 and x < 150 and y > 100 and y < 150 and tast = 1 then goto weiter
loop
weiter:
line (100,100)-(150,150),&hB92222,bf
do
getmouse (x,y,,tast)
if x > 100 and x < 150 and y > 100 and y < 150 and tast = 1 then locate 2,2: color &h1D9F7F: print "Hallo World"
loop until inkey$ = chr$(27)
|
das problem ist, wenn ich einmal klicke wird der button zwar rot, aber es steht auch gleich Hallo World da, anscheinend glaubt FB man klickt 2mal.
ich hoffe es kann mir jemand helfen.
ps: ich weiß mit goto ist es schlecht zu arbeiten, allerdings will ich es indem fall so, da es ohne goto ja funzt, aber ich will es verwenden...
danke schon mal im voraus.
mfg
Cronos WinterStorm _________________ Me
lastfm...
 |
|
Nach oben |
|
 |
ytwinky

Anmeldungsdatum: 28.05.2005 Beiträge: 2624 Wohnort: Machteburch
|
Verfasst am: 07.07.2006, 13:49 Titel: |
|
|
Für erste Versuche:
http://forum.qbasic.at/viewtopic.php?t=2812
Gruß
ytwinky _________________
v1ctor hat Folgendes geschrieben: | Yeah, i like INPUT$(n) as much as PRINT USING.. | ..also ungefähr so, wie ich GOTO.. |
|
Nach oben |
|
 |
Michael Frey

Anmeldungsdatum: 18.12.2004 Beiträge: 2577 Wohnort: Schweiz
|
Verfasst am: 07.07.2006, 15:10 Titel: |
|
|
2 Fehler:
Code: | dim tast
dim tastalt
dim x
dim y
cls
screen 20,32,,1
line (100,100)-(150,150),&h42D428,bf
do
tastalt=tast
getmouse (x,y,,tast)
if x > 100 and x < 150 and y > 100 and y < 150 and tastalt=0 and tast = 1 then goto weiter
loop
weiter:
line (100,100)-(150,150),&hB92222,bf
do
tastalt=tast
getmouse (x,y,,tast)
if x > 100 and x < 150 and y > 100 and y < 150 and tastalt=0 and tast = 1 then locate 2,2: color &h1D9F7F: print "Hallo World"
loop until inkey$ = chr$(27) |
1: Ein Mausclick ist durch den übergang "nicht gedrückt" (0) nach "gedrückt" (1) definiert und nicht durch Maus gedrück halten.
2: Seit FB 0.16 sollte man Variabeln Deklarieren, entferne die Deklaration mal und schau zu was passiert. _________________ http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
Nach oben |
|
 |
WinterStorm

Anmeldungsdatum: 14.11.2005 Beiträge: 198 Wohnort: Linz
|
Verfasst am: 07.07.2006, 15:33 Titel: |
|
|
ah, ok danke für eure hilfe
mfg _________________ Me
lastfm...
 |
|
Nach oben |
|
 |
ytwinky

Anmeldungsdatum: 28.05.2005 Beiträge: 2624 Wohnort: Machteburch
|
Verfasst am: 07.07.2006, 15:36 Titel: |
|
|
Außerdem sollte 'Goto Weiter' durch 'Exit Do' ersetzt werden..
(Label Weiter kann dann entfallen )
GOTO fördert Spaghetti-Code und da bin nicht nur ich dagegen..
..nicht weil die Italiener gewonnen haben(wie auch immer)
Gruß
ytwinky _________________
v1ctor hat Folgendes geschrieben: | Yeah, i like INPUT$(n) as much as PRINT USING.. | ..also ungefähr so, wie ich GOTO.. |
|
Nach oben |
|
 |
alfonsospringer
Anmeldungsdatum: 27.04.2006 Beiträge: 445
|
Verfasst am: 11.07.2006, 16:35 Titel: |
|
|
oder so:
Code: |
dim tast
dim tastalt
dim x
dim y
cls
screen 20,32,,1
line (100,100)-(150,150),&h42D428,bf
do
getmouse (x,y,,tast)
if x > 100 and x < 150 and y > 100 and y < 150 and tast=1 then: exit do
loop
line (100,100)-(150,150),&hB92222,bf
do
getmouse (x,y,,tast)
sleep 5
loop until tast=0
do
getmouse (x,y,,tast)
if x > 100 and x < 150 and y > 100 and y < 150 and tast = 1 then: exit do
loop
locate 2,2: color &h1D9F7F: print "Hallo World"
do: loop until inkey$ = chr$(27)
|
_________________ Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
Nach oben |
|
 |
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|