QBasic i njegove naredbe

Ma nije bitno, samo nacrtas neke linije. Ono o cemu je mbaksa govorio je da prije nego pomaknes lika (u ovom slucaju piksel) na neko mjesto na ekranu, moras provjeriti je li to mjesto slobodno. Ako je mjesto zauzeto (blokirano) onda ne pomices lika.

SCREEN 13

x = 160
y = 100
boja = 15
kraj = 0

LINE (100, 50)-(100, 150), 9
LINE (100, 150)-(220, 150), 9
LINE (220, 150)-(220, 50), 9
LINE (220, 50)-(100, 50), 9

LINE (110, 70)-(170, 130), 9
LINE (150, 70)-(210, 130), 9

DO
        a$ = INKEY$
        IF LEN(a$) = 2 THEN
                c$ = RIGHT$(a$, 1)
                IF c$ = CHR$(72) THEN
                        IF POINT(x, y - 1) = 0 THEN
                                PSET (x, y), 0
                                y = y - 1
                        END IF
                ELSEIF c$ = CHR$(80) THEN
                        IF POINT(x, y + 1) = 0 THEN
                                PSET (x, y), 0
                                y = y + 1
                        END IF
                ELSEIF c$ = CHR$(75) THEN
                        IF POINT(x - 1, y) = 0 THEN
                                PSET (x, y), 0
                                x = x - 1
                        END IF
                ELSEIF c$ = CHR$(77) THEN
                        IF POINT(x + 1, y) = 0 THEN
                                PSET (x, y), 0
                                x = x + 1
                        END IF
                ELSEIF c$ = CHR$(74) THEN
                        boja = boja - 1
                ELSEIF c$ = CHR$(78) THEN
                        boja = boja + 1
                END IF
        ELSEIF LEN(a$) = 1 THEN
                IF a$ = CHR$(27) THEN
                        kraj = 1
                ELSEIF a$ = CHR$(43) THEN
                        boja = boja + 1
                ELSEIF a$ = CHR$(45) THEN
                        boja = boja - 1
                END IF
        END IF
        PSET (x, y), boja
LOOP UNTIL kraj = 1

Evo daljnja razrada ovoga sto sam vec radio.

Ove "line" funkcije na pocetku iscrtavaju mapu (ajmo reci da je to nekakva primitivna mapa nekakve izmisljene igre). I njihov je oblik i polozaj posve nebitan (mozes ih i izmjeniti pa vidjeti radi li), glavno da postoje nekakvi objekti s kojima se piksel kojeg pomices moze sudarati.

Sto se dalje dogada kada korisnik pritisne neku od strijelica? Program prvo provjerava da li je mjesto na koje se treba prebaciti slobodno, tj. ako ima boju broj 0 (crna boja), ako ima, onda ga pomice. Ako je boja piksela bilo koja druga, program ignorira pritisak na tipku i ne mijenja polozaj lika.

Isto tako dodao sam par linija koda koje sprijecavaju da piksel kojeg pomices za sobom ostavlja trag. To sam napravio tako da piksel prije pomaka sam sebe oboja u crnu boju (boju pozadine), te se kasnije pri dnu petlje iscrta na novom mjestu u boji u kojoj bi trebao biti iscrtan.

Da bi napravio igricu potrebna mi je još jedna stvar:htio bi da ovaj  piksel kada dođe do određenog mjesta,da se pojavi npr ono bravo?????kako sad to napravit,jer ako to napravim to mi može bit igra prava igra i ja dalje od toga mogu nizati lvl-e??????

Ovo sto si ti napravio je odlicno,ali meni treba nesto jednostavnije.NPR:samo od onog primjera da mo se nakon deset sec od pritiska neke tipke ovaj piksel zacrni(kako ne bih znao kuda idem) i onda da moram doc do neke tocke u roku od 30 sec .samo to,a ja cu onda napravit drugacije prepreke i levele samo te to molim??

Oprostite al ja ne ocekujem kod nit sam ga uopce ocekivo,ja samo zelim neko objasnjenje.

ok

Funkcija TIMER ti vraca broj sekundi koje su prosle od ponoci.

CLS
DO
        LOCATE 1, 1
        PRINT TIMER
LOOP UNTIL INKEY$ = CHR$(27)

