pascal.1marko.dj,
PHMMMKKKada koristim mouse biblioteku kao podrsku rada sa misem u grafickom
modu ne mogu da dobijem pointer. Predstavljen je nekom malom jedva vidljivom
crticom koja se vrlo skokovito krece. Biblioteka je skinuta sa sezama. Graf
kartica je herkules. Mis je geniusov i microsoft mouse kompatibilan. U text
mogu radi perfektno. Usput ako moze neko da opise kako se koristi
setpointershape procedura.
pascal.2mboban,
-> #1, marko.dj=-= Biblioteka je skinuta sa sezama.
Sve si mi rek'o... :) Tih biblioteka ima na tone :)
=-= Usput ako moze neko da opise kako se koristi setpointershape procedura.
E pošto ne znam o kojoj se biblioteci radi, evo kako ja to radim, pa možda
nađeš neke sličnosti.
procedure Shape(x,y:integer;p:pointer);
var
r : registers;
begin
r.ax := 9;
r.bx := x;
r.cx := y;
r.es := seg(p^);
r.dx := ofs(p^);
intr($33, r);
end;
Jel' to ta procedura? Ako jeste, onda ti je rešenje sledeće.
Kako se pointer miša (barem kod mene na SVGA) sastoji (crta) od kvadrata
dimenzija 16 * 16, parametri x i y su koordinate na tom kvadratu kojima
se dodeljuje "vrh" pokazivača. Znači to je ustvari srce pokazivača.
Npr. ako je pointer strelica, onda će ti parametri x i y da imaju koordinate
vrha te strelice. Ili ako je pointer plusić, onda su parametri x i y
koordinate preseka horizontalne i vertikalne linije.
Nadam se da si ovo do ovde ukapirao, idemo dalje...
Definiši promenljivu tipa
a : Array[1..32] of Word;
i uradi sledeće...
For i:=1 to 16 do a[i]:=$FFFF;
Znači prvih 16 elemenata niza moraju da imaju vrednost $FFFF, koliko
sam ja ukapirao, da bi se pointer miša XORovao sa podlogom (ekranom).
E sada šta radiš sa ostalim elementima niza (17-32)?
Pa kao što sam objasnio, ta miševa ikona, tj kvadrat na kojem se iscrtava
pointer je dimenzija 16 * 16. E sad a[17] je zadužen za prvi red, a[18] za
drugi, itd. do kraja. Znači u svakom redu imaš 16 elemenata, koji su ustvari
pixeli zaduženi za iscrtavanje tog pointera. Kao 16-to bitni registar,
1 znači da ima tačke, 0 znači da nema. Dakle ako hoćeš da ti recimo kroz
drugi red prolazi vertikalna linija po sredini debljine 2 pixela imaćeš
nešto ovako:
┌───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┬───┐
a[18] │ 0 │ 0 │ 0 │ 0 │ 0 │ 0 │ 0 │ 1 │ 1 │ 0 │ 0 │ 0 │ 0 │ 0 │ 0 │ 0 │
└───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┴───┘
E sad ovo pročitaš kao broj u binarnom zapisu (110000000) i pretvoriš
u hex ili dec zapis i dodeliš tu vrednost elementu a[18] i tako do kraja.
I na kraju u proceduri Shape sve to pozivaš sa npr.
Shape(x,y,@a);
I to je sve... :)
Ovo kucam na brzinu tako da ni ne verujem da si me baš razumeo, ali tu
su primeri da izvuku situaciju:
Primer prvi...
Znači uvek zbog XORovanja imaš
For i:=1 to 16 Do a[i]:=$FFFF;
Pa sad recimo...
For i:=17 to 23 Do
a[i]:=$180;
a[24]:=$FFFF;
a[25]:=$FFFF;
For i:=26 to 32 do
a[i]:=$180;
Znači ovo će da napravi plusić. I na kraju se poziva procedura Shape:
Shape(8,8,@a);
Koordinate preseka su 8,8 (mada ima 4 koordinate ustvari, jer su linije
koje se seku debljine 2)
U drugom primeru posle XORovanja imaš
For i:=17 to 20 Do
a[i]:=$0800;
a[21]:=$FF80;
For i:=22 to 25 do
a[i]:=$0800;
For i:=26 to 32 do
a[i]:=$0000;
Shape(5,5,@a);
Ovako ćeš dobiti isto plusić, ali nešto manji od onog...
To bi bilo sve, ako te još nešto interesuje, pitaj...
// Reci mi iskreno, jesi li ukapirao ovo, delijo? :) \\
pascal.3marko.dj,
-> #2, mboban# Jel' to ta procedura? Ako jeste, onda ti je resenje sledece.
Bas ta. :) Hvala na pojasnjenju. :)
pascal.4vgenije,
kako da odstampam samo oznaceni dao textfajl-a?
Fajl otvaram programcicem slicnim kao sto je tvedit.pas
Inace deo texta oznacavam misem ili sa shift-strelica(logicno ali neka
se nade)
pascal.5vgenije,
Probao sam onaj primer za odredivanje ser.broja diska
Lepo ga pokrenem ali on se samo ukoci i cuti.Jedini lek je da resetujem
racunar.Resenje?
pascal.6vgenije,
kako da obrisem o
pascal.7vgenije,
Kako da obrisem jedan slog iz datoteke(datoteka sadrzi npr
ime,prezime,telefon)
I kada unosim novo ime ako ime vec postoji ono koje je ranije bilo da se
obrise a da vazi samo najnovije?
pozdrav
pascal.8vgenije,
kako da obrisem o
pascal.9vgenije,
Kako da obrisem jedan slog iz datoteke(datoteka sadrzi npr
ime,prezime,telefon)
I kada unosim novo ime ako ime vec postoji ono koje je ranije bilo da se
obrise a da vazi samo najnovije?
pozdrav
pascal.10dejanr,
-> #9, vgenije>> Kako da obrisem jedan slog iz datoteke(datoteka sadrzi npr
>> ime,prezime,telefon)
Osim polja ime, prezime i telefon predvidi i polje 'bris', pa kad tu
staviš true, znači da je slog obrisan i ubuduće ga programski preskačeš.
Kada upisuješ novi slog, možeš prvo da probaš da ga upišeš umesto nekog
od obrisanih.
>> I kada unosim novo ime ako ime vec postoji ono koje je ranije bilo da se
>> obrise a da vazi samo najnovije?
Moraćeš da pišeš program koji ide od sloga do sloga i proverava.
pascal.11vgenije,
e posto mi nije najasnije ispala ona poruka u vezi brisanja sloga saljem
preimer gde sam ukocio..
pa ako vam nije tesko pogledajet ga i posaljite ispravnu verziju..
data.paspascal.12inikolic,
Ima li neko TriDoor stariji od verzije 3.0 koja se ovde moze naci. Potreban
mije jer ovaj 3.0 ne radi lepo(blokira racunar kada pukne veza).Negde sam video
(na staranom BBS-u ) da postoji verzija 1.78. Mozda bi ona bila dobra, jer su
mi potrebne samo neke osnovne naredba u ansiju i ascii-u. Unapred zahvalan...
Ivan
pascal.13kriss,
Kako da u TP-u 6.0 "napunim" određene registre vrednostima koji bi se
potpom prosledili ulinkovanoj proceduri (.OBJ fajl)? Znači nešto kao:
Var
r:registers;
{$L ja.obj}
Procedure ja;external;
Begin
r.ax:=12;
r.si:=22;
ja;
End.
(ne uzimajte u obzir sintaksu, ovo je samo slikovito napisano :)
Ili moram da se 'vatam za asm direktivu, pa "ručno" da dodajem? (znači
ovako:)
asm
mov ax,12
mov si,22
end
pascal.14bigbrada,
-> #11, vgenije*>> pa ako vam nije tesko pogledajet ga i posaljite ispravnu
*>> verziju..
Here it goes...
The.Great
data.paspascal.15andrejt,
-> #12, inikolicQ> Ima li neko TriDoor stariji od verzije 3.0 koja se ovde moze naci.
Evo.
td183.zippascal.16inesic,
-> #1, marko.dj> PHMMMKKKada koristim mouse biblioteku kao podrsku rada sa misem
> u grafickom modu ne mogu da dobijem pointer. Predstavljen je
> nekom malom jedva vidljivom crticom koja se vrlo skokovito
> krece. Biblioteka je skinuta sa sezama. Graf
Ja imam XT i naravno hercules kartu. Sa sezama sam skinuo davno
fajl koji mi sad stoji u direktorijumu pod nazivom mouselib.pas.
Počinje ovako
(******************************************************************************
* MouseLib *
* second release, written by Loewy Ron, AUG 90 *
* Third release, TP6.0 asm support, LR Jan 91. *
* 4TH release, added functions, LR FEB. 91. *
* 5th release, added intercept & release functions *
******************************************************************************)
unit MouseLib;
pascal.17postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: Real2Int
Date: Thu, 05 Jan 1995 11:07:00
>Imam promenljivu Real tipa,a njen integer deo
>(Int(promenljiva)) bi mi trebao u promenljivoj Integer tipa.
TP ima dve funkcije Round i Trunc. Prva zaokruzi real na integer, a
druga samo odsece decimalni deo i vrati celobronu vrednost. Za detalje
pogedaj u help.
broker
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.18postmast,
From: Sebastian.Adanko@f107.n111.z38.setgate.setnet.co.yu (Sebastian Adanko)
Subject: Real2Int
Date: Tue, 03 Jan 1995 19:06:02
Hi,natrcao sam na jedan problemcic danas.
Imam promenljivu Real tipa,a njen integer deo (Int(promenljiva))
bi mi trebao u promenljivoj Integer tipa.
U stvari,da ja kazem sve to detaljnije.Funkcija za stepenovanje koju su
dali u nekom od FAQ-ova o TP-u ( Pow:=Exp(y*Ln(x)) sto je x^y ) kao
rezultat (promenljiva Pow) daje podatak Real tipa.Onda tu promenljivu
koristim u drugoj formuli,ciji je rezultat neka Integer promenljiva.
Naravno,TP me pljune sa "Type mismatch error" i nece ni makac dalje.
Kako sto jednostavnije da dobijem rezultat?
Unapred hvala,
Sigma
___
X SLMR 2.1a X ...i jedna zlica Vegete!
* Origin: Prometheus BBS - The Northern Frontier - SETNET (38:111/107)
pascal.19postmast,
From: pedjak@hobbiton.CO.YU (Predrag Knezevic)
Subject: Re: pascal
Date: Tue, 10 Jan 1995 07:01:15 GMT
> From: "Ognjen Blagojevic" <ognjen@sezam.UUCP>
> username-a, da vidim sta ce se desiti, i gle cuda - program bez
> greske odradi posao, iako sam rezervisao memoriju samo za 30
> usera! Bug? Feature?
Imao si srece, sledeci put pazi. Dok testiras svoje programe
ukljuci prekidacku direktivu $R+ ( Range ). Da ti je opcija bila
ukljucena, program bi prijavio gresku.
pascal.20postmast,
From: pedjak@hobbiton.CO.YU (Predrag Knezevic)
Subject: Re: Real2Int
Date: Tue, 10 Jan 1995 07:01:21 GMT
> From: Sebastian.Adanko@f107.n111.z38.setgate.setnet.co.yu (Sebastian A
> Imam promenljivu Real tipa,a njen integer deo (Int(promenljiva))
> bi mi trebao u promenljivoj Integer tipa.
Postoje i funkcije Round i Trunc, pa vidi koja ti odgovara.
pascal.21postmast,
From: pedjak@hobbiton.CO.YU (Predrag Knezevic)
Subject: Re: mouse
Date: Tue, 10 Jan 1995 07:01:26 GMT
> From: "Marko Dordevic" <marko.dj@sezam.UUCP>
> modu ne mogu da dobijem pointer. Predstavljen je nekom malom jedva
> vidljivom crticom koja se vrlo skokovito krece. Biblioteka je skinuta sa
> sezama. Graf kartica je herkules. Mis je geniusov i microsoft mouse
> kompatibilan. U text mogu radi perfektno.
Problem je u tome sto imas Herkulesa. Naime, drajveri za misa koje
sam ja do sada video nisu sposobni da prepoznaju, prelazak
Herkulesa u graficki mod. Zato treba pribeci simuliranju strelice
ili ono sto pali kod "dzinijus" drajvera je da pozoves BIOS
funkciju za ulazak u CGA mod 640x200 i time prevaris drajver.
Naravno, ovo ne radi ni pod jednim drugim drajverom.
Naravno, moram da se i malo pohvalim :) na Sezamu u ovoj temi, cini
mi se u PC.PROG.2 konferenciji postoji moj junit, (sezamusername:pedjak)
koji sasvim lepo i na Herkulesu.
pedja
pascal.22postmast,
From: pedjak@hobbiton.CO.YU (Predrag Knezevic)
Subject: Re: pascal
Date: Tue, 10 Jan 1995 07:01:31 GMT
> From: "Kristijan Lazic" <kriss@sezam.UUCP>
> Kako da u TP-u 6.0 "napunim" odredene registre vrednostima koji bi se
> potpom prosledili ulinkovanoj proceduri (.OBJ fajl)? Znaci nesto kao:
> Ili moram da se 'vatam za asm direktivu, pa "rucno" da dodajem? (znaci
> ovako:)
Da li ti tvoje procedure mogu da se prerade tako da parametre
uzimaju sa steka...? Ako je odgovor da, onda jednostavno definises
parametre eksterne procedure kao na primer:
procedure ja(a1,a2,a3:byte);external;
A zatim u eksternoj proceduri napises nesto kao:
PROC ja FAR A1:BYTE,A2:BYTE,A3:BYTE
onda u rutini samo kazes:
mov ah,a1 i slicno.
pascal.23predragd,
Odgovor na poruku PC.PROG.4: 7.825
> RM> Thanks,a dali znass kako mozze da se procita serijski broj diska ?
> RM>> Ovu funkciju imas u zadnjim Racunarima u Bajtovima licne prirode.
Može i malo brže.
Function GetDiskSerNo: string; švratice 10 bajtovać
var
bbb, i :integer;
srno: array Š1..20Ć of char;
srnostr: string Š10Ć;
begin
Repeat Until Port Š$1F7Ć = $50; š Wait for controller not busy ć
portŠ$1F6Ć:=$A0; šGet second drive ć
portŠ$1F7Ć:=$EC; šGet drive info data ć
Repeat Until Port Š$1F7Ć = $58; š Wait for data ready ć
for i:=1 to 10 do
bbb:=portw Š$1F0Ć;
for i:=1 to 5 do
begin
bbb:=portw Š$1F0Ć;
srnoŠ2*i-1Ć:=Chr (MemŠSeg (bbb):Ofs (bbb)+1Ć);
srnoŠ2*i Ć:=Chr (MemŠSeg (bbb):Ofs (bbb)Ć);
end;
Move (srno, srnostrŠ1Ć, 10);
srnostrŠ0Ć:=Chr (10);
GetDiskSerNo:=SrNoStr;
end;
Peđa.
pascal.24sjocic,
-> #23, predragd├> Može i malo brže.
├>
├>
├> Function GetDiskSerNo: string; švratice 10 bajtovać
Taj program se pokazao kao nepouzdan, ima l' drugih resenja?
pascal.25predragd,
-> #5, vgenije> Probao sam onaj primer za odredivanje ser.broja diska
Kakav disk imaš. Program sam probao na WD, Conner, Maxtor, Seagate i
Fujitsu (IDE naravno) diskovima, i radi savršeno. Na SCSI garantovano
blokira. Za ostale tipove diskova ne znam.
Peđa.
pascal.26kriss,
-> #22, postmast˙˙ From: pedjak@hobbiton.CO.YU (Predrag Knezevic)
˙˙> Kako da u TP-u 6.0 "napunim" odredene registre vrednostima
˙˙> koji bi se
˙˙ Da li ti tvoje procedure mogu da se prerade tako da parametre
˙˙ uzimaju sa steka...? Ako je odgovor da, onda jednostavno
˙˙ definises parametre eksterne procedure kao na primer:
Odgovor je ne, znači da su u pitanju dobijeni .OBJ fajlovi (ko će sad
da ih disasemblira, menja, rizikuje da ne radi posle ...). Znači,
potrebno mi je nešto što bi recimo moglo da se nazove 'asembleskim'
pozivom - "podesiš" registre, pa call (far, near, nije bitno).
˙˙ procedure ja(a1,a2,a3:byte);external;
Da li ovde može da stoji i word, integer i slično, ili mora samo byte?
pascal.27bigbrada,
-> #18, postmast*>> Naravno,TP me pljune sa "Type mismatch error" i nece ni makac
*>> dalje. Kako sto jednostavnije da dobijem rezultat?
A da probaš sa jednim Round (Pow) ili Trunc (Pow)? Ako
sam te lepo razumeo to radi posao... Pozdrav,
The.Great
pascal.28postmast,
From: zoran@setnet.co.yu (Zoran Tomic)
Subject: Real2Int
Date: Thu, 05 Jan 1995 18:31:00
* Sebastian Adanko in message to All wrote:
SA> U stvari,da ja kazem sve to detaljnije.Funkcija za stepenovanje koju
SA> su dali u nekom od FAQ-ova o TP-u ( Pow:=Exp(y*Ln(x)) sto je x^y ) kao
SA> rezultat (promenljiva Pow) daje podatak Real tipa.Onda tu promenljivu
SA> koristim u drugoj formuli,ciji je rezultat neka Integer promenljiva.
SA> Naravno,TP me pljune sa "Type mismatch error" i nece ni makac dalje.
TP je u pravu. ;)
Sasvim je normalno da javi gresku ako pokusas da realnu vrednost formule (a
realna je zbog promenljive Pow) dodelis celobrojnoj promenljivoj. Ne mozes
cak upotrebiti ni razlomacku crtu u formuli - bez obzira sto su argumenti
celobrojni.
Nego ces lepo da koristis funkcije i operatore koje vracaju celobrojne
vrednosti. Verovatno ces morati da skreses decimale (funkcija Trunc),
koristis DIV operator sa celobrojno delenje itd.
Pozdrav! Zoran
... Mene novac i slava ne zanimaju. Zanima me samo novac!
* Origin: ECSTASY BBS * Indjija * 022 53 218 * SETNet: (38:111/119)
pascal.29postmast,
From: markom@setnet.co.yu (Marko Milivojevic)
Subject: Re: pascal
Date: Mon, 09 Jan 1995 10:43:27
-=> Reply to: "Ognjen Blagojevic" <=-
"B> Probao 4dos i MSdos 5.0, ni jedan ne radi.
Heh i posle kazu da NDos ne valja, :-]]
-=> MM <=-
... Operacijom mu je odstranjen mozak, sad moze da vrsi duznost milicajca.
* Origin: SETNet - Exodus BBS #137-477# from 22:00 to 09:00 (38:103/130)
pascal.30postmast,
From: markom@setnet.co.yu (Marko Milivojevic)
Subject: Re: pascal
Date: Mon, 09 Jan 1995 10:45:04
-=> Reply to: "Zeljko Jovanovic" <=-
"J> Imas u DOS helpu ANSI sekvence.
ESC[y,xH
Obratite paznju da prvo ide Y, pa onda X koordinata,
nelogicno, al' boze moj :-) Ah da, za neiskusne, 'H' mora
biti veliko O:-)
-=> MM <=-
... Ja se tebe, vidim, svidjam, a ti mene?
* Origin: SETNet - Exodus BBS #137-477# from 22:00 to 09:00 (38:103/130)
pascal.31postmast,
From: Zoran.Rilak@f126.n103.z38.setnet.setnet.co.yu (Zoran Rilak)
Subject: Real2Int
Date: Tue, 10 Jan 1995 01:00:52
SA> ...Imam promenljivu Real tipa,a njen integer deo (Int(promenljiva))
SA> bi mi trebao u promenljivoj Integer tipa...
Postoje dve funkcije u standardnom (Virtovom) Paskalu za transformaciju tipa
iz realnog u INTEGER. To su ROUND (REAL) : INTEGER i TRUNC (REAL) : INTEGER.
Prva zaokruzuje realni parametar na najblizi ceo broj i vraca taj broj, a druga
samo odseca decimale i vraca ceo deo realnog parametra. Na primer,
ROUND (10.36) = 10; ROUND (10.55) = 11; TRUNC (10.36) = 10; TRUNC (10.55) = 10.
Da pises u Modulici ne bi te ovo mucilo ;))))) (kad se jednom covek navikne)
... "Ako jos jednom provalis sifru, imaces posla sa mnom!"
* Origin: Venik BBS * Smed. Palanka * +381 26 34808 SetNet: (38:103/126)
pascal.32pedjak,
-> #26, kriss> ˙˙ procedure ja(a1,a2,a3:byte);external;
> Da li ovde može da stoji i word, integer i slično, ili mora samo
> byte?
Može.
pascal.33janko,
-> #30, postmast> ESC[y,xH
>
> Obratite paznju da prvo ide Y, pa onda X
> koordinata, nelogicno, al' boze moj :-) Ah da, za
> neiskusne, 'H' mora biti veliko O:-)
Da pogodim, ti si jako mlad? Samo onaj kome je prvi programski jezik
baš TP može da kaže da je ovo nelogično. :)) (Uticaj GotoXY)
pascal.34zeljkoj,
-> #33, janko> baš TP može da kaže da je ovo nelogično. :)) (Uticaj GotoXY)
Pa da. Onome ko koristi settextposition (Microsoft) umesto GotoXY (Borland)
je ovo sasvim normalna stvar.
:)
pascal.35vitez.koja,
-> #34, zeljkoj#=> Pa da. Onome ko koristi settextposition (Microsoft) umesto GotoXY
#=> (Borland) je ovo sasvim normalna stvar.
E nemo' se vredjamo. LOCATE red, col je uvek radilo normalno i
zna se BRE (ovo bre mi je glavni argument pa ide veliko :) šta je
starije.
sk
pascal.36postmast,
From: markom@setnet.co.yu (Marko Milivojevic)
Subject: Re: pascal
Date: Wed, 11 Jan 1995 10:55:06
-=> Reply to: "Vlada Biskupljanin" <=-
"B> kako da odstampam samo oznaceni dao textfajl-a?
Oznaceni deo teksta iskopiras u neki interni bafer i stampas
taj bafer, prosto :-)
-=> MM <=-
... Death is life's way of telling you you've been fired.
* Origin: SETNet - Exodus BBS, Novi Beograd #137-477# (38:103/130)
pascal.37postmast,
From: Zeljko.Stevanovic@f130.n103.z38.setnet.setnet.co.yu (Zeljko Stevanovic)
Subject: pascal
Date: Thu, 05 Jan 1995 20:17:18
To: "Vlada Biskupljanin" <vgenije@sezam.UUCP>
"B> kako da odstampam samo oznaceni dao textfajl-a?
"B> Fajl otvaram programcicem slicnim kao sto je tvedit.pas
"B> Inace deo texta oznacavam misem ili sa shift-strelica(logicno ali neka
"B> se nade)
Pa posle markiranja trebas da ga prebacis u baffer sa CRTL-INS (toko je IDE-u)
pa zatim prebacis (kopiras) na stampac..
Neznam kako se sve to programira u Turbo Visual-u , ali potrazi u tvedit.pas
sourcu sta se radi kad se pretisne CRTL-INS pa mozes videti sa cime puni
baffer, i zameniti da to umesto da ide u baffer da ide na lpt ( tako mozes
u potpunosti zaobici CRTL-INS )..
Pozdrav,
Blue MAGIC
... IBM-PC - Imbecil Bussines Machine - Permanently Craches
* Origin: SETNet - Exodus BBS, Novi Beograd #137-477# (38:103/130)
pascal.38postmast,
From: Zeljko.Stevanovic@f130.n103.z38.setnet.setnet.co.yu (Zeljko Stevanovic)
Subject: pascal
Date: Thu, 05 Jan 1995 20:24:43
To: "Vlada Biskupljanin" <vgenije@sezam.UUCP>
"B> Probao sam onaj primer za odredivanje ser.broja diska
"B> Lepo ga pokrenem ali on se samo ukoci i cuti.Jedini lek je da
"B> resetujem racunar.Resenje?
I meni se to desava.. Program se ne zablokira vec se lepo izvrsava, samo sto
se nalazi u peklju, evo samo dela iz soursa:
...
begin
while port[$1F7] = $50 do { wait for controller not busy}
begin end;
... ^^^^^^^^^^
Evo tu se program nalazi.. Mozda je greska u port-u ili vrednosti koja treba
da se ceka da bi kontroler bio slobodan.. Ili kontroler je zauzet od strane
DOS-a ...
Nadam se da ce dejanr obrazloziti ovo ili uputiti poruku autoru primera..
... IBM-PC - Imbecil Bussines Machine - Permanently Craches
* Origin: SETNet - Exodus BBS, Novi Beograd #137-477# (38:103/130)
pascal.39postmast,
From: Zeljko.Stevanovic@f130.n103.z38.setnet.setnet.co.yu (Zeljko Stevanovic)
Subject: pascal
Date: Thu, 05 Jan 1995 20:45:27
To: "Vlada Biskupljanin" <vgenije@sezam.UUCP>
"B> Kako da obrisem jedan slog iz datoteke(datoteka sadrzi npr
"B> ime,prezime,telefon)
Tako sto ces preko njega upisati nov..
"B> I kada unosim novo ime ako ime vec postoji ono koje je ranije bilo da
"B> se obrise a da vazi samo najnovije?
Pa prvo nadjes slog u kome je doticno ime pa zatim se vradis jedan slog pre
doga (sa Seek(n-1) n je trenutni slog kojeg dobijes sa FilePos(f) f je file
promenjljiva) i zatim upises preko tog sloga ..
Ako i dalje nije jasno kazi, mozda neznas jos nesto sto sam pretpostavio
da vec znas..
P.S. Ako pises programe koji barataju sa velikim bazama, savetujem ti da
predjes na Cliper...
... IBM-PC - Imbecil Bussines Machine - Permanently Craches
* Origin: SETNet - Exodus BBS, Novi Beograd #137-477# (38:103/130)
pascal.40zeljkoj,
-> #35, vitez.koja> E nemo' se vredjamo. LOCATE red, col je uvek radilo normalno i
> zna se BRE (ovo bre mi je glavni argument pa ide veliko :) šta
> je starije.
žekaj malo... Pa ja to i kažem.
Rekao sam da ju u svim Microsoftovim jezicima row, col.
Nije bitno da li se zove LOCATE ili settextposition.
Bitno je samo da je kod Borlanda obrnuto, i zato je ovo "Borlandovcima"
nenormalno.
pascal.41vlador,
-> #38, postmast> while port[$1F7] = $50 do { wait for controller not busy}
> begin end;
Sad sam pogledao svoju funkciju koju sam svojevremeno napravio i koja radi
lepo. Tamo piše
while port[$1F7] <> $50 do ;
!!
Da, i 'begin end' nije potrebno. :)
---
■ VLADOR ■
pascal.42postmast,
From: Sebastian.Adanko@f107.n111.z38.Setgate.setnet.co.yu (Sebastian Adanko)
Subject: Real2Int
Date: Tue, 10 Jan 1995 15:41:48
-=> On 05 Jan 95 , Zoran Tomic wrote this to Sebastian Adanko <=-
SA> rezultat (promenljiva Pow) daje podatak Real tipa.Onda tu promenljivu
SA> koristim u drugoj formuli,ciji je rezultat neka Integer promenljiva.
SA> Naravno,TP me pljune sa "Type mismatch error" i nece ni makac dalje.
ZT>
ZT> TP je u pravu. ;)
Na zalost,on je uvek u pravu. ;)
ZT> Nego ces lepo da koristis funkcije i operatore koje vracaju celobrojne
ZT> vrednosti. Verovatno ces morati da skreses decimale (funkcija Trunc),
ZT> koristis DIV operator sa celobrojno delenje itd.
Islo je mnogo lakse sa Round.Naime,doticni program (stavio sam ga na par
BBS-ova,UNC.ZIP) nije zahtevao tako veliku preciznost,nego samo da se od
npr 3.9999999999999 dobije 4.U svakom slucaju,hvala.
Sigma
... Catch the Blue Wave!
* Origin: Prometheus BBS - The Northern Frontier - SETNET (38:111/107)
pascal.43postmast,
From: Sebastian.Adanko@f107.n111.z38.Setgate.setnet.co.yu (Sebastian Adanko)
Subject: pascal
Date: Fri, 13 Jan 1995 01:23:10
"B>E imam ideju(kao i 500 proslih neostvarenih) da napravim simulacuju berze
"B>na racunaru.naravno prilagodenu modemu-da se covek lepo prikljuci
"B>pokupuje,isprodaje itd..
"B>.Pitanje je dali ce ovo upaliti kod sireg auditorijuma-dali ce ljudi igrati
"B>tu igru?
Ja bih igrao.Cini mi se da je takva igra mnogo primerenija ovakvom
nacinu igranja od strategija.
PhuZZy L0GiK
... Niko ne primecuje velike greske.
* Origin: Prometheus BBS - The Northern Frontier - SETNET (38:111/107)
pascal.44postmast,
From: Sebastian.Adanko@f107.n111.z38.Setgate.setnet.co.yu (Sebastian Adanko)
Subject: Real2Int
Date: Fri, 13 Jan 1995 01:45:32
PS>>Imam promenljivu Real tipa,a njen integer deo
PS>>(Int(promenljiva)) bi mi trebao u promenljivoj Integer tipa.
PS>TP ima dve funkcije Round i Trunc. Prva zaokruzi real na integer, a
PS>druga samo odsece decimalni deo i vrati celobronu vrednost. Za detalje
Nasao sam to jos to vece,ali nisam stigao da zaustavim poruku na putu
kroz SETNet.U svakom slucaju,hvala.
BTW,ti si jedini koji mi je odgovorio na ovo,zaista jednostavno
pitanje.Da li to znaci da svi ovi paskalovci bas i ne poznaju svoj
"maticni jezik"? ;)) Ili su samo lenji ;)))
PhuZZy L0GiK
... C'est la vie.
* Origin: Prometheus BBS - The Northern Frontier - SETNET (38:111/107)
pascal.45postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: Real2Int
Date: Mon, 16 Jan 1995 10:33:00
> Islo je mnogo lakse sa Round.Naime,doticni program (stavio sam
>ga na par BBS-ova,UNC.ZIP) nije zahtevao tako veliku preciznost,nego
>samo da se od npr 3.9999999999999 dobije 4.U svakom slucaju,hvala.
Nemoj se ljutiti, ali ucini sebi uslugu i onakve programe nemoj da na
BBS-ove ostavljas pod svojim imenom. Ono sto si kod mene ostavio spada
u klasu programa 'napisanih samo da ga autor koristi i niko vise'.
Sredi ga malo, uvedi provere i doteraj korisnicki interfejs pa tek onda
salji na BBS.
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.46postmast,
From: Predrag_Supurovic@f101.n101.z38.Setgate.setnet.co.yu (Predrag_Supurovic)
Subject: Statistics
Date: Tue, 17 Jan 1995 22:40:00
Maintaned by CONFERENCE STATISTICS SHELL - (c)1995 by Predrag Supurovic
=======================================================================
Conference NET.PASCAL maintained on 10.01.95. for 7 days backward.
QRATIO Mail Statistics V1.9 by Act Of Impulse.
----------------------------------------------
Total messages found in this area : 550
Number of messages covered in report: 24
Processed period from: 10-1-1995 to 1-1-2074
------------------------------------------------------------------------------
Blacklist-Top 10 of the Quoters.
Nr Total Quoted Quote
Name Address Msg Lines Lines: Ratio:
---- ------- --- ----- ------ ------
1. Sebastian Adanko......... 38:111/107 5 61 33 54.10%
2. "Janko Stamenovic"....... 38:103/120 1 10 5 50.00%
3. "Srdan Jocic"............ 38:103/120 1 8 4 50.00%
4. "Predrag Knezevic"....... 38:103/120 1 7 3 42.86%
5. Predrag Knezevic......... 38:103/120 4 51 17 33.33%
6. Marko Milivojevic........ 38:103/130 1 6 2 33.33%
7. Zeljko Stevanovic........ 38:103/126 1 9 3 33.33%
8. "Aleksandar Bradaric".... 38:103/120 1 8 2 25.00%
9. "Vladimir Maric"......... 38:103/120 1 9 2 22.22%
10. Zoran Rilak.............. 38:103/126 1 9 2 22.22%
------------------------------------------------------------------------------
Top 10 of the writers.
Total Average Quote
Name Msgs: Pct. Byte/Msg Ratio:
---- ----- ----- -------- ------
1. Sebastian Adanko 5 20.8% 654 54.10%
2. Predrag Knezevic 4 16.7% 608 33.33%
3. "Predrag Dobrovic" 2 8.3% 653 7.89%
4. Predrag Supurovic 2 8.3% 1795 5.08%
5. "Janko Stamenovic" 1 4.2% 390 50.00%
6. Marko Milivojevic 1 4.2% 319 33.33%
7. Zeljko Stevanovic 1 4.2% 407 33.33%
8. "Aleksandar Bradaric" 1 4.2% 342 25.00%
9. "Vladimir Maric" 1 4.2% 366 22.22%
10. Zoran Rilak 1 4.2% 633 22.22%
------------------------------------------------------------------------------
Top 8 of the receivers.
Total
Name Msgs: Pct.
---- ----- -----
1. All 15 62.5%
2. "Vlada Biskupljanin" 2 8.3%
3. Sebastian Adanko 2 8.3%
4. Zoran Rilak 1 4.2%
5. Robert Mileski 1 4.2%
6. Predrag Supurovic 1 4.2%
7. Zoran Tomic 1 4.2%
8. "Aleksandar Bradaric" 1 4.2%
------------------------------------------------------------------------------
Top 6 of the subjects.
Subject Nr.
------- ---
1. pascal...................................................... 14
2. Real2Int.................................................... 6
3. c komanda.--- FMail/386 1.0g
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.47postmast,
From: Sebastian.Adanko@f107.n111.z38.Setgate.setnet.co.yu (Sebastian Adanko)
Subject: pascal
Date: Sun, 15 Jan 1995 22:28:18
-=> "Aleksandar Bradaric" wrote this to All <=-
*>> Naravno,TP me pljune sa "Type mismatch error" i nece ni makac
*>> dalje. Kako sto jednostavnije da dobijem rezultat?
"B>
"B> A da probas sa jednim Round (Pow) ili Trunc (Pow)? Ako
"B> sam te lepo razumeo to radi posao... Pozdrav,
Fala,fala,nas'o sam to vec,program radi!
Jos jednom fala na odgovoru. ;)
PhuZZy L0GiK
... Kako im ne promukne glas savesti!?
* Origin: Prometheus BBS - The Northern Frontier - SETNET (38:111/107)
pascal.48postmast,
From: Sebastian.Adanko@f107.n111.z38.Setgate.setnet.co.yu (Sebastian Adanko)
Subject: Real2Int
Date: Sun, 15 Jan 1995 22:31:27
-=> Zoran Rilak wrote this to All <=-
SA> ...Imam promenljivu Real tipa,a njen integer deo (Int(promenljiva))
SA> bi mi trebao u promenljivoj Integer tipa...
ZR>
ZR> Postoje dve funkcije u standardnom (Virtovom) Paskalu za
ZR> transformaciju tipa iz realnog u INTEGER. To su ROUND (REAL) : INTEGER
ZR> i TRUNC (REAL) : INTEGER. Prva zaokruzuje realni parametar na najblizi
Hvala,hvala,vec me blam 'vata od ovih silnih odgovora.Istrc'o sam se i
poslao onako tupavo pitanje,pa me sad svi zasipaju odgovorima ;)
Hvala opet,nasao sam te f-je i program je proradio.
ZR> TRUNC (10.36) = 10; TRUNC (10.55) = 10. Da pises u Modulici ne bi te
ZR> ovo mucilo ;))))) (kad se jednom covek navikne)
Pisacu ja,pisacu,samo da je nabavim.BTW,kako se to tamo resava? (mrzi me
da sad kopam po knjizi ;)
PhuZZy L0GiK
... Behind every argument is someone's ignorance.
* Origin: Prometheus BBS - The Northern Frontier - SETNET (38:111/107)
pascal.49vgenije,
Kako da izbegnem da me ne izbacuje iz programa ako na pitanje za neku
varijablu tipa real korisnik ogovori sa nekim slovom?
Ocu da kazem kako da ga vratim na to isto pitanje ako je pogresio sa
numerickim formatom?
pozdrav
pascal.50sljubisic,
Molim sve one koji mogu da pomognu da ovu poruku procitaju pazljivo.
Radi se o sledecoj situaciji:
Postoji program napisan u TP koji kao izlaz daje alfanumericke podatke
(samo ASCII karakteri) u vidu dve grupe kolona. Ovo je vrlo bitno jer
je vazno da se ispis vrsi u LANDSCAPE formatu, dok je u PORTRAIT i
vrlo neekonomicno i nepregledno.
Stampac na kome to sve treba postici je CANON BJC 600, dakle jedan
bubble jet kolor stampac, i problem je u tome sto on NEMA ESC sekvencu
koja bi ga prebacila u stampanje u landscape formatu.
Sudeci bar po faksu koji je stigao 'srecnom' vlasniku, cak iz dalekog
Japana, direktno iz Canon-a, jedino je moguce postici nesto sa odgova-
rajucim bibliotekama, koje bi ovakvu opciju podrzavale.
Dakle, pitanje i zapravo molba:
gde se moze naci takva biblioteka?
Za svaki savet, bilo ovde ili u mail sam vrlo zahvalan!
Hvala unapred,
Slobodan
pascal.51pedjak,
-> #49, vgenije> Kako da izbegnem da me ne izbacuje iz programa ako na pitanje za
> neku varijablu tipa real korisnik ogovori sa nekim slovom?
var
a:real;
begin
repeat
(*I-*)
readln(a);
(*I+*)
until ioresult=0;
end.
Izvini, (* i *) koristim umesto vitičastih zagrada zbog juskija.
pedja
pascal.52severian,
-> #49, vgenije> Kako da izbegnem da me ne izbacuje iz programa ako na pitanje
> za neku varijablu tipa real korisnik ogovori sa nekim slovom?
> Ocu da kazem kako da ga vratim na to isto pitanje ako je
> pogresio sa numerickim formatom?
Na primer, ovako:
{ bafer ti je string, a var_real real promenljiva }
repeat
begin
write('Unesi trt-mrt...');
readln(bafer);
val(bafer, var_real, code);
end
until code=0;
pascal.53postmast,
From: Brankica.Kranjac@f110.n103.z38.setgate.setnet.co.yu (Brankica Kranjac)
Subject: pascal
Date: Fri, 20 Jan 1995 21:58:18
"S> From: "Janko Stamenovic" <janko@sezam.UUCP>
"S> > ESC[y,xH
"S> >
"S> > Obratite paznju da prvo ide Y, pa onda X
"S> > koordinata, nelogicno, al' boze moj :-) Ah da, za
"S> > neiskusne, 'H' mora biti veliko O:-)
"S> Da pogodim, ti si jako mlad? Samo onaj kome je prvi programski jezik
"S> bas TP moze da kaze da je ovo nelogicno. :)) (Uticaj GotoXY)
Eh, a ja dugo svojevrmeno mislila da ne umem da proracunavam kako
treba koordinate :) Eto sta se desava kad covek ne obrati paznju :(
Pozdrav od Lady Linet
___
■ PQ 2.14 ■ SF SF SF SF SF SF SF SF SF SF SF SF SF SF SF SF SF SF SF:)
* Origin: # New Age # 23-06h # Beograd # SETNet: (38:103/110)
pascal.54postmast,
From: Brankica.Kranjac@f110.n103.z38.setgate.setnet.co.yu (Brankica Kranjac)
Subject: Paskal i C
Date: Fri, 20 Jan 1995 22:02:20
Evo jedan Hint svim paskaldzijama (a mozda i sire):
Kad Pascal vrti petlju:
for i:=1 to Max do
on prvo ispita koliko puta bi trebalo da je vrti i onda je
vrti tacno toliko puta.
Zasto ovo pisem?
Zato sto C npr. to ne radi.
for (i=1;i<=Max;i++)
{
nesto;
}
radi isto to, ali samo ako ne menjate vrednost Max u toku petlje,
Paskal to ignorise - on zna da treba vrti petlju toliko i toliko
puta i to radi, menjali mu vi Max ili ne. C se normalno ne buni ako
to uradite, ali jos normalnije vrti pogresan broj puta.
Pozdrav, i nadam se da ce ovo nekome biti od koristi,
Lady Linet
___
■ PQ 2.14 ■ PC - pametan covek.
* Origin: # New Age # 23-06h # Beograd # SETNet: (38:103/110)
pascal.55postmast,
From: Sebastian.Adanko@f107.n111.z38.setgate.setnet.co.yu (Sebastian Adanko)
Subject: Real2Int
Date: Tue, 17 Jan 1995 20:52:29
-=> Predrag Supurovic wrote this to Sebastian Adanko <=-
>ga na par BBS-ova,UNC.ZIP) nije zahtevao tako veliku preciznost,nego
PS> Nemoj se ljutiti, ali ucini sebi uslugu i onakve programe nemoj da na
PS> BBS-ove ostavljas pod svojim imenom. Ono sto si kod mene ostavio spada
PS> u klasu programa 'napisanih samo da ga autor koristi i niko vise'.
Ne ljutim se, ali ako si pazljivije procitao README koji je uz njega,
tamo sam napisao da je program bas u toj klasi i da niko ko ga eventualno
skine ne ocekuje ne-znam-ni-ja-sta.Napisan je za dva dana (tacnije,dve
noci),a i to samo zato sto sam zapeo oko onog problema sa promenljivama.
Ako ti se bas toliko ne svidja,obrisi ga ;)
BTW,to je bilo samo zbog UL/DL odnosa (mnogo volem SF) ;)))
PS> Sredi ga malo, uvedi provere i doteraj korisnicki interfejs pa tek
PS> onda salji na BBS.
Ako imas volje,poslacu ti source,pa ga menjaj.Ja,kao sto tamo rekoh,nemam
volje.Moje potrebe zadovoljava.BTW,kakve provere da uvodim? (cisto da znam
ako pravim nesto ozbiljnije)
PhuZZy L0GiK
... Ko se poslednji smeje ima bore oko ociju!
* Origin: Prometheus BBS - The Northern Frontier - SETNET (38:111/107)
pascal.56mmitrovic,
-> #13, krissŮ█▀█Ţ Ili moram da se 'vatam za asm direktivu, pa "ručno" da dodajem? (znači
Ů█▀█Ţ asm mov ax,12
Ů█▀█Ţ mov si,22
Ů█▀█Ţ end
Moraš! ;)
Druga alternativa ti je (ukoliko si sam pisao source za OBJ) da
u proceduri postaviš standardni stack frame (push bp; move bp,sp)
pa da u kodu primaš parametre relativno u odnosu na BP.
onda u PAS fajlu deklarišeš
preocedure Ja(prvi,drugi:word); external;
pa da je pozivaš sa
Ja(12,22);
pascal.57evlad,
-> #49, vgenije>> Ocu da kazem kako da ga vratim na to isto pitanje ako je pogresio sa
>> numerickim formatom?
Repeat
čitanje;
Until tačno;
čitanje == procedura za unos parametara
tačno == funkcija za proveru istih (vraća Boolean)
pascal.58ikordic,
-> #50, sljubisicRE: Landscape print
=> Postoji program napisan u TP koji kao izlaz daje alfanumericke
=> podatke (samo ASCII karakteri) u vidu dve grupe kolona. Ovo je vrlo
=> bitno jer je vazno da se ispis vrsi u LANDSCAPE formatu, dok je u
=> PORTRAIT i vrlo neekonomicno i nepregledno.
Mislim da ćeš ovakvu specijalizovanu biblioteku vrlo teško naći. Jedino
smisleno rešenje je da se preusmeri izlaz iz programa u neku tekstualnu
datoteku i da se ista potom poveri na štampu nekom eksternom programu koji
će to izvozati u grafičkom modu, pošto, kao što reče, štampač ne podržava
landscape štampu.
Mislim da onaj Booklet ima neku sličnu opciju, ima ga na Sezamu, pa ga
progledaj malo.
Ovako, na prvi pogled, čini mi se da i nije neki preteran posao da se
napiše programče koji će vršiti konverziju ASCII char -> bitmap landscape
char pod uslovom da:
1) poznaješ naredbe za bitmap štampu na tom štampaču
2) se ograničiš na neproporcionalan ispis
3) neće biti nekih suludih efekata tipa underline, shadow, grafika i sl.
4) imaš vremena za eksperimentisanje
Normalno, takav program će potom raditi samo na tom štampaču.
pascal.59vgenije,
koji je asci kod za ENTER
pascal.60vgenije,
-> #51, pedjak>
> Izvini, (* i *) koristim umesto viticastih zagrada zbog
> juskija.
>
Zahvaljujem na odgovoru ali on me i dalje izbacuje iz programa sa istom
porukom..
pascal.61pedjak,
-> #52, severian> repeat
> begin
> end
> until code=0;
U Repeat-Until petlji nije potrebno koristiti Begin-End. To se
podrazumeva.
pascal.62niklaus,
-> #51, pedjak(:> Izvini, (* i *) koristim umesto vitičastih zagrada zbog
(:> juskija.
Lepo što si nas podsetio na osnovne standarde Pascal-a.
(: Sean :)
ps Nažalost (po sve nas koji "trpimo" YUSCII) C to nema, inače bi bilo manje
svađe oko kodnih rasporeda...
Ni u Moduli-(1,2,3) nema problema sa vitičastim zagradama.
pascal.63niklaus,
-> #58, ikordic(:> RE: Landscape print
(:> Normalno, takav program će potom raditi samo na tom štampaču.
Bilo bi potrebno sakupiti podatke o ESC kodovima za inincijalizaciju raznih
modova na printeru, i problema ne bi bilo. Sa programerske strane jedino bi
dodatno moralo da se vodi računa "samo" (: o odnosu vertikalne i horizontalne
rezolucije.
Ima li neka zvanična baza printerskih ESC kodova zajedno sa funkcijom svakog
od njih? Uz poruku najbogatija koju imam (60ak printera). Ako imate neku
opskrbljeniju, zamolio bih vas da mi pošaljete.
(: Sean :)
prn_esc.zippascal.64dejanr,
-> #59, vgenije>> koji je asci kod za ENTER
13.
Za PC pod DOS-om redovi u tekstualnim datotekama se završavaju sa
<CR><LF>, dakle sa 13 10
pascal.65zeljkoj,
-> #59, vgenije> koji je asci kod za ENTER
13 decimalno.
Kad smo već kod kodova :)) interesuje me šta komunikacioni program pošalje
"drugoj strani", recimo Sezamu :), kada pritisnem neku od strelica ili neki
drugi taster koji nema svoj ASCII kod?
pascal.66sljubisic,
-> #58, ikordicSubj: Za bibliotekare i entuzijaste :)
> Mislim da ces ovakvu specijalizovanu biblioteku vrlo tesko naci. Jedino
Da, to mi je bilo poznato od samog pocetka :(
> smisleno resenje je da se preusmeri izlaz iz programa u neku tekstualnu
> datoteku i da se ista potom poveri na stampu nekom eksternom programu koji
> ce to izvozati u grafickom modu, posto, kao sto rece, stampac ne podrzava
> landscape stampu.
> Mislim da onaj Booklet ima neku slicnu opciju, ima ga na Sezamu, pa ga
> progledaj malo.
A mozda je i resenje ukucati tabele u Word setovan na landscape format,
lepo izabrati font, i ljudski ih odstampati? :)
No sada malo ozbiljno - problem je u nameni programa. Naime, napisan je
program koji podatke dobija iz opreme za akviziciju podataka (Adaptek)
i kao takve ih treba obraditi i proslediti na stampac. Dakle, da se radi
o jednom slucaju koji se javlja jednom u mesec dana sve prethodno bi
bilo ok, medjutim ovde to nije slucaj.
Akvizicija se treba raditi bar jedno 10-tak, a mozda cak i znacajno vise
puta u toku jednog dana, sa po par strana ispisa, pa kad bi se posle svakog
trebalo tako, manje vise (semi)manuelno... Uostalom, sve sto nije unutar
jednog jedinstvenog programa, koga korisnik jednostavno pokrene i ne razmi-
slja dalje, po meni nije dovoljno user-proof resenje. A osim toga, uvek
su moguce kolizije sa pozivanjem drugih programa, jer covek jednostavno
nikad nije siguran koje sve resurse i oni sami koriste.
Nije naodmet primetiti da bi procedura startovnanje programa za akviziciju,
koji daje neki .txt, pa izlazak iz njega, pa startovanje nekog 'utility-a'
i import .txt-a i samo stampanje, pa izlazak iz njega, ponovni ulazak u
akvizicioni.... bila sve samo ne jednostavna i brza :). No radili su ljudi
i gore stvari, i to mesecima, dok im neko nije pokazao... :) Ovo bi mozda
moglo i nesto jednostavnije u zavisnosti od programa koji bi trebao da
radi stampu i njegove fleksibilnosti i mogucnosti startovanja svih opcija
iz komandne linije, no, to je vec druga prica.
> Ovako, na prvi pogled, cini mi se da i nije neki preteran posao da se
> napise programce koji ce vrsiti konverziju ASCII char -> bitmap landscape
> char pod uslovom da:
> 1) poznajes naredbe za bitmap stampu na tom stampacu
Ovo nije problem, ali osim osnovne premise ne pomaze ama bas nista :(
> 2) se ogranicis na neproporcionalan ispis
Nije problem, ionako su tabele u pitanju.
> 3) nece biti nekih suludih efekata tipa underline, shadow,
> grafika i sl.
Ne, za ovim kao sto sam i rekao nema potrebe, samo ASCII, no ako se
vec pise program koji konvertuje portrait->landscape, ne ubaciti i
ove funkcije je pravi greh :), prema korisniku dakako :))
> 4) imas vremena za eksperimentisanje
Normalno, vremena nikad nema :). A i ovde bi se eksperimentisanje
svodilo na pisanje bas takvog programskog modula. Trebalo bi se
unapred recimo odluciti za oblik i velicinu fonta, zatim ga bitma
pirati, i napisati rutine za takvo ispisivanje, i kako to sigurno
nebi proradilo iz prve, testirati, ispravljati, testirati.....
Poznavanje 'u prste' sekvenci doticnog stamapca, ne treba ni pomi-
njati ('sreca' je da dokumentacija kompletna :)
Pa, sada koliko to izgleda kao 'ne preterano veliki posao'?
No ionako je ona moja prethodna poruka bila manje vise jedan
'ocajnicki pokusaj', da probam spasti, sta se spasti moze.
Po svemu sudeci, Canon ce biti vracen i zamenjen za Packarda
(550c mislim) koji navodno ima famoznu mogucnost stampanja u
Landscape formatu, kojom bi svi problemi nestali, ko rukom
odneseni... :)
Pozdrav,
Slobodan
pascal.67maksa,
-> #65, zeljkoj>> Kad smo već kod kodova :)) interesuje me šta komunikacioni
>> program pošalje "drugoj strani", recimo Sezamu :), kada
>> pritisnem neku od strelica ili neki drugi taster koji nema
>> svoj ASCII kod?
Program detektuje extended scan code, a "drugoj strani" pošalje
šta mu ti kažeš.
pascal.68pedjak,
-> #60, vgenije> Zahvaljujem na odgovoru ali on me i dalje izbacuje iz programa sa
> istom porukom..
Pa čekaj sad.. :) Da li si probaj primer koji sam ti ja dao..? On
sigurno radi, pa prilagodi svoj program prema tome.. Koju ti poruku
inače javlja program..?
pascal.69severian,
-> #61, pedjak> U Repeat-Until petlji nije potrebno koristiti Begin-End. To se
> podrazumeva.
Pa sad, ja sam navikao jer mi je preglednije...
pascal.70bulaja,
-> #65, zeljkoj│Kad smo već kod kodova :)) interesuje me šta komunikacioni program pošalje
│"drugoj strani", recimo Sezamu :), kada pritisnem neku od strelica ili neki
│drugi taster koji nema svoj ASCII kod?
└───
Zavisno od terminal emulacije, npr. u ANSI terminalu šalje ANSI sekvencu
za strelicu gore :).
pascal.71zeljkoj,
-> #67, maksa> Program detektuje extended scan code, a "drugoj strani" pošalje
> šta mu ti kažeš.
Ovo mi nije baš najjasnije. Da pokušam da drugačije formulišem pitanje:
Šta Sezam treba da primi da bi to shvatio kao strelicu na gore ili na dole?
pascal.72ikordic,
-> #66, sljubisicRE: Landscape štampa
=> Nije naodmet primetiti da bi procedura startovnanje programa za
=> akviziciju, koji daje neki .txt, pa izlazak iz njega, pa startovanje
=> nekog 'utility-a' i import .txt-a i samo stampanje, pa izlazak iz
=> njega, ponovni ulazak u akvizicioni.... bila sve samo ne jednostavna
Sasvim je jednostavno to sve organizovati, bilo u okviru samog programa,
bilo u vidu .BAT datoteke, pošto pomenuti Book(let) radi iz komandnog moda,
tako da opisanih problema nema.
=> Pa, sada koliko to izgleda kao 'ne preterano veliki posao'?
Pa, dan-dva posla, al' ne znam da li bi se .OBJ BC-a mogao koristiti uz BP?
U protivnom, taj Pascal program će morati da ga poziva kao eksterni kad
treba nešto printati, što, uzevši u obzir uslove rada, i nije neko
ograničenje. Nego, ... da se preselimo u susednu temu (cccc)? ;)
=> Po svemu sudeci, Canon ce biti vracen i zamenjen za Packarda
=> (550c mislim) koji navodno ima famoznu mogucnost stampanja u
Pa, odluči se više ;)
pascal.73sljubisic,
-> #72, ikordic> RE: Landscape stampa
Ne, nego: User-friendly landscape stampa! :)
> Sasvim je jednostavno to sve organizovati, bilo u okviru samog programa,
> bilo u vidu .BAT datoteke, posto pomenuti Book(let) radi iz komandnog moda,
> tako da opisanih problema nema.
Hm, opet teorija i teorija. Dakako, ne odbacujem mogucnost da bi to
i funkcionisalo unutar jedne petlje u batch fajlu, no kako imam vrlo
rdjava iskustva sa svim programima koji nesto salju ili primaju sa
portova i njihove mogucnosti da se 'zaglave', ipak se ne bih previse
pouzdao u tako nesto.
Inace vec ranije je probano nesto slicno (batch i jedan program koji
podrzava landscape, mislim da ga ima ovde na Sezamu) i zaglavio je od-
mah nakon stampe. Moralo je: reset pa sve jovo nanovo..
Normalno je da svakom iole trezvenom coveku ovako nesto padne na
pamet odmah cim se problem javi, no ovako nesto se ne moze ni u
najboljoj nameri smatrati resenjem.
Da sam mislio na nesto ovako sigurno bi moje pitanje na pocetku lanca
diskusije bilo drugacije ?
> => Po svemu sudeci, Canon ce biti vracen i zamenjen za Packarda
> => (550c mislim) koji navodno ima famoznu mogucnost stampanja u
> Pa, odluci se vise ;)
Neznam odakle ti uopste i nagovestaj da sam nesto neodlucan ?
Ako jos jednom procitas prethodnu repliku videces da sam
'u ocajnickoj nadi' potrazio neko korisno resenje u ovoj temi,
u medjuvremu dok se stampaci ne zamene kod isporucioca.
Pozdrav,
Slobodan
pascal.74postmast,
From: anubis@hobbiton.CO.YU (Igor Loncarevic)
Subject: Re: pascal
Date: Sun, 22 Jan 1995 22:08:47 GMT
Predrag Knezevic (pedjak@sezam.UUCP) wrote:
: var
: a:real;
: begin
: repeat
: (*I-*)
: readln(a);
: (*I+*)
: until ioresult=0;
: end.
: Izvini, (* i *) koristim umesto viticastih zagrada zbog juskija.
Ne prima se izvinjenje:).
Da si rekao zbog module2, hajde... al vako ... :)
-+-
anubis@hobbiton.CO.YU
pascal.75zeljkoj,
-> #70, bulaja> Zavisno od terminal emulacije, npr. u ANSI terminalu šalje ANSI
> sekvencu za strelicu gore :).
Ima li neko spisak svih ANSI sekvenci?
pascal.76djelovic,
-> #75, zeljkoj> Ima li neko spisak svih ANSI sekvenci?
Ostavljan je više puta u konferenciji KOMUNIKACIJE, a bogami mislim i ovde.
pascal.77duzle,
Nisam se nikada igrao fontovima i sličnim stvarčicama, pa da pitam (možda
će neko da umre smejući se :) - jel moguće koristiti (i kako) TrueType ili
neki drugi rasprostranjeni font format iz Paskal programa ?
Ognen
pascal.78postmast,
From: anubis@hobbiton.CO.YU (Igor Loncarevic)
Subject: Re: pascal
Date: Sun, 22 Jan 1995 22:08:47 GMT
Predrag Knezevic (pedjak@sezam.UUCP) wrote:
: var
: a:real;
: begin
: repeat
: (*I-*)
: readln(a);
: (*I+*)
: until ioresult=0;
: end.
: Izvini, (* i *) koristim umesto viticastih zagrada zbog juskija.
Ne prima se izvinjenje:).
Da si rekao zbog module2, hajde... al vako ... :)
-+-
anubis@hobbiton.CO.YU
pascal.79andrejt,
-> #75, zeljkojQ> Ima li neko spisak svih ANSI sekvenci?
Ovo mozda nije sve ali je sigurno deo :))
ANSI.SYS and NANSI.SYS Functions - ANSI x3.64
ESC[y,xH Cursor position y,x
ESC[nA Cursor Up n lines
ESC[nB Cursor Down n lines
ESC[nC Cursor Forward n characters
ESC[nD Cursor Backward n characters
ESC[y;xf Cursor position y,x (less frequently used)
ESC[y;xR Cursor position report y,x
ESC[6n Device status report (cursor pos)(n is constant 'n')
ESC[s Save cursor position
ESC[u Restore cursor position
ESC[2J Erase display
ESC[K Erase to end of line
ESC[nL Inserts n blank lines at cursor line. (NANSI)
ESC[nM Deletes n lines including cursor line. (NANSI)
ESC[n@ Inserts n blank chars at cursor. (NANSI)
ESC[nP Deletes n chars including cursor char. (NANSI)
ESC[n;ny Output char translate (NANSI)
When first char is encountered in output request, it
is replaced with the second char. When no parameters
are given, all chars are reset.
ESC["str"p Keyboard Key Reassignment. The first char of str gives
the key to redefine; the rest of the string is the
key's new value. To specify unprintable chars, give
the ASCII value of the char outside of quotes, as a
normal parm. IBM function keys are two byte strings.
Ex: ESC[0;";dir a:";13;p
redefines F1 to have the value "dir a:" followed by CR.
If no parameters given, all keys are reset to their
default values. Single or double quotes are valid.
ESC[n;n;...nm Set Graphics Rendition is used to set attributes as
well as foreground and background colors. If multiple
parameters are used, they are executed in sequence, and
the effects are cumulative. 'n' is one of the following
attributes or colors:
0 All attributes off 5 Blink
1 Bold 7 Reverse Video
2 Dim 8 Invisible
4 Underline
Foreground colors Background colors
30 Black 40 Black
31 Red 41 Red
32 Green 42 Green
33 Yellow 43 Yellow
34 Blue 44 Blue
35 Magenta 45 Magenta
36 Cyan 46 Cyan
37 White 47 White
ESC[=nh Set mode (see screen modes for n)
ESC[=nl Reset Mode (see screen modes for n)
Screen modes are similar to those found in the IBM BIOS:
0 text 40x25 Black & White
1 text 40x25 Color
2 text 80x25 Black & White
3 text 80x25 Color
4 320x200 4 bits/pixel
5 320x200 1 bit/pixel
6 640x200 1 bit/pixel
7 cursor wrap
13 320x200 4 bits/pixel (EGA)
14 640x200 4 bits/pixel (EGA)
16 640x350 4 bits/pixel (EGA)
- for more information see ANSI document x3.64 or your DOS manual
~~~~~~~~~~
U DOS helpu imas ansi sekvence takodje (HELP ANSI.SYS).
pascal.80ognjen,
-> #57, evlad)-> Repeat
)-> čitanje;
)-> Until tačno;
Pa neće ići. Jer kad dođe do čitanja, ako se unese pogrešna
vrednost (string za integer i slično) pascal će da prijavi
Run-time error.
pascal.81ognjen,
-> #59, vgenije)-> koji je asci kod za ENTER
Baksuzni. :) 13.
pascal.83vlador,
-> #77, duzle> neki drugi rasprostranjeni font format iz Paskal programa ?
Koliko ja znam, možeš samo ako praviš program za Windows.
---
■ VLADOR ■ Ne smeta mi sto imam veliki nos, vec sto se to vidi.
pascal.84zeljkoj,
-> #76, djelovic> Ostavljan je više puta u konferenciji KOMUNIKACIJE, a bogami
> mislim i ovde.
Hvala.
Moraću malo da pretražim stare konferencije.
pascal.85zeljkoj,
-> #77, duzle> će neko da umre smejući se :) - jel moguće koristiti (i kako)
> TrueType ili neki drugi rasprostranjeni font format iz Paskal
> programa ?
E zavisi o kom je Pascalu reč. :)))
Microsoftovi jezici mogu da rade sa .FON fontovima, ali pošto je
verovatno reč o Borlandovom proizvodu :))) treba ti neka biblioteka.
pascal.86zeljkoj,
-> #79, andrejt> Ovo mozda nije sve ali je sigurno deo :))
Hvala, ali to nije ono što mi treba. :))
Jel' to iz HELP PC-a? Imam ja HELP PC ali u njemu su samo sekvence
koje podržava ANSI.SYS (i NANSI). Isto važi i za DOS help.
pascal.87pedjak,
-> #77, duzle> Nisam se nikada igrao fontovima i sličnim stvarčicama, pa da pitam
> (možda će neko da umre smejući se :) - jel moguće koristiti (i kako)
> TrueType ili neki drugi rasprostranjeni font format iz Paskal
> programa ?
Moguće je, ako nađeš odgovarajuću biblioteku :)
pascal.88evlad,
-> #80, ognjen>> Pa neće ići. Jer kad dođe do čitanja, ako se unese pogrešna
>> vrednost (string za integer i slično) pascal će da prijavi
>> Run-time error.
Zavisno od komajlerskih direktiva
$I
$V
$P
(za tp 7.0)
koje bi upotrebio u proceduri citanje.
Možemo da teramo mak na konac ;) moj odgovor je više bio logičke prirode ...
petlja se izlazom na dnu ako su parametri ok ...
pascal.89vlador,
Nekoliko korisnika je na mailu tražilo da pošaljem one funkcije o kojima
sam govorio u PC.PROG:windows. Radi se o ekvivalentima SOpen i Locking
funkcija iz Ca - funkcije za zaključavanje/otključavanje slogova i za
otvaranje fajlova sa različitim zabranama. Koriste se u izradi programa
koji će raditi pod mrežom. Evo ih prikačenih uz poruku.
---
■ VLADOR ■ Zaustavite zemlju, silazim.
fshare.zippascal.90kriss,
-> #79, andrejt˙˙ ESC[n;n;...nm Set Graphics Rendition is used to set
˙˙ 0 All attributes off 5 Blink
Super, i kad mu ja kažem:
ESC[5m
i on počne da blinkuje, nema te sile koje će efekat isključiti
(ili ja za tu silu ne znam pa pitam da li neko zna)
Probao sam sve one parametre iz tabele, međutim jock.
pascal.91zeljkoj,
Hej, ljudi :)))
Pretražio sam sve KOMUNIKACIJE i PC.PROG konferencije ali tražene ANSI
sekvence nisam našao (našao sam samo neke VT102).
pascal.92andrejt,
-> #91, zeljkojQ> Pretrazio sam sve KOMUNIKACIJE i PC.PROG konferencije ali trazene ANSI
Q> sekvence nisam nasao (nasao sam samo neke VT102).
Pa koje ti trebaju ? Za sta ?
pascal.93andrejt,
-> #90, krissQ> ˙˙ 0 All attributes off 5 Blink
Q> Probao sam sve one parametre iz tabele, medutim jock.
A 0 ? :)
pascal.94vgenije,
-> #68, pedjak> sigurno radi, pa prilagodi svoj program prema tome.. Koju ti
> poruku inace javlja program..?
Tvoj program je isto izbacivao na onom mestu readln(a) kao u stilu nije
dobar odgovor zbog formata...
Od druga sam uzeo ovaj primer i on radi mada logicki gledano trebao je i
tvoj:
uses dos,crt;
var a:integer;
s:string
begin
repeat
readln(a);
str(a,b);
until ioresult=0;
end.
Iako progamiram oko 2 godine,moram priznati da su mi mnoge stvari
promakle..Valjda zbog toga sto sam sve ucio iz literature i
pascalske probleme resavao peske a ne pravim putem.
pozdrav
pascal.95zeljkoj,
-> #92, andrejt> Pa koje ti trebaju ? Za sta ?
Ne čitaš pažljivo poruke :((.
Trebaju mi ANSI sekvence raznih "specijalnih" tastera (strelica i sl.),
znači ono što ANSI terminal šalje kada pritisnem te tastere.
pascal.96zeljkoj,
Obaveštavam vas da sam pronašao rešenje problema sa onim ANSI sekvencama.
Uz pomoć programa MONITOR iz Procomma za Windows moguće je posmatrati kodove
svih karaktera koji se primaju ili idu na com port. Jednostavno u terminalu
pritiskam strelice (ili ostale tastere) a u monitorovom prozoru se vide
njihovi kodovi, odnosno ASNI sekvence.
pascal.97postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: pascal
Date: Sun, 22 Jan 1995 21:30:00
To: "Vlada Biskupljanin" <vgenije@sezam.UUCP>
>Kako da izbegnem da me ne izbacuje iz programa ako na pitanje
>za neku varijablu tipa real korisnik ogovori sa nekim slovom?
Moraces da napises svoju funkciju koja zamenjuje ReadLN. Evo ti jedna
koju ja koristim za prirucno. Mozes da ogranicis broj cifara, a ako
pritisnes enter a ne uneses nista, podrazumeva se kao da si uneo nulu.
Pozdrav,
Broker
(***********************************************************************)
(***********************************************************************)
Function NReadLn (len : byte) : Integer;
{ potprogram za unosenje numericke vrednosti
ima istu funkciju kao ReadLn (prom) ako je prom tipa Integer
samo sto obezbedjuje kontrolu unosa
len - broj dozvoljenih cifara
}
var
tempstr : string;
tempnr, code, F : integer;
tempchr : char;
templen : Byte;
Kraj : Boolean;
begin
tempstr := ''; { na pocetku nema otkucanog teksta }
Kraj := False; { u petlji ostajemo dok ne zatreba izl
Repeat
templen := Length (tempstr);
If Keypressed then begin { sacekaj pritisak tastera }
tempchr := ReadKey;
Case tempchr of
{cifre} '0'..'9' : begin { cifre su dozvoljene }
tempstr := tempstr + tempchr;
Write (tempchr);
end;
{BckSpc} #8 : begin { BackSpace - obrisi poslednju cifru }
tempstr := Copy (tempstr, 1, templen-1);
if templen-1 > -1 then Write (#8+' '+#8);
end;
{Enter} #13 : Kraj := True; { Enter - kraj unosa }
end; { case }
end; { if }
until kraj;
{ izracunaj numericku vrednost unetu kao string }
Val ('0'+ Copy (tempstr,1,len), tempnr, code);
{ obrisi ispisane karaktere i ispisi izracunatu vrednost }
For F := 1 to Length (tempstr) do Write (#8,' ',#8);
WriteLn (tempnr);
NReadln := tempnr;
end; { function NReadLn}
(***********************************************************************)
(***********************************************************************)
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)
pascal.98postmast,
From: nenadr@sunset.fon.bg.ac.yu (Nenad Radosavljevic)
Subject: ansi sekvence
Date: Tue, 24 Jan 95 22:13:28 GMT
In article <sezam$pascal zeljkoj@sezam.UUCP writes:
>
>> Zavisno od terminal emulacije, npr. u ANSI terminalu salje ANSI
>> sekvencu za strelicu gore :).
>
>Ima li neko spisak svih ANSI sekvenci?
>
Evo ti nesto sto je meni pomoglo:
-< ANSI/VT100/102 i VT52 ESC sekvence>-
ANSI/VT102/VT100 Mode
Set Mode
'ESC'[2h Keyboard locked
'ESC'[4h Insert mode
'ESC'[12h Local echo off
'ESC'[20h New line mode on
'ESC'[?1h Cursor key application mode
'ESC'[?3h *RI 132 column mode
'ESC'[?4h Smooth scrolling
'ESC'[?5h Screen reverse
'ESC'[?6h Origin mode relative
'ESC'[?7h Auto wrap on
'ESC'[?8h * Auto repeat on
'ESC'[?9h * Interlace on
'ESC'[?18h Print form feed on
'ESC'[?19h Print extent full screen
'ESC'[2l Keyboard unlocked
'ESC'[4l Replace mode
'ESC'[12l Local echo on
'ESC'[20l New line mode off
'ESC'[?1l Cursor key cursor mode
'ESC'[?2l *NI VT52 mode
'ESC'[?3l 80 column mode
'ESC'[?4l Jump scrolling
'ESC'[?5l Screen normal
'ESC'[?6l Origin mode absolute
'ESC'[?7l Auto wrap off
'ESC'[?8l * Auto repeat off
'ESC'[?9l * Interlace off
'ESC'[?18l Print form feed on
'ESC'[?19l Print extent scrolling region
Select Character Sets
G0 G1
'ESC'(A 'ESC')A UK
'ESC'(B 'ESC')B USASCII
'ESC'(0 'ESC')0 Special graphics (line drawing)
'ESC'(1 'ESC')1 *NI Alt char ROM
'ESC'(2 'ESC')2 *NI Alt char ROM
Shift into Character Sets
'ESC'N Single shift into G1
'ESC'O Single shift into G0
'SO' Locked shift G1
'SI' Locked shift G0
Character Attributes
'ESC'[m No attributes
'ESC'[0m No attributes
'ESC'[1m Bold
'ESC'[4m Underline
'ESC'[5m Blink (Light)
'ESC'[7m Reverse
Scrolling Region
'ESC'['Pt';'Pb'r Set scrolling region
Cursor Movement Commands
'ESC'['Pn'A Cursor up
'ESC'['Pn'B Cursor down
'ESC'['Pn'C Cursor right
'ESC'['Pn'D Cursor left
'ESC'['Pl';'Pc'H Cursor position
'ESC'['Pl';'Pc'f
'ESC'D Index
'ESC'M Reverse Index
'ESC'E Next line
'ESC'7 Save cursor
'ESC'8 Restore cursor
Tab Stops
'ESC'H Horizontal tab set
'ESC'[g Tab clear
'ESC'[0g Tab clear
'ESC'[3g Clear all tabs
Line Attributes
'ESC'#3 *RI Double-height top half
'ESC'#4 *RI Double-height bottom half
'ESC'#5 Single-width single-height
'ESC'#6 *RI Double-width single-height
Erasing
In Line
'ESC'[K Cursor to end of line
'ESC'[0K
'ESC'[1K Beginning of line to cursor
'ESC'[2K Entire line
In Screen
'ESC'[J Cursor to end of screen
'ESC'[0J
'ESC'[1J Beginning of screen to cursor
'ESC'[2J Entire screen
Requests/Reports
Requests from host Reports to host
'ESC'[5n Status 'ESC'[0n Terminal OK
'ESC'[3n * Terminal not OK
'ESC'[6n Cursor position 'ESC'['Pl';'Pc'R Cursor position Pl,Pc
'ESC'[c What are you? 'ESC'[?1;'Ps'c VT100, Ps options
'ESC'[0c 'ESC'[?6;'Ps'c VT102, Ps options
'ESC'Z
'ESC'[?15n Printer status 'ESC'[?10n Printer ready
'ESC'[?11n Printer not ready
'ESC'[?13n No printer
'ESC'[0x Terminal Parameter
Request, send on
exit of setup
'ESC'[1x send only on
request
Reset
'ESC'c Reset to default values
Tests
'ESC'#8 Fill screen with E's
'ESC'[2;'Ps'y * Invoke tests
Keyboard LED's
'ESC'[0q All off
'ESC'['Ps'q LED 'Ps' on
VT52 Mode
'ESC'< Enter ANSI Mode
'ESC'= *NI Enter alternate keypad mode
'ESC'> *NI Exit alternate keypad mode
'ESC'F *NI Select special graphics character set
'ESC'G *NI Select US/UK character set
'ESC'A *NI Cursor up
'ESC'B *NI Cursor down
'ESC'C *NI Cursor right
'ESC'D *NI Cursor left
'ESC'H *NI Cursor home
'ESC'Y'Pl''Pc' *NI Direct cursor address
'ESC'I *NI Reverse line feed
'ESC'K *NI Erase to end of line
'ESC'J *NI Erase to end of screen
'ESC'Z *NI What are you?
'ESC'/Z *NI I am a VT52 (Response)
'ESC'^ *NI Enter auto print mode
'ESC'- *NI Exit auto print mode
'ESC'W *NI Enter printer controller mode
'ESC'X *NI Exit printer controller mode
'ESC'] *NI Print screen
'ESC'V *NI Print cursor line
Editing Functions
'ESC'['Pn'P Delete character
'ESC'['Pn'L Insert Line
'ESC'['Pn'M Delete Line
Print Commands
'ESC'[?5i Enter auto print
'ESC'[?4i Exit auto print
'ESC'[5i Enter printer controller
'ESC'[4i Exit printer controller
'ESC'[i Print screen
'ESC'[0i
'ESC'[?1i Print cursor line
Pozdrav!
--
-----------------------------------------------------------------------
Nenad Radosavljevic E-mail: ...nenadr@sunset.fon.bg.ac.yu
...nenadr@durlan.gtc25.gtc.net ...durlan!rnenad@ban.junis.ni.ac.yu
-----------------------------------------------------------------------
[ Dva najcesca elementa u univerzumu: Vodonik i Idiotizam! ]
pascal.99postmast,
From: Jovan.Sedlan@f119.n111.z38.setgate.setnet.co.yu (Jovan Sedlan)
Subject: pomoc (chr)
Date: Fri, 20 Jan 1995 05:52:04
-=> Quoting Stevan Dejanovic to All <=-
SD> Da li neko moze da mi da savet kako da ubacim svoje
SD> fontove u svoj program. BTW radim u Pascalu 6.0
Zdravo. Ako ti treba pomoc, javi se ponovo, ali malo preciznije: o kakvim
fontovima se radi, da li radis u grafickom ili text modu, itd...
Jole :Q...
... Ljudi su uplaseni jer se boje.
* Origin: ECSTASY BBS * Indjija * 022 53 218 * SETNet: (38:111/119)
pascal.100postmast,
From: Jovan.Sedlan@f119.n111.z38.setgate.setnet.co.yu (Jovan Sedlan)
Subject: pascal
Date: Sun, 22 Jan 1995 22:15:16
-=> Quoting "Vlada Biskupljanin" to All <=-
"B> Kako da izbegnem da me ne izbacuje iz programa ako na pitanje za neku
"B> varijablu tipa real korisnik ogovori sa nekim slovom?
E, za tako nesto moraces da napises (ili iskoristis neku vec postojecu
biblioteku) funkciju, npr. "InputReal" koja ucitava string i proverava
da li su svi znaci u opsegu 0-9, odnosno da li su u skupu
['-', '+', '.', '0'..'9']. Nakon te provere, ako je sve u redu, treba
ucitani string prebaciti u Real tip.
To je, otprilike, sve. Ako imas problema sa implementacijom, javi se.
Jole :Q...
... Mora se ponoviti Kosovski boj, Turci su bili dopingovani.
* Origin: ECSTASY BBS * Indjija * 022 53 218 * SETNet: (38:111/119)
pascal.101postmast,
From: broker@setnet.co.yu (Predrag Supurovic)
Subject: kbd. buffer
Date: Mon, 23 Jan 1995 10:19:00
>Bez panike... Nije rec o virusu nego o komunikacionom
>programu. Taj interapt bi sa COM porta skidao karaktere ali
>problem je dati programu.
Ne bih ti preporucivao da ovako radis. Napravi posebnu funkciju koja cita
COM port i posebnu koja cita tastaturu. Onda napravi funkciju koja
poziva ove dve i vraca ti kod pritisnutog tastera bez obzira odakle je
stigao.
Vrlo brzo ce ti u programu zatrebati da ipak znas da li je kod tastera
dosao sa COM porta ili sa tastature, pa ako uradis kako si naumio neces
to moci da regulises.
* Origin: Oreska BBS, Uzice = SF BIBLIOTEKA = SETNet: (38:101/101)