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:

FRAGE

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



Anmeldungsdatum: 16.05.2005
Beiträge: 2

BeitragVerfasst am: 16.05.2005, 23:04    Titel: FRAGE Antworten mit Zitat

Hallo erst mal.
Ich habe erst 5 Spiele programmiert von denen 2 mehr als arm waren weinen happy.
Nun will ich mich an ein größeres Projekt heranwagen cool . Doch da bin ich auf ein Problem gestossen:
Gibt es einen Befehl, der, wenn jemand bei einer INPUT aufforderung zweimal das gleiche aussucht, noch ein PRINT dranhängt?
Ich stell mir das so vor:
Code:
WAHL:
INPUT "Wohin willst du gehn? NORDEN/SUEDEN?", answer$
IF answer$ = "NORDEN" GOTO N:
IF answer$ = "SUEDEN" GOTO S:
S:
? "BLABLABLA"
SLEEP 3
GOTO WAHL:
N:
? "LABER"
SLEEP3
GOTO WAHL

UND JETZT BRÄUCHTE ICH EINEN BEFEHL DER IN KRAFT TRITT WENN JEMAND ZWEIMAL NORDEN EINGIBT; DASS ER NUR BEIM ZWEITEN MAL WEITERGELEITET WIRD ZU EINEM PRINT WIE: "Hatten wir das nich schon mal?"
Ich könnte echt hilfe gebrauchen^^
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Mecki
Igel


Anmeldungsdatum: 10.09.2004
Beiträge: 985
Wohnort: Niederbayern

BeitragVerfasst am: 16.05.2005, 23:08    Titel: Antworten mit Zitat

Vorweg: Bitte in Zukunft auch den Kleinbuchstaben ihren Anteil am Kuchen der Fragen zukommen lassen zwinkern
Vorvorweg: Goto wird als nicht sehr "gehoben" betrachtet

und zu deiner Frage:

einfach schreiben

IF answer$ = "NORDEN" Then NordenGetippt=NordenGetippt+1: GOTO N

und bei Sprungmarke "N" steht dann

IF NorgenGetippt > 1 then ?"Bhoa, hier warst du doch schon"NordenGetippt"mal. Ist das nicht langweilig?!"


Grüßle und noch viel Erfolg,
Mecki
_________________
» Yodl.de: So sucht man gestern. verwundert
» Geld verdienen im Netz + ICQ.
» Firefox!
» 100€ zu gewinnen
» FreeBASIC.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen AIM-Name Yahoo Messenger MSN Messenger
MisterD



Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt

BeitragVerfasst am: 16.05.2005, 23:09    Titel: Antworten mit Zitat

Erstens: Code bitte in [code]-Tags..
Zweitens: SCHREI NICHT SO!
Drittens: Mach doch bei dem ersten N: einfach noch so ne abfrage mit GOTO N2 oder so, das is die einfachste und beschissenste Lösung, GOTO ist die Hölle zwinkern -> QB-MonsterFAQ
durchgeknallt

Editiert durch Moderator: Schließe mich dieser Aufforderung an. Bitte die Hinweise in Zukunft beachten! (Sebastian)
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Mythology



Anmeldungsdatum: 16.05.2005
Beiträge: 2

BeitragVerfasst am: 16.05.2005, 23:10    Titel: Antworten mit Zitat

DANKE!!!
Öh, ich meine danke
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Dorftrottel
gesperrt


Anmeldungsdatum: 23.04.2005
Beiträge: 97
Wohnort: Welt

BeitragVerfasst am: 17.05.2005, 07:53    Titel: Antworten mit Zitat

Ich hab da noch ne kleine Frage zu deinem Programm.
Wenn du
Code:

...
GOTO S:
...
GOTO N:

S:
PRINT "sdhgfsdhfg"
...

N:
Print"djfhgjdfhgdfjhg"


schreibst geht da nich das ganze Programm durcheinander?
Weil bi mir is es so, wenn ich ne GOTO Schleife
mache dann muss ich am Ende end schreiben also
Code:

...
GOTO S:
...
GOTO N:
end

S:
PRINT "sdhgfsdhfg"
...
end

N:
Print"djfhgjdfhgdfjhg"
...
end

denn sonst geht es, egal was ich auswähl, zu S: und dann zu N:

Ach und nochwas was bei mir auch angemerkt wurde
Als Theme Name nich FRAGE sondern Hilfe bei GOTO
oder so. Da weiß man mehr was Sache is. zwinkern
_________________
Euer Dorftrottel!
Unser Name ist unser Auftrag! lächeln
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Michael712
aka anfänger, programmierer


Anmeldungsdatum: 26.03.2005
Beiträge: 1593

BeitragVerfasst am: 17.05.2005, 16:18    Titel: Antworten mit Zitat

Ich würde das so machen:
Code:

DO
   INPUT "Wohin willst du gehen?? (n)orden/(s)ueden?? "auswahl$
   SELECT CASE auswahl$
      CASE IS = "n"
           PRINT "BLABLABLA"
           SLEEP 3
      CASE IS = "s"
         PRINT "LABER"
         SLEEP 3
       CASE IS = auswahlalt$
           PRINT "Hatten wir das nicht schonmal???"
      CASE ELSE
         PRINT "Boah ey. Du sollt "+CHR$(34) +"n"+CHR$(34)+" oder " +CHR$(34) +"s"+CHR$(34)+" drücken."
   END SELECT
    auswahlalt$=auswahl$

LOOP


So in der Art würde ich das machen. CHR$(34) ist Das " Zeichen, anders geht es glaub ich nicht.
_________________
Code:
#include "signatur.bi"
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic. 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