PRINT "Pricekaj 5 sekundi..."

vrijeme! = TIMER
DO
LOOP UNTIL TIMER - vrijeme >= 5

PRINT "5 sekundi je proslo"

evo pogledajte što sam izmikso pa recite kako vam se čini????

SCREEN 13
RANDOMIZE TIMER
DEF SEG = &HA000

x = 160
y = 100
boja = 15
bojakockice = 4
kraj = 0
pokupljen = 1
bodovi = 0
potezi = 1000
LOCATE 2, 2
PRINT "Potezi:", potezi

LINE (100, 50)-(100, 150), 9
LINE (100, 150)-(220, 150), 9
LINE (220, 150)-(220, 50), 9
LINE (220, 50)-(100, 50), 9
LOCATE 8, 1
PRINT "Bodovi:"; bodovi

DO

    a$ = INKEY$

    IF LEN(a$) = 2 THEN
        c$ = RIGHT$(a$, 1)
        IF c$ = CHR$(72) THEN
            IF PEEK(x + ((y - 1) * 320)) = 0 THEN
                POKE (x + (y * 320)), 0
                'PSET (x, y), 0
                y = y - 1
                potezi = potezi - 1
                LOCATE 2, 2
                PRINT "Potezi:", potezi
                IF potezi = 0 THEN
                    GOTO lolo
                END IF

            ELSEIF PEEK(x + ((y - 1) * 320)) = bojakockice THEN
                POKE (x + (y * 320)), 0
                'PSET (x, y), 0
                y = y - 1
                bodovi = bodovi + 50
                pokupljen = 1
                PRINT "Bravo tocno"
                CLS
                LOCATE 2, 2
                PRINT "Potezi:", potezi

                LINE (100, 50)-(100, 150), 9
                LINE (100, 150)-(220, 150), 9
                LINE (220, 150)-(220, 50), 9
                LINE (220, 50)-(100, 50), 9
                LOCATE 8, 1
                PRINT "Bodovi:"; bodovi

                a$ = INKEY$

                IF LEN(a$) = 2 THEN
                    c$ = RIGHT$(a$, 1)
                    IF c$ = CHR$(72) THEN
                        IF PEEK(x + ((y - 1) * 320)) = 0 THEN
                            POKE (x + (y * 320)), 0
                            'PSET (x, y), 0
                            y = y - 1
                            potezi = potezi - 1
                            LOCATE 2, 2
                            PRINT "Potezi:", potezi
                            IF potezi = 0 THEN
                                GOTO lolo
                            END IF

                        ELSEIF PEEK(x + ((y - 1) * 320)) = bojakockice THEN
                            POKE (x + (y * 320)), 0
                            'PSET (x, y), 0
                            y = y - 1
                            bodovi = bodovi + 50
                            pokupljen = 1
                            PRINT "Bravo tocno"
                            CLS
                            LOCATE 2, 2
                            PRINT "Potezi:", potezi

                            LINE (100, 50)-(100, 150), 9
                            LINE (100, 150)-(220, 150), 9
                            LINE (220, 150)-(220, 50), 9
                            LINE (220, 50)-(100, 50), 9
                            LOCATE 8, 1
                            PRINT "Bodovi:"; bodovi

                        END IF
                    ELSEIF c$ = CHR$(80) THEN
                        IF PEEK(x + ((y + 1) * 320)) = 0 THEN
                            POKE (x + (y * 320)), 0
                            'PSET (x, y), 0
                            y = y + 1
                            potezi = potezi - 1
                            LOCATE 2, 2
                            PRINT "Potezi:", potezi
                            IF potezi = 0 THEN
                                GOTO lolo
                            END IF

                        ELSEIF PEEK(x + ((y + 1) * 320)) = bojakockice THEN
                            POKE (x + (y * 320)), 0
                            'PSET (x, y), 0
                            y = y + 1
                            bodovi = bodovi + 50
                            pokupljen = 1
                            PRINT "Bravo tocno"
                            CLS
                            LOCATE 2, 2
                            PRINT "Potezi:", potezi

                            LINE (100, 50)-(100, 150), 9
                            LINE (100, 150)-(220, 150), 9
                            LINE (220, 150)-(220, 50), 9
                            LINE (220, 50)-(100, 50), 9
                            LOCATE 8, 1
                            PRINT "Bodovi:"; bodovi

                        END IF
                    ELSEIF c$ = CHR$(75) THEN
                        IF PEEK(x - 1 + (y * 320)) = 0 THEN
                            POKE (x + (y * 320)), 0
                            'PSET (x, y), 0
                            x = x - 1
                            potezi = potezi - 1
                            LOCATE 2, 2
                            PRINT "Potezi:", potezi
                            IF potezi = 0 THEN
                                GOTO lolo
                            END IF

                        ELSEIF PEEK(x - 1 + (y * 320)) = bojakockice THEN
                            POKE (x + (y * 320)), 0
                            'PSET (x, y), 0
                            x = x - 1
                            bodovi = bodovi + 50
                            pokupljen = 1
                            PRINT "Bravo tocno"
                            CLS
                            LOCATE 2, 2
                            PRINT "Potezi:", potezi

                            LINE (100, 50)-(100, 150), 9
                            LINE (100, 150)-(220, 150), 9
                            LINE (220, 150)-(220, 50), 9
                            LINE (220, 50)-(100, 50), 9
                            LOCATE 8, 1
                            PRINT "Bodovi:"; bodovi

                        END IF
                    ELSEIF c$ = CHR$(77) THEN
                        IF PEEK(x + 1 + (y * 320)) = 0 THEN
                            POKE (x + (y * 320)), 0
                            'PSET (x, y), 0
                            x = x + 1
                            potezi = potezi - 1
                            LOCATE 2, 2
                            PRINT "Potezi:", potezi
                            IF potezi = 0 THEN
                                GOTO lolo
                            END IF

                        ELSEIF PEEK(x + 1 + (y * 320)) = bojakockice THEN
                            POKE (x + (y * 320)), 0
                            'PSET (x, y), 0
                            x = x + 1
                            bodovi = bodovi + 50
                            pokupljen = 1
                            PRINT "Bravo tocno"
                            CLS
                            LOCATE 2, 2
                            PRINT "Potezi:", potezi

                            LINE (100, 50)-(100, 150), 9
                            LINE (100, 150)-(220, 150), 9
                            LINE (220, 150)-(220, 50), 9
                            LINE (220, 50)-(100, 50), 9
                            LOCATE 8, 1
                            PRINT "Bodovi:"; bodovi

                        END IF
                    END IF
                ELSEIF LEN(a$) = 1 THEN
                    IF a$ = CHR$(27) THEN
                        kraj = 1
                    ELSEIF a$ = CHR$(43) THEN
                        boja = boja + 1
                    ELSEIF a$ = CHR$(45) THEN
                        boja = boja - 1
                    END IF
                END IF
                IF TIMER - pocetnoVrijeme& > 3 THEN
                    IF pokupljen = 1 THEN
                        POKE (101 + INT(RND * 119) + ((51 + INT(RND * 99)) * 320)), bojakockice
                        pokupljen = 0
                    END IF
                END IF
                IF pokupljen = 1 THEN
                    LOCATE 8, 1
                    PRINT "Bodovi:"; bodovi
                END IF

                POKE (x + (y * 320)), boja
                'PSET (x, y), boja

            END IF
        ELSEIF c$ = CHR$(80) THEN
            IF PEEK(x + ((y + 1) * 320)) = 0 THEN
                POKE (x + (y * 320)), 0
                'PSET (x, y), 0
                y = y + 1
                potezi = potezi - 1
                LOCATE 2, 2
                PRINT "Potezi:", potezi
                IF potezi = 0 THEN
                    GOTO lolo
                END IF

            ELSEIF PEEK(x + ((y + 1) * 320)) = bojakockice THEN
                POKE (x + (y * 320)), 0
                'PSET (x, y), 0
                y = y + 1
                bodovi = bodovi + 50
                pokupljen = 1
                PRINT "Bravo tocno"
                CLS
                LOCATE 2, 2
                PRINT "Potezi:", potezi

                LINE (100, 50)-(100, 150), 9
                LINE (100, 150)-(220, 150), 9
                LINE (220, 150)-(220, 50), 9
                LINE (220, 50)-(100, 50), 9
                LOCATE 8, 1
                PRINT "Bodovi:"; bodovi

            END IF
        ELSEIF c$ = CHR$(75) THEN
            IF PEEK(x - 1 + (y * 320)) = 0 THEN
                POKE (x + (y * 320)), 0
                'PSET (x, y), 0
                x = x - 1
                potezi = potezi - 1
                LOCATE 2, 2
                PRINT "Potezi:", potezi
                IF potezi = 0 THEN
                    GOTO lolo
                END IF

            ELSEIF PEEK(x - 1 + (y * 320)) = bojakockice THEN
                POKE (x + (y * 320)), 0
                'PSET (x, y), 0
                x = x - 1
                bodovi = bodovi + 50
                pokupljen = 1
                PRINT "Bravo tocno"
                CLS
                LOCATE 2, 2
                PRINT "Potezi:", potezi

                LINE (100, 50)-(100, 150), 9
                LINE (100, 150)-(220, 150), 9
                LINE (220, 150)-(220, 50), 9
                LINE (220, 50)-(100, 50), 9
                LOCATE 8, 1
                PRINT "Bodovi:"; bodovi

            END IF
        ELSEIF c$ = CHR$(77) THEN
            IF PEEK(x + 1 + (y * 320)) = 0 THEN
                POKE (x + (y * 320)), 0
                'PSET (x, y), 0
                x = x + 1
                potezi = potezi - 1
                LOCATE 2, 2
                PRINT "Potezi:", potezi
                IF potezi = 0 THEN
                    GOTO lolo
                END IF

            ELSEIF PEEK(x + 1 + (y * 320)) = bojakockice THEN
                POKE (x + (y * 320)), 0
                'PSET (x, y), 0
                x = x + 1
                bodovi = bodovi + 50
                pokupljen = 1
                PRINT "Bravo tocno"
                CLS
                LOCATE 2, 2
                PRINT "Potezi:", potezi

                LINE (100, 50)-(100, 150), 9
                LINE (100, 150)-(220, 150), 9
                LINE (220, 150)-(220, 50), 9
                LINE (220, 50)-(100, 50), 9
                LOCATE 8, 1
                PRINT "Bodovi:"; bodovi

            END IF
        END IF
    ELSEIF LEN(a$) = 1 THEN
        IF a$ = CHR$(27) THEN
            kraj = 1
        ELSEIF a$ = CHR$(43) THEN
            boja = boja + 1
        ELSEIF a$ = CHR$(45) THEN
            boja = boja - 1
        END IF
    END IF
    IF TIMER - pocetnoVrijeme& > 3 THEN
        IF pokupljen = 1 THEN
            POKE (101 + INT(RND * 119) + ((51 + INT(RND * 99)) * 320)), bojakockice
            pokupljen = 0
        END IF
    END IF
    IF pokupljen = 1 THEN
        LOCATE 8, 1
        PRINT "Bodovi:"; bodovi
    END IF

    POKE (x + (y * 320)), boja
    'PSET (x, y), boja
