PPArkisto

Q Basic

Yleiset

Sivu 1 / 1

Viestit

Sivu 1 / 1
Rekisteröitynyt:
05.10.2001
Kirjoitettu: tiistai, 07. toukokuuta 2002 klo 16.12
Kun se edellinen Q Basic topic on jo mennyt todella vanhaksi, ja äsken löysin vanhan q basic ohjelmani, kertoisitteko mites niitä tekstiseikkailuita voisi tehdä, ja jos samalla ohjeet miten voin littää kuvan siihen myös.
Rekisteröitynyt:
12.02.2002
Kirjoitettu: tiistai, 07. toukokuuta 2002 klo 16.29
alkuun pääsee mm. tällä tavalla:

CLS
PRINT "Olet autiossa talossa. Mitä teet?"
PRINT "1 Lähden pois"
PRINT "2 Menen jääkaapille"
INPUT aashoul$
IF aashoul$ = "1" THEN END
IF aashoul$ = "2" THEN GOTO 10

10
PRINT "Söit itsesi niin täyteen, että kuolit."
SLEEP 3
END

Tässä sitten hieman selittelen noista käskyistä:

CLS - Tyhjentää koko ruudun.
PRINT - Aloita kirjoitus komento tällä ja tee teksti " merkkien väliin.
INPUT aashoul$ - Aashoulin tilalla voi olla jokin muu kirjain yhdistelmä.
IF aashoul$ = "2"THEN GOTO 10 - Kun asshoul$:ksi laitetaan 2 niin se menee kohtaan 10.
END - Tällä käskyllä lopetat ohjelman/pelin.
Rekisteröitynyt:
05.10.2001
Kirjoitettu: tiistai, 07. toukokuuta 2002 klo 16.49
Kiitos paljon Waari selvistä ohjeista. Kysyisin vielä että miten jonkun kuvan pystyn laittamaan siihen tekstiseikkailuuni.

ale

Rekisteröitynyt:
21.12.2001
Kirjoitettu: tiistai, 07. toukokuuta 2002 klo 17.11
Ne pitää kai tehdä viivoista sun muista.

ja kiitos waarille omastakin puolesta, koska waari opetti mullekin aikasemmin basicia.
Rekisteröitynyt:
10.02.2002
Kirjoitettu: tiistai, 07. toukokuuta 2002 klo 18.04
Darkki, linkitähän sit se ossu tänne, josta sen sun tekstiseikkailun saa.
hehz
Rekisteröitynyt:
10.10.2001
Kirjoitettu: tiistai, 07. toukokuuta 2002 klo 18.45
Vähän komentoja:
CLS = Tyhjentää ruudun.
PRINT "teksti" = Teksti tulee näkyviin.
LOCATE xx, xx = Locate..
OR = Esim. IF "k" or "K" then ..blabla
END = Nimensä mukaan, Loppu.
GOTO = Esim. GOTO 10, menee 10.
BEEP = Piippi.
SOUND xx, xx = Ääni. (Esim. SOUND 40, 10)
THEN = (Esim. IF ammu$="1" then goto 10 Kun painat 1 se menee 10, tajusithan?)
Ja tässä sinulle todella pieni peli:
10 CLS
PRINT "Onko Tarja Halonen suomen presidentti? K/E" (Tämä teksti tulee siis näkyviin)

