pascal.203fortran,
-> #190, janko> moduli, objekti. Ako ti sve treba "preko granica" piši i dalje
> u Fortranu sa COMMON područjima.
A šta fali FORTRAN-u?
pascal.204fortran,
-> #193, mmitrovic
> FORTRAN & BASIC out of my life. I mean it. Ne volim ih, mrzim
> ih, uh.
Pazi šta pričaš. :)
pascal.205dejanr,
-> #197, postmast>> Svojevremeno je neko ovde objasnio kako ima neki fazon koji dopusta
>> da se iz Turbo Pascala (7.0) postigne to da neki program stane,
>> istovremeno pustajuci u rad neki drugi program.Ne mislim na Exec,
>> nego na to da se bas,redovno,prekine i onda pusti onog drugog.
Potoji "fazon", doduše primenljiv na TP 5.x, verovatno i na kasnijima,
nisam probao. Bila je to tema o kojoj je opsežno razgovarano u prvim
Sezamovim danima, dakle krajem 1989. godine. Bilo je nekoliko "domaćih"
rešenja, i najzad sam našao na BIX-u kompletno rešenje problema, doduše
koje uključuje i nešto "prljavog" programiranja (koliko me sećanje
služi, nešto koda je upisivano u sam PSP). Ta arhiva postoji negde na
Sezamu, verovatno u konferenciji PC.SOFT. Može da se potraži ako nekome
treba.
pascal.206pedjak,
Subject: The truth about Delphi... an example
Š Article crossposted from comp.lang.oberon,comp.lang.modula2 Ć
Š Author was Taylor Hutt (thuttčclark.net) Ć
Š Posted on 9 Mar 1995 08:37:13 -0500 Ć
Ok people, here is some hard evidence about Delphi. There are many of
you out there who believe this to be the savior of the programming
industry. I have been highly critical of Delphi for the preposterous
notion it protrays that programming is easy and you can write Windows
applications without doing any coding at all.
Brooks' said it well enough, but it seems to have fallen on deaf
ears: THERE IS NO SILVER BULLET.
That deserves repeating: THERE IS NO SILVER BULLET.
The price you have to pay with Delphi is typical of any of these
beasts which boast a programming framework in Windows: loss of
control. Your main program essential turns into the entire OS,
dispatching the appropriate Windows messages to your functions.
Secondly, you lose the large ability to write real Windows
applications which take advantage of the graphical features of the
environment. Using these frameworks you become vanquished to
transporting your text-based menu-driven select-1,2,3 application to
a pull-down form of the same thing. With Delphi you are making
Dialog based applications which are awfully boring.
But, the biggest drawback to using this abberation is size. Or,
should I say SIZE.
Here is an actual Delphi program, in its entirety. It has one form
and a small dialog to log onto the database. If you cancel the logon
dialog it gets a General Protection Fault (gee, what a surprise).
------------- cut here ---------------------
program Project1;
uses
Forms,
Unit1 in 'UNIT1.PAS' šForm1ć;
š$R *.RESć
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, DB, DBTables, Grids, DBGrids;
type
TForm1 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1CHANGE_STATUS: TStringField;
Table1CORPSRC_CODE: TStringField;
Table1CITY: TStringField;
Table1STATE_PROVINCE: TStringField;
Table1COUNTRY: TStringField;
Table1ABBREVIATED_ORG_NAME: TStringField;
Table1USERNAME: TStringField;
Table1MOD_FLAG: TStringField;
private
š Private declarations ć
public
š Public declarations ć
end;
var
Form1: TForm1;
implementation
š$R *.DFMć
end.
----------------- cut here ----------------------
Impossible to follow flow-of-control, huh? No wonder people have to
have debuggers. Readable? Hardly. Semantic content? Project1?
Unit1? Oh, yes... meaningful. Maintainable. Hardly.
Now, for the biggest shock of all, the size of the files that Delphi
spews out into your directory:
----------- cut here ----------------------
project1.dpr 161 2-09-95 14:23 ; Delphi Program (project1)
project1.opt 241 2-09-95 15:21 ; compiler option
unit1.pas 718 2-09-95 14:55 ; Unit1
unit1.dfm 862 2-09-95 15:21 ; form associated with Unit1
project1.dsk 1284 2-09-95 15:21 ; desktop settings
project1.res 2318 2-09-95 15:21 ; resources
unit1.dcu 2352 2-09-95 15:20 ; ???
project1.exe 366336 2-09-95 15:20 ; EXE from 879 bytes of code
and 862 bytes of form
project1.dsm 572957 2-09-95 15:21 ; settings and info
------------- cut here -------------------
Another interesting thing to note is that in the effort to make
programming as easy as possible, Delphi names everything for you.
Project1, Project2. Unit1, Unit2, etc. It's possible to change the
names, but of the 15 or so people using Delphi here, no one is
changing the names -- directories and directories littered with
files which all have similar names!
Yes, Delphi is another step toward the illusion that programming can
be done by anyone.
No, Delphi is certainly not a step forward in making programming more
robust and reliable.
It fails miserably at any concept of efficiency.
Taylor Hutt
pascal.207pedjak,
-> #200, postmast> U pravu si i u mom uputstvu to pise. Nisam uspeo da pronadjem ali
> sam siguran da sam negde video da TP ima poseban Boolean tip koji
> zauzima bajt (mozda word?) i to mi se ucinilo zanimljivo ali nisam
> nasao upotrebnu vrednost. Zbog toga sam ovak iz glave zakljuco da
Boolean types
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
There are four predefined boolean types:
Boolean, WordBool, LongBool, and ByteBool.
Syntax:
type
Boolean = (False, True);
WordBool = (False, True);
LongBool = (False, True);
ByteBool = (False, True);
Remarks:
These types are the following sizes:
- Boolean is Byte-sized (8 bits)
- WordBool is Word-sized (16 bits)
- LongBool is Longint-sized (32 bits)
- ByteBool is Byte-sized (8 bits)
pascal.208dejanr,
Uz poruku je zanimljiva diskusija o Delphi-ju, Borlandovom (budućem?)
"basic killer"-u. Priča se o programskom modelu, načinu rada, performansama
itd. Videćete da su utisci podeljeni, ali reklo bi se da su u većini
povoljni.
delphi.zippascal.209janko,
-> #193, mmitrovic
> procedure TView.HandleEvent(var Event:TEvent); virtual;
> substitute; begin ... end;
>
> Šta bi ovo radilo? Zamenilo bi kod standardnog
> HandleEventa ovim, i to ne ne kraju hij. stabla, već na
> samom početku, tako da bi ubuduće svi pozivi starog metoda
> ustvari ulazili u ovaj novi metod. Tehnički ovo uopšte
> nije teško izvesti. Ako je metod virtuelan, izmeni se VMT
> tabela objekta TView, ako nije onda se pri linkovanju
> koristi nova adresa. Pošto će novi metodi sigurno biti u
> drugim segmentima, potrebna je FVMT.
> Jedna od najvećih primena bi bila u dijagnostici. Sa ovim
> može lako da se izmeni ponašanje čitavog stabla klasa,
> menjanjem jeddnog metoda. Mogu na primer izmeniti
> ClearEvent, HandleEvent, SetState TView objekta tako da
> javljaju nekoj funkciji kad god instanca obradi ili primi
> Event, kad god se promeni stanje objekta (izgubi fokus,
> itd). Pošto će biti izmenjen top objekat, a sve dobro
> organizovane objektne hijerarhije (kakav je i TV) pozive
> prosleđuju uz stablo, svi će ti pozivi doći do promenjenih
> metoda. Postoji još par primena koje mi se vrte kroz
> glavu, al' ih još nisam smisleno formulisao. :)
Imam utisak da si malo pobrkao stvari -- obrada eventa nema veze sa
virtuelnim tabelama. virurlne tabele su deo jezika, a obrada eventa iz
tvog primera je stvar TurboVisiona (ako ti je iz njega primer), zar ne?
Jer, od virtuelnih funkcija, uvek se izvršava samo JEDNA.
"Prosleđivanje nagore" nije osobina jezika -- osobina jezika je da se
pozove ODGOVARAJUĆI metod za dati objekat. Ni više ni manje.
Promena TView metoda se radi promenom sorsa tog metoda i tačka. :)
pascal.210janko,
-> #203, fortran>> moduli, objekti. Ako ti sve treba "preko granica" piši i
>> dalje u Fortranu sa COMMON područjima.
>
> A šta fali FORTRAN-u?
Ništa, samo je malo zastareo. Ljudi i dan danas programiraju u njemu,
ali uglavnom oni koji to vuku kao "nasleđe iz prošlosti", ili koji imaju
specifične zahteve (recimo, ne žele da uče C++, ne žele da koriste neki
matematički program, a žele da rade sa kompleksnim brojevima).
Fakat je da su FORTRAN kompajleri po pravilu napisani tako da često
daju brži kod za računanje od njihovih sadrugova.
Neki konstrukti FORTRANA se i meni sviđaju. Konkretno, zadavanje labele
koja će se izvršiti pri neuspeloj U/I operaciji je lepo rešenje, meni
izgleda elegantnije od nesrećne obaveze u drugim jezicima da posle svake
U/I operacije eksplicitno pišeš if i akcije koje moraju da se preduzmu.
Tek "exceptions" rade to slično.
Međutim, ubeđen sam da FORTRAN osim za umereno prosto računanje (a i to
VRLO pažljivo, ko je navikao na čistije jezike ima velike šanse da
izračuna pogrešno :) ) ne treba koristiti (dakle, ne pisati nenumeričke
programe u njemu!) jer to potencijalno pravi veću štetu no korist, zbog
malog miliona razloga.
A i za numeričke, potrebna je vraška pažljivost. Pomenuti COMMON blokovi
su jedan od dobrih razloga za to.
pascal.211postmast,
From: zoka@topaz.hobbiton.CO.YU (Zoran Vilendecic)
Subject: Programiranje modema za velike brzine
Date: Tue, 14 Mar 1995 16:10:18 GMT
Koliko sam cuo obicne interapt procedure za slanje karaktera (mislim
pomocu int 16) nise podobne za brzine preko 2400 bps. Kako je moguce srediti
da sve sljaka?
--
********************************
email: zoka@topaz.hobbiton.co.yu
pascal.212zeljkoj,
-> #210, janko> Međutim, ubeđen sam da FORTRAN osim za umereno prosto računanje
> (a i to VRLO pažljivo, ko je navikao na čistije jezike ima
> velike šanse da izračuna pogrešno :) ) ne treba koristiti
???? Objasni ovo? Može li neki primer?
> programe u njemu!) jer to potencijalno pravi veću štetu no
> korist, zbog malog miliona razloga.
Navedi bar jedan.
pascal.215jasicp,
-> #196, vlador> Bas smesno. :) Baci parce koda, ovo bi moglo biti interesantno.
Pronasao sam samo deo problema. Imam deo koda ( stvarno je veliki za
kompletno slanje, a i radi se o necemu "zvanicnom", oko 3000 linija ), gde
se pojavljuje greska. To je prilikom poziva funkcija :
PXErr := PXTblCreate ( ImeTabele , BrojPolja ,
@Polja , @Tipovi) ;
TestParadoxGreske;
.
.
.
TestDosGreske ---> if DosError <> 0 then halt ...
.
.
.
Ovo "if DosError..." sam stavio cisto da zaustavim program za vreme
debagovanja. Ne obracaj paznju na to, osim sto govori da POSLE poziva
Paradox Engine f-je TableCreate DosError nije vise nula. Napominjem da PRE
TblCreate DosError jeste 0. Ovaj deo koda se nalazi u jednoj proceduri, a
nekoliko istih kasnije, gde sam radio:
{$I-}
reset(a)
{$I+}
if IOResult<>0 then...
sasvim sam slucajno otkrio prilikom standardne provere ispravnosti
otvaranja datoteke, da DosError <>0 ! Mislio sam da je problem u "reset"
ali nije. Vratilo me proveravanje sve do pomenute TblCreate. Napominjem
da je PXErr sasvim u redu ! Nema nikakve greske i tabela se savim normalno
kreira i odradi posao, samo sto mi iskoci poruka o gresci ( jer sam to
ugradio u program ) koja samo javi gresku (program nastavi da radi sasvim
normalno). Dakle, sve normalno radi, ali DosError<>0 posle TblCreate ??
Izmedju TblCreate i onog Reset nema poziva funkcija koje bi mogle
prouzrokovati problem sa DosError var.
Evo i procedure koja daje poruku o gresci, a koja je detektuje ni kriva
ni duzna posle "Reset", nekoliko blokova dalje od "osnivaca" problema,
TblCreate:
uses Editors, Objects;
procedure PrikazGreskeIODOS;
procedure PrikazGreskeParadox;
.
.
.
implementation
uses Dos, MsgBox, PXEngine,
Views, App, PXMsg,
Drivers,
Display, constvar;
.
.
.
procedure PrikazGreskeParadox ;
begin
if PXErr <> PXSuccess
then
begin
MessageBox(#3'Greska u radu aplikacije #13 +
#3'Kod ( opis ) greske je :'#13#3+PXErrMsg ( PXErr
),
nil, mfError or mfOKButton);
end;
end;
procedure PrikazGreskeIODOS ;
var ErrorStr : string[3];
begin
if DosError <> 0
then
begin
str ( DosError, ErrorStr ) ;
MessageBox(#3'Greska u radu sa DOS-om '#13 +
#3'Kod ( opis ) greske je :'#13#3+ErrorStr,
nil, mfError or mfOKButton);
end;
end;
.
.
.
pascal.216vlador,
-> #215, jasicp> Pronasao sam samo deo problema. Imam deo koda ( stvarno je veliki za
žekaj, je l' se program terminatira povodom te greške? Možda bi trebalo
pogledati sors Paradoxovih f-ja koje koristiš - možda one nešto čačkaju.
Možda koriste neke trikove pa se error može 'ladno ignorisati?
pascal.217postmast,
From: Jovan.Sedlan@f119.n111.z38.setgate.setnet.co.yu (Jovan Sedlan)
Subject: pascal
Date: Mon, 13 Mar 1995 06:18:01
On 10 Mar 95 02:07pm, "Ivan Lotina" wrote to All:
IL> Kako da disejblujem ctrl-c, ranije sam znao ;)
CheckBreak := False;
(na pocetku programa :)
Jole :Q...
* Origin: ECSTASY BBS * Indjija * 022 53 218 * SETNet: (38:111/119)
pascal.218postmast,
From: Jovan.Sedlan@f119.n111.z38.setgate.setnet.co.yu (Jovan Sedlan)
Subject: Die & Run
Date: Mon, 13 Mar 1995 02:05:00
On 9 Mar 95 11:01pm, Sebastian Adanko wrote to All:
SA> Hi!
SA> Svojevremeno je neko ovde objasnio kako ima neki fazon koji dopusta
SA> da se iz Turbo Pascala (7.0) postigne to da neki program stane,
SA> istovremeno pustajuci u rad neki drugi program.Ne mislim na Exec,
SA> nego na to da se bas,redovno,prekine i onda pusti onog drugog.
Ne znam da li je neko resio, ali se secam da je u nekom od starijih
brojeva Racunara bilo resenje za C. Cini mi se da je bilo "relativno"
hakersko resenje, ali da za C cak i postoji naredba (mislim da se zove
"spawn").
Sto se tice TP-a, nemam pojma. (Sad ces da se naljutis na mene sto ti
ovoliko pisem i na kraju kazem da nemam pojma ;)
Jole :Q...
* Origin: ECSTASY BBS * Indjija * 022 53 218 * SETNet: (38:111/119)
pascal.219postmast,
From: Sebastian.Adanko@f107.n111.z38.setgate.setnet.co.yu (Sebastian Adanko)
Subject: Memory
Date: Mon, 13 Mar 1995 17:10:24
Hail to you, oh great Predrag of the noble house Supurovic !
AC> Uf, kad sam ja tako poslednji put radio u paskalu... Ako me secanje
AC> ne vara, trebalo bi da ide u stilu VAR I:ARRAY[1..8] OF PACKED BOOLEAN,
AC> ili PACKED ARRAY[1..8] OF BOOLEAN. Eksperimentisi malo, valjda ces
AC> pronaci :)
PS> U Turbo Paskalu je rec PACKED ostavljena samo radi kompatibilnosti,
PS> a inace nema funkciju posto se nizovi uvek pakuju.
Pa zar onda ne moze da se BOOLEAN stisne u jedan bit?
Phuzzy Logik
... Najokrutnije lazi izricu se cesto sutnjom. - R.L. Stevenson
* Origin: Prometheus BBS - The Northern Frontier - SETNET (38:111/107)
pascal.220postmast,
From: Stevan.Dejanovic@f119.n111.z38.setgate.setnet.co.yu (Stevan Dejanovic)
Subject: pascal
Date: Mon, 13 Mar 1995 21:06:00
IL> Kako da disejblujem ctrl-c, ranije sam znao ;)
JS>
JS> CheckBreak := False;
JS>
JS> (na pocetku programa :)
JS>
Naravno prvo
uses Crt;
=> Mad Dog <=
... Open mouth, insert foot, echo internationally.
* Origin: ECSTASY BBS * Indjija * 022 53 218 * SETNet: (38:111/119)
pascal.221postmast,
From: SETN@f101.n101.z38.setgate.setnet.co.yu (SETN)
Subject: Statistics
Date: Thu, 16 Mar 1995 22:38:00
Maintaned by CONFERENCE STATISTICS SHELL - (c)1995 by Predrag Supurovic
=======================================================================
Conference NET.PASCAL maintained on 16.02.95. for 28 days backward.
QRATIO Mail Statistics V1.9 by Act Of Impulse.
----------------------------------------------
Total messages found in this area : 300
Number of messages covered in report: 46
Processed period from: 18-2-1995 to 16-3-1995
------------------------------------------------------------------------------
Blacklist-Top 5 of the Quoters.
Nr Total Quoted Quote
Name Address Msg Lines Lines: Ratio:
---- ------- --- ----- ------ ------
1. Attila Csipa............. 38:111/107 2 21 13 61.90%
2. Stevan Dejanovic......... 38:111/119 1 10 6 60.00%
3. Kliment Andreev.......... Invalid Origin 1 12 7 58.33%
4. "Janko Stamenovic"....... Invalid Origin 3 47 27 57.45%
5. Petar Zivanovic.......... 38:103/128 1 15 8 53.33%
------------------------------------------------------------------------------
Top 5 of the writers.
Total Average Quote
Name Msgs: Pct. Byte/Msg Ratio:
---- ----- ----- -------- ------
1. Predrag Supurovic 4 8.7% 479 52.78%
2. Sebastian Adanko 4 8.7% 571 27.27%
3. "Dejan Ristanovic" 4 8.7% 2767 3.59%
4. Jovan Sedlan 3 6.5% 401 36.00%
5. "Janko Stamenovic" 3 6.5% 702 57.45%
------------------------------------------------------------------------------
Top 5 of the receivers.
Total
Name Msgs: Pct.
---- ----- -----
1. All 32 69.6%
2. Sebastian Adanko 4 8.7%
3. Attila Csipa 2 4.3%
4. Predrag Supurovic 2 4.3%
5. Kliment Andreev 1 2.2%
------------------------------------------------------------------------------
Top 5 of the subjects.
Subject Nr.
------- ---
1. pascal...................................................... 32
2. Memory...................................................... 9
3. Die & Run................................................... 2
4. novi TP?.................................................... 1
5. Statistics.................................................. 1
------------------------------------------------------------------------------
Average posting frequency per week:
Day Msgs Pct. Graph
Sunday 5 10.9% *************************
Monday 7 15.2% ************************************
Tuesday 3 6.5% ***************
Wednesday 9 19.6% **********************************************
Thursday 7 15.2% ************************************
Friday 5 10.9% *************************
Saturday 10 21.7% ***************************************************
------------------------------------------------------------------------------
Average posting frequency per day:
Interval Msgs Pct. Graph
-------- ---- ----- -----
0:00- 1:59 7 15.2% **************************************************
2:00- 3:59 5 10.9% ************************************
4:00- 5:59 1 2.2% *******
6:00- 7:59 3 6.5% *********************
8:00- 9:59 6 13.0% *******************************************
10:00-11:59 4 8.7% ****************************
12:00-13:59 1 2.2% *******
14:00-15:59 2 4.3% **************
16:00-17:59 3 6.5% *********************
18:00-19:59 4 8.7% ****************************
20:00-21:59 5 10.9% ************************************
22:00-23:59 5 10.9% ************************************
------------------------------------------------------------------------------
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.222vitez.koja,
-> #211, postmast#=> From: zoka@topaz.hobbiton.CO.YU (Zoran Vilendecic)
#=> Koliko sam cuo obicne interapt procedure za slanje
#=> karaktera (mislim pomocu int 16) nise podobne za brzine
#=> preko 2400 bps. Kako je moguce srediti da sve sljaka?
Potrebno je da napišeš sopstveni interrupt handler, koji će da
kupi karaktere sa porta kako koji bude dolazio, i prosleđivati ih
dalje. Cela operacija zahteva malo dokumentacije i malo truda,
i radi, ali...
Preporučio bih ti da uzmeš neku od šarevare biblioteka za
serijsku komunikaciju - one su sve veoma razrađene i doterane.
Najbolja biblioteka, po meni, je PCL, ako hoćeš da se baviš
niskim nivoom komunikacije, odnosno OPENDOORS, ukoliko praviš
DOOR program, i nećeš da se zamajavaš sa "obaveznim sastavom" :)
pascal.223dejanr,
-> #219, postmast>> > U Turbo Paskalu je rec PACKED ostavljena samo radi kompatibilnosti,
>> > a inace nema funkciju posto se nizovi uvek pakuju.
>>
>> Pa zar onda ne moze da se BOOLEAN stisne u jedan bit?
Ne može... moraš praviti procedure koje pakuju, raspakuju i testiraju
bitove. Nije preterani problem.
pascal.224mitcho,
-> #218, postmast> SA> istovremeno pustajuci u rad neki drugi program.Ne mislim na
> Exec, SA> nego na to da se bas,redovno,prekine i onda pusti
> onog drugog.
>
> Ne znam da li je neko resio, ali se secam da je u nekom od
> starijih brojeva Racunara bilo resenje za C. Cini mi se da je
> bilo "relativno" hakersko resenje, ali da za C cak i postoji
> naredba (mislim da se zove "spawn").
U C-u postoji više funkcija za rad sa "child" procesima. Medjutim,
funkcija spawn ne radi ono što se tražilo. Ona ne prekida izvršavanje
"parent" programa, već radi kao Exec u Paskalu. Funkcije koje prekidaju
izvršenje roditeljskog programa su exec... familija funkcija (u TC).
pascal.225mibak,
Molim sve upućene da mi pomognu oko sledećeg problema:
Potrebno je iz pascala štampati neki poznati grafički format. Pokušao sam
sa TPPCX ali pošto koristim TP7 ne prihvata format TPU datoteka.
Hvala.
/\/\|3
pascal.226mibak,
Možle li neko da me podseti kako se sa write/ln štampa iz paskala.
Da li ista procedura prijavuje gršku prilikom štampaču(pretpostavljam preko
neke promenjive). Bilo bi poželjno da štampač sam, bez zadavanja linija po
strani, može da odredi kad je kraj strane i pređe na novu.
Hvala.
/\/\|3
pascal.227jasicp,
-> #216, vlador> Cekaj, je l' se program terminatira povodom te greske? Mozda bi trebalo
> pogledati sors Paradoxovih f-ja koje koristis - mozda one nesto cackaju.
> Mozda koriste neke trikove pa se error moze 'ladno ignorisati?
Program se savim normalno izvrsava. Moja f-ja za error handling je
vrlo prosta, samo prijavi gresku i ok. Nema uticaja na izvrsavanje
programa. Tabela normalno odradi posao. A gde da nadjem izvorni kod PX
funkcija :) ? Ne verujem da bi mi Borland to rado poslao. Ipak mislim da
dolazi do interakcije sa nekim delom mog koda, ali za to cu morati da
usijam TD ... A i nije mi presudno, osim sto me nervira sto ne mogu da
pronadjem uzrok. Sigurno je zackoljica do mene, jer TBLCreate ovo ne radi
na drugim mestima ( verovatno ? ). Samo, posle nedelju dana trazenja
uzroka, stvarno mi nije jasno sta bi trebalo da bude problem.
pascal.228postmast,
From: anubis@topaz.hobbiton.CO.YU (Igor Loncarevic)
Subject: Re: pascal
Date: Sun, 19 Mar 1995 23:35:43 GMT
U poruci od Vladimir Maric (vitez.koja@sezam.UUCP) stoji:
## #=> From: zoka@topaz.hobbiton.CO.YU (Zoran Vilendecic)
## #=> Koliko sam cuo obicne interapt procedure za slanje
## #=> karaktera (mislim pomocu int 16) nise podobne za brzine
## #=> preko 2400 bps. Kako je moguce srediti da sve sljaka?
## Potrebno je da napises sopstveni interrupt handler, koji ce da
## kupi karaktere sa porta kako koji bude dolazio, i prosledivati ih
## dalje. Cela operacija zahteva malo dokumentacije i malo truda,
## i radi, ali...
Nema ali:). To je to... btw pogledaj malo zz-ov code. Jest da je c
ali portira se za 2.3 sec. :)
## Preporucio bih ti da uzmes neku od sarevare biblioteka za
## serijsku komunikaciju - one su sve veoma razradene i doterane.
## Najbolja biblioteka, po meni, je PCL, ako hoces da se bavis
## niskim nivoom komunikacije, odnosno OPENDOORS, ukoliko pravis
## DOOR program, i neces da se zamajavas sa "obaveznim sastavom" :)
Shareware je brezveze... najbolje je da se potrudi. Ako uspijes da uradis
sigurno ces puno nauciti... a ako ne, tu smo vici. :)
A PCL, je tek shit... norocito ona shareware poruka.
Sam i u se ...
--
Igor Loncarevic, anubis@topaz.hobbiton.CO.YU
anubis@hobbiton.CO.YU
pascal.229janko,
-> #212, zeljkoj>> Međutim, ubeđen sam da FORTRAN osim za umereno prosto
>> računanje (a i to VRLO pažljivo, ko je navikao na čistije
>> jezike ima velike šanse da izračuna pogrešno :) ) ne
> treba koristiti
>
> ???? Objasni ovo? Može li neki primer?
Pretpostavljam da poznaješ Fortran, a i druge više programske jezike,
ako hoćeš da diskutujemo o tome? Ovde inače govorim o Fortranima 4 i 77,
novije ne znam.
U Fortranu ti kompajler ne garantuje čemu ćeš za boga miloga pristupati
-- čak ti daje legalno sredstvo za pristupanje pogrešnim podacima --
COMMON blokovi -- zbuni se u REDOSLEDU navođenja imena i gađaćeš ono što
nisi ni sanjao. Dalje, nepostojanje rekurzije. Još dalje, stalni prenos
"by reference". Nemogućnost uvođenja složenih tipova podataka.
Nepostojanje dinamičke alokacije. Imena ograničena na šest slova (u
standardu). Tragično.
>> programe u njemu!) jer to potencijalno pravi veću štetu
>> no korist, zbog malog miliona razloga.
>
> Navedi bar jedan.
Ono što se zove "održavanje" (iako se softveru niti menja ulje niti
šteluje paljenje) a misli se na to da kada je nešto napisano, nije remek
delo za uvek, nego često treba da se promeni da radi nešto "potpuno
drugačije". Fortran sors se mnogo teže prilagođava izmenama od Paskala,
Paskal od C++-a i tako je to.
pascal.230inesic,
-> #226, mibak> Možle li neko da me podseti kako se sa write/ln štampa iz
> paskala.
USES printer;
BEGIN
writeLn(lst,'Pera');
END.
Gornji program bi trebao da ispiše Pera, ako je štampač on-line.
Ja ti ipak preporučujem da dokument ispišeš u neki fajl, tamo ga
lepo formatiraš, središ, pa ga onda pošalješ dosovom printu na
štampu.
pascal.231zeljkoj,
-> #229, janko
> "by reference". Nemogućnost uvođenja složenih tipova podataka.
Evo malog izvoda iz helpa MS FORTRAN-a 5.1:
─────STRUCTURE...END STRUCTURE──────────────────────────────────────────────
Action
Defines a compound variable type from other variable types.
Syntax
STRUCTURE /type_name/
element_declaration(s)
.
.
.
END STRUCTURE
Parameter Description
type_name The name for the new data type.
element_declarations Any combination of variable-typing
statements and UNION constructs. Can
include previously defined structure
types in RECORD declarations.
> Nepostojanje dinamičke alokacije. Imena ograničena na šest
─────ALLOCATABLE Attribute──────────────────────────────────────────────────
Allows the dimensions of an array to be dynamically determined at
run-time, not during compilation. ALLOCATABLE can appear in either
a type declaration or a DIMENSION statement.
Indicate an allocatable array by leaving colons in the declaration
where you would ordinarily place dimensions. For instance, the
following line declares a dynamic array with three dimensions:
REAL*8 dynamic [ALLOCATABLE] (:, :, :)
Priznajem da ovih stvari nema u standardu iz 1977. godine, ali danas ih
podržavaju skoro svi FORTRAN kompajleri.
pascal.232vitez.koja,
-> #228, postmast#=> Shareware je brezveze... najbolje je da se potrudi. Ako
#=> uspijes da uradis sigurno ces puno nauciti... a ako ne,
#=> tu smo vici. :)
Ama, nema to svrhe. Ako ti treba nešto da odradiš, a ne razumeš
se u problematiku serijskih komunkacija, shw. biblioteke su odličan
izbor.
#=> A PCL, je tek shit... norocito ona shareware poruka.
Koja shareware poruka ? O;>
#=> Sam i u se ...
...i u svoj dibager. I dok dlanom o dlan, nema poruke ;)
ps. dobar ti je kriterijum ;) PCL naročito ne valja zbog shw
poruke :)))
pascal.233mmitrovic,
-> #209, jankoŮ█▀█Ţ Imam utisak da si malo pobrkao stvari -- obrada eventa nema veze sa
Ů█▀█Ţ virtuelnim tabelama. virurlne tabele su deo jezika, a obrada eventa iz
Ů█▀█Ţ tvog primera je stvar TurboVisiona (ako ti je iz njega primer), zar ne?
Ne. ;) Handlovanje sam dao kao primer, princip je iz prog. jezika.
Da nije ne bi postojala rezervisana reč inherited koja poziva
nasleđene metode. Samo se umesto trenutne VMT koristi VMT nadređenog
objekta.
Ů█▀█Ţ Jer, od virtuelnih funkcija, uvek se izvršava samo JEDNA.
Ů█▀█Ţ "Prosleđivanje nagore" nije osobina jezika -- osobina jezika je da se
Ů█▀█Ţ pozove ODGOVARAJUĆI metod za dati objekat. Ni više ni manje.
Posledica pređašne greške. ;)
Prosleđivanje poziva uz stablo je apsolutno sigurno deo OO jezika.
Da nije tako, bilo bi prekršeno pravilo (vidi ko se 'vata za pravila B) )
o "code reusability", jer bi ponovo morao da kucaš sve što je bilo i u
nadređenom metodu, čak i ako ti je cilj bio da samo dodaš nešto. Puno
pisanja bez potrebe. Tvoj objekat treba da živi, i pusti druge da žive too.
:)
Ů█▀█Ţ Promena TView metoda se radi promenom sorsa tog metoda i tačka. :)
Hmm. Pa ne bi ja da pišem posle tačke, malo mi je nezgodno. :)
Ako si mislio na ONO menjanje, ja bih samo da pitam gde se ima naći
kompletan source Turbo Visiona. ;)
pascal.234mmitrovic,
-> #231, zeljkojŮ█▀█Ţ Priznajem da ovih stvari nema u standardu iz 1977. godine, ali danas ih
Ů█▀█Ţ podržavaju skoro svi FORTRAN kompajleri.
Možda, ali to ga i dalje ne čini prog. jezikom u kome bi pisao
bilo šta, naročito ne sistemske programe.
Osim toga, prekinite da me mučite, move 2 prog.jezici ili kako se već
zvaše ta tema. Ovo je tema pascal.
pascal.235vojas,
-> #227, jasicp> programa. Tabela normalno odradi posao. A gde da nadjem izvorni kod PX
> funkcija :) ? Ne verujem da bi mi Borland to rado poslao. Ipak mislim da
Zašto ne bi? Ja imam instalacionu verziju Paradox Engine 3.0 i unutra imaš
source kod funkcija...
pascal.236mjova,
-> #235, vojas> Zašto ne bi? Ja imam instalacionu verziju Paradox Engine
> 3.0 i unutra imaš source kod funkcija...
da li si siguran u ovo? ja sam svojevremeno pisao o PE i dobio
original, ali nije imao source za PE. jedino je imao neke primere
i izvorni kod za C++ veznik.
pascal.237postmast,
From: Guduric.Predrag@f113.n103.z38.setgate.setnet.co.yu (Guduric Predrag)
Subject: Re: pascal
Date: Sun, 12 Mar 1995 07:49:03
"V> Da li je moguce na Turbo Pascalu formirati niz od ~ 250 000 clanova.
"V> Treba bi jer bi radio FFT za 512x512 tacaka.
"V> Unapred zahvalan za svaku sugestiju!
Ne moze ogranicen si na bednih 64 k. Umesto da prelazis na FORTRAN
upitaj se li bas moras za toliki broj clanova da koristis RAM?
HDD je mnogo mnogo veci. Iako ce te prilicno usporiti iskoristi ga...
Napravi datoteku odgovarajuceg tipa i mislim da ce na brzoj masini
brzina nece biti tako tragicna. A i da hoce 4-5 h tamo amo . . .
Caveman
... The last thing I saw was this Big Blue Cave!
* Origin: * Milliways * BELGRADE * Serbia * SETNet Address (38:103/113)
pascal.238postmast,
From: Sebastian.Adanko@f107.n111.z38.setgate.setnet.co.yu (Sebastian Adanko)
Subject: pascal
Date: Thu, 16 Mar 1995 01:26:44
Hail to you, oh great "Zeljko of the noble house Jovanovic" !
> Svojevremeno je neko ovde objasnio kako ima neki fazon koji
> dopusta da se iz Turbo Pascala (7.0) postigne to da neki
> program stane,
"J>
"J> Pitanje je postavio dejanr u PC.SOFT, poruka 9.6. (13.11.1989.)
"J> Odgovori su u porukama 9.7 i 9.24.
Posto jos nemam BInt racun, moram ovako da ti se zahvalim...
Sorry 'bout da noise, people...
Phuzzy Logik
... Baba,ako me ne slusas,pusticu ti CECU!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
* Origin: Prometheus BBS - The Northern Frontier - SETNET (38:111/107)
pascal.239postmast,
From: anubis@topaz.hobbiton.CO.YU (Igor Loncarevic)
Subject: Re: pascal
Date: Tue, 21 Mar 1995 14:45:11 GMT
U poruci od Vladimir Maric (vitez.koja@sezam.UUCP) stoji:
## Ama, nema to svrhe. Ako ti treba nesto da odradis, a ne razumes
## se u problematiku serijskih komunkacija, shw. biblioteke su odlican
## izbor.
Pa sto si se kacio onda sa necim sto neznas?! Ako ti treba nesto,
a zelis da znas kako radi (a covjek je pitao uvravo tu stvar, kako
da uradi a ne jad program da mi uradi) trebao bi da znas (rasturas)
takve stvari.
## #=> A PCL, je tek shit... norocito ona shareware poruka.
## Koja shareware poruka ? O;>
Ona koja stopira izvrsavanje ... cini mi se PCL430p da sam pregleda..
## ...i u svoj dibager. I dok dlanom o dlan, nema poruke ;)
I sta sad? Sad znas kako funkcionise "tvoj" sistem...
## ps. dobar ti je kriterijum ;) PCL narocito ne valja zbog shw
## poruke :)))
Nisam govorio o tome ... , ali sta ja pricam, valjda znas o
cemu se govorilo. Oladi loma:).
--
Igor Loncarevic, anubis@topaz.hobbiton.CO.YU
anubis@hobbiton.CO.YU
pascal.240postmast,
From: zoka@topaz.hobbiton.CO.YU (Zoran Vilendecic)
Subject: Re: pascal
Date: Tue, 21 Mar 1995 21:36:16 GMT
Vladimir Maric (vitez.koja@sezam.UUCP) wrote:
: #=> Shareware je brezveze... najbolje je da se potrudi. Ako
: #=> uspijes da uradis sigurno ces puno nauciti... a ako ne,
: #=> tu smo vici. :)
: Ama, nema to svrhe. Ako ti treba nesto da odradis, a ne razumes
: se u problematiku serijskih komunkacija, shw. biblioteke su odlican
: izbor.
: #=> A PCL, je tek shit... norocito ona shareware poruka.
: Koja shareware poruka ? O;>
: #=> Sam i u se ...
: ...i u svoj dibager. I dok dlanom o dlan, nema poruke ;)
: ps. dobar ti je kriterijum ;) PCL narocito ne valja zbog shw
: poruke :)))
Kojo, bre:).
Koji ce mi pcl kad nema sors u sebi? Princip Kojo, princip:).
--
---------------------------------
email: zoka@topaz.hobbiton.co.yu
pascal.241postmast,
From: NIKOLI05892D@BUEF31.ETF.BG.AC.YU (Nikolic Ivica)
Subject: Re: Memory
Date: Wed, 22 Mar 1995 16:16:06 GMT
In <795064631.AA02068@setgate.setnet.co.yu> broker@setnet.co.yu writes:
>
> U Turbo Paskalu je rec PACKED ostavljena samo radi kompatibilnosti,
> a inace nema funkciju posto se nizovi uvek pakuju.
Da li neko zna kako to TP u stvari 'pakuje' nizove, i da li ih uopste
pakuje, kako se tvrdi u HELP-u. Meni to 'pakovanje' mirise na neki reklamni
trik.
U stvari, oduvek me je zanimalo na kakvo je to pakovanje nizova mislio
Wirth kad je uveo klauzulu PACKED u Pascal.
pascal.242mmitrovic,
-> #241, postmastŮ█▀█Ţ Da li neko zna kako to TP u stvari 'pakuje' nizove, i da li ih uopste
Ů█▀█Ţ pakuje, kako se tvrdi u HELP-u. Meni to 'pakovanje' mirise na neki
Ů█▀█Ţ reklamni trik.
Borlandov nikako.
Ů█▀█Ţ U stvari, oduvek me je zanimalo na kakvo je to pakovanje nizova mislio
Ů█▀█Ţ Wirth kad je uveo klauzulu PACKED u Pascal.
ako uzmeš neki stari pascal i probaš:
var a: array Š1..10Ć of char;
b: packed arrayŠ1..10Ć of char;
moći ćeš da uradiš writeln(b), ali ne i writeln(a).
U principu mislim da Wirthov pascal tretira packed tipove kao bazne, a
ne kao izvedene.
pascal.243duzle,
Da li neko ima ideju kako da .exe proizveden BP-om sam sebe relocira u UM ?
Meni je palo na pamet da uzmem početnu adresu procedure/funkcije i da je
kopiram sve dok ne naletim na RET ili RETF (i tako za sve proc/funkc.). Samo
mi se čini da ovo ipak nije baš najbolje rešenje. Znači, treba neka rutina
koja bi ceo program prekopirala odjednom. Jel ima neko nešto takvo ?
Ognen
pascal.244novak,
> Potrebno je da napišeš sopstveni interrupt handler, koji će da
> kupi karaktere sa porta kako koji bude dolazio, i prosleđivati ih
> dalje. Cela operacija zahteva malo dokumentacije i malo truda,
> i radi, ali...
Pa jel posedudujes ti nesto te "dokumentacije", i gde bi se
to moglo naci...
poz
Novak
pascal.245vitez.koja,
-> #239, postmast#=> From: anubis@topaz.hobbiton.CO.YU (Igor Loncarevic)
#=> Pa sto si se kacio onda sa necim sto neznas?!
Eto. Ni ti sa pravopisom srpskog jezika ne stojiš baš najbolje,
pa ipak ga koristiš.
#=> Oladi loma:).
...
pascal.246vitez.koja,
-> #240, postmast#=> From: zoka@topaz.hobbiton.CO.YU (Zoran Vilendecic)
#=> Kojo, bre:).
#=> Koji ce mi pcl kad nema sors u sebi? Princip Kojo,
#=> princip:).
Eh, ti principi... :)
Uzmi knjigu "PC modemske komunikacije" Aleksandra Radovanovića i
sve će ti postati jasno. U knjizi je dat i skup funkcija za rad
sa serijskim portom, u obliku C sorsa.
pascal.247mmitrovic,
-> #243, duzleŮ█▀█Ţ Da li neko ima ideju kako da .exe proizveden BP-om sam sebe relocira u
Ů█▀█Ţ UM ? Meni je palo na pamet da uzmem početnu adresu procedure/funkcije i
Ů█▀█Ţ da je kopiram sve dok ne naletim na RET ili RETF (i tako za sve
Ů█▀█Ţ proc/funkc.). Samo mi se čini da ovo ipak nije baš najbolje rešenje.
Ů█▀█Ţ Znači, treba neka rutina koja bi ceo program prekopirala odjednom. Jel
Ů█▀█Ţ ima neko nešto takvo ?
Ovo sam isto odgovorio i DPriestu..., pa evo i u conf.
Da bi program sam sebe prebacio u UMB, nije dovoljno da se kopiraju
proc/funk. do ret/f naredbe. Šta više, to neće ni raditi. Potrebno je
naći slobodan blok u UMBu i izpočetka UžITATI program u njega i ispucati
relokacionu tabelu u novi program shodno njegovom položaju u UMBu. Znam
da ste svi oduševljeni DblSpace-om i Stacker-om kako oni sebe dižu u
UMB, ali ne postoji "magični" DOS poziv koji će to uraditi. Zbog promene
segmenta ništa od toga nije moguće bez novog loadera.
pascal.248postmast,
From: SAJDL_39394D@BUEF31.ETF.BG.AC.YU (Sajdl Tomislav)
Subject: memory
Date: Fri, 24 Mar 1995 10:46:15 GMT
E, sada mi vise mnogo toga nije jasno. U jednoj knjizi koja je inace
bila ocajna (TPascal 5.5 od Kompjuter biblioteke iz Cacka) jer je
zapravo bila nepismen prevod (valjda) zvanicnog uputstva, sam procitao da
PACKED ne znaci nista u TP-u. Da li se nesto od TP-a 5.5 promenilo, ne
znam. Dakle PACKED se propusta kao deo standardnog pascala ali ga TP
ignorise.
Druga stvar me zbunjuje. Zasto postoje cak cetiri tipa boolean?
Koja je sustinska razlika izmedju njih?
pascal.249jasicp,
-> #235, vojas> Zasto ne bi? Ja imam instalacionu verziju Paradox Engine 3.0 i unutra imas
> source kod funkcija...
Dobija se source primera za svaku fun., database framework i source
jednog programa - demoa. Ja nemam source funkcija.
pascal.250postmast,
From: Ivan.Markovic@f122.n103.z38.setgate.setnet.co.yu (Ivan Markovic)
Subject: PASCAL
Date: Sun, 19 Mar 1995 14:36:11
Ne znam kako drugi, ali sam ja prestao da koristim
{$I-} ... {I+} kombinaciju. Cesto mi se desavalo isto sto i
tebi - prijava greske iako je nema ...
Za proveru fajla koristim GetFattr i DosError ...
Ako neko zna razlog "sasavog" ponasanja IORESULT-a, bilo bi
lepo da objasni uzrok (volim da znam razloge ...)
Pozdrav XENOX
---FidoPCB v1.0 [NR]
* Origin: * Fenix BBS, Beograd 011 414-312;404-679 * SetNet: (38:103/122)
pascal.251vvelisavljev,
Može li neko da mi objasni čemu služe Segments i Offset (ako se
tako piše) kod pointera i adresaa?
U HELP-u ovako stoji :
Ptr(Segs,Offs);
pascal.252evlad,
-> #251, vvelisavljev>> Može li neko da mi objasni čemu služe Segments i Offset (ako se
>> tako piše) kod pointera i adresaa?
Za segmentni deo i offsetni deo adrese ...
offset zamisli kao stari dobri C64, a segment x-ti C64 ;)
// ovo nije vic meseca :)))
Sad ozbiljno: Uzmi neko uputstvo za programiranje I80x86 familije
mikroprocesora, pa će ti biti jasnije. Probaj u ovoj conf 13.264 <zeljkoj>
da skineš file ASMTUTOR.ZIP
Tamo lepo piše:
calculation SSSS0 ---- value in the relevant segment register SHL 4
depicted in AAAA ---- apparent address from register or instruction
hexadecimal --------
RRRRR ---- real address placed on address bus
pascal.253vitez.koja,
-> #250, postmast#=> From: Ivan.Markovic@f122.n103.z38.setgate.setnet.co.yu (Ivan Markovic)
#=> Ako neko zna razlog "sasavog" ponasanja IORESULT-a, bilo
#=> bi lepo da objasni uzrok (volim da znam razloge ...)
Ne znam za paskal, ali u Cu errno (neki ekvivalent IORESULT-a)
ima smislenu vrednost samo ukoliko se greška zaista dogodila,
dok ukoliko nema greške može da dâ pogrešnu informaciju. Znači,
za kontrolu grešaka nije dovoljno samo kontrolistati vrednos
errno promenljive.
pascal.254vojas,
-> #236, mjova> da li si siguran u ovo? ja sam svojevremeno pisao o PE i dobio
> original, ali nije imao source za PE. jedino je imao neke primere
> i izvorni kod za C++ veznik.
Ja se veoma izvinjavam, jer sam izneo netačnu informaciju :( Kada sam pogledao
datoteke, jedini source kod je bio PXMSG. Još jedno izvinjenje :(
pascal.255postmast,
From: bb_link@durlan.co.yu (bb_link)
Subject: PASCAL
Date: Tue, 28 Mar 95 00:32:31 MET
ORIGIN. From: DJDULE
ORIGIN. To: IVAN MARKOVIC
IM > Pozdrav XENOX
Gde si XENOXe. Sta ima. Ajd cik pogodi oklen se znamo. Pravo ime mi je
Dusan Djordjevic a iz Nisa sam ;)))
-- SPEED 1.30 #514: Ne pozajmljuj nekome novac. To izaziva amneziju.
pascal.256postmast,
From: Ognen.Spiroski@f132.n108.z38.setgate.setnet.co.yu (Ognen Spiroski)
Subject: pascal
Date: Fri, 24 Mar 1995 16:05:03
-=> Reply to: Igor Loncarevic <=-
IL> A PCL, je tek shit... norocito ona shareware poruka.
MMĆ Vidis, ja ne mislim da je shit. Shareware poruka se lako
MMĆ skloni ($55), a toliko vredi dati. Biblioteka je odlicna.
MMĆ Medjutim, ako nema preterane potrebe za pisanje LeLe
MMĆ pristupa portu, onda je najbolje ici preko Fossil-a.
Posto i mene muci slican problem, imas li sors za pracnje naredbe fossil-u ? Jer sam koristio PCL i sam se zeznuo... :((
0GZy
* 0Gi'S eDiT0R * With faster machines comes slower software
* Origin: SETNet: ĆMemory Master BBS +389/91-412-767ž (38:108/132)
pascal.257postmast,
From: Ognen.Spiroski@f132.n108.z38.setgate.setnet.co.yu (Ognen Spiroski)
Subject: TP & FONTs
Date: Mon, 27 Mar 1995 13:53:05
Zdravo!
Zna li neko kako da font od fajl-a ucitam iz TP-a i koristim ga samo u programu, u 80x25 text mod. Font-file sadrzi sve one dzvrcke sto nalikuju na ovo:
xxxxxxxxx xxxxxxxxx xxxxxxxxxx xxxxxxxxx xxxxxxxxx xxxxxxxxx xxxxxxxxxx xxxxxxxxx xxxxxxxxx xxxxxxxxx xxxxxxxxxx xxxxxxxxx xxxxxxxxx xxxxxxxxx xxxxxxxxxx xxxxxxxxx
0GZy
p.s. ako nisam jasan recite...
* 0Gi'S eDiT0R * We are the people our parents warned us about.
* Origin: SETNet: ĆMemory Master BBS +389/91-412-767ž (38:108/132)
pascal.259lovro,
Postoji li način da se predefiniše default font iz turbo
paskala, konkretno, ubacio bih yu slova, a ne znam kako.
Pomozite!
Lovro
pascal.260mmitrovic,
Problemčić: Kako da doznam da li je objekat čiju instancu imam,
naslednik nekog (određenog) objekta. Mogu lako da se uverim da li je
u pitanju baš taj objekat, međutim kako sa naslednicima? Ovo mi je
potrebno jer sam u jedan objekat dodao novi virtuelni metod, a jedini
način da budem siguran da ću pozvati ispravan (postojeći?) metod je
da se uverim da je u pitanju instanca nekog od nasleđenih objekata.
Ukoliko bi u pitanju bio neki drugi objekat, typecast bi pročitao
pogrešnu VMT.
Malo sam lutao po helpu, međutim nisam našao odgovarajuće "čisto"
rešenje. Probaću nešto da izmanipulišem, al reko' da pitam ako je neko
već radio takvo nešto. Siguran sam da je ovakvo nešto moguće, i vrlo
je korisno. žudi me da Borland nije mislio na to (možda i jeste, ali ja
to ne vidim :)).
pascal.261bigbrada,
-> #259, lovro*>> Postoji li način da se predefiniše default font iz turbo
*>> paskala, konkretno, ubacio bih yu slova, a ne znam kako.
Pa, ne znam za defaul font, ali za .CHR ima načina, nije da nema.
Lepo skineš ovo čudo od CHR Font Editora, pobiješ govna i gotova
stvar ;)
The.Great
P.S. Btw. program je shit, ali će poslužiti za ovo što ti hoćeš
da uradiš :)
fontedit.zippascal.262mrajko,
Kako da u TP-u prikazem tekst koji ce moci da se pomera gore-dole strelicama na
tastaturi???
Unapred hvala...
pascal.263lovro,
-> #261, bigbrada=- Pa, ne znam za defaul font, ali za .CHR ima načina, nije da
=- nema. Lepo skineš ovo čudo od CHR Font Editora, pobiješ
Eh, ali default font nije vektorski, već bitmap 8x8. Ne
(za)pomaže! Možda kada bih znao adresu na kojoj je, pa nešto ručno da uradim...
pascal.265ognjen,
Subject: Bug u Turbo pascalu 6.0 / GRAPH
Očigledno je da je Bug. I u najkraćim primerima, koji su
apsolutno prosti, a koriste grafiku, vrlo često (mada ne uvek,
čak i za isti program) program mi prijavljuje:
Error 200: Division by zero.
Naravno, od deljenja nema ni traga.
pascal.266jasicp,
-> #254, vojas> Ja se veoma izvinjavam, jer sam izneo netacnu informaciju :( Kada sam
> pogledao datoteke, jedini source kod je bio PXMSG. Jos jedno izvinjenje :(
Pa sta se bre toliko izvinjavas, ko da si Sloba :) !
pascal.267evlad,
-> #265, ognjen>> Error 200: Division by zero.
>> Naravno, od deljenja nema ni traga.
Koliko KB si mu stavio u direktivi za stack, kada radiš sa grafikom
stavi bar 32k, možda pomogne
pascal.268postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: PE.gcards
Date: Thu, 30 Mar 1995 19:35:26
Evo mog priloga esnafu...
==========================================================================
BBS: ORESKA Conference: U.Pascal Imported: 11/06/1993
To: IAN MILLER Num: 9783 Date: 11/03/1993
Subj: Stuff... Prvt: N Read: N
==========================================================================
IM>Does anyone have either ASM or TP (7.0) code to do vga scrolling, ie as
IM>in BBS demos, loaders...
------------------------ SWAG snippet ---------------------------
{
Here is some demo code showing how to use Smooth.Obj. It offers
vertical and horizontal smooth scrolling in Text or Graphics modes.
NOTE: Requires Smooth.Obj (see below) EGA & VGA ONLY !!!!
REQUIRES: Smooth.Obj Run the debug script through DEBUG to create
Smooth.Obj. The NEXT message has the debug script.
ALSO: Until last week, I'd never seen a line of Pascal code.
So ForGIVE the rough edges of this code: bear in mind
the Complete novice status of its author <!!G!!> }
Uses Crt;
{ NOTE: SmoothScroll is a MEDIUM MODEL Asm/OBJ For use in
**either** Pascal or most flavors of modern BASIC.
It expects parameters to be passed by reference! We handle
that here by not including Var, then passing Ofs(parameter).
Don't know if this is appropriate, but it works. Comments? }
{$F+} Procedure SmoothScroll(Row, Column: Integer); external; {$F-}
{$L Smooth.Obj}
Var
Row, Col, Speed, WhichWay : Integer;
Ch : Char;
s : String [60];
begin
TextColor (14); TextBackground (0); ClrScr;
GotoXY (25,4); Write ('Press <Escape> to move on.');
ch := 'A';
For Row := 10 to 24 do
begin
FillChar (s, Sizeof(s), ch);
s[0] := #60; Inc (ch);
GotoXY (10, Row); Write (s);
end;
Speed := 1; { Change Speed! See notes. }
{The higher the Speed, the faster the scroll.
Use Speed = 1 For subtle scrolling.
Try Speed = 5 (10 in Graphics) For very fast scrolling.
Try Speed = 10+ (25 in gfx) to see some **Real shaking**.
Even in Text mode here, Row and Column use GraphICS MODE
pixel coordinates (ie., begin w/ 0,0). }
{================================= demo vertical smooth scrolling}
Row := 0; Col := 0;
WhichWay := Speed; { start by going up }
Repeat { press any key to end demo }
GotoXY (2,10); Write (Row, ' ');
SmoothScroll(ofs(Row), ofs(Col));
Row := Row + WhichWay;
if (Row > 150) or (Row < 2) then { try 400 here }
WhichWay := WhichWay * -1; { reverse direction }
if Row < 1 then Row := 1;
Until KeyPressed;
ch := ReadKey; Row := 0; Col := 0;
SmoothScroll ( ofs(Row), ofs(Col) ); { return to normal (sort of) }
{================================= demo horizontal smooth scrolling}
Row := 0; Col := 0;
WhichWay := Speed; { start by going left }
Repeat { press any key to end demo }
GotoXY (38,3); Write (Col, ' ');
SmoothScroll(ofs(Row), ofs(Col));
Col := Col + WhichWay;
if (Col > 65) or (Col < 0) then { try 300 here }
WhichWay := WhichWay * -1; { reverse direction }
if Col < 0 then Col := 0;
Until KeyPressed;
Row := 0; Col := 0; SmoothScroll(ofs(Row), ofs(Col));
end.
{ Capture the following to a File (eg. S.Scr).
then: DEBUG < S.SCR.
Debug will create SMOOTH.OBJ.
N SMOOTH.OBJ
E 0100 80 0E 00 0C 73 6D 74 68 73 63 72 6C 2E 61 73 6D
E 0110 87 96 27 00 00 06 44 47 52 4F 55 50 0D 53 4D 54
E 0120 48 53 43 52 4C 5F 54 45 58 54 04 44 41 54 41 04
E 0130 43 4F 44 45 05 5F 44 41 54 41 90 98 07 00 48 89
E 0140 00 03 05 01 87 98 07 00 48 00 00 06 04 01 0E 9A
E 0150 04 00 02 FF 02 5F 90 13 00 00 01 0C 53 4D 4F 4F
E 0160 54 48 53 43 52 4F 4C 4C 00 00 00 A7 88 04 00 00
E 0170 A2 01 D1 A0 8D 00 01 00 00 55 8B EC 06 56 33 C0
E 0180 8E C0 8B 76 08 8B 04 33 D2 26 8B 1E 85 04 F7 F3
E 0190 8B D8 8B CA 26 A1 4A 04 D0 E4 F7 E3 8B 76 06 8B
E 01A0 1C D1 EB D1 EB D1 EB 03 D8 26 8B 16 63 04 83 C2
E 01B0 06 EC EB 00 A8 08 74 F9 EC EB 00 A8 08 75 F9 26
E 01C0 8B 16 63 04 B0 0D EE 42 8A C3 EE 4A B0 0C EE 42
E 01D0 8A C7 EE 4A 83 C2 06 EC EB 00 A8 08 74 F9 83 EA
E 01E0 06 B0 08 EE 8A C1 42 EE 83 C2 05 EC BA C0 03 B0
E 01F0 33 EE 8B 76 06 8B 04 24 07 EE 5E 07 8B E5 5D CA
E 0200 04 00 F5 8A 02 00 00 74
RCX
0108
W
Q
'======== end of Debug Script ========
}
------------------------ SWAG snippet ---------------------------
Cyrus
■ SPEED 1.30 #666 ■ If life only had a scroll-back buffer with cut & paste.
■ U'NI-net: RichWare ShareWare ■ Antioch
... BR> If space separates us,why should we separate space
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.269postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: PASCAL
Date: Wed, 29 Mar 1995 12:47:45
bb> ORIGIN. From: DJDULE
IM > Pozdrav XENOX
bb> Gde si XENOXe. Sta ima. Ajd cik pogodi oklen se znamo. Pravo ime mi je
bb> Dusan Djordjevic a iz Nisa sam ;)))
Mozes li ti ovo u mail?!?!? Nemoj nam praviti sum.
... BR> Hey! Do not touch that pho├Ó˙┴¡ŞĹĂĂŠłž NO CARRIER
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.270postmast,
From: bb_link@durlan.co.yu (bb_link)
Subject: Delphi
Date: Thu, 30 Mar 95 22:36:16 MET
ORIGIN. From: DJDULE
ORIGIN. To: ALL
Zna li neko sta je to Borland Delphi ???
---
* SPEED 1.30 #514 * The OFFICIAL tagline of the 1996 Olympics!
pascal.271vojas,
-> #263, lovro> Eh, ali default font nije vektorski, već bitmap 8x8. Ne
> (za)pomaže! Možda kada bih znao adresu na kojoj je, pa nešto ručno da
Koristi BIOS interapte karakter generatora. To je INT 10h, AH = 11h, AL =
funkcija koja ti treba. Imaš u Ralph Brown listi interapta, a ako ne možeš
nigde da nađeš, zapomaži ovde, pa ćemo da to iskopamo...
pascal.272vvelisavljev,
Da li neko ima iskustva sa hardverskim ZOOM-om i PAN-om kod VGA
ULTRA ET3000 kartice? Ili barem neke druge koja podržava isto. U ovoj
mojoj knjižici ima napisano kako se otvara prozor preko interapta i
sistemskih promenljivih ali meni to baš nije najjasnije pa ako bi
neko
hteo da mi pomogne zanima me sledeće:
Na primer ovde piše:
Set Zoom Window
Function Code:
AX = 6
Arguments
BX = Segment address of window coordinate array
CX = Offset address of window coordinate array
The format of the array:
Offset[0] x start of zoom window
Offset[1] y start of zoom window
Offset[2] x end of zoom window
Offset[3] y end of zoom window
E, sad, kako bih ja sve ovo definisao u Pascalu. Pogotovo me
zanima
kako da definišem taj niz i napišem na kojoj je adresi. Znam da treba
nešto oko pointera ali ssam još slab u tome. Inače, trebalo bi da se
poziva Int 60H. Uz karticu idu Hotkey.com i Hotzoom.com potrebni za
to.
Uz karticu ide takođe i jedan demo u kome je lepo urađeno menjanje
veličine prozora, šetanje prozora po ekranu, veći-manji zoom itd.
Ako treba da ga pošaljem odma će te znati o čemu pričam.
Unapred hvala na pomoći.
pascal.273bkaradzic,
-> #272, vvelisavljev
> Da li neko ima iskustva sa hardverskim ZOOM-om i PAN-om kod VGA
> ULTRA ET3000 kartice? Ili barem neke druge koja podrzava isto. U ovoj
> mojoj knjizici ima napisano kako se otvara prozor preko interapta i
> sistemskih promenljivih ali meni to bas nije najjasnije pa ako bi...
Evo sorseva (BAS,C) koji se dobijaju na disketi uz Tseng ET3000.
Ovo radi samo na ET3000 (i mozda ET4000).
čatßoy
et3000.zippascal.275postmast,
From: Knezovic.Bojan@f133.n103.z38.setnet.setnet.co.yu (Knezovic Bojan)
Subject: pascal
Date: Sun, 02 Apr 1995 10:27:02
"I> Postoji li nacin da se predefinise default font iz turbo
"I> paskala, konkretno, ubacio bih yu slova, a ne znam kako.
Jesi probao installuserfont?
* Origin: SETNet * BBS Politika, Bgd * +381 11 3229148 * 0-24 (38:103/133)
pascal.276vvelisavljev,
-> #273, bkaradzic> Evo sorseva (BAS,C) koji se dobijaju na disketi uz Tseng ET3000.
Tenx, pogledaću ih.
pascal.277lovro,
-> #271, vojas=- Koristi BIOS interapte karakter generatora. To je INT 10h,
=- AH = 11h, AL =
To je za tekst mod, zar ne. Mislio sam na default (grafički) font.
pascal.278postmast,
From: Jovan.Sedlan@f119.n111.z38.setnet.setnet.co.yu (Jovan Sedlan)
Subject: PE_PAS.Keyboard.Stuff
Date: Sat, 08 Apr 1995 17:20:03
On 30 Mar 95 08:46pm, Sebastian Adanko wrote to Jovan Sedlan:
SA> Nego, zasto mi se bafer tastature ne isprazni nakon sto zavrsim ispis
SA> mojih 15 znakova??
SA> Ja lepo u jednoj proceduri ispisem jedno, stavim end; u drugoj
SA> proceduri lepo pomocu interapta krenem opet isto sto i u prvoj, samo
SA> drugi tekst, a on nece da stampa. Pun bafer i nece da se isprazni :((
Nesto bas i nisam razumeo ovo... :(
JS>> vektora, kada je vrlo jednostavno napisati programcic koji ce (nakon
JS>> kreiranja poruka i izlaska i OLR-a) da raspakuje UPLOAD arhivu i da
JS>> "prikaci" potpis na svaku poruku?
SA>
SA> Ali, zar nece onda potpis da ide ispod taga?
SA> Ili ces raditi tako da prvo program mazne tag, obrise ga, napise potpis
SA> i onda vrati tag?
Ma, to je najmanji problem. Uzmes tekstualnu datoteku i trazis u njoj
odredjeni string (kod mene je to "Via Silver Xpress ...") ili jednostavno
par linija pre kraja (odredjen broj linija, koliko zauzima XPress-ov
"potpis") "ubacis" sve sto ti dusa hoce.
SA> Cool, samo obrati paznju na ono gore ;)
SA> (BTW, ovaj potpis ide novom metodom batch programa ;))
SA> phuzzy.logik@vacuum.breathers.club.edu.spc
He, he, he... Vec su ti neki napisali o ovoj tvojoj BATCH ideji.
Jole Q...
* Origin: ECSTASY BBS * Indjija * 022 53 218 * SETNet: (38:111/119)
pascal.279postmast,
From: Guduric.Predrag@f113.n103.z38.setnet.setnet.co.yu (Guduric Predrag)
Subject: Re: Memory
Date: Sun, 09 Apr 1995 18:05:06
-=> Quoting Attila Csipa to Predrag Supurovic <=-
AC> radi sa bitovima, a ako kucne samo BOOLEAN onda TP radi sa bajtovima ?
AC> Sumnjam da je TP kompajler tako pametan i stedljiv :)
Nije ni pametan ni stedljiv samo podrazmuva komandu packed kod
Turbo Pascala koju si ranije morao da pises. BTW jesu li te
pozvali u Petnicu . . . Ja sam bio s tobom u jednoj grupi ali sumnjam
da ces se setiti . . .
Caveman
... "Scotty, beam me up another Blue Cave message."
* Origin: * Milliways * BELGRADE * Serbia * SETNet Address (38:103/113)
pascal.281postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: ANSI
Date: Wed, 12 Apr 1995 20:38:43
DJ> Kako da detektujem dali mi je "sugovornik" sa druge strane linije ANSI
DJ> capable? Koristim TP6.0 i PCL.
Uh, ne znam napamet, ali mi se cini da je neka komanda <Esc>J.
Pogledaj ansi komande i nadji neku koja "vraca" neku vrednost.
U krajnjem slucaju, zovni neki BBS ali iskljuci ANSI i vidi sta sve
BBS salje na pocetku. Vecina BBs-ova moze da automatski prepozna ANSI
i to rade upravo na gore navedeni nacin.
... TAG loading error...
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.282bulaja,
-> #44, postmast│3. Mislim da za toliku cenu casopisa bi uz njega morala ici
│i disketa sa shareware programima...
└───
Realni troškovi za disketu bi bili bar 4 dinara po primerku, što bi se
verovatno slabo isplatilo izdavačima :). To bi možda modlo da prođe
kao poklon uz pretplatu, samo treba onda izmozgati šta snimiti na tu
jednu disketu (npr. najbolje domaće PD i shareware programe).
pascal.283bulaja,
-> #282, bulajaIzvinjavam se, ovo je trebalo da ide u PCPRESS konferenciju :).
pascal.284cwele,
Novi sam korisnik Sezama, i zelim da posaljem neke svoje programe na Moduli,
a ne znam okme da se obratim za pomoc (Upload mi odgovara da nemam pravo upisa
na diskH r:\program) Molim nekoga za odgovor, pozdrav, cwele.
pascal.285dejanr,
-> #284, cwele>> Novi sam korisnik Sezama, i zelim da posaljem neke svoje programe na
>> Moduli, a ne znam okme da se obratim za pomoc (Upload mi odgovara da
>> nemam pravo upisa na diskH r:\program)
Najbolje je da datoteke pošelješ uz privatnu poruku korisniku Bulaja.
On je naš file moderator odnosno brine o datotekama na Sezamu.
pascal.286chula,
Problem u Pascal-u :
U grafičkom modu, kada menjam aktivnu stranu i onu koja se vidi, na onoj drugoj
(koja nije default) mi pravi gluposti. Ako, najjednostavnije, spojim gornji
levi sa donjim desnim uglom, on tu liniju počne sa vrha ekrana ali pomerenu za
jedno 5-6 cm, i vuče je do negde opet 5-6 cm do dna ekrana, onda je pomeri za
(prekine) za onoliko koliko je promašio gornji levi ugao tako da se ona ipak
završi u donjem desnom. Ovo je jedan od banalnih primera, ali isto radi i sa
svim ostalim... Da napomenem da sve radi kako treba na default strani, da imam
od skoro VGA, i da je kartica Trident 9000c... Ima li rešenja za ovaj problem
(?) ???
hvala
pascal.287mdave,
-> #284, cweleSubject: Re: Modula
> Novi sam korisnik Sezama, i zelim da posaljem neke svoje programe na
> Moduli,
Ako je Modula-2/Modula-3/Oberon u pitanju, šalji i meni. :)
pascal.288postmast,
From: DAMJAN.JANEV@f131.n108.z38.setnet.setnet.co.yu (DAMJAN JANEV)
Subject: ANSI
Date: Fri, 14 Apr 1995 14:07:00
PS:-> DJ> Kako da detektujem dali mi je "sugovornik" sa druge strane linije ANS
PS:-> DJ> capable? Koristim TP6.0 i PCL.
PS:->Uh, ne znam napamet, ali mi se cini da je neka komanda <Esc>J.
PS:->Pogledaj ansi komande i nadji neku koja "vraca" neku vrednost.
Hvala lepo.
PS:->U krajnjem slucaju, zovni neki BBS ali iskljuci ANSI i vidi sta sve
PS:->BBS salje na pocetku. Vecina BBs-ova moze da automatski prepozna ANSI
PS:->i to rade upravo na gore navedeni nacin.
To sam i ja pomislio kao rajnje resenje.
damJANev
___
■ OLX 2.1 TD ■ You tell 'em Dough, you're well bred.
* Origin: SetNet * VEGA BBS * Skopje * +389 91 225 280 (38:108/131)
pascal.289superhik,
-> #282, bulaja=:> Realni troškovi za disketu bi bili bar 4 dinara po primerku,
=:> što bi se
Kako si došao do ove cifre??
pascal.290comi,
Da li ima neko tablicu prekida za inicijalizaciju vesa
grafike u true-coloru?U pitanju su BIOS prekidi i adrese.
pascal.291comi,
Ima li neko program u pascalu za ocitavanje strukture GIF fajlova.
Interesuje me nacin upisivinja i ucitavanja GIF.
ű
pascal.293jasicp,
Kako se postize da aplikacija ima razlicite MenuBar-ove, u zavisnosti
od toga sta radi ? Otprilike isto kao za razlicite statusne linije.
Naravno, radi se o TV objektima.
Usput, odgovaram sam sebi na jedno davno postavljeno pitanje (zasto
TVEDIT daje run time 215 ako pokusam da brisem text pomocu backspace): zato
sto editors unit treba prevesti sa Range i Stack checking off. Ko se seca,
seca se...
pascal.294jasicp,
Napravio sam objekat, naslednika TGroup. U njega sam ubacio objekte:
jedan vise manje klasican prozor, i TEditWindow objekat. Ovaj drugi ima
ugradjene funkcije StdEditorDialog, koje izbacuju razne poruku ili kreiraju
dijaloge. Kada direktno TEditWindow ubacim pomocu InserWindow ili samo
Insert u aplikaciju, sve funkcionise normalno. Kada radim ovako, sa
grupom, StdEditorDialog uopste ne uspeva da prikaze dijalog na ekranu, dok
na komande reaguje kao daje tu. Verovatno se dijaloze "ne probiju" do
prikaza. Ima li neko ideju u cemu je stvar ?
pascal.296eleoni,
z+╬╦╗TâĹÎŢC█ń=Ě
╣K
----- H I T N O -----
Hitna pomoć (+):
Radim u TP 6.0 neki projekat (ovde nije od značaja koji) i pri
izvršavanju programa javlja se greška oblika:
"ERROR 202: STACK OVERFLOW ERROR", i TP "pokaže" na funkcijski
potprogram (koji ne radi ništa posebno: recimo da sabira elemente
nekog niza). Pokušao sam da menjam veličinu steka, ali ne vredi kao
što ne vredi menjajući direktivu prevođenja š$S+/-ć. Možda će vam
ove informacije biti od pomoći: 1. u samom modulu (unit) imam dosta
definisanih konstanti, ali opet to ne bi trebalo biti previše i samo
ovaj jedan potprogram 2. potprogram koristi dve UQy!█é╔ŻÁĽ╣Šćą┘Ľ5
koje se izračunavaju na osnovu gore pomenutih konstanti.
Unapred se zahvaljujem.
Pozdrav,
Emil
ĹÜa┐kč
pascal.297djelovic,
-> #269, postmast> Radim u TP 6.0 neki projekat (ovde nije od značaja koji) i pri
> izvršavanju programa javlja se greška oblika:
> "ERROR 202: STACK OVERFLOW ERROR", i TP "pokaže" na funkcijski
> potprogram (koji ne radi ništa posebno: recimo da sabira elemente
> nekog niza). Pokušao sam da menjam veličinu steka, ali ne vredi kao
> što ne vredi menjajući direktivu prevođenja š$S+/-ć.
Da li program "hvata" neki interapt? U tom slučaju treba izbaciti proveru
prekoračenja steka.
pascal.298evlad,
-> #296, eleoni>> "ERROR 202: STACK OVERFLOW ERROR", i TP "pokaže" na funkcijski
{$M 32000, ... , ..... }
Direktiva kojom određuješ veličinu steka ...
pascal.299eleoni,
-> #297, djelovic>> Radim u TP 6.0 neki projekat (ovde nije od značaja koji) i pri
>> izvršavanju programa javlja se greška oblika:
>> "ERROR 202: STACK OVERFLOW ERROR", i TP "pokaže" na funkcijski
>> potprogram (koji ne radi ništa posebno: recimo da sabira elemente
>> nekog niza). Pokušao sam da menjam veličinu steka, ali ne vredi kao
>> što ne vredi menjajući direktivu prevođenja š$S+/-ć.
> Da li program "hvata" neki interapt? U tom slučaju treba izbaciti proveru
> prekoračenja steka.
> š$M 32000, ... , ..... ć
> Direktiva kojom određuješ veličinu steka ...
Program ne "hvata" nikakav interapt, a i na glasio sam u prvoj poruci
da nije problem u veličini steka. Hvala na pokušanoj pomoći ali problem
sam najzad sam rešio. Zamislite, čitav problem je bio u imenu funckijskog
potprograma. Definicija je izgledala:
Function SpM(X:word):string;
i ja slučajno stavim:
Function SpaceM(X:word):string;
i ono radi. E sad, ime SpM prethodno nije nigde deklarisano, službena reč
SpM u TP6.0 (da ja znam) nije, e onda zašto je tako bilo nemam pojma.
(ali sad radi :)))
Pozdrav,
Emil
pascal.300lovro,
Opet stek u pitanju! Kako da znam koliko je mesta ostalo na
steku? Radi se neka rekurzija, a ne znam kako da proverim ima
li mesta za poziv procedure.
Lovro
pascal.301mmitrovic,
-> #286, chula::::: svim ostalim... Da napomenem da sve radi kako treba na default strani,
::::: da imam od skoro VGA, i da je kartica Trident 9000c... Ima li rešenja za
::::: ovaj problem (?) ???
Pretpostavljam o cemu se radi. Koristio si EGAVGA.BGI i aktivirao si
VGA drajver u VGAHi (640x480) modu. Ako jesi, onda da te obavestim da
double buffering NE radi u VGAHi modu, najveća rezolucija u kojoj ovo pali
(na VGA) je VGAMed (640x350).
pascal.302mmitrovic,
-> #293, jasicp::::: Kako se postize da aplikacija ima razlicite MenuBar-ove, u zavisnosti
::::: od toga sta radi ? Otprilike isto kao za razlicite statusne linije.
Ne postoji metoda koja bi to uradila slično statusnoj liniji. Jedina
fora je da InitMenuBar namestiš da u zavisnosti od onoga što radi
postavi MenuBar na željeni meni. Naravno treba promeniti odrđene metode
koji bi u nekim slučajevima ponovo pozivali InitMenuBar (pošto ga
TProgram poziva samo u Init-u). Najprikladniji za to bi bio HandleEvent.
Of course, postoji još i problem kreiranja i oslobađanja silnih menija,
međutim to se sve može smestiti u konstruktore i destruktore.
pascal.304andrejt,
-> #300, lovroSubj: stek
Q> Opet stek u pitanju! Kako da znam koliko je mesta ostalo na
Q> steku?
Sacuvas na pocetku programa sp. U trenutku u kom hoces da znas
kol'ko jos steka imas oduzmes taj broj od sp-a i rezultat oduzmes
od velicine steka koju si sebi dodelio.
pascal.305lovro,
-> #304, andrejt=- Sacuvas na pocetku programa sp. U trenutku u kom hoces da
=- znas kol'ko jos steka imas oduzmes taj broj od sp-a i
=- rezultat oduzmes od velicine steka koju si sebi dodelio.
Da! Da li je na početku programa sp=0, a SS dobija već neku vrednost? Ako
je tako, ne mora ništa ni da se pamti.
pascal.306chula,
-> #301, mmitrovic> Pretpostavljam o cemu se radi. Koristio si EGAVGA.BGI i
> aktivirao si VGA drajver u VGAHi (640x480) modu. Ako jesi, onda
> da te obavestim da double buffering NE radi u VGAHi modu,
> najveća rezolucija u kojoj ovo pali (na VGA) je VGAMed
> (640x350).
Na žalost nije u tome problem. Isto se dešava i u 320x200 i u svim
drugim rezolucijama :(
pascal.307andrejt,
-> #305, lovroSubj: Re: stek
Q> Da! Da li je na pocetku programa sp=0, a SS dobija vec neku vrednost? Ako
Q> je tako, ne mora nista ni da se pamti.
Sirim dezinformacije :( SP je trenutna velicina steka tj. slobodnog steka.
pascal.308mmitrovic,
-> #300, lovro::::: Opet stek u pitanju! Kako da znam koliko je mesta ostalo na
::::: steku? Radi se neka rekurzija, a ne znam kako da proverim ima
::::: li mesta za poziv procedure.
Evo ti jedna f-ja koja vraca kolicinu slobodnog steka:
function StackFree: Word; far; assembler;
asm
mov ax,sp
add ax,4
end;
Naravno moras imati bar 4 bajta slobodna da bi se funkcija mogla pozvati
Ukoliko f-ju koristiš samo unutar jednog modula ono far možeš da zameniš sa
near, a add ax,4 u add ax,2.
Funkciju koristi samo pri komandi dodeljivanja, pošto velika većina
ostalih komandi koristi stek (pr.: mat. operacije nad real. brojevima).
Naravno možeš rizikovati, ali sa x:=StackFree sigurno dobijaš tačnu
vrednost.
var x:word;
begin
writeln(StackFree); š dace rezultat manji za 4 posto writeln ć
š ostavlja pointer na stek ć
x:=StackFree; š ovo ce ispisati tacan rezultat ć
writeln(x);
end.
pascal.309drpr,
Haj svima,
uz pomoc nam dragog korisnika makse saznah da u je u
racunarima nekad pisano o prepoznavanju izraza (Rac. 79
"Rastavi me nežno") i to mi je sve trebalo za neke funkcije
koje na zalost moram da računam. E sad ja sam probao da
provalim ali za sad mi ne ide kako uz pomoć svega toga da
izračunam novi izraz. Sve sam prekucao iz računara ali čovek
kao primer nije uzeo glavnu stvar. Zato ako se neko ovim bavio
i ostao mu je sors a voljan je da to podeli sa nama neka se
javi.
cope
pascal.310dejanr,
-> #309, drpr>> uz pomoc nam dragog korisnika makse saznah da u je u
>> racunarima nekad pisano o prepoznavanju izraza (Rac. 79
>> "Rastavi me nežno") i to mi je sve trebalo za neke funkcije
>> koje na zalost moram da računam. E sad ja sam probao da
>> provalim ali za sad mi ne ide kako uz pomoć svega toga da
>> izračunam novi izraz.
Ne sećam se baš tačno tog teksta, ali ono što znam sigurno jeste da
sam ja pisao o računanju aritmetičkih izraza (ako sam dobro razumeo
da ti to treba) u "Računarima 14", strana 54. To je bilo u pre-PC
vremenu, dakle čini mi se da je dat neki program u paskalu ali ne
Turbo Paskalu... ili je možda bilo na bejziku. U svakom slučaju,
možda bi ti mogao biti od pomoći, u kombinaciji sa pratećim tekstom.
pascal.311ddabic,
DELPHI je stigao,
Prvi utisci su impresivni, mada moram da priznam da do sada nisam radio u
Paskalu lakse je nego se baktati sa zaboravljenim Bejzikom. Ono sto sam
mogao da vidim za ovih 10 sati definitivno izbacuje Visual Basic iz
konkurencije. Sta sve moze ovo cuda sa bazama podataka (na cemu ja inace
radim) je jednom recju SVE. Mozete da radite u cistom SQL-u, da koristite
DBase ili Paradox formate ili preko ODBC-a sa svim ostalim kod nas poznatim
bazama (FoxPro, Access...)
Da ne duzim dalje evo vam njegovog (skracenog) Read-me fajla:
Welcome to Delphi
-----------------
....
1. MINIMUM SYSTEM REQUIREMENTS
------------------------------
Delphi requires Windows 3.1 or a 100% compatible operating
system, an 80386 or newer processor (486 recommended), and 6Mb of
system memory (Delphi Client/Server requires 8Mb, 12Mb or more is
recommended for Client/Server development). A minimum
installation requires approximately 30Mb of disk space (a full
installation of Delphi Client/Server requires approximately
80Mb).
DCC.EXE, the DOS command-line compiler, requires at least 1Mb of
extended memory.
Delphi has been tested under Windows 3.1, Windows for Workgroups
3.11, Windows NT 3.5, OS/2 Warp, and the latest pre-release
version of Windows 95. Note that we do not recommend large-scale
deployment of database applications running under Windows 95
until Microsoft certifies a release for commercial use.
...
3. INSTALLATION
---------------
Please refer to the file INSTALL.TXT on your CD in the
\INSTALL\DISK1 directory or on DISK1 of your floppy disk set
for complete installation instructions.
To start the installation, run the SETUP.EXE program on your CD
in the \INSTALL\DISK1 directory or on the floppy disk labeled
DISK1.
4. PRODUCT OVERVIEW
-------------------
Delphi's visual design environment lets you create sophisticated
Windows applications faster than any other development tool.
Because Delphi is built around and optimizing native code
compiler, Delphi applications are up to 10-20 times faster than
interpreted code.
Delphi integrates the Borland Database Engine, so you have
instant support for dBase, Paradox, and ODBC local databases.
Delphi includes the Local InterBase Server so you can create
standalone client/server applications with a high-performance
ANSI SQL-92 compatible database server.
Delphi also includes Borland's award-winning ReportSmith report
writing tool, which allows programmers to prepare innovative
reports using live data in all popular database formats.
Delphi Client/Server includes all of Delphi plus high performance
native drivers for Oracle, Sybase, Microsoft SQL Server, Informix
and InterBase remote servers with unlimited application
deployment. You also get team development support, ReportSmith
SQL, a Visual Query Builder, source code to the Visual Component
Library (VCL), and the Local InterBase Server Deployment Kit.
....
....
BP 7.0 Compatibility Notes
--------------------------
o Passing Borland Pascal 7.0 style object variables as arguments
in an open array constructor is not supported.
o Don't use the Borland Pascal 7.0 Fail procedure with Delphi
classes.
o Though we do not recommend using ObjectWindows and VCL units
in the same application, by following these instructions, you
can easily work on your Borland Pascal 7.0 Windows projects in
the Delphi development environment:
1. Open your program or library file as a project. Make sure
there's a correct module header declaration (i.e. program,
library or unit) at the beginning of the .PAS file.
2. Change the Search Path on the Options|Project|Directories
page to include \DELPHI\SOURCE\RTL70.
3. Update the uses clause of each unit as follows:
o For each unit that uses WinTypes, replace "WinTypes" with
"Messages, WinTypes"
o Remove all references to the Win31 unit
-----------------------------------------------------------------