Keskustelu: Koodit: QB: Pelivalikon alku

Tämä on pieni koodi, jolla saadaan aikaan pelivalikko Screen 0. Se toimii kyllä myös muissakin Screeneissa pienten korjauksien jälkeen. Koodi on kylläkin melko alkeellista, mutta sen pitäisi olla helppo ymmärtää. Jos ei ole, minulta ette tule saamaan mitään selityksiä. Ja enkä myöskään ota tästä minkäänlaista vastuuta tai muutakaan. Jos haluatte parantaa tätä, niin parantakaa. Tämä on vain esimerkki millä metodilla voi saada peli valikon aikaan. Että silleen...

-Grey-

CLS

A = 9
B = 0
Choose = 1

DO
W$ = INKEY$

IF W$ = CHR$(0) + "H" THEN Choose = Choose - 1: Set = 1
IF W$ = CHR$(0) + "P" THEN Choose = Choose + 1: Set = 1

IF Choose <= 0 THEN Choose = 2
IF Set = 1 AND Choose = 1 THEN A = 9: B = 0: Set = 0: SOUND 200, 1
IF Set = 1 AND Choose = 2 THEN A = 0: B = 9: Set = 0: SOUND 200, 1
IF Choose >= 3 THEN Choose = 1

IF W$ = CHR$(13) AND Choose = 1 THEN BEEP
IF W$ = CHR$(13) AND Choose = 2 THEN COLOR 7, 0: CLS : PRINT "Thanx!": END

COLOR A, 1
LOCATE 10, 35: PRINT "!BEEP!"
COLOR B, 1
LOCATE 12, 35: PRINT "LOPETA"

LOOP

No toihan on mainio pohja tehdä esim. graafisia vempeleitä päälle :)

Niinhän se on ja siksipä päätin sen laittaa tänne. Ja myös siksi että kun vinkkejä on niin haukuttu, on tuossa nyt kerrankin edes vähänkään hyödyllinen vinkki. Toimii muuten muissakin kielissä, ja systeemeissä, sovitettuna.

-Grey-

"Edes vähänkään hyödyllinen vinkki"? Ei pahalla, mutta tuollaisenhan nyt tekee aivovammainenkin apina(tm) korkeintaan kuukauden opiskelujen jälkeen.

tämä aivovammainen apina (Mie, Emppu) on opiskellut kuukauden, jos toisenkin eikä osaa ehdä tuollaista. HtH, kaikkia ei ole ohjelmointi pelastanut elämältä. ;-)

Hyödyllinen jos ei itse osaa sitä tehdä.

Ja huomautan keskustelussa olevasta aiheesta Myös koodivinkkien tasoa ylös.

Maalaisjärjellä saa tällaiset helposti aikaan..
toisaalta.. kyllähän sitä muistelee itse kun joskus vuosia sitten tuskaili just tuollaisten kanssa :) Ei oikein äly vielä silloin pelannu :x

Tässä onkin niille tuskailijoille suuri apu. Jooh, se on aika inhoa kun on simppeli homma, mutta ei saakaan mitään aikaan.

-Grey-

Mutta jos ei osaa edes tuollaista itse tehdä, niin mitä hyötyä tuosta on kun kuitenkaan ei osaa tuosta jatkaa mitään?

Mun mammanikin tekisi tuollaisen vaikka onkin kuollu.Ei pahalla, mutta siitä voisi tehdä hienommankin.

Paskaa

Turpa kii Anon!

mut jos ei osaaa tehä tota, niin eikai sit itte peliäkään :D

tein ite paremman viidentenä päivänä kun opettelin qb käyttöö

Olen näköjään laittanut tälläisenkin vikin tänne aikoinaan. Noh, lisäänpä vielä yhden tärkeän kommentin siitä. En ole selittänyt koodia, sillä osaava ymmärtää kyllä tuon. Ja jos ei ymmärrä, ei kannata kokeilla minkäänlaista pelien tekoa ollenkaan !LOL! Kuitenkin, koodia on voi muokata ja se on vähän tarkoituskin!. Nämä on vain vinkkejä, ei ohjeita ja niillä on eroa.

Jos joku haluaa välttämättä selityksen, se on näin simppeli. Set - muuttuja kertoo että nuolta on siirretty ja antaa ohjelman tehdä jotakin. Choose - muuttuja on valinnan numero ja niitä voi lisätä. Kunhan muuttaa pienimmän ja suurimman ehdon arvoja. Eli jos valintoja on esim. 4, viisi tai yli palauttaa arvon 1. Jos nolla tai alle, palautetaan 4. CHR$(13) määrää toiminnan.

En kylläkään luvannut antaa selityksiä, mutta annan nyt kuitenkin sitten. Jos keksitte paremman, TEHKÄÄ SE helvetti soikoon, älkääkä valitelko sitä täällä. Jos ette osaa tehdä parempaa, menkää vaikka ulos kävelyttämään koiraanne, tai muuta. Ei ole minun murheeni. Vinkit on osaaville, avut osaamattomille, ja minä kuulun kumpaankin ryhmään.

-Grey-