LOOP UNTIL kraj = 1
lolo:
CLS

PRINT "Igra je gotova."

PRINT "Tvoj iznos bodova je: "; bodovi

Trebat ce ti slijedece funkcije:

open

close

input

len

left$

right$

mid$

instr

Malo ih prouci, i nemoj cekati da ti nesto ovako jednostavno padne s neba. Qbasic ima odlican help koji ti je prakticki jedino sto ti treba za pisanje programa, a sadrzi i odlicne primjere.

btw. sto ti znaci "3 puta po 3 rijeci"?

Datoteka ima 3 rijeci, jedna rijec po liniji, pa 3 puta otvaras, citas i zatvaras datoteku.

Datoteka zapravo ukupno ima 9 rijeci, jedna rijec po liniji.

Datoteka ima 3 rijeci po liniji, te tri takve linije, cineci ukupno 9 rijeci.

pretpostavimo da je ovo zadnje u pitanju i imas datoteku sa slijedecim sadrzajem:

rijec1 rijec2 rijec3
rijec4 rijec5 rijec6
rijec7 rijec8 rijec9

prvo otvoris tu datoteku koristeci "open", zatim postavis petlju sa tri iteracije (citamo tri linije), u petlji koristeci "input" citas liniju teksta, nakon toga funkcijama "instr", "left$", "right$" i eventualno "mid$", pronalazis razmake u liniji te rezes string na djelove, ispitas velicinu svakog dijela i ispises najvecu rijec na monitor, postupak se ponavlja za preostale dvije linije nakon cega zatvoris datoteku koristeci "close"

