basic.2ppekovic,
[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.3milanm,
Hi!
Evo kako povezati BASIC i C.
bas2c.arjbasic.4milanm,
Hi!
Evo kako povezati BASIC i ASM.
bas2asm.arjbasic.5djelovic,
Ima li neko neku biblioteku za rad sa padajućim menijima na Bejziku?
basic.6mladenp,
> 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.zipbasic.8bole,
E ajde leba ti posalji sve rutine za basic (KAO PRVO za mISKEA)
basic.9mladenp,
> 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.10ndragan,
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.11skoprivica,
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.12ndragan,
/ 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.13ssokorac,
─┼┤ 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.14bole,
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.15skoprivica,
│ / 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.16jtitov,
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.17ndragan,
/ 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.18bulaja,
│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.20ognjen,
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.21wizard,
>> 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.22mladenp,
> 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.23squsovac,
>>> 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.24bole,
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.25zkrstic,
> 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.26ppekovic,
Više o novoj verziji Visual Basic-a 2.0 možete pročitati u
konferenciji Novosti, poruka 4.970.
Paya
basic.27darone,
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.28mmile,
> 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.29feniks,
│ 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.30pele,
>=} 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.31darone,
>> 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.32bulaja,
│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.33mrajacic,
> │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.34dejanr,
>> 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.35mazi,
>> │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.36pele,
>=}>> 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.37mladenp,
> 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.38dejanr,
>> 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.39darone,
>> onaj UBasic, mozda i on moze?
Mora dživi :(
darone
basic.40darone,
>> 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.41drmarke,
> 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.42darone,
>> 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.43darone,
>> A daješ časove, daješ? ;)
Ma neeeeeeeeee O:)
darone
basic.44mladenp,
>>> 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.45pele,
>=}>> A daješ časove, daješ? ;)
>=}
>=} Ma neeeeeeeeee O:)
Što bre ne priznaš da ti trebaju pare da isplatiš pošteno
dobijenu opkladu ;)))
pele.
basic.46zotasevic,
Postojao je jedan program za konverziju brojeva iz GWbasic formata
u Qbasic format.
Da li ga neko ima ?
basic.47mladenp,
> 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.48zotasevic,
Ne. Mislio sam na pakovanje brojeva u datoteke (MKS$ i CVS).
basic.50feniks,
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.51zormi,
* 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.52dr.grba,
>> Osim za customer-e, kojima je BBS i namenjen.
Misliš - kupce?
basic.53zormi,
* >> 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.54darone,
>> 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.56dejanr,
Visual Basic 3.0. NOVOSTI/microb 4.782.