Programiranje u Qbasicu

poruka: 24
|
čitano: 4.883
|
moderatori: XXX-Man, vincimus
1
+/- sve poruke
ravni prikaz
starije poruke gore
11 godina
neaktivan
offline
Programiranje u Qbasicu

molim nekoga ko zna programirati u basic-u da mi pomogne!

potreban mi je program za rad semafora.Nešto sam pokušavam ali ne ide

hvala

husic
 
0 0 hvala 0
13 godina
neaktivan
offline
Programiranje u Qbasicu

Ja ti samo mogu reci da si promasio podforum za svjetlosne godine {#}

 

Mislim da nije problem jer si nov, ali ubuduce malo prelistaj forum da vidis gdje mozes postaviti pitanje {#}

 

Svoj upit postavi ovdje: http://www.bug.hr/forum/board/programiranje/48.aspx?sort=act

 
0 0 hvala 0
17 godina
neaktivan
offline
Re: Programiranje u Qbasicu
prašak kaže...

molim nekoga ko zna programirati u basic-u da mi pomogne!

potreban mi je program za rad semafora.Nešto sam pokušavam ali ne ide

hvala

Što točno trebaš? Grafički ga prikazati kako radi, uz pauze paljenja/gašenja svjetala? Ili trebaš cijelo raskrižije? Dobro bi došlo malo detalja.

0100001001101111011010100110000101101110
11 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Boky u pravu si.Nov sam,pa pokušavam da se nekako snađem.Nećeš mi zamjeriti?

Volio bih ako je moguće i jednu i drugu varijantu rada semafora.

 

husic
11 godina
neaktivan
offline
Re: Programiranje u Qbasicu
prašak kaže...

Boky u pravu si.Nov sam,pa pokušavam da se nekako snađem.Nećeš mi zamjeriti?

Volio bih ako je moguće i jednu i drugu varijantu rada semafora.Znači grafički prikaz sa paljenjem i gašenjem u određenim vremenskim periodima za pojedinu vrstu svjetla.

To mi je prioritetno,a ukoliko možeš da da uradiš i za cijelu raskrsnicu bilo bi super.

 

 

 

 

husic
16 godina
offline
Programiranje u Qbasicu

A za što ti treba?

 
0 0 hvala 0
17 godina
neaktivan
offline
Programiranje u Qbasicu

Ovako bi to bilo odprilike, s tim da sam ja to pisao u FreeBASIC-u koji ima jako sličnu sintaksu, tako da mislim da bi trebalo raditi i u QBASIC-u.

Objašenja su napisana u komentarima: http://pastebin.com/K6CXTPT2

 

 

0100001001101111011010100110000101101110
Moj PC  
1 0 hvala 0
11 godina
neaktivan
offline
Programiranje u Qbasicu

Da li mi neko može pomoci  trebam da programiram semafor u Qbasicu  

 
0 0 hvala 0
11 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Pokušao sam ja al  ne radi u Qbasicu 

 

17 godina
neaktivan
offline
Programiranje u Qbasicu

Gdje ti baca grešku?

0100001001101111011010100110000101101110
Moj PC  
0 0 hvala 0
11 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Sve do selec case je uredu mislim ono iscrtavanje kutije i krugova to znam i ja ali ne znam kako da napravim da mijenja boje 

11 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Npr,
Circle (100, 100), 50, 8,,,, F ovo ,,,,F ne prihvata na Qbasicu 

11 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Neide.Unio sam kod i nakon izvršavanja dobijem čist ekran.Takođe,program sam sačuvao ali kad ga ponovo otvorim dobijem prazan editor.

 

husic
16 godina
online
Re: Programiranje u Qbasicu
Ramo98 kaže...

Npr,
Circle (100, 100), 50, 8,,,, F ovo ,,,,F ne prihvata na Qbasicu 

 u Qbasicu imaš help, postavi kursor na riječ (naredbu) i stisni F1, index, sintaxa, primjer korištenja..

 

prašak kaže...

Neide.Unio sam kod i nakon izvršavanja dobijem čist ekran.Takođe,program sam sačuvao ali kad ga ponovo otvorim dobijem prazan editor.

 

 -ponovi. Nisi snimio ili nisi učitao snimljen .bas

 

-u basicu moraš odabrati neki od grafičkih modova, npr 7, 10..

-ako nema opcije F ili B (fill ili block za ispunjavanje objakta bojom) evo jedne mogućnosti, prilagodi potrebama.

 

CLS
SCREEN 12
CLS


CONST PI = 3.141593

REM omjer stranica 4:3 ili 16:10 aspect.ratio

REM Screen 12 = 640x480px
REM 4 * (ypixels/xpixels)/3
REM pix = 4 * (480 / 640) / 3
pix = 16 * (480 / 640) / 10


FOR x = 1 TO 10
CIRCLE (320, 240), x, 2, , , pix
NEXT x


DO: LOOP WHILE INKEY$ = ""

 

ovisno o rezoluciji, prilagodi koordinate (primjer je na sredini VGA), iscrtavanje u ostalim bojama i sl.

C64/TurboModul-OpenSourceProject.org.cn.部分作品为网上收集整理,供开源爱好者学习使用
Poruka je uređivana zadnji put sri 29.1.2014 19:31 (ihush).
11 godina
neaktivan
offline
Programiranje u Qbasicu

Da li mi može neko napisati program u kojem je u naslovu svako slovo različite boje?

 
0 0 hvala 0
15 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Ispišeš slovo, promijeniš boju, ispišeš slovo, promijeniš boju, itd...

 

U čemu je problem?

To understand what recursion is, you must first understand recursion.
11 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Možeš li mi napisat taj program? Pošto tek sam počeo da radim sa ovim...

15 godina
neaktivan
offline
Re: Programiranje u Qbasicu

SCREEN 13

DIM text AS STRING

RANDOMIZE TIMER
text = "ovo je neki tekst"

FOR i = 1 TO LEN(text)
        LOCATE 1, i
        COLOR (RND * 255)
        PRINT MID$(text, i, 1)
NEXT i

 

Uživaj...

To understand what recursion is, you must first understand recursion.
11 godina
neaktivan
offline
Re: Programiranje u Qbasicu
rustweaver kaže...

SCREEN 13

DIM text AS STRING

RANDOMIZE TIMER
text = "ovo je neki tekst"

FOR i = 1 TO LEN(text)
        LOCATE 1, i
        COLOR (RND * 255)
        PRINT MID$(text, i, 1)
NEXT i

 

Uživaj...

 

 

Ovdje mi treba da je svako slovo različite boje, npr "ovo" 0 - jedna boja, V - druga, O -treća

 

 

15 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Pa i jest tako...

To understand what recursion is, you must first understand recursion.
11 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Hvala kralju. Ne znam baš oko ovoga jer nismo sve radili, tek počinjemo radit, a ovo mi treba za ocjenu. HVALA!

15 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Obradili ste sve što tebi treba za ocjenu, ne može te profesor tražiti da napraviš nešto što još niste učili.

To understand what recursion is, you must first understand recursion.
11 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Ma nismo, radili smo samo neke komande... 

15 godina
neaktivan
offline
Re: Programiranje u Qbasicu

Znači tvrdiš da si dobio zadatak izraditi program koristeći stvari koje još niste učili? Mdaaa... {#}

Čuj, to što si TI učio ili nisi učio ne znači da i ostali u razredu nisu :P

 

Dobio si gotov program na pladnju, već je i to dovoljno loše, nemoj pogoršavati situaciju prodavajući bullshit uokolo.

To understand what recursion is, you must first understand recursion.
Poruka je uređivana zadnji put uto 1.4.2014 21:44 (rustweaver).
1
Nova poruka
E-mail:
Lozinka:
 
vrh stranice