pocni, pa ako zapne ja cu se ubaciti...

Znači, napišeš si još jednu funkciju ili sub - štogod, koja će ti uzimati taj tvoj jedan redak u datoteci (string * 50) kao argument i dalje radiš s njim.

A što radiš? Pa pomoću funkcij instr pronađeš prvi razmak - recimo da je to pozicija razmak1. Koja ti je onda prva riječ? Left$(rijec$, razmak1) ili tako nekako, zar ne? Znači, imaš sad prvu od tri riječi.

Sad se moraš riješiti te prve riječi, u osnovi je obrisati iz stringa. Kako ćeš to napraviti? Pa uzet ćeš string od pozicije razmak1+1 (nisam za ovo siguran - nemam pojma kako idu indeksi u QBASIC-u) pa sve do kraja riječi, zar ne? Znači, nesto tipa $riject=right$(rijec$, len(rijec$) - razmak1). Time si ogulio prvu rijec iz stringa.

Kako ćeš do druge riječi? Potpuno ista stvar - tražiš razmak, left$ do razmaka, i na kraju brišeš tu drugu riječ (ona je sad u string prva riječ). I kad obrišeš tu drugu riječ (uključujući razmak), već imaš treću riječ - to je ono što ti je ostalo od stringa.

------------------------

Nije mi inače jasno zašto si išao komplicirati program s definiranjem Type rijeci i što će ti random pristup datoteci.  Iovako ionako spremaš u datoteku redak po redak i čitaš iz nje redak po redak, zar ne? Bez skakanja tamo-vamo? Znači, umjesto toga što si radio, jednostavno si mogao triput obični string ispisati u datoteku i isto tako ga pročitati iz nje.

------------------------

Inače, zašto imaš prored? To je editor na forumu zeznuo ili to sam radiš? Ovo je nečitko - ne bi trebao imati prored, već bi logički trebao odjeljivati cjeline. Znači, vertikalni razmak prije i poslije for petlje i sl. Također, uvlači ono što ti je na hijerarhijski nižoj razini - recimo ono što je unutar for petlje.

Još mi jedna stvar nikako ne ide u glavu. Vi QBasicaši ste toliko opsjednuti GOTO naredbom da ne možete, a da ne napišete program bez nje, zar ne? IZBACI JE! Kojeg ti smisla da naredba ima u ovom programu? NE KORISTI NAREDBU GOTO OSIM AKO TO NIJE PRIJEKO POTREBNO! S korištenjem naredbe GOTO učiš se programirati na POGREŠAN NAČIN.

hahahahaha busted :D

Stvarno nisam ni skuzio sto sam napravio, pogotovo ovo sa zagradama, C mi se totalno uvukao pod kozu, dobro da nisam negdje stavio ";" na kraj...

Naravno da ne zamjeram, sve sto si rekao je tocno.

btw. onaj input sto se ponavlja, to sam namjerno tako napravio, htio sam bas postici isto ono sto je on napravio sa goto-om, ali bez koristenja istog...

A da pogledaš prve postove?
QBasic je najbolje učiti iz njegovog Help-a, koliko znam mnogi su ga tako naučili.
Ako si početnik u programiranju ne zamaraj se previše krugovima, nego počni učiti logiku, pogledaj teme po ovom podforumu.

Au tek sad vidim da je @zovkec neaktivan, ali nema veze.

Engleski karakteri, na HR je Shift+ 2, a na EN Shift + Ć, tako ja mislim. A to možeš rijšiti skriptama, pogledaj iznad u temi ili čekaj @rustveawera.

Ovako, ljudi trebam pomoć oko programiranja u Qbasicu..idem u drugi raz Računalnog tehničara u strojarstvu..i znači imam programski zadatak iz Računalstva a nemam blage veze a također moj profesor je nob koi nista nezna objasniti...da ne odugovlačim zadatak glasi ovako:

Prema priloženom primjeru programu u QBasic-u za kvadratnu jednadžbu napiši program za sljedeći primjer:

      4X^2 + X/2+ 6=0 

ovo X^2 je x na kvadrat...

evo ljudi ako netko zna, bio bih mu zahvalan.. :)