Keskustelu: Ohjelmointikysymykset: Pisteiden laskenta (QB)

AeH [24.12.2007 18:28:12]

Eli miten saisin tehtyä että peli ei lopukkaan tähän vaan jatkaa niin kauan kunnes painetaan esc nappulaa? Ja siinä samassa laskee pistemäärän vasempaa alakulmaan? Saan toteutettua kyllä tuon että peli jatkaa, mutta en saa toimimaa lopetusta.

CLS
RANDOMIZE TIMER
PRINT "Noppapeli!"
SLEEP
CLS
noppa1 = INT(RND * 6 + 1)
noppa2 = INT(RND * 6 + 1)
noppa3 = INT(RND * 6 + 1)
noppa4 = INT(RND * 6 + 1)
noppa = noppa1 + noppa2
noppis = noppa3 + noppa4

PRINT "Sinä sait heitostasi: "; noppa
PRINT Vastustajasi sai heitostaan: "; noppis
SLEEP
CLS

IF noppa > noppis THEN PRINT "Sinä voitit!"
IF noppa < noppis THEN PRINT "Vastustajasi voitti!"
IF noppa = noppis THEN PRINT "Tasapeli!"

Kysyisin vielä sitä että miksi ntvdm.exe vie xp:ssä noin 50% prosessorista? Tuo ntvdm.exe käynnistää 16 bittisen ohjelman eli quickbasic.

Grey [24.12.2007 18:38:13]

DO
W$ = INKEY$
LOOP UNTIL W$ = CHR$(27)

-Grey-

Antti Laaksonen [25.12.2007 23:30:29]

Tässä on koodi, josta saat toivottavasti uusia ideoita:

CLS
RANDOMIZE TIMER
LOCATE 1: PRINT "NOPPAPELI"
uusi:
LOCATE 3: PRINT SPACE$(60)
LOCATE 4: PRINT SPACE$(60)
LOCATE 6: PRINT SPACE$(60)
noppa1 = INT(RND * 6 + 1)
noppa2 = INT(RND * 6 + 1)
noppa3 = INT(RND * 6 + 1)
noppa4 = INT(RND * 6 + 1)
noppa = noppa1 + noppa2
noppis = noppa3 + noppa4
LOCATE 3: PRINT "Sinä sait heitostasi: "; noppa
LOCATE 4: PRINT "Vastustajasi sai heitostaan: "; noppis
WHILE INKEY$ = "": WEND
IF noppa > noppis THEN
   LOCATE 6: PRINT "Sinä voitit!"
   pisteet = pisteet + 1
ELSEIF noppa < noppis THEN
   LOCATE 6: PRINT "Vastustajasi voitti!"
ELSE
   LOCATE 6: PRINT "Tasapeli!"
END IF
LOCATE 23: PRINT "Pisteet: "; pisteet
DO
   a$ = INKEY$
   IF a$ = CHR$(27) THEN END
   IF a$ <> "" THEN GOTO uusi
LOOP

Selityksiä:

Komennolla LOCATE voi ilmoittaa, mihin kohtaan ruudulla tekstiä tulostetaan. Funktio SPACE$ palauttaa merkkijonon, jossa on tietty määrä välilyöntejä.

Komennon SLEEP sijaan kannattaa usein käyttää silmukkaa ja INKEY$-funktiota. Näin voi myös tehdä koodin lopussa olevan odotuksen, jossa ESC poistuu ohjelmasta ja muut näppäimet jatkavat.

qwerty [07.01.2008 09:07:30]

Oon tehny kans samanlaisen noppa ohjelman, aina ku voittaa saa lisää rahaa ja se on kaksinpeli. Sit on sellanen VENÄLÄINEN RULETTI jossa saa kans rahaa kun voittaa ja se on yksinpeli. Rahaa tulee niin kauan kun voittaa eli ei kuole, vuoron väliin jättämisestä lähtee rahaa ja sillee:)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen