Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Getmouse-Problem

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
WinterStorm



Anmeldungsdatum: 14.11.2005
Beiträge: 198
Wohnort: Linz

BeitragVerfasst am: 07.07.2006, 13:38    Titel: Getmouse-Problem Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 07.07.2006, 13:49    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Michael Frey



Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz

BeitragVerfasst am: 07.07.2006, 15:10    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
WinterStorm



Anmeldungsdatum: 14.11.2005
Beiträge: 198
Wohnort: Linz

BeitragVerfasst am: 07.07.2006, 15:33    Titel: Antworten mit Zitat

ah, ok danke für eure hilfe zwinkern

mfg
_________________
Me
lastfm...
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 07.07.2006, 15:36    Titel: Antworten mit Zitat

Außerdem sollte 'Goto Weiter' durch 'Exit Do' ersetzt werden..
(Label Weiter kann dann entfallen zwinkern)
GOTO fördert Spaghetti-Code und da bin nicht nur ich dagegen..
..nicht weil die Italiener gewonnen haben(wie auch immer) grinsen
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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
alfonsospringer



Anmeldungsdatum: 27.04.2006
Beiträge: 445

BeitragVerfasst am: 11.07.2006, 16:35    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden MSN Messenger
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
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.

 Impressum :: Datenschutz