PCPROG.2

06 Nov 1992 - 26 Jul 1993

Topics

  1. algoritmi (223)
  2. ms.dos (250)
  3. asembler (141)
  4. jezici (278)
  5. pascal (1307)
  6. cccc (752)
  7. cpp (91)
  8. clipper (1027)
  9. baze.podataka (229)
  10. razno (379)
  11. van.teme (189)
  12. basic (56)

Messages - basic

basic.2 ppekovic,
[reply na PC.PROG:pascal 6.15, skoprivica] Pri prelasku u novu conf. mi je promaklo da otvorim i temu basic. Svim ljubiteljima ovog jezika na kojem je većina računardžija učila svoje prve pro programerske korake se izvinjavam. Hvala skoprivici! Paya
basic.3 milanm,
Hi! Evo kako povezati BASIC i C. bas2c.arj
basic.4 milanm,
Hi! Evo kako povezati BASIC i ASM. bas2asm.arj
basic.5 djelovic,
Ima li neko neku biblioteku za rad sa padajućim menijima na Bejziku?
basic.6 mladenp,
> Ima li neko neku biblioteku za rad sa padajućim menijima > na Bejziku? Još pitaš! Ima i rutina za miša i još koječega. Naravno, radi samo sa QB 4.5. baswind8.zip
basic.8 bole,
E ajde leba ti posalji sve rutine za basic (KAO PRVO za mISKEA)
basic.9 mladenp,
> E ajde leba ti posalji sve rutine za basic (KAO PRVO za > mISKEA) Pa ja okačih jedan fajl sa raznim potprogramima. Vidi prvo šta tamo ima. Ako ti baš nešto posebno usfali, javi pa ću da potražim.
basic.10 ndragan,
Neko veče deca nađoše stare crteže rađene svingografom. To je bilo neko klatno čiji teg je tabla A4, na tablu se stavi list papira, na stalku je klackalica sa mestom za umetanje flomastera, klatno se zaljulja, flomaster se spusti i... dobije se šta se dobije. Pošto nikako nisam uspeo da im objasnim da mi ne pada napamet da se po ovoj ciči zimi zavlačim u garažu i pravim takvu napravu, izvukao sam se napisavši ovaj program: DECLARE FUNCTION qrnd! (a!, b!) pi = ATN(1) * 4 RANDOMIZE TIMER DO SCREEN 12 ' ovo 12 za VGA, za Herkulesa... neki drugi broj ' p0 je odnos brzina između ljuljanja po x i y osi ' ograničio sam se na jednostavnije razlomke p0 = qrnd(1, 6) / qrnd(2, 7) ' fazni pomeraj p1 = RND * pi / 2 ' a ovo je pokušaj da se dobije dovoljno gust crtež IF p0 > 0 THEN p5 = 1 / p0 ELSE p5 = p0 END IF p5 = p5 * (1 - p5) p3 = 1 + .02 * RND * p5 p5 = .0014 p4 = RND * 2 - 1 p6 = p5 / 2 s1 = RND * 2 - 1 s2 = RND * 2 - 1 max = 800 c = 0 FOR t = max TO max / 5 STEP -.1 ax = SIN(t) + s1 ay = COS(t * p0 + p1) + s2 cx = ((ax * SIN(t * p5) + ay * COS(t * p6 + p4))) cy = ((ax * COS(t * p5) + ay * SIN(t * p6 + p4))) bx = ((cx * SIN(t * p3) + cy * COS(t * p3 + p4)) * t / max + 1) * 280 by = ((cx * COS(t * p3) + cy * SIN(t * p3 + p4)) * t / max + 1) * 180 LINE (bx0, by0)-(bx, by), c c = 15 + (bx0 > bx) + 2 * (by0 > by) bx0 = bx by0 = by NEXT t t = TIMER + 60 DO LOOP UNTIL INKEY$ = CHR$(27) OR t <= TIMER SCREEN 0 LOOP FUNCTION qrnd (a, b) qrnd = INT(RND * (b - a) + a) END FUNCTION Eto, najzad nekako ispada da sam i ja nekog nešto častio za Novu godinu :) ili sam se bar izvadio za onaj dupli egzek ;). Ovo je QBasic, ali mislim da ladno može da se prebaci u bilo koji drugi bejzik koji podržava grafiku. Odustao sam od bilo kakvog unosa brojeva - lepše mi je da prepravim par linija u programu, nego da kojegde pamtim zgodne brojeve od prošli put. Pustite ovo za vreme dočeka nek se vrti, smanjiće vam potrošnju pića. Pretpostavljam da će se naći tipova koji će se ukokavati gledajući ove zavrnute Lisažuove figure. Lepo se provedite.
basic.11 skoprivica,
Malo zamerki cisto kozmeticke prirode: │ IF p0 > 0 THEN Pa p0 je uvek vece od nule, posto je u pitanju neki razlomak x/y gde su x i y slucajni pozitivni brojevi... │ p4 = RND * 2 - 1 dovoljno je samo p4=RND (imas to jos na par mesta nize)... Aje... CTEBO. PS: Gde izvadi one formule za bx, cx, by, cy ... :)
basic.12 ndragan,
/ dovoljno je samo p4=RND (imas to jos na par mesta nize)... Ne baš, ovako dobijam opseg (-1,1), a onako (0,1), a to sam baš hteo. / PS: Gde izvadi one formule za bx, cx, by, cy ... :) Iz glave. Valjda sam još uvek nekakav matematičar (?). Prva transformacija opisuje prostu Lisažuovu figuru, koju možeš napraviti na bilo kom osciloskopu; druga i treća su u stvari množenje matricom za rotiranje ( cos fi sin fi) (-sin fi cos fi) (ako ovo liči na matricu :), uz translaciju i postepeno smanjivanje. Sviđa?
basic.13 ssokorac,
─┼┤ Sviđa? Vrlo je simpatično, vredelo je iskopati qbasic sa diskete i otkriti kako da ukucam onu funkciju na kraju koju mi nikako nije dozvoljavao da ukucam :).
basic.14 bole,
E jedno pitanje! Posto idem na selo necu imati vremena da se zezam, kazite mi zasto on koristi samo 4-5 boja a moze 16!!!!
basic.15 skoprivica,
│ / dovoljno je samo p4=RND (imas to jos na par mesta nize)... │ Ne bas, ovako dobijam opseg (-1,1), a onako (0,1), a to sam bas │ hteo. E vidis, ko bi se toga setio :)
basic.16 jtitov,
Basici, zamolio bih nekoga ko ima BASICA da ga pljune meni na mail. Imam jedan program ORIGAMI pisan u basic-u, ali je uz to i nekako kompajliran, pa radi samo sa BASICA programom. BASICA se dobijao sa dos-om 3.30. Ja imam 3.30, ali IBM verziju, a kod njega BASICA nece da radi... Znaci, treba mi BASICA iz MS DOS-a 3.0.
basic.17 ndragan,
/ samo 4-5 boja a moze 16!!!! c = 15 + (bx0 > bx) + 2 * (by0 > by) + 4 * (bx > by) I onda tera u osam boja (iz poslednje verzije). Moglo bi i sa 16 boja, ko voli (ja ne, jer je onda jedna od boja ista kao pozadina): c = 15 + (bx0 > bx) + 2 * (by0 > by) + 4 * (bx > by) + 8*(-bx>by) Ima još jedan biser: promenio sam donji kraj petlje da na onaj iskejp čeka najviše jedan minut, ovako ... NEXT t t = TIMER + 60 DO LOOP UNTIL INKEY$ = CHR$(27) OR t <= TIMER SCREEN 0 I tu ima jedan omanji bag: ako počne da odbrojava taj minut u 23:59:xx po internom časovniku, čekaće beskonačno, pošto je TIMER broj sekundi od ponoći, dakle negde u, recimo, 45. sekundi TIMER=0. Provereno uživo u praksi :).
basic.18 bulaja,
│Basici, zamolio bih nekoga ko ima BASICA da ga pljune meni na mail. └─── BcBccc, ima sve a nema BasicA :). Pogledaj \IBMPC\PROGRAM\ubas821.arj .a01 (matematicki orijentisan BASIC interpreter), trebalo bi da je kompatibilan sa BasicA.
basic.20 ognjen,
Ej, recite mi kako da u qbasicu ucitam misa. da, da, to znam i ja sa call gmouse ali sipak nece... Ustvari taj program sam prepisao... radi u bacicu, gwbasicu i slicno ali nece u qbasic-u. Pomagajte drugovi!!! Trazio sam malo po literaturi ali nikako da nadjem sta znaci komanda 'DO'? Ognjen
basic.21 wizard,
>> Trazio sam malo po literaturi ali nikako da nadjem sta znaci komanda >> 'DO'? Ispod DO potraži WHILE ili UNTIL. Sve što se nalazi između će se izvršavati ponovo i ponovo i ponovo... ;) sve dok je uslov iza UNTIL (ili WHILE) ispunjen. Ako nije ispunjen, izvršiće se samo jednom.
basic.22 mladenp,
> Ej, recite mi kako da u qbasicu ucitam misa. > da, da, to znam i ja sa call gmouse ali sipak nece... > Ustvari taj program sam prepisao... radi u bacicu, > gwbasicu i slicno ali nece u qbasic-u. Pomagajte > drugovi!!! Ne, ne, to ne znaš. :) Ne znam :) o kakvom se programu radi, ali čini mi se (davno nisam pokrenuo GW) da se u starim interpreterima sa CALL poziva mašinski potprogram. U QB se tom naredbom poziva potprogram pisan u bejziku. Pogledaj malo help u QB (pretpostavljam da nemaš uputstvo ;), naredbe CALLS i CALLS ABSOLUTE.
basic.23 squsovac,
>>> Trazio sam malo po literaturi ali nikako da nadjem sta >>> znaci komanda 'DO'? > > Ispod DO potraži WHILE ili UNTIL. Sve što se nalazi između > će se izvršavati ponovo i ponovo i ponovo... ;) sve dok je > uslov iza UNTIL (ili WHILE) ispunjen. Ako nije ispunjen, > izvršiće se samo jednom. Ne nego dok uslov iza UNTIL NIJE ispunjen a iza WHILE JESTE ispunjen. S(H) prevod za WHILE je otprilike "dok jeste", a za UNTIL "dok nije". Isto važi u slučaju da su UNTIL i WHILE "gore"-pored DO (ne moraju biti "dole" kao znak kraja petlje). Razlika je što se u slučaju da su UNTIL ili WHILE "dole" petlja svakako jednom izvršava (bez obzira na uslove, jer se prvo izvrši petlja pa se onda "računa" uslov), a ako su WHILE ili UNTIL "gore"-pored DO, petlja može i da se ne izvrši (ili da se izvrši jednom ili više puta ili beskonačno ;> puta) jer se prvo "računa" uslov, pa se u zavisnosti od ispunjenja uslova izvršava petlja.
basic.24 bole,
Ljudi ja poceo da ucim paskal i ide mi sjajo!!! :)))) Ps. Ko razume shvatice, a shvatice oni koji su tu od 90-91... cu
basic.25 zkrstic,
> Ljudi ja poceo da ucim paskal i ide mi sjajo!!! > Mashala! Braaaaaaaavo maleni! Samo napred :) Eto šta nenadana popularnost učini od čoveka :) Zkr :)
basic.26 ppekovic,
Više o novoj verziji Visual Basic-a 2.0 možete pročitati u konferenciji Novosti, poruka 4.970. Paya
basic.27 darone,
Jel koristi neko (ili je koristio) dživi ;) bejzik za PC? E, ako jeste, zamolio bih ga da mi objasni kako se prelazi u grafički mod i koje su 'grafičke' naredbe. darone p.s. da ne bude zabune, GW Basic.
basic.28 mmile,
> Jel koristi neko (ili je koristio) dživi ;) bejzik > za PC? E, ako jeste, zamolio bih ga da mi objasni > kako se prelazi u grafički mod i koje su 'grafičke' > naredbe. Valjda sa screen X,0,0 ( x - je valjda video mod u kome hoces da radis ) a naredbe su draw i sl. ja mislim ( nikad ih nisam koristio tj. imam herc. :( )
basic.29 feniks,
│ Jel koristi neko GW BASIC za PC? │ E, ako jeste, zamolio bih ga da mi objasni │ kako se prelazi u grafički mod i koje su 'grafičke' │ naredbe. └─────── screen 1 CGA 320x200 screen 2 CGA 640x200 naredbe: color,circle,draw,get,line,paint,point,put...
basic.30 pele,
>=} Jel koristi neko (ili je koristio) dživi ;) bejzik >=} za PC? E, ako jeste, zamolio bih ga da mi objasni >=} kako se prelazi u grafički mod i koje su 'grafičke' >=} naredbe. Imam fotokopirano uputstvo za GWB pa kaži ako ti treba. Grafičke naredbe su fino objašnjene. Inače,za prelazak u grafički mod služi screen 1 i screen 2. pele.
basic.31 darone,
>> Grafičke naredbe su fino objašnjene. Dve stvari: prvo, jel može to na herkulesu? Drugo, samo spisak naredbi tipa draw/plot etc sa argumantima, ostalo ću sam da pohvalam (u stvari ne ja, nego jedan klinac). darone
basic.32 bulaja,
│Dve stvari: prvo, jel moze to na herkulesu? └─── Mislim da moze. Cini mi se da je glavna razlika izmedju MS Basica-e i GW Basica u tome da je GW radio i na Herculesu. Ima u \PROGRAM diru onaj UBasic, mozda i on moze?
basic.33 mrajacic,
> │Dve stvari: prvo, jel moze to na herkulesu? > └─── > Mislim da moze. Cini mi se da je glavna razlika izmedju MS Basica-e > i GW Basica u tome da je GW radio i na Herculesu. Ima u \PROGRAM > diru Ja, međutim mislim da ne može, jer postoji neka francuska verzija upravo za Hercules, a zove se GWBASICH. Sad i ta verzija ne podržava sve naredbe orginalnog GWBASIC-a, pa ako ste baš jako zainteresovani, probaću da 'izbunarim' više podataka. POZDRAV od Mirka
basic.34 dejanr,
>> Mislim da moze. Cini mi se da je glavna razlika izmedju MS Basica-e >> i GW Basica u tome da je GW radio i na Herculesu. Mislim da nisi u pravu, tj. da je obrnuto. Nekad davno GWBASIC 101% sigurno nije radio na herkulesu, nego je mora da se nađe neki GWBASICH koji je u stvari bio običan GWBASIC koji je neko negde po svetu pečovao tako da podržava herkules, doduše prilično bedno. Sećam se da su pirati to ovde za silne pare prodavali, kad je jednom stiglo (a sve to se dešava tamo negde 1985-86). QBasic "oduvek" (ili bar otkad ga ja znam) podržava herkules, uz učitavanje jednog rezidentnog komadića koji ide uz njega i zove se, mislim, MSHERC. Ali sve to dosta sporo radi.
basic.35 mazi,
>> │Dve stvari: prvo, jel moze to na herkulesu? >> └─── >> Mislim da moze. Cini mi se da je glavna razlika izmedju MS >> Basica-e i GW Basica u tome da je GW radio i na Herculesu. Ima >> u ĐPROGRAM diru > > Ja, međutim mislim da ne može, jer postoji neka francuska > verzija upravo za Hercules, a zove se GWBASICH. Sad i ta > verzija ne podržava sve naredbe orginalnog GWBASIC-a, pa > ako ste baš jako zainteresovani, probaću da 'izbunarim' > više podataka. > > POZDRAV od Mirka e, jes da se tim nisam zezao 100 godina, mislim da i običan GW može da radi grafiku na herculesu. Ima neka int10.exe ili tako nešto biblioteka koja se valjda prvo startuje, pa onda u samom GW basic-u još neka, ako te interesuje, pogledaću. Inače, ima i jedan kvaran način za grafiku na hercu (ako se još dobro sećam..): Startuješ neki CGA simulator, i predješ u neki grafički mod CGA karte. Startuješ GW i rade ti 320*200*4 i 640*200*2! :)) Ivan.
basic.36 pele,
>=}>> Grafičke naredbe su fino objašnjene. >=} >=} Dve stvari: prvo, jel može to na herkulesu? Drugo, >=} samo spisak naredbi tipa draw/plot etc sa >=} argumantima, ostalo ću sam da pohvalam (u stvari ne >=} ja, nego jedan klinac). Naravno da radi na herkulesu.Prvo sam na njemu počeo da drndam GWB. Maksimalna rezolucija beše 720x348 ili tako nešto.Sve u svemu,grafika prilično lepo izgleda na herkulesu.Ovo drugo te nisam razumeo.Jel ti treba spisak grafičkih naredbi sa argumentima ili šta?Ako oćeš,mogu da ti pošaljem neke moje programčiće za crtanje raznih zaje*ancija,svi su nekoliko redova,pa da uvališ klincu da provaljuje što to radi kao što radi :) pele.
basic.37 mladenp,
> Mislim da nisi u pravu, tj. da je obrnuto. Nekad davno > GWBASIC 101% sigurno nije radio na herkulesu, nego je mora > da se nađe neki GWBASICH koji je u stvari bio običan > GWBASIC koji je neko negde po svetu pečovao tako da > podržava herkules, doduše prilično bedno. Sećam se da su GWBASIC je proizvod firme Oliveti i ne podržava Herkules. Za tu kartu postoji nekoliko iterpretera koji, koliko znam, nisu budževine, već normalno napisani programi. Na poslu imam GWBASICH firme Bull Micral i MGBASIC od XOR Data. Ako se Uprava ne buni, mogu da ih obesim ;) ovde.
basic.38 dejanr,
>> GWBASIC je proizvod firme Oliveti i ne podržava Herkules. Za "ne podržava Herkules" se slažem, a za proizvod Olivetija... GWBasic (GW od Gee Wiz, nešto kao "čarobni bejzika", bejzik u kome su svakakva čudesa moguća; naravno, termin važi za vreme u kome se pojavio ;) je Microsoftov proizvod, možeš o njemu da čitaš u onom umetku o Bilu Gejtsu i u jednom njegovom ranijem članku o bejziku koji je takođe preveden u "Računarima". Microsoft je DOS (a zajedno sa njim i GWBASIC) licencirao raznim drugim firmama, pa i Olivetiju. Kod nas je iz nekog razloga prvi "naleteo" taj Olivetijev licencirani bejzik, i mnogi su ga imali, odatle i zabluda. Inače, on je Olivetijev otprilike onoliko koliko je i Compaq DOS proizvod Compaq-ov.
basic.39 darone,
>> onaj UBasic, mozda i on moze? Mora dživi :( darone
basic.40 darone,
>> ili šta?Ako oćeš,mogu da ti pošaljem neke moje >> programčiće za crtanje raznih zaje*ancija,svi su >> nekoliko redova,pa da uvališ klincu da >> provaljuje što to radi kao što radi :) Davaj :) darone
basic.41 drmarke,
> p.s. da ne bude zabune, GW Basic. A daješ časove, daješ? ;) Šalim se! Imaš uputstvo u plavoj kjigi za DOS, ako ti baš mnogo treba javi da ti prepišem. Pozdrav DrMarke
basic.42 darone,
>> imam GWBASICH firme Bull Micral i MGBASIC od XOR >> Data. Ako se Uprava ne buni, mogu da ih obesim >> ;) ovde. Ako se buni, znaš koja mi je email adresa, da se dogovorimo oko sutrašnje vremenske prognoze :) darone
basic.43 darone,
>> A daješ časove, daješ? ;) Ma neeeeeeeeee O:) darone
basic.44 mladenp,
>>> imam GWBASICH firme Bull Micral i MGBASIC od XOR > Ako se buni, znaš koja mi je email adresa, da se > dogovorimo oko sutrašnje vremenske prognoze :) No problemo, ali prognozu mogu da dam tek za četvrtak. ;) Ne idem na faks dok ne moram. :)
basic.45 pele,
>=}>> A daješ časove, daješ? ;) >=} >=} Ma neeeeeeeeee O:) Što bre ne priznaš da ti trebaju pare da isplatiš pošteno dobijenu opkladu ;))) pele.
basic.46 zotasevic,
Postojao je jedan program za konverziju brojeva iz GWbasic formata u Qbasic format. Da li ga neko ima ?
basic.47 mladenp,
> Postojao je jedan program za konverziju brojeva iz GWbasic > formata u Qbasic format. Kakvih brojeva? Programskih linija? Za to nije potrebna konverzija. Možda si mislio na program za uklanjanje tih brojeva?
basic.48 zotasevic,
Ne. Mislio sam na pakovanje brojeva u datoteke (MKS$ i CVS).
basic.50 feniks,
Na Imtel BBS-u nalazi se najnovija verzija BASIC-a for Windows VBRUN300.ZIP (244k). Ajde neki dobar kupac da to prebaci ovde ;) P.S. Od danas nije moguće DOW više od 200k tamo :(
basic.51 zormi,
* Na Imtel BBS-u nalazi se najnovija verzija BASIC-a * * P.S. Od danas nije moguće DOW više od 200k tamo :( Osim za customer-e, kojima je BBS i namenjen.
basic.52 dr.grba,
>> Osim za customer-e, kojima je BBS i namenjen. Misliš - kupce?
basic.53 zormi,
* >> Osim za customer-e, kojima je BBS i namenjen. * * Misliš - kupce? ...i saradnike, dealer-e, partnere, dobre igrače Trade Wars-a ;)... Jedini razlog ograničenja je preopterećenje postojeće jedne javne linije, pa moramo prednost dati onima zbog kojih je BBS napravljen. File moderator SEZAM-a ima visok nivo i pristup preko jednog službenog node-a, a nismo odbili ni one koji su dolazili sa disketama da ponešto prekopiraju.
basic.54 darone,
>> File moderator SEZAM-a ima visok nivo i pristup >> preko jednog službenog node-a, a nismo odbili ni >> one koji su dolazili sa disketama da ponešto >> prekopiraju. Fakat. Ja sam baš pre nedelju - dve bio, i kopirao. darone
basic.56 dejanr,
Visual Basic 3.0. NOVOSTI/microb 4.782.