Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Spongebob Schwamm
Anmeldungsdatum: 31.10.2004 Beiträge: 40
|
Verfasst am: 30.11.2004, 17:13 Titel: If-Befehl |
|
|
Hi!
Das Programm soll eingentlich ein "Spiel" darstellen.
Aber 1. Mann Gewinnt immer(liegt das daran das Gewonnen oben steht?)
2. Die Variable geldgehalt% soll bleiben wie sie bei Gewonnen oder Verloren angezeigt wird.
Könn ihr mir das einbauen?
Code: |
DO
CLS
SCREEN 12
RANDOMIZE TIMER
zahl% = INT(RND * 2)
geldgehalt% = 1000
SLEEP 1
PRINT "Dein Geld steht bei: ", geldgehalt%
INPUT "Wie viel willst du auf das gewinnen setzen?: ", geld%
IF zahl% = 1 THEN text$ = ", ": PRINT "Gewonnen!": PRINT "Dein Geld steht jetzt bei: ", geldgehalt% + geld%: SLEEP 3: GOTO 3
IF zahl% = 2 THEN text$ = ", ": PRINT "Verloren!": PRINT "Dein Geld steht jetzt bei: ", geldgehalt% - geld%: SLEEP 3: GOTO 3
3
LOOP UNTIL INKEY$ = CHR$(27)
|
Danke im voraus
Mfg
Spongebob Schwamm |
|
Nach oben |
|
|
helium
Anmeldungsdatum: 10.09.2004 Beiträge: 397 Wohnort: Leverkusen
|
Verfasst am: 30.11.2004, 18:51 Titel: |
|
|
RND ist eine Zahl kleiner 1. Eine Zahl kleiner eins mit zwei multipliziert ist eine Zahl kleiner 2. Wenn man die abrundet, kommt 0 oder 1 raus.
zu 2:
Du kennst doch bereits zuweisungen, also nutze Sie auch zum verändern der Zahl. Und versuche unnötige GOTOs zu vermeiden und wenn, dann lieber mit Marken, als mit Zeilennummern.
Code: |
IF zahl% = 1 THEN text$ = ", "
PRINT "Gewonnen!"
geldgehalt% = geldgehalt% + geld%
PRINT "Dein Geld steht jetzt bei: ", geldgehalt%
SLEEP 3
ELSE IF zahl% = 2 THEN
text$ = ", "
PRINT "Verloren!"
geldgehalt% = geldgehalt% - geld%
PRINT "Dein Geld steht jetzt bei: ", geldgehalt%
SLEEP 3
END IF
|
_________________ Bevor Sie aufhören sich körperlich zu betätigen sollten Sie ihren Doktor befragen. Körperliche Inaktivität ist abnormal und gefährlich für Ihre Gesundheit. |
|
Nach oben |
|
|
Spongebob Schwamm
Anmeldungsdatum: 31.10.2004 Beiträge: 40
|
Verfasst am: 02.12.2004, 16:20 Titel: Mist! |
|
|
Schade immer wieder nur gewonnen wenn ich
von
Code: | Else if zahl% = 2 Then
text$ ", "
|
weglasse und wenn Else da ist geht es nicht |
|
Nach oben |
|
|
Bernd
Anmeldungsdatum: 14.09.2004 Beiträge: 498 Wohnort: Kulmbach
|
Verfasst am: 02.12.2004, 16:41 Titel: |
|
|
ich würde mal folgenden randomize timer verwenden:
Code: | cls
do
max = 2 'soll höchstmögliche zahl sein
randomize timer
zahl = int(rnd*max +1)
print ;zahl
loop until inkeys$ <= "2"
|
Du musst gehldgehalt% vor der do schleife schon deklarieren, sonst wird bei jedem neustart der Schleife die variable wieder auf 1000...
Bernd _________________ Neue Homepage: http://www.glubb.rockt.de
UND
Der Wahnsinn hat seine eigene Homepage: http://pulmollwand.rulz.de |
|
Nach oben |
|
|
|