pascal.531inferno,
Oj ljudi!
Imam jedan problem. Rešio sam da počnem da učim Pascal, pa
sam nabavio TP 6.0. Naravno, nemam pojma da programiram u
TP-u. Od knjiga imama neke starudije, tako da je slaba
vajda. No, da ne davim više... Pravim prg. koji će po
startovanju da pročita datum, zapisan u nekom fajlu, i ako
se taj atm ne poklapa sa sistemskim, on će da u taj fajl
preko starog datuma upiše novi datum i da izvrši jedam batch
file.
Prvo, batch file neće da se izvrši iako sam napisao:
SwapVectors;
exec(path,'batch.bat');
SwapVectors;
Drugo, neće da upiše datum u fajl iako stoji:
LABEL 1,2,3;
const
dat = 'dexe';
path = '.';
exef = 'command /c c:\dexe\dexe.bat';
var
y, m, d, dow, y1, m1, d1, dow1 : word;
f : file of word;
BEGIN
1:
assign(f, dat);
reset(f);
begin
read(f, y1,m1,d1,dow1);
getdate(y,m,d,dow);
end;
IF (d1 = d) then goto 2;
begin
write(f, y,m,d,dow);
writeln('Ecexuting...');
writeln(' ');
close(f);
SwapVectors;
exec('c:\',exef);
SwapVectors;
goto 3;
end;
2:
.... (neke poruke...)..
3:
end.;
p.s. Izvinjavam se na dužini poruke. :(
pascal.532omega,
-> #531, infernoŢ Imam jedan problem. Resio sam da pocnem da ucim Pascal, pa
Ţ sam nabavio TP 6.0. Naravno, nemam pojma da programiram u
Ţ TP-u. Od knjiga imama neke starudije, tako da je slaba
Ţ vajda.
Ja sam naucio iz umetaka Racunara (dejanr) i iz help-a samog TP-a.
Srecno! :)
Ţ SwapVectors;
Ţ exec(path,'batch.bat');
Ţ SwapVectors;
SwapVectors;
Exec(getenv('COMSPEC'),'/C '+path+'batch.bat');
SwapVectors;
Ţ LABEL 1,2,3;
Izbegavaj ovo koliko god mozes (citaj: nemoj uopste da upotrebljavas)
Nije ti ovo BASIC ;) Svaki od delova koje pozivas preko labela
prebaci u procedure bez parametara...
Program se vise manje cini ok, verovatno je problem sto datoteka ne
postoji u startu, jer Reset otvara POSTOJECU datoteku.
pascal.533dejanr,
-> #531, inferno>> SwapVectors;
>> exec(path,'batch.bat');
>> SwapVectors;
Ne radi se tako. Prvo, na početak programa stavi nešto kao {$M 16000,0,0}
Drugo, ne pozivaj direktno batch.bat, nego command.com, kome kao
parametar prosleđuješ ime batch fajla. Dakle, exec ('c:\command.com',
'/C batch.bat). Još bolje je umesto c:\command.com staviti indirektno
njegovo ime, preko environment promenljive COMSPEC, ali može i ovako kako
sam napisao.
>> exef = 'command /c c:\dexe\dexe.bat';
Ovde treba puno ime, dakle C:\COMMAND.COM. I ono .COM je bitno.
File ne treba da ti bude file of word, verovatno će ti bolje poslužiti
neki text fajl.
Pre svega, moraš da naučiš da nazubljuješ program, i da "zaboraviš" na
goto naredbu. Najbolje pročitaj neku početničku knjigu o tome, možda je
umetak iz "Računara" zgodan način da se učine prvi koraci.
pascal.534postmast,
From: broker@setgate.setnet.co.yu (Predrag Supurovic)
Subject: Boje
Date: Sat, 22 Oct 1994 13:38:02
NS> Imam jedan problem.Da li iko zna kako se moze u tp 6.0 (uz SVGA
NS> karticu) U ISTO VREME prikazati 256 boja?
Verovatno ti treba neki poseban drajver. Navrati na Oresku i u pascal
direktorijumu ces naci priican broj alatki za VGA.
... BR> Da li si clan YUCCA? Ne? Pa sta cekas?!
* Origin: Oreska BBS, UZICE = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.535uobradovic,
-> #531, inferno::> Imam jedan problem. Rešio sam da počnem da učim Pascal, pa
::> sam nabavio TP 6.0. Naravno, nemam pojma da programiram u
::> TP-u. Od knjiga imama neke starudije, tako da je slaba
::> vajda. No, da ne davim više... Pravim prg. koji će po
::> startovanju da pročita datum, zapisan u nekom fajlu, i ako
::> se taj atm ne poklapa sa sistemskim, on će da u taj fajl
::> preko starog datuma upiše novi datum i da izvrši jedam batch
::> file.
Kažeš da nemaš pojma a praviš program do kog bi ti trebalo
više vremena rada.
Uroš
pascal.536bulaja,
-> #528, pedjak│ TVGRAPH 1.10
│ TURBO VISION
│ using TURBO VISION In EGA/VGA graphics
└───
Prebačeno u PASCAL dir, hvala :).
pascal.537postmast,
From: Predrag.Knezevic@f127.n103.z38.setgate.setnet.co.yu (Predrag Knezevic)
Subject: Boje
Date: Mon, 24 Oct 1994 23:38:05
Pozdrav,
NS> Zdravo!
NS> Imam jedan problem.Da li iko zna kako se moze u tp 6.0 (uz SVGA karticu)
NS> U ISTO VREME prikazati 256 boja?
Nikako. Bar ne koristeci standardne TP procedure.
Probaj sa direktnim upisom u video mem (videces u asm-u ima interupt).
Krang
* Origin: SetNET Krang CITY BBS +381-11-474-373, Beograd (38:103/127)
pascal.538postmast,
From: Aleksandar.Sasa.Nikolic@f104.n103.z38.setgate.setnet.co.yu (Aleksandar Sasa Nikolic)
Subject: PITANJE
Date: Tue, 25 Oct 1994 02:43:00
E voleo bih kad bi mi neko pruzio pomoc oko ovoga , zadatak je da se iz TSR-a
startuje posle 3 minuta COMMAND.COM :))) malo tezak zadatak zar ne? mozda i
neostvariv? Naravno za merenje vremena se za one koji ne znaju koristi INT 08
koji kuca 18,2 puta po sekundi dakle da vas vidim hakeri, problem je u ,cemu?,
u exekuciji naravno ;)))
Toliko, ===>> POMAGAJTE OKO OVOGA ! <<==== ;)))
Aca
* Origin: *SETNet: Taurunum BBS +381 11 2354-253, Zemun* (38:103/104)
pascal.539postmast,
From: Sloba.Markovic@f115.n103.z38.setgate.setnet.co.yu (Sloba Markovic)
Subject: Boje
Date: Sun, 23 Oct 1994 00:06:05
NS> Imam jedan problem.Da li iko zna kako se moze u tp 6.0 (uz SVGA
NS> karticu) U ISTO VREME prikazati 256 boja?
Potreban ti je BGI driver za SVGA, on se zove SVGA256.BGI i mozes
ga naci na vecini BBS-ova. Kada ga nabavis onda se on inicijalizuje
pomocu procedure InitSVGAGraph(mode):
Program SVGA_GRAPH;
Uses Graph, Crt;
Var MO, UD, EC, mode, GM, GD : Integer;
{$F+}
Function DetectVGA256 : Integer;
Begin
DetectVGA256:=MO;
end;
{$F-}
Procedure InitSVGAGraph(mode: integer);
Begin
MO:=mode;
UD:=InstallUserDriver('SVGA256', @DetectVGA256);
EC:=GraphResult;
If GraphResult <> grOk then Begin
Writeln('Fatal error: ',GraphErrorMsg(EC));
Halt(1);
end;
GD:=Detect;
InitGraph(GD, GM, '');
EC:=GraphResult;
If (EC <> GrOk) then Begin
Writeln('Fatal error: ',GraphErrorMsg(EC));
Halt(1);
end;
end;
Begin
InitSVGAGraph(2);
{ Tvoj program }
CloseGraph;
end.
Ovo je izvod iz mog TPU-a i na brzaka je skrpljen, pa nisam siguran da je
sve ok, ali bi trebalo da shvatis kako se to radi. U ovom slucaju
promenljiva MODE dobija vrednost 2, sto znaci da ce se inicijalizovati
640x480x256 grafika. Evo i tabele vrednosti, svi modovi su u 256 boja i
za SVGA 512k karticu (postoje vrednosti do 6 za SVGA 1024 kartice, ali sam
ih zabozavio):
Vrednost | Mod
-------------------
0 | 320x200
1 | 640x400
2 | 640x480
3 | 800x600
Play with colours, hope it helps!
MAGIC FLASH!
... Computers are tools, but the Amiga is an instrument.
* Origin: Atlantis BBS 22-05 tel. 3225-548 ■Belgrade■ (38:103/115)
pascal.542inferno,
-> #532, omegaŮ│ ˙ Ja sam naucio iz umetaka Racunara (dejanr) i iz help-a samog TP-a.
Ů│ ˙ Srecno! :)
Ha! I meni nije išlo dok te nisam poslušao i pročitao
umetak by dejanr. Onda je odjedamput program proradio! :)
Ů│ ˙ SwapVectors;
Ů│ ˙ Exec(getenv('COMSPEC'),'/C '+path+'batch.bat');
Ů│ ˙ SwapVectors;
Aaa, u tome je štos...
A šta je ono COMSPEC ??
Ů│ ˙ Izbegavaj ovo koliko god mozes (citaj: nemoj uopste da upotrebljavas)
Ů│ ˙ Nije ti ovo BASIC ;) Svaki od delova koje pozivas preko labela
Ů│ ˙ prebaci u procedure bez parametara...
U pravu si... Nisam znao za procedure dok nisam pročitao
bas2pas... :)
Veliki pozdrav! :)
pascal.543inferno,
-> #533, dejanrŮ│ ˙>> SwapVectors;
Ů│ ˙>> exec(path,'batch.bat');
Ů│ ˙>> SwapVectors;
Ů│ ˙
Ů│ ˙ Ne radi se tako. Prvo, na početak programa stavi nešto kao {$M
Ů│ ˙ 16000,0,0}
E to mi nije bilo jasno... Dok to nisam stavio program nije
hteo da radi. Uspeo sam da ukapiram da je to nepohodno za
izvršavanje programa van mog programa, ali nisam ukapirao
kako da odredim kolika treba da bude vrednost onih brojeva
(16000,0,0)?
Ů│ ˙>> exef = 'command /c c:\dexe\dexe.bat';
Ů│ ˙
Ů│ ˙ Ovde treba puno ime, dakle C:\COMMAND.COM. I ono .COM je bitno.
Aaaa, znači zato tek sad radi...
Ů│ ˙ File ne treba da ti bude file of word, verovatno će ti bolje poslužiti
Ů│ ˙ neki text fajl.
Probao sam da eksperimentišem s tim, ali javlja da je
pogrešna promenljiva. Mora da sam ja nešto pogrešio?
Javlja error kod read(f, ...
Ů│ ˙ Pre svega, moraš da naučiš da nazubljuješ program, i da "zaboraviš" na
Ů│ ˙ goto naredbu.
Da, program sam nazubio, ali sam ga ovako okačio na SEZAM da
mi se ne bi polomile linije... Što se tiče GOTO naredbe
shvatio sam da je nepotrebna tek kad sam pročitao
bas2pas.zip..
Ů│ ˙ Najbolje pročitaj neku početničku knjigu o tome, možda je
Ů│ ˙ umetak iz "Računara" zgodan način da se učine prvi koraci.
Pročitao sam "Sa BASIC-a na Pascal". Da nisam to našao
nikad ne bih ništa shvatio. :)
pascal.544inferno,
-> #535, uobradovicŮ│ ˙ ::> Imam jedan problem. Rešio sam da počnem da učim Pascal, pa
Ů│ ˙ ::> sam nabavio TP 6.0. Naravno, nemam pojma da programiram u
Ů│ ˙ ::> TP-u. Od knjiga imama neke starudije, tako da je slaba
Ů│ ˙ ::> vajda. No, da ne davim više... Pravim prg. koji će po
Ů│ ˙ ::> startovanju da pročita datum, zapisan u nekom fajlu, i ako
Ů│ ˙ ::> se taj atm ne poklapa sa sistemskim, on će da u taj fajl
Ů│ ˙ ::> preko starog datuma upiše novi datum i da izvrši jedam batch
Ů│ ˙ ::> file.
Ů│ ˙
Ů│ ˙ Kažeš da nemaš pojma a praviš program do kog bi ti trebalo
Ů│ ˙ više vremena rada.
Ne razumem? Do tog programa mi je trebalo tri-četri dana.
Druga stvar je što bih ga sad sastavio za pola sata, kao što
bi ga sastavio i svako ko iole zna osnove Pascal-a...
Zar ne valja tehnika: "Uči dok pišeš program"??
pascal.545evlad,
-> #542, inferno>> A sta je ono COMSPEC ??
Environment varijabla u kojoj se nalazi putanja i ime komandnog
'procesora' (obicno COMMAND.COM), postavlja se u autoexec.bat
datoteci sa SET COMSPEC=[d:\path\name.ext]
pascal.546omega,
-> #543, infernoŢ E to mi nije bilo jasno... Dok to nisam stavio program nije
Ţ hteo da radi. Uspeo sam da ukapiram da je to nepohodno za
Ţ izvrsavanje programa van mog programa, ali nisam ukapirao
Ţ kako da odredim kolika treba da bude vrednost onih brojeva
Ţ (16000,0,0)?
Ima resenje i za to, i to najbolje resenje:
uses Memory, Dos;
...
SetMemTop(HeapPtr);
SwapVectors;
Exec(getenv('COMSPEC'),'/C '+path+'batch.bat');
SwapVectors;
SetMemTop(HeapEnd);
...
end.
pascal.547omega,
-> #544, infernoŢ Zar ne valja tehnika: "Uci dok pises program"??
To je najbolja tehnika i jedina. Naravno, potrebno je bar neko predznanje.
pascal.548ognjen,
-> #542, inferno)-> A sta je ono COMSPEC ??
Puno ime komandnog interaptera. Na primer:
c:\4dos\4dos.com ili mnogo cesce:
c:\dos\command.com
pascal.549drpr,
Haj,
mislim da se nekada ovde raspravljalo o X , Y ili Z modemu
pa su mi potrebni ti sorsovi. Zato molim neku dobru dušu da
me uputi gde da tražim .
U napred hvala,
Cope
pascal.550vitez.koja,
-> #542, inferno
#=> U pravu si... Nisam znao za procedure dok nisam
#=> pročitao bas2pas... :)
Auuu... pa ti ne znaš ni basic ;)
Prelažem ti da, umesto 'divlje' metode učenja, uzmeš neku knjigu
i lepo se o svemu informišeš. Umetak iz Računara nisam video, ali
sumnjam da vredi koliko prava knjiga.
pascal.551vitez.koja,
-> #547, omega#=> Ţ Zar ne valja tehnika: "Uci dok pises program"??
#=>
#=> To je najbolja tehnika i jedina. Naravno, potrebno je
#=> bar neko predznanje.
Najbolja ? Možda...
Jedina ? Ni slučajno.
Zaboravio si da pomeneš da je utrošak vremena pri "uči dok pišeš
program" dva-tri puta veći nego kod 'tradicionalnih' metoda.
Predložio bih jednu ekstravagantnu metodu učenja programskog
jezika: pisanje interpretera/kompajlera za taj jezik. Na taj
način dobijaš uvid 'unutar' samog jezika, vidiš kako sve to
zapravo funkcioniše. Ovaj metod je ubedljivo najteži i vremenski
najzahtevniji, ali rezultati su veoma dobri (iz iskustva:).
Za ovaj metod je potrebno i ubedljivo najviše literature - ja sam
koristio jednu knjigu o leksičkoj analizi i parserima, jednu
'popularnu' o programskom jeziku (u pitanju je bio 'C'), jednu
nepopularnu ;)) o programskom jeziku - "Programski jezik C" by
njegovi tvorci - i jednu knjigu u kojoj se obrađuje pojam
interpretera u čitaj_listing maniru (mnoogo koda, malo komentara).
Trebalo mi je tri meseca, a rezultirajući interpreter sam već u
trenutku završavanja mogao da napišem dva puta bolje, ali je
vredelo :)
pascal.552vitez.koja,
-> #549, drpr#=> mislim da se nekada ovde raspravljalo o X , Y ili Z
#=> modemu pa su mi potrebni ti sorsovi. Zato molim neku
#=> dobru dušu da me uputi gde da tražim .
Nekada = juče :))
Sorsovi X i Y -modem protokola su izuzetno jednostavni, mogu se
(između ostalog) naći pri demo programu za PCL biblioteku (ima na
sezamu). Sors Zmodema imaš u COM direktorijumu.
pascal.553mmitrovic,
-> #538, postmastŮ█▀█Ţ E voleo bih kad bi mi neko pruzio pomoc oko ovoga , zadatak je da se iz
Ů█▀█Ţ TSR-a startuje posle 3 minuta COMMAND.COM :))) malo tezak zadatak zar
...
Ů█▀█Ţ u exekuciji naravno ;)))
Naravno. ;)
Ne mogu se startovati drugi programi iz rezidentnog prvo i osnovno zato
što 90% EXE programa ima u headeru upisano FFFF za maximum memorije, što
rezultira u tome da DOS svu memoriju alocira tom programu, pa ništa ne
ostaje za 4Bh funkciju. Rešenje ti je da pronađeš inkriminisani program i
smanjiš mu memoriju. However, ako je taj program imao neke podatke unutar
svog segmenta (što je vrlo često slučaj), oni će biti uništeni pa će biti
sranja kad se vratiš u program. Tek toliko. ;)
pascal.554mmitrovic,
-> #539, postmastŮ█▀█Ţ Potreban ti je BGI driver za SVGA, on se zove SVGA256.BGI i mozes
Ovo je najsporiji mogući drajver, i postoji verzija koja se ovde muva
a koja ima bag u radu sa paletama (tu verziju sam inače izvukao iz
SCORCHa ;)). Za brži rad postoji n drajvera, gde n teži broju različitih
kartica, koje su prilagođene i koriste prednosti pojedinačne kartice.
Gde ih ima, to ne znam. Ako neko zna nek kaže, ja imam samo par starih.
pascal.555omega,
-> #551, vitez.kojaŢ#=> To je najbolja tehnika i jedina. Naravno, potrebno je
Ţ#=> bar neko predznanje.
Ţ
Ţ Zaboravio si da pomenes da je utrosak vremena pri "uci dok pises
Ţ program" dva-tri puta veci nego kod 'tradicionalnih' metoda.
Na koje si ti tradicionalne metode mislio? Ovo sto se radi po nasim
fakultetima je ocaj, nadam se da to ne uzimas u obzir?
pascal.556omega,
-> #550, vitez.kojaŢ Prelazem ti da, umesto 'divlje' metode ucenja, uzmes neku knjigu
Ţ i lepo se o svemu informises. Umetak iz Racunara nisam video, ali
Ţ sumnjam da vredi koliko prava knjiga.
Sumnjaj ti koliko hoces, ali mislim da je dejanr-ov pristup ubedljivo
najbolji. Ja to iz licnog iskustva. Knjige moze da uzme tek kasnije.
pascal.557omega,
-> #554, mmitrovicŢ Ovo je najsporiji moguci drajver, i postoji verzija koja se ovde muva
SVGABGI v5.0? Pa jel ima neki brzi, ali univerzalni koliko toliko?
pascal.558vlador,
-> #544, inferno> Zar ne valja tehnika: "Uči dok pišeš program"??
Po meni, apsolutno valja!
pascal.559ognjen,
-> #545, evlad)-> 'procesora' (obicno COMMAND.COM), postavlja se u autoexec.bat
)-> datoteci sa SET COMSPEC=[d:\path\name.ext]
Zar ovo iko postavlja?
Podrazumevana vrednost je iz config.sys-a posle shell=
pascal.560rcolic,
-> #543, inferno> E to mi nije bilo jasno... Dok to nisam stavio progra
> hteo da radi. Uspeo sam da ukapiram da je to nepoho
> izvrsavanje programa van mog programa, ali nisam uk
> kako da odredim kolika treba da bude vrednost onih b
> (16000,0,0)?
$M je direktiva kompajleru za organizaciju memorije po sledecem principu:
{$M stacksize, heapstart, heapend }PP
U TP-u u Options/Compiler ili tako negde imas da setujes to i ako to uradis
automatski se to primenjuje u svakom programu. Default je 16384,0,655360.
Normalno, u skladu sa potrebama u samom sorsu se ponavlja direktiva pri cemu se
zaobilazi default setovanje.
Nadam se da sam bio od pomoci...
Rcolic
pascal.561mitcho,
-> #551, vitez.koja> jednu knjigu o leksičkoj analizi i parserima,
Koja je to knjiga (ako je dobra), i gde se može nabaviti?
> jednu knjigu u kojoj se obrađuje pojam interpretera u čitaj_listing
> maniru (mnoogo koda, malo komentara)
Isto me interesuje i za ovu knjigu.
pascal.562uobradovic,
-> #550, vitez.koja::> Prelažem ti da, umesto 'divlje' metode učenja, uzmeš neku
::> knjigu i lepo se o svemu informišeš. Umetak iz Računara nisam
::> video, ali sumnjam da vredi koliko prava knjiga.
Umetak iz Računara je loš.Nabavi knjigu
'Turbo Pascal 6.0 - Kompletan vodič' Stephena O'Briena.
Uroš
pascal.563rcolic,
-> #558, vlador> > Zar ne valja tehnika: "Uci dok pises program"??
>
> Po meni, apsolutno valja!
Slazem se sa tobom, ali ipak se ne moze sve nauciti pisuci programe
samoinicijativno.. ipak treba da postoji i literatura pomocu koje ce se
usmeravati samostalni rad (ne mislim na tupave knjige koje se koriste u skolama
za informatiku). Postoji jedna strasna skupina programa pod imenom PCGPE (iliti
PC Games Programming Encyclopaedia) koja sadrzi gomilu sorseva grafickog,
zvucnog, i/o i slicnog sadrzaja. Ja je imam, ali je prilicno velika(>1.5MB) pa
vicite ako vam treba poneki sors..
pozdrav...
rastko
pascal.564ognjen,
-> #562, uobradovic)-> 'Turbo Pascal 6.0 - Kompletan vodic' Stephena O'Briena.
Da ne bude oglas, ali moj ortak prodaje za 30 din, nova. Ne
znam koliko je povoljno, pogledajte prvo u Mikro Knjizi (oni to
prodaju), ako nema, mail me.
pascal.565spantic,
-> #555, omega> Na koje si ti tradicionalne metode mislio? Ovo sto se radi po nasim
> fakultetima je ocaj, nadam se da to ne uzimas u obzir?
Veoma hrabro uopštavanje, moram primetiti. Sećam se da su mnogi
dok sam bio student kod Hozea kukali na njegov metod predavanja
"Programskih jezika i metoda programiranja". Danas sam pak ubeđen
da je isti ipak superioran u odnosu na druge metode. Stalno domaći
zadaci, tri parcijalna ispita, stalni rad.
pascal.566omega,
-> #565, spanticŢ> Na koje si ti tradicionalne metode mislio? Ovo sto se radi po nasim
Ţ> fakultetima je ocaj, nadam se da to ne uzimas u obzir?
Ţ
Ţ Veoma hrabro uopstavanje, moram primetiti. Secam se da su mnogi
Ţ dok sam bio student kod Hozea kukali na njegov metod predavanja
Ţ "Programskih jezika i metoda programiranja". Danas sam pak ubeden
Ţ da je isti ipak superioran u odnosu na druge metode. Stalno domaci
Ţ zadaci, tri parcijalna ispita, stalni rad.
Ja ovo zovem veoma drskim neodgovaranjem na pitanje.
pascal.567andrejt,
-> #564, ognjen__> )-> 'Turbo Pascal 6.0 - Kompletan vodic' Stephena O'Briena.
__>
__> Da ne bude oglas, ali moj ortak prodaje za 30 din, nova. Ne
__> znam koliko je povoljno, pogledajte prvo u Mikro Knjizi (oni to
__> prodaju), ako nema, mail me.
Nije povoljno u Mikro Knjizi je oko 20 din.
pascal.568vvelisavljev,
-> #551, vitez.koja> program" dva-tri puta veći nego kod 'tradicionalnih'
> metoda.
Baš me zanima šta smatraš pod to 'tradicionalne' metode učenja?
pascal.569superhik,
-> #564, ognjen=:> Da ne bude oglas, ali moj ortak prodaje za 30 din, nova.
=:> Ne znam koliko je povoljno, pogledajte prvo u Mikro Knjizi
=:> (oni to
25 din u Mikro KnjIGi!
pascal.570postmast,
From: Bosko.Rafajlovic@f125.n103.z38.setgate.setnet.co.yu (Bosko Rafajlovic)
Subject: Re: pascal
Date: Fri, 28 Oct 1994 11:03:00
"D> Oj ljudi!
"D>
"D> Imam jedan problem. Resio sam da pocnem da ucim Pascal, pa
"D> sam nabavio TP 6.0. Naravno, nemam pojma da programiram u
"D> TP-u. Od knjiga imama neke starudije, tako da je slaba
"D> vajda. No, da ne davim vise... Pravim prg. koji ce po
"D> startovanju da procita datum, zapisan u nekom fajlu, i ako
"D> se taj atm ne poklapa sa sistemskim, on ce da u taj fajl
"D> preko starog datuma upise novi datum i da izvrsi jedam batch
"D> file.
"D>
"D> Prvo, batch file nece da se izvrsi iako sam napisao:
"D>
"D> SwapVectors;
"D> exec(path,'batch.bat');
"D> SwapVectors;
...
Pa zar ti nije lakse da eksterne programe ucitavas na sledeci nacin:
{$M 8192, 0, 0}
...
Var c: string;
...
begin
c:=('batch.bat');
if c<>'' then c:='/c'+c;
swapvectors;
exec(getenv('comspec'),c);
end.
The End... Prosto zar ne ?!
Pozdrav Bole...
p.s. javi se malo na RAF BBS, tel. 011/724-073, od 22-06 - bavimo se
programiranjem...
... ARRRRRGGGHHH!!!! ... Tension breaker, had to be done.
* Origin: SetNet:Birostroj BBS,NON-STOP,14400bps,011/609945 (38:103/125)
pascal.573postmast,
From: broker@setgate.setnet.co.yu (Predrag Supurovic)
Subject: pascal
Date: Fri, 28 Oct 1994 11:04:00
>"P> Ja sam naucio iz umetaka Racunara (dejanr) i iz help-a samog TP-a.
>Blago tebi kad si odatle naucio (ako to nazivas naucenim).
Bogami, umetk je odlican kao referenca, jer ima lepo slozeno uglavnom sve sto
zatreba u pocetku. Ipak iz njega ja ne bih mnogo naucio, srecom sam Pascal
prilicno znao i od ranije.
Umetak je prilicno upotrebljiv. Ja ga i danas drzim pri ruci, posto su
funkcije logicno i pregledno rasporedjene i lako je naci sintaksu za svaku.
Meni se vise svidja da koristim stampani materijal od ugradjenog help-a.
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.574inikolic,
Da li neko ima izvorni kod za rad za DBF datotekama(citanje, promena , i sve
ostalo) . Ili moze TPU ali za BP 7.0. Uzgred bi me zanimalo vae misljenje o
Pascal-ovoj bazi : koliko je ona kvalitetna i pouszdana za veliki broj
podataka.
IGOR
pascal.575omega,
-> #573, postmastŢ> "P> Ja sam naucio iz umetaka Racunara (dejanr) i iz help-a samog TP-a.
Ţ
Ţ> Blago tebi kad si odatle naucio (ako to nazivas naucenim).
Ovo vec pocinje da me iritira. Izgleda da nam ne stizu sve poruke sa
Beointernet-a, jer ovu quote-iranu poruku nigde ne videh!?
A sto se tice same poruke, bas mi je drago sto mi zavidis na znanju,
ko god da si.
pascal.576vvelisavljev,
-> #315, evlad> Program Ctrl_Alt_Del;
Zanima me kako bi u Pascalu moglo da se uradi ovo isto da bude
rezidentno u mem i da čeka na pritisak tastera da izvrši onu proceduru u
asembleru za reset? ( uh al ga sroči :)
pascal.577spantic,
-> #566, omega> Ja ovo zovem veoma drskim neodgovaranjem na pitanje.
Neodgovaranjem? Jedina zaista drska osoba ovde si bojim se ti.
Prvo, ja sam komentarisao tvoju veoma "hrabru" tvrdnju kako je
"ovo što se radi kod nas na fakultetima očaj".
Da bi mogao sa autoritetom da tako nešto tvrdiš morao bi da
znaš kako se ti programi izvode i šta je uopšte u njima. "Kod nas"
je opet širok pojam. Imaš Univerzitet u Beogradu, Novom Sadu,
Nišu, Podgorici, Prištini... Samo u Beogradu opet imamo, da
nabrojimo samo relevantne, ETF, FON i PMF. Dakle, na kojima
je sve "očaj"?
Drugo, pitaš "koje metode". Direktno sam ti odgovorio koji je
sistem rada bio kod profesora Joze Dujmovića na predmetu "Programski
jezici i metode programiranja I" na ETF Beograd. Isti pristup je
i danas na snazi, mada su ukinuli domaće zadatke, što je jedna
velika greška.
Treće, ti sebi pridaješ veliku važnost kada smatraš da je neko
zaista dužan da ti nešto odgovara. I još se buniš i kada odgovor
dobiješ.
pascal.578omega,
-> #577, spanticŢ Neodgovaranjem? Jedina zaista drska osoba ovde si bojim se ti.
Vidis u tome se mi i razlikujemo. Ja se ne bojim. Ja znam.
Ţ Da bi mogao sa autoritetom da tako nesto tvrdis morao bi da
Ţ znas kako se ti programi izvode i sta je uopste u njima. "Kod nas"
Ţ je opet sirok pojam. Imas Univerzitet u Beogradu, Novom Sadu,
Naravno da sam mislio na Univerzitet u Beogradu.
Ţ Drugo, pitas "koje metode". Direktno sam ti odgovorio koji je
Ţ sistem rada bio kod profesora Joze Dujmovica na predmetu "Programski
Ţ jezici i metode programiranja I" na ETF Beograd. Isti pristup je
To nije tradicionalna metoda, vec specificna. Ti znaci pricas na
osnovu jednog jedinog primera, i to specificnog!?
Ţ Trece, ti sebi pridajes veliku vaznost kada smatras da je neko
Ţ zaista duzan da ti nesto odgovara. I jos se bunis i kada odgovor
Ţ dobijes.
Ma niko te nista ne tera. Samo kazem da, ako mi vec protivurecis,
potkrepi to sa cinjenicama.
pascal.579andrejt,
-> #576, vvelisavljev__>> Program Ctrl_Alt_Del;
__>
__> Zanima me kako bi u Pascalu moglo da se uradi ovo isto da bude
__> rezidentno u mem i da ceka na pritisak tastera da izvrsi onu proceduru u
__> asembleru za reset? ( uh al ga sroci :)
Evo otprilike ovako :
{$M 1600,0,0}
Uses Dos;
Var Old28,Old9 : Procedure;
Confirm : Boolean;
{$F+}
Procedure New28; interrupt;
Begin
Old28;
If Confirm Then Alt_Ctrl_Del;
ASM PUSHF END;
End;
Procedure New9; interrupt;
Begin
If Port[$60] = 29 Then Confirm := True
Else Confirm := False;
ASM PUSHF END;
Old9;
End;
{$F-}
Begin
Confirm := False;
GetIntVec(9,@Old9);
GetIntVec($28,@Old28);
SetIntVec(9,@New9);
SetIntVec($28,@New28);
Keep(0);
End.
Ono 29 ti je za Ctrl.
pascal.580vlador,
-> #573, postmast> From: broker@setgate.setnet.co.yu (Predrag Supurovic)
> Subject: pascal
> Meni se vise svidja da koristim stampani materijal od ugradjenog help-a.
A meni se najviše sviđa da koristim ugrađeni help. :)
pascal.581inferno,
-> #550, vitez.kojaŮ│ ˙#=> U pravu si... Nisam znao za procedure dok nisam
Ů│ ˙#=> pročitao bas2pas... :)
Ů│ ˙
Ů│ ˙ Auuu... pa ti ne znaš ni basic ;)
Ů│ ˙
Ů│ ˙ Prelažem ti da, umesto 'divlje' metode učenja, uzmeš neku knjigu
Ů│ ˙ i lepo se o svemu informišeš. Umetak iz Računara nisam video, ali
Ů│ ˙ sumnjam da vredi koliko prava knjiga.
Sve knjige koje sam ja čitao su SHIT! Jadan onaj ko odatle
mora da uči (studenti). Lepo ljudi listaju program za
programom i odjedamput negde npr. iskrsne neka komanda za
koju nigde nema objašnjenja. Samo gomila beskorisnih
grafikona i listinga.. po principu "snađi se!"
Što se tiče umetka, on je mnogo dobro napisan. Sama
činjenica da nisam ništa uspeo da uradim dok nisam pročitao
bas2pas dosta govori (o textu, a možda i o meni ;))...
pascal.582inferno,
-> #562, uobradovicŮ│ ˙ ::> Prelažem ti da, umesto 'divlje' metode učenja, uzmeš neku
Ů│ ˙ ::> knjigu i lepo se o svemu informišeš. Umetak iz Računara nisam
Ů│ ˙ ::> video, ali sumnjam da vredi koliko prava knjiga.
Ů│ ˙
Ů│ ˙ Umetak iz Računara je loš.Nabavi knjigu
Ů│ ˙ 'Turbo Pascal 6.0 - Kompletan vodič' Stephena O'Briena.
Ovo je već nešto novo (za mene)...
Možeš li mi reći nešto o knjizi? Nisam je video po
knjižarama.. :( (mislim na cenu, ko je štampa, i gde je
knjižara budući da je nisam video)
pascal.583inferno,
-> #571, postmastŮ│ ˙ "O> Kazes da nemas pojma a pravis program do kog bi ti trebalo
Ů│ ˙ "O> vise vremena rada.
Ů│ ˙
Ů│ ˙ Dobro, covek krece odmah sa 'ozbiljnim' stvarima...
Znam ja da to nije ozbiljna sstvar, ali pisao sam pogram
koji mi je trebao za nešto. Sad nije bitno da li je
"ozbiljan" ili ozbijan... ;))
žudno je eto što mi je za istu stvar u BASIC-u trenalo 10=ak
minuta, a za Pascal verziju 3 dana...
pascal.584rccomp,
Da li neko ima program za Stomatolosku ordinaciju ?
Ponude na mail rccomp
pascal.585spantic,
-> #578, omega> Vidis u tome se mi i razlikujemo. Ja se ne bojim. Ja znam.
Da si drzak? Svaka čast na iskrenosti.
> Naravno da sam mislio na Univerzitet u Beogradu.
Nije "naravno". Kada već o nečem diskutuješ, onda moraš
jasno da naznačiš o čemu je reč. Ovako možeš posle da
vičeš kako je bila reč o ... tvom Univerzitetu, tvom fakultetu,
tvojoj ulici, a kad te priteraju i tvojoj sobi.
> To nije tradicionalna metoda, vec specificna. Ti znaci pricas na
> osnovu jednog jedinog primera, i to specificnog!?
Tradicionalni metod u predavanju programskih jezika? I ja to negde
tvrdio? Niti je tradicionalni, niti specifičan. Reč je o jednome
od metoda koji se koriste u svetu (a radi tvoje informacije ima ih
više od dva, baš kao što je pre nego što sam ti opisao drugi, bilo
i više od jednog ;)
> Ma niko te nista ne tera. Samo kazem da, ako mi vec protivurecis,
> potkrepi to sa cinjenicama.
Najbolje da se sam sa sobom dogovoriš šta želiš da pokažeš. Ovde
niko drugi do tebe samoga ne upada sebi u usta. Nisam ja pričao o
stvarima koje vrlo slabo poznajem, to si bio ti. Ti pričaš o
"jednom jedinom primeru" što samo pokazuje koliko znaš kada ETF
Beograd zoveš jednim, jedinim primerom.
Usput, o kojoj raspravi i da se govori, kada uopšte nisi ni naveo
GDE se to nastava programskih jezika kod nas odvija loše. Ako misliš
da je samo tvoja paušalna procena dovoljna da potkrepi svoj stav,
nadam se da ćeš pre nego što ti to zaista bude značajno, ipak malo
razmisliti.
pascal.586superhik,
-> #582, inferno=:> Možeš li mi reći nešto o knjizi? Nisam je video po
=:> knjižarama.. :( (mislim na cenu, ko je štampa, i gde je
=:> knjižara budući da je nisam video)
Mikro knjiga 011 542-516 Petra Martinovića 6
11030 Beograd
pascal.587omega,
-> #585, spanticŢ> Vidis u tome se mi i razlikujemo. Ja se ne bojim. Ja znam.
Ţ
Ţ Da si drzak? Svaka cast na iskrenosti.
Ha ha. Al' smo zanimljivi
Ţ Tradicionalni metod u predavanju programskih jezika? I ja to negde
Ţ tvrdio?
Pa ako vec ne mozes da se setis, pogledaj malo tvoje prethodne poruke.
Ţ Niti je tradicionalni, niti specifican. Rec je o jednome
Ţ od metoda koji se koriste u svetu (a radi tvoje informacije ima ih
O, pa mi smo to upoznati i sa predavanjima u svetu ;>
Ţ Najbolje da se sam sa sobom dogovoris sta zelis da pokazes. Ovde
Ţ niko drugi do tebe samoga ne upada sebi u usta.
:))) Mdave, sta ti mislis o ovome? ;)
Ţ stvarima koje vrlo slabo poznajem, to si bio ti. Ti pricas o
Ţ "jednom jedinom primeru" sto samo pokazuje koliko znas kada ETF
Ţ Beograd zoves jednim, jedinim primerom.
ETF JESTE JEDAN JEDINI PRIMER. A ti ako toliko volis svoj fakultet,
ne moras ovde da se lozis.
Ţ Usput, o kojoj raspravi i da se govori, kada uopste nisi ni naveo
Ţ GDE se to nastava programskih jezika kod nas odvija lose.
Vidis, ja znam za bar dva fakulteta pouzdano, a ti samo za jedan.
Ma znas sta, mi zivimo u predivnoj zemlji, sve oko nas cveta, svi
profani su savrseni, svi predaju "tradicionalnim" metodama po
svetskom standardu ;))) Mozda se sad i slozis sa mnom?
pascal.588postmast,
From: Nikola.Sivacki@f125.n103.z38.setgate.setnet.co.yu (Nikola Sivacki)
Subject: Re: Boje
Date: Tue, 01 Nov 1994 19:07:01
SM>
SM> Potreban ti je BGI driver za SVGA, on se zove SVGA256.BGI i mozes
SM> ga naci na vecini BBS-ova. Kada ga nabavis onda se on
SM> inicijalizuje pomocu procedure InitSVGAGraph(mode):
SM> Ovo je izvod iz mog TPU-a i na brzaka je skrpljen, pa nisam siguran
SM> da je sve ok, ali bi trebalo da shvatis kako se to radi. U ovom
Radi, radi i hvala ti mnogo.Medjutim sada mi se javio novi problem, pa sam
mislio da bi ti znao u cemu je problem.Jer niko, ko se bavi Pascalom nije
znao da mi to objasni.Evo u cemu je stvar:Uspeo sam(uz tvoju pomoc) da ko-
ristim 256 boja u programima, i takodje sam uspeo da ucitam sliku od DVE
boje(malo uz pomoc jednog sourcea koji sam skinuo sa nekog BBS-a a malo sam
i ja nesto dodao).Pogadjas, hocu da te pitam kako da ucitam sliku od 256
boja.Pokusao sam sve, pa i sam ne shvatam kako da tako nesto(mozda tebi
jednostavno) uradim.Unapred hvala,
Nikola
... File not found, I'll load something *I* think is interesting.
* Origin: SetNet:Birostroj BBS,NON-STOP,14400bps,011/609945 (38:103/125)
pascal.589postmast,
From: Sloba.Markovic@f115.n103.z38.setgate.setnet.co.yu (Sloba Markovic)
Subject: Boje
Date: Sat, 29 Oct 1994 12:31:02
Origin.SUBJ: Boje
Origin.FROM: Predrag Knezevic
Origin.TO: Nikola Sivacki
NS> Da li iko zna kako se moze u tp 6.0 (uz SVGA karticu)
PK> Probaj sa direktnim upisom u video mem (videces u asm-u ima interupt).
Ajde muni ovde neki LIB ili source za direktan upis u video mem!
Veoma me zanima kako se to radi, ali ne znam! Znam kako se radi
za txt mod, ali ne i za graficki!
MAGIC FLASH!
... "Da se izmirimo i da ona govna izgazimo!"
* Origin: Atlantis BBS 22-05 tel. 3225-548 ■Belgrade■ (38:103/115)
pascal.590postmast,
From: Sloba.Markovic@f115.n103.z38.setgate.setnet.co.yu (Sloba Markovic)
Subject: pascal
Date: Sat, 29 Oct 1994 12:34:03
Origin.SUBJ: pascal
Origin.FROM: "Ivan Petrovic"
Origin.TO: All
"P> Imam jedan problem. Resio sam da pocnem da ucim Pascal, pa
"P> sam nabavio TP 6.0. Naravno, nemam pojma da programiram u
"P> TP-u. Od knjiga imama neke starudije, tako da je slaba
"P> vajda.
Ja sam TP naucio iz sjajne knjige "OSNOVI PASKALA SA EKSTENZIJAMA
TURBO-PASCALA" Milana Cabarkape (crvena knjiga), i iz jos boljeg
(zbog vise primera) TP On-line helpa!
MAGIC FLASH!
... Gluma je umetnost odvracanja publike od zevanja!
* Origin: Atlantis BBS 22-05 tel. 3225-548 ■Belgrade■ (38:103/115)
pascal.591postmast,
From: Sloba.Markovic@f115.n103.z38.setgate.setnet.co.yu (Sloba Markovic)
Subject: tri-door
Date: Sat, 29 Oct 1994 12:40:04
Origin.SUBJ: tri-door
Origin.FROM: Bosko Rafajlovic
Origin.TO: All
BR> Da li je neko ovde radio sa TRI-DOOR-om ?
BR> Ja sam provalio neke funkcije ali nisam sve :( ... pa me interesuje
BR> sta sve moze ... !
Ja sam pravio neke door-ove i mogu ti reci da je TPU -- mrak!
Very easy za upotrebu, jasna imena func. i proc. koje skoro sve rade
za tebe, tako da se pisanje svodi na nesto komplikovanije pisanje
programa za DOS, jer ti TPU proc. i func. same obavljaju prakticno
zezanje sa modemom.
MAGIC FLASH!
... Ostali smo bez senfa na koti 45!
* Origin: Atlantis BBS 22-05 tel. 3225-548 ■Belgrade■ (38:103/115)
pascal.592mdave,
-> #587, omegaSubject: Re: VOAH!
MD> Ţ Najbolje da se sam sa sobom dogovoris sta zelis da pokazes.
MD> Ţ Ovde niko drugi do tebe samoga ne upada sebi u usta.
MD>
MD> :))) Mdave, sta ti mislis o ovome? ;)
MDave ne razmišljati !
Bledoliki Spantić govoriti zmijskim (tss tss tss) jezikom !
Veliki SysAdm-Manitu njemu obrisati poruku !
HAUG !
pascal.593vvelisavljev,
-> #579, andrejt> Begin
> If Port[$60] = 29 Then Confirm := True
> Else Confirm := False;
> ASM PUSHF END;
> Old9;
> End;
Ovo radi Ok kad pritisneš CTRL. Vidiš, ja sam primetio da svki
taster portu šalje jedan kod dok je pritisnut i drugi kod kad ga pustiš.
E, ja sam imao u planu da mi se računar resetuje kad ja pritisnem ALT-R.
Primetio sam da onda na port izlaze sledeći kodovi: 56 19 147 184. 56 je
za ALT kad ga pritisneš a 19 za r. 147 je za r kad ga pustim a 184 za ALT.
Najverovatnije je da ja sad nisam otkrio nikakvu Ameriku :) ali to je za
mene novina. Mene zanima kako ja da kad proverim da je prvi taster 56 da
prosledim portu sledeći taster da bi video dali je on 19 pa da se mašina
resetuje.
Huh, nadam se da vas nisam ugnjavio.
pascal.594vitez.koja,
-> #576, vvelisavljev#=>> Program Ctrl_Alt_Del;
#=> Zanima me kako bi u Pascalu moglo da se uradi ovo isto
#=> da bude rezidentno u mem i da čeka na pritisak tastera
#=> da izvrši onu proceduru u asembleru za reset? ( uh al ga
#=> sroči :)
Pogledaj primer uz help za "Keep" funkciju - sve će ti se kasti
samo.
pascal.595inferno,
-> #586, superhikŮ│ ˙
Ů│ ˙ Mikro knjiga 011 542-516 Petra Martinovića 6
Ů│ ˙ 11030 Beograd
Hvala, ovo je stvarno bilo od koristi! :)
pascal.596uobradovic,
-> #582, inferno::> Možeš li mi reći nešto o knjizi? Nisam je video po
::> knjižarama.. :( (mislim na cenu, ko je štampa, i gde je
::> knjižara budući da je nisam video)
Knjiga je odlična(najbolja za učenje Turbo Pascala).Možeš je
naći u Mikro knjizi(Petra Martinovića 6; tel:542-516) i mislim
da joj je cena 25 dinara.
Uroš
pascal.597pedjak,
-> #582, inferno> Ů│ ˙ 'Turbo Pascal 6.0 - Kompletan vodič' Stephena O'Briena.
> Možeš li mi reći nešto o knjizi? Nisam je video po
> knjižarama.. :( (mislim na cenu, ko je štampa, i gde je
> knjižara budući da je nisam video)
Mikro knjiga.
pascal.599vitez.koja,
-> #593, vvelisavljev#=> mene novina. Mene zanima kako ja da kad proverim da je
#=> prvi taster 56 da prosledim portu sledeći taster da bi
#=> video dali je on 19 pa da se mašina resetuje.
Svaki taster ima svoj scan code. Broj koji se pojavljuje na
portu 0x60 kada je taster pritisnut je njegov sken kod ;)
a kada se taj taster pusti na taj port stiže njegov sken kod sa
upaljenim sedmim bitom - tj. uvećan za 128.
U programu treba da u neku boolean promenljivu postaviš 1 kada
očitaš da je taster ALT pritisnut, a 0 kada je pušten. Onda:
if alt and port(0x60)=šta_već do to_i_to.
pascal.600kriss,
-> #587, omega˙˙ Ţ> Vidis u tome se mi i razlikujemo. Ja se ne bojim. Ja znam.
˙˙ Ţ
˙˙ Ţ Da si drzak? Svaka cast na iskrenosti.
˙˙
˙˙ Ha ha. Al' smo zanimljivi
Baš ste zanimljivi. A zanimljiv je i moderator koji ovo sve trpi u
temi. :<
pascal.601vitez.koja,
-> #598, sslavko#=> i šta raditi da se skine onaj BAD sektor. Ili je to stvarno
#=> oštećen sektor koji se BAŠ tu pojavio u BAŠ tom trenutku?!?!?!
Startuj Disktool iz nortona i obeleži ga kao da je dobar (ako si
siguran da stvarno jeste), u svakom slučaju pusti posle NDD da
proveri disk...
sk
pascal.602vlador,
-> #585, spantic>> Vidis u tome se mi i razlikujemo. Ja se ne bojim. Ja znam.
> Da si drzak? Svaka čast na iskrenosti.
Da niste malllko promašili conf? :)
pascal.603ognjen,
-> #582, inferno[uobradovic]
)-> Nabavi knjigu 'Turbo Pascal 6.0 - Kompletan vodic'
)-> Stephena O'Briena.
Da li ima puno razlika u odnosu na 5.5 (ne turbo pascal, nego
knjiga :) ??? Ja imam tu knjigu na engleskom, pa me zanima da li
ad nabavljam novu? Kakav je prevod?
pascal.604andrejt,
-> #593, vvelisavljev__> E, ja sam imao u planu da mi se racunar resetuje kad ja pritisnem ALT-R.
Umesto If Port[$60] = 29 Then Confirm := True
Else Confirm := False;
u proceduri New9,
stavi Case Port[$60] Of
56 : Alt := True; (* 56 - kad pritisnes Alt *)
184 : Alt := False; (* 184 - kad pustis Alt *)
19 : RChar := True; (* 19 - kad pritisnes R *)
147 : RChar := False; (* 147 - Kad pustis R *)
End;
i umesto If Confirm Then ... ;
u proceduri New28, stavi If Alt And RChar Then ... ;
pascal.605inferno,
-> #603, ognjenŮ│ ˙ Da li ima puno razlika u odnosu na 5.5 (ne turbo pascal, nego
Ů│ ˙ knjiga :) ??? Ja imam tu knjigu na engleskom, pa me zanima da li
Ů│ ˙ ad nabavljam novu? Kakav je prevod?
Niam video 5.5 knjigu... Što se tiče ove knjige Stivena O
Brajana ;), sve mje preporuke...
pascal.606postmast,
From: Nikola.Sivacki@f125.n103.z38.setgate.setnet.co.yu (Nikola Sivacki)
Subject: Re: raf bbs
Date: Mon, 31 Oct 1994 18:58:01
-=> Quoting Bosko Rafajlovic to All <=-
BR> raf bbs, tel. 011/724-073
BR> od 22-06 h
BR>
Sta je ovo i kakve to veze ima sa Pascalom? Da li je to neka najnovija metoda
ispisa teksta u Pascalu? Da li mozda ide ovako ?:
program raf_bbs;
uses crt;
begin
clrscr;
writeln('raf bbs, tel. 011/724-073');
writeln('od 22-06 h');
end.
Cini mi se da postoji konferencija NET.Oglasi ili tako nesto. Ako vec imas
toliku neiscrpnu zelju za oglasavanjem probaj tamo ako vec nisi(ma, ne i nisi).
Nikola
... "Mr. Worf, fire phasers at Bosko" ... Zzzzzap!
* Origin: SetNet:Birostroj BBS,NON-STOP,14400bps,011/609945 (38:103/125)
pascal.607superhik,
-> #603, ognjen=:> Da li ima puno razlika u odnosu na 5.5 (ne turbo pascal,
=:> nego knjiga :) ??? Ja imam tu knjigu na engleskom, pa me
=:> zanima da li ad nabavljam novu? Kakav je prevod?
Slušaj... Za 25 DIN ako nađeš bolju knjigu
o TP-u sečem glavu!
pascal.608uobradovic,
-> #603, ognjen::> Da li ima puno razlika u odnosu na 5.5 (ne turbo pascal,
::> nego knjiga :) ??? Ja imam tu knjigu na engleskom, pa me
::> zanima da li ad nabavljam novu? Kakav je prevod?
Nemam tu knjigu(Turbo Pascal 5.5).Video sam je kod jednog
čoveka ali neznam kakva je.Što se tiče knjige Stephena
O'Briena odlična je.Samo toliko.
Ako imaš para ne bi bilo loše da je kupiš.
Uroš
pascal.609vlador,
-> #607, superhik> Slušaj... Za 25 DIN ako nađeš bolju knjigu
> o TP-u sečem glavu!
žiju? ;)
pascal.610vlador,
JEDNO PITANJE
=============
Već sam pitao u PC.PROG:windows, ali ovo se ne tiče samo Windowsa.
Kako iz Pascala da podesim volume label diskete?
Pkušao sam pozivanjem interapta i to lepo radi kroz DOS, ali ne i kroz
Windows (a ovo drugo mi treba). Pokušao sam setovanjem volume atributa
fajla (SetFAttr), ali ova operacija vraća DosError 5 (Acces denied),
iako na disketi nema postojećeg volume labela. Setovanje nekog "normalnog"
atributa, kao štu su hidden, read-only radi bez problema.
'Ajte ljudi, nije valjda da niko ne zna!
pascal.611ognjen,
-> #608, uobradovic)-> Nemam tu knjigu(Turbo Pascal 5.5).Video sam je kod jednog
)-> coveka ali neznam kakva je.Sto se tice knjige Stephena
)-> O'Briena odlicna je. Samo toliko.
Nisi razumeo. Ja imam knjigu:
TURBO PASCAL 5.5 - Complete reference - Stephen O'Brien
Da li da kupujem novu, ili da ucim engleski?
pascal.612postmast,
From: bebek@setgate.setnet.co.yu (Zeljko Stevanovic)
Subject: pascal
Date: Mon, 31 Oct 1994 08:24:07
-=> Quoting "Rastko Colic" to All <=-
Citat: "Rastko Colic" <rcolic@sezam.UUCP>
"C> Slazem se sa tobom, ali ipak se ne moze sve nauciti pisuci programe
"C> samoinicijativno.. ipak treba da postoji i literatura pomocu koje ce
"C> se usmeravati samostalni rad (ne mislim na tupave knjige koje se
"C> koriste u skolama za informatiku). Postoji jedna strasna skupina
"C> programa pod imenom PCGPE (iliti PC Games Programming Encyclopaedia)
"C> koja sadrzi gomilu sorseva grafickog, zvucnog, i/o i slicnog sadrzaja.
"C> Ja je imam, ali je prilicno velika(>1.5MB) pa vicite ako vam treba
"C> poneki sors..
Nevolim da vicem ali evo:
DA SLUCAJNO NEMAS MODEM NA 14400 PA DA MI DAS TO SVE ?
uf ostadoh bez glasa
... BR> Pogubio sam tagove. Postenim nalazacima nagrada.
* Origin: Venik BBS * Smed. Palanka * +381 26 34808 SetNet: (38:103/126)
pascal.613postmast,
From: bebek@setgate.setnet.co.yu (Zeljko Stevanovic)
Subject: pascal
Date: Mon, 31 Oct 1994 08:27:08
Citat: "Ognjen Blagojevic" <ognjen@sezam.UUCP>
)-> 'Turbo Pascal 6.0 - Kompletan vodic' Stephena O'Briena.
"B>
"B> Da ne bude oglas, ali moj ortak prodaje za 30 din, nova. Ne
"B> znam koliko je povoljno, pogledajte prvo u Mikro Knjizi (oni to
"B> prodaju), ako nema, mail me.
Gledah u neki katalog MikroKnjige i tamo pise 20 (bilo letos)
ali kad se uracuna inflacija od letos do sad sumlnjam da je i dalje 20 ..
... BR> Pusenje ili zdravlje. Odlucite sami.
* Origin: Venik BBS * Smed. Palanka * +381 26 34808 SetNet: (38:103/126)
pascal.614postmast,
From: bebek@setgate.setnet.co.yu (Zeljko Stevanovic)
Subject: pascal
Date: Mon, 31 Oct 1994 08:32:09
-=> Quoting "Igor Nikolic" to All <=-
Citat: "Igor Nikolic" <inikolic@sezam.UUCP>
"N> Da li neko ima izvorni kod za rad za DBF datotekama(citanje, promena ,
"N> i sve ostalo) . Ili moze TPU ali za BP 7.0. Uzgred bi me zanimalo vae
"N> misljenje o Pascal-ovoj bazi : koliko je ona kvalitetna i pouszdana za
"N> veliki broj podataka.
Ja imam neke dva paketa za rad sa dbf -ovima ali ni jedna nece
da funkcionise u BP 7.00 isto sam nasao jos TPU-ova za razne
stvari koji necedu da rade...
... ×réss 楜 kłś tĽ ŤĽĄtíĄüŐ žr äŘś žthér kłś tó qüít
* Origin: Venik BBS * Smed. Palanka * +381 26 34808 SetNet: (38:103/126)
pascal.615postmast,
From: Sloba.Markovic@f115.n103.z38.setgate.setnet.co.yu (Sloba Markovic)
Subject: Boje
Date: Thu, 03 Nov 1994 23:07:01
Origin.SUBJ: Re: Boje
Origin.FROM: Nikola Sivacki
Origin.TO: Sloba Markovic
NS> tvoju pomoc) da ko- ristim 256 boja u programima, i takodje sam uspeo
NS> da ucitam sliku od DVE boje(malo uz pomoc jednog sourcea koji sam
NS> skinuo sa nekog BBS-a a malo sam i ja nesto dodao).Pogadjas, hocu da
NS> te pitam kako da ucitam sliku od 256 boja.Pokusao sam sve, pa i sam ne
NS> shvatam kako da tako nesto(mozda tebi jednostavno) uradim.Unapred
Procedure su u glavnom komplikovane, jer se radi o citanju
odredjenog grafickog formata. Ja se nisam bavio takvim stvarima sto
se tice grafike, mada imas npr. na POLITICI ili ECSTASY-ju arhive u
kojima se nalazi source ili TPU za prikazivanje slika (na zalost) u
.PCX formatu, ali zato u 256 boja (sto tebi i treba).
Ako oces sam da prckas po slikama, mogu ti poslati (a mozes i sam
da skines sa gotovog svakog veceg BBS-a) opis najpopularnijih
grafickih formata (GIF, PCX, TIFF...)
Nadam se da sam, iako ne kao za prethodno pitanje, bar malo pomogao.
Pozdrav,
MAGIC FLASH!
... Nije sve u seksu ima nesto i u drzanju za ruke O:)
* Origin: Atlantis BBS 22-05 tel. 3225-548 ■Belgrade■ (38:103/115)
pascal.616postmast,
From: Sloba.Markovic@f115.n103.z38.setgate.setnet.co.yu (Sloba Markovic)
Subject: pascal
Date: Thu, 03 Nov 1994 23:52:02
Origin.SUBJ: pascal
Origin.FROM: "Igor Nikolic"
Origin.TO: All
"N> Da li neko ima izvorni kod za rad za DBF datotekama(citanje, promena ,
Arhiva se nalazi na POLITIKA BBS-u, file oblast 51 ili 53 ne secam
se.
MAGIC FLASH!
... Government isn't the answer... Government is the PROBLEM!
* Origin: Atlantis BBS 22-05 tel. 3225-548 ■Belgrade■ (38:103/115)
pascal.617postmast,
From: nenadr@sunset.fon.bg.ac.yu (Nenad Radosavljevic)
Subject: Re: pascal
Date: Sun, 06 Nov 94 20:59:12 GMT
In article <sezam$pascal uobradovic@sezam.UUCP writes:
>
>::> Da li ima puno razlika u odnosu na 5.5 (ne turbo pascal,
>::> nego knjiga :) ??? Ja imam tu knjigu na engleskom, pa me
>::> zanima da li ad nabavljam novu? Kakav je prevod?
>
> Nemam tu knjigu(Turbo Pascal 5.5).Video sam je kod jednog
> coveka ali neznam kakva je.Sto se tice knjige Stephena
> O'Briena odlicna je.Samo toliko.
> Ako imas para ne bi bilo lose da je kupis.
>
> Uros
>
E pa ja sam procitao i jednu i drugu knjigu i o TP 6.0 -
The Complete Reference knjizi mogu reci samo najbolje stvari.Odlicno je
koncipirana, jasna, i jednom recju treba je imati. Ima sve i za
pocetnika i za iskusnijeg programera, sa gomilom primera za skoro sve
nivoe znanja Pascal-a. Jedina mana koju sam nasao je u delu koji govori
o direktnom pristupu video memoriji gde su primeri uradjeni za CGA i MDA
monitore/kartice, ali se i podaci za VGA/EGA daju izbunariti iz nekog
DOS Thecnical Reference-a. Sve u svemu: svako i malo ozbiljnije radi u
pascalu trebao bi da je ima (bilo original bilo 'prepev' na srpski).
Sto se tice TP 5.5 (citao sam samo prevod) nekako mi je sve u
toj knjizi bilo "nabacano" i nelogicno rasporedjeno. Mogao je covek da
pronadje sta ga zanima ali je morao da pretura i prelistava po knjizi.
Eto toliko. Pozdrav,
Nenad R.
--
-----------------------------------------------------------------------
Nenad Radosavljevic Elektrotehnicki Fakultet
nenadr@sunset.fon.bg.ac.yu Beograd, Yugoslavia
-----------------------------------------------------------------------
pascal.618kriss,
-> #610, vlador˙˙ Kako iz Pascala da podesim volume label diskete?
Pojma nemam iz paskala, ali u asm-u bi umeo (ne garantujem za Win, jer
ga je gajim na disku. žak štaviše, nemam pojma da radim u njemu! Ne
znam kako se pokreće aplikacija, kako se izlazi i sl. Za izlaz
koristim reset taster ...).
Ideja je u sledećem:
volume label se nalazi u boot sektoru (sektor 0), dakle učitaš ga u
neki bafer od 512 bajtova, izmeniš label i vratiš ga. :) Jednostavno?
:)
pascal.619mjova,
-> #610, vlador> Kako iz Pascala da podesim volume label diskete?
možda ti mali hint bude od pomoći:
labela je slična imenu datoteke dužine 0 bajtova, ali sa setovanim
atributom VOL.
pascal.620inesic,
-> #601, vitez.koja># => i šta raditi da se skine onaj BAD sektor. Ili je to stvarno
># => oštećen sektor koji se BAŠ tu pojavio u BAŠ tom
> trenutku?!?!?!
>
> Startuj Disktool iz nortona i obeleži ga kao da je dobar (ako
> si siguran da stvarno jeste), u svakom slučaju pusti posle NDD
> da proveri disk...
> sk
Sećam se jednog virusa, zvao se Ping-pong ili tako nekako -
skakuće ti loptica po ekranu u text režimu. Taj je virus imao
običaj da označi neki sektor kao bad pa da se tamo upiše, ili je
tamo prepisivao but sektor ne sećam se više. Najbolje bi bilo da
se najpre obriše taj bad sector makar bajt po bajt iz pc-toolsa,
pa tek onda da se obeležava da je dobar. Marfi ne spava.
pascal.621omega,
-> #612, postmastŢ "C> koriste u skolama za informatiku). Postoji jedna strasna skupina
Ţ "C> programa pod imenom PCGPE (iliti PC Games Programming Encyclopaedia)
Ţ "C> koja sadrzi gomilu sorseva grafickog, zvucnog, i/o i slicnog sadrzaja.
Ţ "C> Ja je imam, ali je prilicno velika(>1.5MB) pa vicite ako vam treba
Ţ "C> poneki sors..
Ţ
Ţ Nevolim da vicem ali evo:
Ţ DA SLUCAJNO NEMAS MODEM NA 14400 PA DA MI DAS TO SVE ?
I ja sam u tom slucaju interesent :)
pascal.622omega,
-> #618, krissŢ volume label se nalazi u boot sektoru (sektor 0), dakle ucitas ga u
Ţ neki bafer od 512 bajtova, izmenis label i vratis ga. :) Jednostavno?
A za DOS ver < 4.0 ? ;>
pascal.623mmitrovic,
-> #621, omegaŮ█▀█Ţ I ja sam u tom slucaju interesent :)
Ja mu tražio preko mail-a, al me izgleda ne miriše mnogo. ;)
pascal.624kriss,
-> #622, omega˙˙ Ţ volume label se nalazi u boot sektoru (sektor 0), dakle
˙˙ ucitas ga u Ţ neki bafer od 512 bajtova, izmenis label i
˙˙ vratis ga. :) Jednostavno?
˙˙
˙˙ A za DOS ver < 4.0 ? ;>
A za to napišeš poruku 'Ako još koristiš DOS < 4.0, onda ti ni ne
treba volume label' ;>
BTW., ako već znaš pomozi čoveku ...
pascal.625sslavko,
Šta mislite šta će ovo dole dati kao rezultat? 36000 ???
E pa to neće. Umesto pravog rezultata dobićete 36000-65536=-29536.
Znam da se to dešava zbog prekoračenja integer-a, ali mi je
opet malo priglupo da Borland nije vodio računa o ovome. Ili
možda jeste ali ja ne znam.
var i:integer;
begin
i:=9;
writeln(i*4000);
end.
pascal.626omega,
-> #624, krissŢ A za to napises poruku 'Ako jos koristis DOS < 4.0, onda ti ni ne
Ţ treba volume label' ;>
Ţ
Ţ BTW., ako vec znas pomozi coveku ...
Ni meni niko ovde nije pomogao, pa ne mogu ni ja njemu...
Hint: Odustani dok jos mozes...
P.S. Sad mi pade na pamet - treba debagovati COMMAND.COM i naci
kako to VOL radi.
pascal.627janko,
-> #618, kriss> Ideja je u sledećem:
> volume label se nalazi u boot sektoru (sektor 0), dakle
> učitaš ga u neki bafer od 512 bajtova, izmeniš label i
> vratiš ga. :) Jednostavno?
Jednostavno -- pogrešno.
Label se NE nalazi u boot sektoru. Nalazi se u root diru.
Kako mu se pristupa -- skinite TECH Help, ako već niste, za početak.
pascal.628vlador,
-> #618, kriss> volume label se nalazi u boot sektoru (sektor 0), dakle učitaš ga u
> neki bafer od 512 bajtova, izmeniš label i vratiš ga. :) Jednostavno?
Da. :) Još kad bi radilo u Windowsu... :( Stvarno, zašto bre ovo ne radi u
Windowsu? Inače, nisam čitao boot nego sam preko funkcije $69 int $21 čitao
volume label. Sors sam ostavio u PC.PROG:windows.233. Isti taj sors kroz
DOS radi (???).
pascal.629vlador,
-> #619, mjova> labela je slična imenu datoteke dužine 0 bajtova, ali sa setovanim
> atributom VOL.
Pokušao sam i to, ali DOS komanda label preimenuje (ili kreira) takav fajl
i plus toga promeni u bootu ime diskete. Za čitanje mi je bilo dovoljno
samo da pronađem fajl sa Vol atributom, ali za promenu ne. Osim toga,
kada sam pokušao da setujem Vol atribut fajla DOS mi je vratio Acces
Denied.
Q: Gde li sam pogrešio?...
A: Što nisam uzeo C...
pascal.630omega,
-> #629, vladorŢ Q: Gde li sam pogresio?...
Ţ A: Sto nisam uzeo C...
Da znas, prelazi dok jos mozes. Ja sam se uvalio u taj TP, sad se
jedva prilagodjavam ;)
pascal.631goxx,
-> #627, jankoNalazi se i na jednom i na drugom mestu.
Goran
pascal.632uobradovic,
-> #611, ognjen::> TURBO PASCAL 5.5 - Complete reference - Stephen O'Brien
::> Da li da kupujem novu, ili da ucim engleski?
U prethodnoj poruci sam mislio na knjigu Turbo Pascal 6.0.
A da li da je kupiš ili ne,to je tvoja stvar.Ja lično više
volim knjige na srpskom jeziku.
Uroš
pascal.633andrejt,
-> #628, vlador__> Da. :) Jos kad bi radilo u Windowsu... :( Stvarno, zasto bre ovo ne radi
__> u Windowsu? Inace, nisam citao boot nego sam preko funkcije $69 int $21
__> citao volume label. Sors sam ostavio u PC.PROG:windows.233. Isti taj
__> sors kroz DOS radi (???).
Glupi Windows ;)) Zar on ne preuzima neke interapte ? Nemam veze sa winom
ali mozda preuzme 21 pa onda 21,69h ne radi kako je ocekivano ?
pascal.634pedjak,
-> #626, omega> Ni meni niko ovde nije pomogao, pa ne mogu ni ja njemu...
Jako lepo :((
pascal.635kriss,
-> #627, janko˙˙> volume label se nalazi u boot sektoru (sektor 0), dakle
˙˙ Jednostavno -- pogrešno.
˙˙ Label se NE nalazi u boot sektoru. Nalazi se u root diru.
E nije pogrešno, već nedorečeno. ;)
Nalazi se *i* u boot sektoru, i to od dos-a 4+, a nalazi se i u root diru
(kao što mjova reče) kao fajl nulte dužine sa setovanim vol atributom.
Ako baš treba, eno u sledećoj poruci sors-a koji radi preko root-a. :)