INPUT kysymys$ (Input antaa ns. "nimet"wink

IF kysymys$="K" or "k" then goto 20
IF kysymys$="E" or "e" then goto 30 (Tässä käytetään nyt GOTO :a ja OR :ria.)
20
PRINT "Aivan oikein!"
END (Nyt peli loppuu.)

Print "Väärin, yritä uudelleen!" THEN SOUND 40, 10 (Sound, "tyrähdys" tulee tässä vaiheessa)
GOTO 10 (Nyt se menee alkuun, eli kymmeneen)

Ja tässä toinen hyvä esimerkki:
CLS
PRINT "Ikäsi?" ika$
PRINT "Nimesi?" nimi$
PRINT "Hauska tutustua "; nimi$;"
PRINT "Olet siis "; ika$" vuotta vanha."
END


[Plastiq muokkasi tätä viestiä 07.05.2002 klo 18:49]
Rekisteröitynyt:
23.12.2001
Kirjoitettu: tiistai, 07. toukokuuta 2002 klo 19.24
Itse olen käyttänyt tätä aina pohjana, kun olen tehnyt tekstiseikkailu pelin.

alku:

cls

print "Tervetuloa tekstiseikkailupeliin" 'jonkinsortin tervetuliais toivotus

print "Olet sängyssä! Mitä teet?"

print "A=jatkat unia, B=Menet syömään, C=tapat itsesi" 'tässä olisi tavallaan ne vaihtoehdot

input "valintasi: "; c$

if c$ = "A" then goto 1

if c$ = "B" then goto 2

if c$ = "C" then goto 3

goto alku 'jos käyttäjä laittaa jonkin muun, kuin A:n, B:n tai C:n isolla niin tämä menee takaisin ekalle riville missä on alku eli ohjelma alkaa alusta

1:

'tämä onkin oma valintasi

2:

'kuten tämä myös

3:

print "Tapoit itsesi, joten peli loppui osaltasi" 'kun kirjoitat valintasi jälkeen c niin joudut tähän kohtaan

sleep 'tauko ja lopuu, kun painat jotain näppäintä

end 'lopettaa ohjelman

Rekisteröitynyt:
31.05.2001
Kirjoitettu: tiistai, 07. toukokuuta 2002 klo 21.12
Olen käyttänyt, ja unohtanutkin myöhemmin lähes kaiken.
Joskus Plastiqia opetin hieman käyttämään QB:tä.
Chief Wiggum - "Let this be a lesson to you little punks, kids never learn!"
Rekisteröitynyt:
22.02.2002
Kirjoitettu: keskiviikko, 08. toukokuuta 2002 klo 15.22
On toi QBasic ihmeen helppoa, nuo peruskäskythän oppii muutamassa minuutissa.
Rekisteröitynyt:
08.05.2001
Kirjoitettu: keskiviikko, 08. toukokuuta 2002 klo 15.27
Eipä siis ihme, että ohjelmointikieli on nimeltäänkin "Beginner's All-Purpose Symbolic Instruction Code".
Rekisteröitynyt:
05.10.2001
Kirjoitettu: keskiviikko, 08. toukokuuta 2002 klo 15.35
Kiitos kaikille jotka neuvvoivat.
Eilen illalla sain kyhättyä jo tekstiseikkailua, mutta se ei tallentanut sitä, pitää alottaa alusta.
Rekisteröitynyt:
09.04.2002
Kirjoitettu: keskiviikko, 08. toukokuuta 2002 klo 15.57
Miten (vai saako ollenkaan) saa qbasicilla tehdyn tiedoston esim. tekstipelin muutettua semmoiseksi että sen suorittamiseen ei tarvi qbasiccia.
Muscles better and nerves more.
Rekisteröitynyt:
05.10.2001
Kirjoitettu: keskiviikko, 08. toukokuuta 2002 klo 16.23
Mulla ainakin on siinä q basicissani (first basic) niin sellanen optionssi kun "Compile".

ale

Rekisteröitynyt:
21.12.2001
Kirjoitettu: keskiviikko, 08. toukokuuta 2002 klo 17.15
dark, saatko tehtyä .exe tiedostoja?

Edit: Kirjoitusvirhe vain.


[ale muokkasi tätä viestiä 09.05.2002 klo 07:05]
face44

SOB

Rekisteröitynyt:
09.03.2002
Kirjoitettu: keskiviikko, 08. toukokuuta 2002 klo 21.40
Mistä tämä Qbasic löytyy???
Rekisteröitynyt:
22.02.2002
Kirjoitettu: keskiviikko, 08. toukokuuta 2002 klo 23.21
Lainaus:
08.05.2002 klo 21:40, SOB kirjoitti:
Mistä tämä Qbasic löytyy???



http://www.qbasic.com Sieltä löytyy jotain.
Rekisteröitynyt:
23.12.2001
Kirjoitettu: keskiviikko, 08. toukokuuta 2002 klo 23.27
Äh! Eihän tuolta qbasic.comista saa yksittäisenä ohjelmana vaan ne käskee kopioimaan dossin mukana vai oliko se noin? No ainakin osoitteesta http://www.ohjelmointiputka.net saa ohjelman ja apua siihen ohjelmointiin.
Sivu 1 / 1