clipper.410nbatocanin,
-> #398, dpaun> Kom i kako, vaćno je jako.
Je li brother Paune, a ëta mislië da postavië SWAPPATH i TEMPPATH na
neki levi katalog? Koliko znam ovo se moće uraditi i pri startovanju
programa:
PROG //SWAPPATH:xxxxx
clipper.411nbatocanin,
-> #403, koleEvo i mog priloga na ovu temu: ASM programüiä koji podrćava DISKNAME,
DISKCHANGE, DIRCHANGE, DIRMAKE, DIRREMOVE. Program je krajnje
jednostavan, samo poziva odgovarajuäe DOS funkcije. Zgodno da
"simulirate" CD, RD i MD.
dir.zipclipper.412sasa.m,
-> #395, hercog=->**> ====> O sî va rugac vuoj đi minje!
Vlaški?
clipper.413ppekovic,
-> #407, radunovic>> Da li bi neko mogao da mi posalje kratak primer povezivanja clipper i c
>> programa ukljucujuci i sviceve za kompajler i linker, pri cemu c program
>> poziva neku od biblioteckih funkcija, npr. printf, putch,.. (u MSC 6.0).
O ovome se stvarno pričalo xxx puta i nijednom nismo došli do
rešenja. Neke stvari rade bez problema a neke neće ni da čuju. Loše u
svemu tome je što najkorisnije stvari ne rade a to su grafičke
funkcije, chart funkcije, ali i neke osnovnije kao što su sve iz
stdio.h hedera. Problem se javlja prilikom linkovanja kada te linker
zaspe gomilom upozorenja o duplo definisanim simbolima. Linker
generiše izvršni program, ali je on totalno nepouzdan.
Paya
clipper.414dpaun,
-> #406, nbatocanin>> Da li bi program mogao da razlikuje te interne overleje
>> (u stvari, swap datoteke) po nazivu i atributima?
Koliko sam ja mogao da zaključim iz dosadašnje prakse:
a) njihovo se ime formira baš sa namerom da nema neke
ovozemaljske logike (verovatno da se ne bi preklo-
pile slučajno sa nekim fajlom);
b) nemaju prezime, verovatno iz razloga a);
c) veličina im varira, od 0 do 100 i više K.
Zaključak: nema neke pravilnosti na osnovu koje bi se
mogla napisati naredba za sprečavanje njihovog
uključenje u fajl listu.
dPaun
clipper.415dpaun,
-> #410, nbatocanin>> Je li brother Paune, a ëta mislië da postavië SWAPPATH i
>> TEMPPATH na neki levi katalog? Koliko znam ovo se moće
>> uraditi i pri startovanju
Brate Nenade, ovo bi mogao biti dobar pravac traganja za
rešenjem. Proveriću čim dobijem malo (programerskog)
vremena.
dPaun
clipper.416dpaun,
-> #409, nbatocanin>> Staroslovenski?
Malko stariji od staroslovenskog (što se Balkana tiče, bar).
Kare ljimbâ, vrej sîc spun?
Ći sarutâ,
dPaun
clipper.417dpaun,
-> #412, sasa.m>> ====> O sî va rugac vuoj đi minje!
>>
>> Vlaški?
Pun pogodak, dragi komšija.
Sezam je, dakle, progovorio i Vlaški.
Sî krjaskâ, sî trajaskâ,
la mulc anj ku sînataće.
-----------------------
(Na mnogaja ljeta, što bi se
reklo na bratskom staroslovenskom!)
P.S. Saša, je si li pročitao zadnji broj
"Borskih novosti"?
dPaun
clipper.418ilazarevic,
-> #416, dpaun█ Malko stariji od staroslovenskog (što se Balkana tiče, bar).
Ilirski, tračanski, dačanski?
clipper.419hercog,
Evo nečeg što me malko ***ebava : lepo napišem set cursor off da isklju-
čim kurzor, al on se i dalje vidi na ekranu?!?!
Hercog
clipper.420sasa.m,
-> #417, dpaun=-> P.S. Saša, je si li pročitao zadnji broj
=-> "Borskih novosti"?
Ovlaš (tj. prelistao).Što jel' ima nešto zanimljivo?
clipper.421dpaun,
-> #411, nbatocanin>> Evo i mog priloga na ovu temu: ASM programüiä koji
>> podrćava DISKNAME,
Preuzeo, preveo, uvezao. Radi.
Hvala.
dPaun
clipper.422dpaun,
-> #402, hercog>> nije imao fileman u sebi. Jednostavno na disku program
>> ostavi neki fajl kao "DDHAKSAA", a da niko ne zna zašto.
Mislim da je reč o istoj pojavi, stim što je u mom slučaju,
zbog Fileman opcije, overlej vidljiv još u toku korišćenja
samog programa.
dPaun
clipper.423dpaun,
-> #420, sasa.m>> Ovlaš (tj. prelistao).Što jel' ima nešto zanimljivo?
Zbog feljtona "Slovo o Vlasima" koji pišu neidentifikovani
borski "etnogenetičari". U ovom zadnjem nastavku ("Vlasi
među srpskim stvaraocima", čini mi se) spomenuta je i moja
("etnološka i etnomuzikološka") malenkost, i to sa takvim
atributima da se već nekoliko dana osećam kao "istorijska
ličnost"!
Koji li će se sokak po meni zvati, da mi je znati?
d(Es)Paun.
P.S. Pošto sam malo uvrnuo Clp conf sa ovim lingivističkim
e(g)zoterijama, evo i jednog Clp pitanja za tebe: Koji ti se
to profa interesuje za Clipper?
clipper.424dpaun,
-> #419, hercog>> lepo napišem set cursor off da isključim kurzor,
>> al on se i dalje vidi na ekranu?!?!
Javljam se ne zato što mislim da znam koja je to ko tebe
misterija, već zato što sam imao sličan problem, a o(d)sedeo
sam dok sam shvatio u čemu je stvar.
Za početak: stanje kursora u Clp501 se može kontrolisati.
Kursor sakriješ sa SETCURSOR(0), a sa ? SETCURSOR()
proveravaš da li je to programu doprlo do mozga. Odgovor
treba da bude 0.
Za nastavak: kod mene je cela misterija bila u tome što je između
radnje koja se obavljala sa sakrivenim kursorom i sledeće
radnje (sa normalnim kursorom) prolazilo izvesno vreme pa je
kursor oživljavao, dabome, zatečen na poslednjoj poziciji!
Tako sam imao (lažan) utisak da se kursor ne sakriva, već
mi tera inat ...
*
Problem sam rešio na sledeći način:
(1) SETCURSOR(0) // Sakrij kursor
(2) č 2,65 Say to-i-to // Radnja sa skrivenim kursorom
(3) č 26,0 // Šaljem kursor van ekrana, pa nek
// mrda tamo koliko hoće
// rešenje!
(4) .................. // Normalan nastavak programa
Za kraj: jednom ranijom prilikom poslao sam bio kroki na temu
kursora, ali kako nisam siguran da je stigao do Bratstva,
podsetiću ponovo na korisnu mogućnost da se prethodno stanje
kursora zapamti, recimo: LOCAL sCurs := SETCURSOR() ... da
ne žljebim ponovo gde se (sve) ovo moćže (korisno) primeniti.
dPaun
clipper.425bulaja,
-> #424, dpaun│kod mene je cela misterija bila u tome sto je izmedu radnje koja se
│obavljala sa sakrivenim kursorom i sledece radnje (sa normalnim
│kursorom) prolazilo izvesno vreme
└───
Ne uspevam bas da uhvatim smisao ovoga ;). Ako se vec isklucuje kurzor,
logicno je da iza toga ide neka pauza ili operacija koja dugo traje, tj.
posto je kurzor prakticno uvek iskljucen, onda se samo ukljucuje za
read-ove, sto opet ukljucuje prolazak izvesnog vremena.
Ja nisam primetio nikakvih problema kod kontrole kurzora. Doduse
koristim setcursor() funkciju, ali se i "set cursor to" valjda
pretprocesira u setcursor().
clipper.426dpaun,
-> #425, bulaja>> Ne uspevam bas da uhvatim smisao ovoga ;).
Naravno, jer je teško objasniti bez primera, a još je teže
shvatiti ako nam ta vrsta misteriji nije pred očima.
Reč je konkretno o MEMOEDIT() i korisničkoj funkciji. Pre
poziva MEMOEDIT(memo_polje,koordinate,korisnička_funcija...),
sakrivenim kursorom markiram poziciju desne margine teksta,
stavljajući neki znak (npr: Đ). Onda se poziva MEMOEDIT() a
preko nje i korisnička funkcija. MEMOEDIT() pozivam sa para-
metrima o poziciji kursora unutar prozora, kao i o poziciji
unutar editovanog teksta. U korisničkoj funkciji na samom
početku je set instrukcija da kursor bude vidljiv. Poznato
je, inače, šta radi MEMOEDIT() kad naiđe na korisničku fun-
kciju: odmah joj prepusti dizgine! Tako imamo sledeću situ-
aciju:
1) nevidljivim kursorom ispisan je navedeni znak;
2) kursor je "ostao" na toj koordinati;
3) MEMOEDIT() aktivira KorFunkciju, ova izda naredbu
da kursor "oživi";
4) Kursor oživljava. Gde? Na onim poslednjim koordinatama!
Oči mi, dabogda, ispale ako nije tako! Pazi sad:
5) MEMOEDIT()-u tek sledi glavni posao: da sa diska "usisa"
odgovarajući memo-tekst. Tu je ta pauza, koja može biti
kraća ili duža, u zavisnosti od veličine teksta ...
6) Kada ga MEMOEDIT() "učita" i gurne na ekran, tek onda
šalje kursor na pozociju gde treba.
Između koraka 4 i 6 gospon kursor trepće li trepće tamo
gde mu mesto nije.
=> Rešenje je, kao što sam naveo, u isterivanju kursora van
ekrana, odmah posle koraka 1).
Javio sam se bratu Hercogu zato što znam kako može da
izluđuje ova vrsta problema. Jednom mi se gotovo desila
"Zona sumraka" zbog RMAKE-a, ali o tome drugi put.
P.S.1)
Izvinjavam se Clipper rođacima na nejasnim i nepreciznim
objašnjenjima, jer ja sam samo jedan običan programer-naivac.
P.S.2)
Što se ne bi uvelo jedno ovakvo zvanje, a?
Kad može u slikarstvu ...
(Ot)Pozdrav,
dPaun
clipper.427zkrstic,
Jel vido' neko library NETLIB za Clipper, naravno?
Ako je vido', nek našara malo, o čemu se radi i ima
li ikakve upotrebne vrednosti.
Pozdrav, zkr
PS. Podrazumeva se da je LIB za net-funkcije :))
clipper.428andrejl,
Nešto načuh o Clipper-u 6.0, pa da li neko zna nešto više ?
bye, andrejl
clipper.429bdm.,
Da li postoji nacin da se u Clipper-u ostvari veza izmedju SET FILTER i
DBEdit ?
clipper.430ppekovic,
-> #429, bdm.>> Da li postoji nacin da se u Clipper-u ostvari veza izmedju SET FILTER i
>> DBEdit ?
? Kakve te konkretno veza zanima? DBedit poštuje trenutno aktivni
filter, tj. prikazuje samo one slogove koji zadovoljavaju uslov u
filteru.
Paya
clipper.431ndragan,
-> #423, dpaun/ e(g)zoterijama, evo i jednog Clp pitanja za tebe: Koji ti se
Zar se ne kaže egzotermija?
clipper.432ndragan,
-> #426, dpaun/ objašnjenjima, jer ja sam samo jedan običan programer-naivac.
/ Kad može u slikarstvu ...
Pogodi ga. Isto su u slikarstvu akademski slikari šizeli na naivce što dižu
lovu. Problem: kako ćeš posle moći bilo koga da ubediš da si, eventualno,
švorc?
Bue_ NDragan
clipper.433nbatocanin,
-> #429, bdm.> Da li postoji nacin da se u Clipper-u ostvari veza izmedju
> SET FILTER i DBEdit ?
dbEdit uzima u obzir SET FILTER uslov. Budi malo određeniji. Na šta
tačno misliš?
clipper.434nbatocanin,
Nekoliko ljudi me je pitalo da li mogu moje programe sa Sezama da
ugrađuju u svoje aplikacije. U uputstvima za programe prilično
nespretno sam formulisao moj jedini zahtev: ne smete da moj program
*neizmenjen* skinete sa Sezama i prodate nekom. Mislim da je ovo samo
po sebi jasno. Znači, slobodno ugrađujte kalkulator i ostalo u svoje
programe koje prodajete - puno sreće pri tome! Neću vam zameriti i
ako nešto izmenite.
Ako negde napišete i poreklo ovog dela programa, biću zahvalan i
počastvovan, mada nije obavezno. A ako se neko obogati tako što se
bogatom arapskom maharadži svidi moj kalkulator, ima da plati piće
celom Sezamu!
Pozdrav svima, Nenad
clipper.435skoprivica,
-> #434, nbatocanin>-> nespretno sam formulisao moj jedini zahtev: ne smete da moj
>->* program neizmenjen* skinete sa Sezama i prodate nekom. Mislim da
Ovo je vrlo skakljivo sa pravne strane, posto ti je program
objavljen u casopisu (tj. njegov listing) on je freeware po
mom misljenju...ORKA:zakoni, nastavak...
Aje... CTEBO.
clipper.436bdm.,
-> #430, ppekovic## filter, tj. prikazuje samo one slogove koji
## zadovoljavaju uslov u filteru.
Hvala to me je zanimalo nesto davno sam petljao ali sam dobijao
sve slogove sad cu ponovo da pokusam.
BDM.
clipper.437zkrstic,
-> #436, bdm.> ## filter, tj. prikazuje samo one slogove koji
> ## zadovoljavaju uslov u filteru.
>
> Hvala to me je zanimalo nesto davno s
> am petljao ali sam dobijao
> sve slogove sad cu ponovo da pokusam.
Staviš filter, udariš GO TOP (obavezno) i to neizostavno radi.
SET FILTER je spor, ali radi, uvek.
Pozdrav, zkr.
clipper.438kzoran,
Hi!
Moze li mi neko pomoci?
Treba da linkujem jednu rutinu pisanu u C sa programom pisanim u Clipper-u
5.01.
Ima li nekih posebnih pravila za linkovanje? Ili - pošto nemam gotovu nikakvu
literaturu za Clipper 5.01 - kakva su uopšte pravila za povezivanje Clipper
programa sa C ili asemblerskim rutinama?
Unapred hvala na pomoći.
Pozdrav,
Zoran.
clipper.439dpaun,
-> #432, ndragan>> Problem: kako ćeš posle moći bilo koga da ubediš da si,
>> eventualno, švorc?
Pogodi me i ti, brate!
Lično, nisam "naivac" samo u onom smislu da me nije
pokvarila neka "programerska" škola, već, možda i više,
zbog toga što ja sve to radim za badava! Meni bi,
dakle, odgovaralo zvanje "programer - naivčina"!
žak sam i za SPS napisao jedan (besplatni) program.
O, gde će mi duša?!
*
Ovo zvanje je u odnosu na slikarsku podelu. A kako bi bilo
ako za uzor uzmemo muzičare? Programer - sluhista! Lepo.
Ja sam ranije već rekao da programiram "na uvce"!
*
Da rezimiramo:
Sezamova programerska zvanja:
1) Programer naivac
2) Programer naivčina
3) Programer sluhista.
Od mene, braćo, dosta. Ajte i vi malo!
dPaun
clipper.440ppekovic,
-> #438, kzoran>> Ima li nekih posebnih pravila za linkovanje? Ili - pošto nemam gotovu
nikakvu
>> literaturu za Clipper 5.01 - kakva su uopšte pravila za povezivanje Clipper
>> programa sa C ili asemblerskim rutinama?
Sa assemblerom nema nikakvih problema, a sa C-om ima. Da nebi po
xx-ti pun ponavljao istu priču, pogledaj malo stare poruke u ovoj
temi. Ukratko, linkovanje sa C-om može, ali samo neke osnovne stvari.
Npr. funkcije iz stdio i graph header-a, kao i chart funkcije,
zaboravi. Kako se linkuje sa assemblerom i C-om, naći ćeš u NG-u koji
si dobio uz Clipper 5.01. Nije teško!
Paya
clipper.441dpaun,
-> #431, ndragan>> Zar se ne kaže egzotermija?
egzoteričan - a) namenjen onima koji ne pripadaju nekoj zajednici,
javni, opšti;
b) razumljiv, pristupačan svima, popularan;
ezoteričan - koji nije svakome pristupačan; unutarnji, skriven;
strogo naučan, stručan
egzotermičan - koji je propraćen razvijanjem toplote, pri kojemu se
oslobađa toplota ...
/Prema: REžNIK SRPSKOHRVATSKOG KNJIčEVNOG I NARODNOG
JEZIKA, Knj. V, SANU, Beograd, 1968, kod na-
vedenih reči/
Zato sam napisao e(g)zoterija, a da ne pređe u egzotermiju, ja ću
malo da o'ladim!
dPaun
clipper.442nbatocanin,
-> #435, skoprivicaNisam baš najbolje razumeo. žini mi se da je ono što ja tražim sasvim
normalno i da mi nisu rekli da napišem napomenu o ograničenjima pri
korišćenju, ne bi to ni pisao. Zar neko misli da je moj zahtev
preteran?
clipper.443skoprivica,
-> #442, nbatocanin>-> Zar neko misli da je moj zahtev preteran?
Ne smatram da je preteran, nego se pitam da li bi mogao nesto da
dokazes kad bi neko iskoristio tvoj program ? Listing je objavljen
u casopisu koji se prodaje, pa samim tim taj (preprodavac) je kupio
i prava na tvoj listing...
Aje... CTEBO.
clipper.444dpaun,
Clipper rodbino!
Upravo mi je poštar doneo paketić, i u njemu:
Rick SPENCE, CLIPPER 5 - VODIž ZA PROGRAMERE, Mikro knjiga,
Beograd, 1991 (?)
Autor je saradnik na razvoju Clippera; knjiga ima 513 strana.
Isto je onako jasna i krasna kao i ona Strelijeva. Neko se
bio ovuda raspitivao za literaturu, pa bi mogao da krene od
ove knjige.
Šta misle ostala braća?
dPaun
clipper.445dpaun,
Clipper braćo, amo, amo!
Rešen problem fantoma iz poruka 5.393 (i passim), ili:
Kako je jedan programer-naivac ukrotio swap file!
I. Citat /starija braća mogu da ga preskoče/:
KORIŠĆENJE MEMORIJE
RTLink-ov program za upravljanje overlejima obezbeđuje da se neko-
rišćeni kod nalazi na disku dok ne zatreba, ali ne upravlja podacima
programa. Nantucket je uveo sistem prividne (engl. virtual) memorije
u verziju 5.0 koji ima sličnu ulogu za podatke.
Kada nema dovoljno memorije da zadovolji neki zahtev, Clipper pre-
bacuje podatke u proširenu memoriju, ako je to moguće i naznačeno sa
opcijom E u promenljivoj okruženja CLIPPER. U suprotnom, podaci se
smeštaju na disk u DATOTEKU ZA ZAMENU (engl. swap file). Za aplikaciju
je svejedno da li se podaci nalaze u memoriji ili na disku. (...)
Možete specificirati Clipper-u maksimalnu veličinu datoteke za za-
menu koju može da kreira definišući vrednost parametra SWAPK u promen-
ljivoj okruženja CLIPPER. Vrednost od 256K do 64MB su dozvoljene. Cli-
pper će koristiti 16MB ako ne navedete vrednost.
Podrazumeva se da će datoteka biti kreirana u trenutno aktivnom
direktorijumu, ali i to možete da promenite navođenjem parametara
SWAPPATH u Clipper-ovu promenljivu okruženja.
/Rick S p e n c e: CLIPPER 5 - vodič ..., p. 26-27/
II. Šta je Clipper-ova "promenljiva okruženja"?
/Mogu da preskoče i mlađa braća/
Zamislimo da je naše Clipper čedo, dika naša programerska, gluva
za ono što piše u CONFIG.SYS ili AUTOEXEC.BAT! Što god mi tamo napi-
sali, ne prima. Jogunac hoće svoje, pa svoje, a to je jedna linijica
u AUTOEXEC.BAT, koja počinje sa SET CLIPPER. To vam je to, braćo!
III. Kako se navode parametri "u Clipper-ovu promenljivu okruženja"?
/Može da preskoči svako ko ima Norton Guid/
Ako imamo samo jedan parametar, primer:
SET CLIPPER=f35
Ako imamo više parametara, dodajemo separator ; pa parametar:
SET CLIPPER=F35;E:120
IV. Kako ubiti fantoma, ili kako preusmeriti SWAP FILE?
/Obavezno čitanje za sve. Biće propitivanja!/
Formula glasi: SWAPPATH:'<putanja>'
a celo rešenje:
SET CLIPPER=F35;E:120;SWAPPATH:'C:Đ' itd
Važno: navodnici su obavezni! Naravno, umesto C:Đ možete napisati
vaše konkretne idejne smernice ...
V. Epilog
/Ne mora da čita niko/
Usporedbom poruke 5.393 i onog što je potom sledilo, može se
zaključiti ko ovde zna znanje.
Hvala braćo, drži tata!
dPaun
clipper.446bdm.,
-> #444, dpaun## Rick SPENCE, CLIPPER 5 - VODIC ZA PROGRAMERE, Mikro knjiga,
## Beograd, 1991 (?)
Koliko si para dao postaru ?
BDM.
clipper.447vkrstonosic,
-> #446, bdm.>> ## Rick SPENCE, CLIPPER 5 - VODIC ZA PROGRAMERE, Mikro knjiga,
>> ## Beograd, 1991 (?)
>>
>> Koliko si para dao postaru ?
1.200 dinara u knjižari kod PMF-a.
clipper.448janko,
-> #444, dpaun> Rick SPENCE, CLIPPER 5 - VODIž ZA PROGRAMERE, Mikro
> knjiga, Beograd, 1991 (?)
>
> Autor je saradnik na razvoju Clippera; knjiga ima 513
> strana. Isto je onako jasna i krasna kao i ona Strelijeva.
==============
Strelijeva jasna i krasna? Jel' to ironija?
clipper.449ndragan,
-> #441, dpaun/ malo da o'ladim!
Mogao bih i ja, da se ne ubacujem i gde treba i gde ne treba... ali
stvarno nisam verovao da _egzotermičan_ postoji u rečniku. Zvučao je
tako iskonstruisano.
clipper.451bulaja,
-> #443, skoprivica│Listing je objavljen u casopisu koji se prodaje, pa samim tim taj
│(preprodavac) je kupio i prava na tvoj listing...
└───
Nikako! Autor i dalje zadrzava svoja (autorska) prava i na programe
objavljene u casopisima, knjigama, etc. Cak i npr. ako si kupio (i skupo
platio ;) od nekoga program i dobio i source kode, opet nemas nikakvih
prava, sem naravno da koristis program. Drugacije je jedino ako je tako
eksplicitno navedeno u kopoprodajnom ugovoru ili tekstu u casopisu.
Analogno ovome je npr. i kod knjiga - kupovinom knjige naravno da nisi
stekao nikakva prava na piscev rad, sem da isti procitas.
clipper.452ppekovic,
-> #447, vkrstonosic>>>> ## Rick SPENCE, CLIPPER 5 - VODIC ZA PROGRAMERE, Mikro knjiga,
>>>> ## Beograd, 1991 (?)
>>>>
>>>> Koliko si para dao postaru ?
>>
>> 1.200 dinara u knjižari kod PMF-a.
Kamo sreće da je tolko. Knjiga je 7.200 din. Danas, kad smo Vkr i
ja bili tamo bile su tri knjige na polici i jedna u izlogu.
Paya
clipper.453bdm.,
-> #447, vkrstonosic## 1.200 dinara u knjizari kod PMF-a.
Kad to bejase. Danas je 7.200 dinara.
BDM.
clipper.454vkrstonosic,
-> #452, ppekovic>>>> 1.200 dinara u knjižari kod PMF-a.
>>
>> Kamo sreće da je tolko. Knjiga je 7.200 din. Danas, kad smo Vkr i
>> ja bili tamo bile su tri knjige na polici i jedna u izlogu.
Moje izvinjenje svima, nešto sam pogrešno video :(
clipper.455skoprivica,
-> #451, bulaja-> Analogno ovome je npr. i kod knjiga - kupovinom knjige naravno da
-> nisi stekao nikakva prava na piscev rad, sem da isti procitas.
Pa smem li ja da ukucam taj njegov program? I kako ce on dokazati
da je to bas njegov program (ja ne dam source)...4
clipper.456dpaun,
-> #446, bdm.>> Koliko si para dao postaru ?
U odnosu na trenutnu cenu (reče neko na Sezamu da je kod vas
u Bgd 1200) - dao sam samo 940 din, ali mnogo ranije kao pretplatu.
Ko li je bolje prošao, a?
dPaun
clipper.457dpaun,
-> #448, janko
>> Strelijeva jasna i krasna? Jel' to ironija?
Jok, asonanca.
A pitao bih te da si Clipper počeo da učiš
iz one "Cuciceve" knjige!
=> Streli mi je posle toga zvučao ko Tagora!
Mir s tobom, brate,
dPaun
clipper.458prerad,
Jedno pitanje :
Posto jos uvek imam Hercules karticu , zanima me da li u Clipper 5.01
mogu na mom monitoru da dobijem vise od te 3-4 razlicite nijanse.
Tj., da li su definisane neke "sare" (fill patterns) ,(na primer na
nacin kao sto Hercules simulira CGA grafiku) ili nesto slicno.
Pedja
clipper.459zkrstic,
-> #455, skoprivica>
> Pa smem li ja da ukucam taj njegov program? I kako ce on d
> da je to bas njegov program (ja ne dam source)...4
Veruj mi, vrrrrrlo lako :))
Samo šacne .exe i malko prekopa i naći će bar neke svoje definicije
(promenljive, funkcije...)
Posebna priča, je kako to zakonski dokazati
Pozdrav, zkr
clipper.460janko,
-> #457, dpaun> Mir s tobom, brate,
Mir, mir brate mir...
(nije neka poruka, ali sam prosto morao).
PS. Ej, dPaune, voleo bih da objasniš zašto su ti svi braća (i
sestre, al' ih ovde ima malo).
PPS. Moderatore, molim ne briš, odgovor na pitanje u PS će
sigurno razjasniti misteriozne elemente konferencije...
clipper.461kzoran,
Zdravo!
Ima li neka dobra duša na SEZAM-u koja ima NG za Clipper, a spremna je da ga
ustupi (iskopira, unloadujeKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKploaduje i sl.)?
Pozdrav,
Zoran.
H
P.S. Prilično je hitno!
clipper.462nboskovic,
-> #461, kzoran*> Ima li neka dobra duša na SEZAM-u koja ima NG za Clipper,
*> a spremna je da ga ustupi (iskopira,
*> unloadujeKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKploaduje i sl.)?
Ako imaš instalacionu verziju Clippera 5.01 u okviru paketa
imaš i kompletan NG sa datotekama za isti.
(c) klap
nikola
clipper.463ppekovic,
-> #461, kzoran>> Ima li neka dobra duša na SEZAM-u koja ima NG za Clipper, a spremna je da ga
>> ustupi (iskopira, unloadujeKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKploaduje i sl.)?
Ako imaš clipper 5.01, onda mora da imaš i NG. Sam NG za clipper
nije ni PD ni SW.
Paya
clipper.464kzoran,
Hvala svima na pomići oko NG-a. Nisam imao instalacionu verziju (tad bih
instalirao i NG), ali sam je uz vašu pomoć nabavio.
Pozdrav,
Zoran.
clipper.465kzoran,
-> #440, ppekovicHi!
I dalje ne uspevam da linkujem Clipper program sa MSC 6.0 rutinom.
U C rutini imam samo <dos.h>, i vrlo je jednostavna. Ne vraća vrednost u glavni
program, a ne ostavlja ni "trag" o svom radu koji bi eventualno glavni program
mogao koristiti.
Pokušao sam sve moguće perverzije - kada linkovanje nije išlo sa RTLink-om,
uzeo sam C linker, a zatim sve meni poznate i dostupne DOS linkere - i ništa.
RTLink mi javlja "Input parsing error" i to na mestu na kom u komandnoj liniji
kojom startujem linkovanje navodim ime C objektnog fajla.
Ima li neko ideju šte bi moglo da bude u pitanju?
Pozdrav,
Zoran.
clipper.466kanda,
-> #465, kzoran>> RTLink mi javlja "Input parsing error" i to na mestu na kom u
>> komandnoj liniji kojom startujem linkovanje navodim ime C objektnog
>> fajla.
>>
>> Ima li neko ideju šte bi moglo da bude u pitanju?
Ova 'input parsing error' mi se javljala samo kad bih RTLINKu pogresno
prosledio parametre. Naprimer, kada umesto
RTLINK FI prvi,drugi
stavis
RTLINK FI prvi drugi
dobijes 'input parsing error'
clipper.467ppekovic,
-> #465, kzoran>> I dalje ne uspevam da linkujem Clipper program sa MSC 6.0 rutinom.
Napisi C program koji izgleda otprilike ovako:
#include <extend.h> /* header koji dobijaš uz clipper */
... ostali include-ovi koji ti trebaju ...
CLIPPER ime_funkcije()
Š
...
...
...
Đ
iskompajliraj ovo sa CL /AL /c /Oalt /FPa /Gs ime.c
zatim napisi program u clipper-u koji koristi C funkciju.
iskompajliraj sa clipper ime.prg
linkuj sa MS Linkerom LINK /NOE /SE:1024 c_obj clipper_obj,,,
Ako ti linker prijavi gomilu grešaka tipa symbol defined more than
once, onda koristiš neke C funkcije koje baš ne "prijaju" clipper-u.
Već sam pomenuo da npr. graph i stdio funkcije ne idu uz clipper.
Paya
clipper.468kzoran,
-> #467, ppekovicEUREKA!!
To je to!!
Ppekovic-u, nikad ti ovo neće oprostiti!KKKKKKu oprostiti!
Pozdrav,
Zoran.
clipper.469janko,
-> #467, ppekovic> linkuj sa MS Linkerom LINK /NOE /SE:1024 c_obj
> clipper_obj,,,
A zar to ne pravi frku na Clipper-u 5.0x jer samo RTlink
obezbeđuje onu Virtelnu memoriju?
clipper.470ppekovic,
-> #469, janko>>> linkuj sa MS Linkerom LINK /NOE /SE:1024 c_obj
>>> clipper_obj,,,
>>
>>A zar to ne pravi frku na Clipper-u 5.0x jer samo RTlink
>>obezbeđuje onu Virtelnu memoriju?
Sa kraćim programima ne pravi problem. Inače, nema problema i ako se
koristi RTLink. Onaj primer sam naveo samo kao kratak primer za prvo
povezivanje C-a i Clipper-a. Za detaljniji opis, tj. kad, šta, gde i sl. bi mi
trebalo malo više prostora od jedne poruke ;)
Paya
clipper.471dpaun,
-> #460, janko>> Ej, dPaune, voleo bih da objasniš
Clipperfamilijorodbinosestrebraćoipolubraćo! Priznajem:
JasamčuveniClippernacionalistaseparatistaseceionistaišovinista
specijalnoobučenzaClipperdiverzijeujednomtajnomcentruuHomoljui
ubačennaSezamkaoagentjednevelikesileuokvirumeđunarodnezaveresa
zadatkomdasveClipperašeujediniujednovelikobratstvoisestrinstvo
dapodmetneidejuodirektnomporekluClipperjezikasaLepenskogvirate
daseodandeširioposredstvomvlaškogjezikaadajeulogahetitskogipak
bilaredundantaidatoobjašnjavaotkudtajanstvenaimisterioznapojava
dainanatpisimauLepenskomViruikodhomoljskihpastirakaoinasvimbelo
svetskimkompjuterskimtastaturamaodneolitadodanasatakođeiubuduće
dirkeEscCapsEnterPageAltitakotoimajuistoznačenjeiistoporeklo:
Vlaško!IkudbimibiokrajdameneotkrijedanJankoasvakiJankoradinaopa
komadaseuHomoljuJankorimujeisadrugimrečimatakojetouopštejednori
mujućeimedasedičišiponosišnjimeaokokosokosvevididuboko
Za Clipper i otadžbinu!
dPaun
clipper.472nbatocanin,
-> #463, ppekovic> Ako imaš clipper 5.01, onda mora da imaš i NG. Sam NG za
> clipper nije ni PD ni SW.
žini mi se da sam NG za Summer'87 video na Tricklu, što bi značilo da
može da se deli.
clipper.473bulaja,
-> #472, nbatocanin│Cini mi se da sam NG za Summer'87 video na Tricklu, sto bi znacilo
│da moze da se deli.
└───
Problem je u readeru (ng.exe) koji nije PD :(. Taj NG za S87 Clipper
valjda ima i negde u pc.soft:clipper.
clipper.474ppekovic,
-> #472, nbatocanin>> žini mi se da sam NG za Summer'87 video na Tricklu, što bi značilo da
>> može da se deli.
Za '87-icu postoji TR Help, koji je neuporedivo bolji od NG-a.
Paya
clipper.475dpaun,
Clipper familijo,
Verujem da nisam jedini koga interesuje odgovor na pitanje
zašto u zadnjem broju Računara nema Clipper savetovališta?
*
Molim nBatocanina da napiše neko slovo
kao odgovor na ovo.
dPaun
clipper.476nbatocanin,
-> #471, dpaun> Za Clipper i otadžbinu!
Brate dPaune, mlogo ti težak ovaj tekst za čitanje, al' snađosmo se!
dNenad
clipper.477nbatocanin,
-> #475, dpaun> Molim nBatocanina da napiše neko slovo
> kao odgovor na ovo.
SET DATE 01 APR
Prestajem da radim za "Računare" i prelazim u "Svet kompjutera" :))
clipper.478dpaun,
-> #477, nbatocanin>> Prestajem da radim za "Računare" i prelazim u "Svet kompjutera" :))
Nisam zadovoljan odgovorom. Priznajem da Računare u poslednje vreme
kupujem pretežno zbog Clippera; zbog Clp kupujem i "Svet kompjuetera".
Ako Redakcija ceni da je Savetnik za Clp nepotreban, i Clp svede na
poneki slučajni Bajt lične prirode - neka ne računa više na jednog
kupca. (A moj primerak čita još petoro braće, kao posleratnu agitprop
literaturu!)
Pošto je, slutim, reč o šali, još uvek mi(nam) duguješ pravi odgovor.
Imaš Ti svoje obožavaoce, brate Nenade, pa nemoj s nama ko da si nam
narodni poslanik!
dPaun
clipper.479hercog,
Pročitao sam u onom dodatku iz računara o clipperu
da pri kompajliranju može da se navede " /Ddemo" "kako
bi se u aplikaciju ugradile naredbe koje ograničavaju
upotrebu demo programa" , pa me interesuje kako to sve
radi, tj nije mi jasno šta se time postiže i sama uloga
direkti- ve #ifdef ****
Hercog
Odgovor NBATOCANINA
**> Kad u programu napišeš:
**>
**> USE Radnici
**># if def DEMO
**> IF LastRec() > 100
**> ZAP
**> END IF
**># endif
**> LIST ALL
**>
**> ograničavaš da se ne može u tekućoj datoteci upisati
**> više od 100 slogova, ali samo ako je demo verzija
**> programa. Naime, ako prethodni program prevedeš sa
**> CLIPPER, dobiće se:
**>
**> USE Radnici
**> LIST ALL
**>
**> a ako prevedeš sa CLIPPER /DDEMO
**>
**> USE Radnici
**> IF LastRec() > 100
**> ZAP
**> END IF
**> LIST ALL
**>
**> Kao što vidiš, uključiće se deo koji ograničava upotrebu
**> programa. Prednost je u tome što ne moraš da praviš dve
**> verzije programa.
**>
**> Nemoj se ustručavati i slobodno postavljaj slična
**> pitanja u konferencijama - one zato i služe. Tako ćeš
**> mnogima olakšati stvar (onima koji ovo takođe nisu
**>ć razumeli), a i mene ćeš rasteretiti, jer e ti
**> odgovarati i drugi ljudi.
**>
**> Predlažem ti da celu ovu poruku sa tvojim pitanjem
**> pošalješ kao poruku u Clipper.
**>
**> Pozdrav, Nenad
clipper.480ndragan,
-> #471, dpaun/ JasamčuveniClippernacionalistaseparatistaseceionistaišovinista
Mmmm... da, nije loše; imaš li još neku mantru? Ova ne drži duže od tri dana.
clipper.481nbatocanin,
-> #478, dpaun Ma, šalim se, naravno! Savetnik nije izašao zbog nekog banalnog
razloga (frka sa prostorom u poslednjem trenutku). Ja nemam veze sa
tim.
clipper.482bulaja,
Bug (?) Clipper-a 5.01 u @..GET VALID-u.
Stavio sam incijalizaciju GET-a za neki niz u petlju:
for i:=1 to n
@ y+i,x get aa[i] picture pic valid vld( aa[i])
next
a pretprocesor to razlozi ovako:
for i:=1 to n
SetPos( y+i, x)
AAdd( GetList, _GET_( aa[i], "aa[i]", pic, {|| ( vld( aa[i]))}, ) )
next
Problem je jer Clipper jednostavno ne prihvata VALID-e. Read krene Ok
ali se pri prvom pozivanju valid-a javlja greska
"Error BASE/1132 Bound error: array access" (?).
clipper.483kanda,
-> #482, bulaja>> Problem je jer Clipper jednostavno ne prihvata VALID-e. Read krene Ok
>> ali se pri prvom pozivanju valid-a javlja greska
>> "Error BASE/1132 Bound error: array access" (?).
Problem je (valjda?) u tome sto se VALID izraz evaluira tek u toku READ
komande, a u tvom primeru, ako je npr. READ odmah ispod NEXT, promenljiva
'i' u tom trenutku ima vrednost 11 - a niz 'aa' ima 10 elemenata, pa aa[i]
javlja gresku...
Kao prva pomoc, moze uz VALID da se stavi samo poziv funkcije vld(), bez
argumenata, a ona sama da sa readvar() dohvati ime promenljive koja se
edituje, pa da je makro-operatorom ispituje/menja... ovako nesto (izgleda)
radi (mada kad malo razmislim ne bi trebalo da radi, al' da ne baksuziram :)
clipper.484bulaja,
-> #483, kanda│ Problem je (valjda?) u tome sto se VALID izraz evaluira tek u toku READ
│komande, a u tvom primeru, ako je npr. READ odmah ispod NEXT, promenljiva
│'i' u tom trenutku ima vrednost 11 - a niz 'aa' ima 10 elemenata, pa aa[i]
│javlja gresku...
└───
Verovatno, ali je glupo to sto se razlicito tretiraju promenljive za get
i valid, sve bi bilo Ok kada bi se i valid promenljiva razvijala kao
macro. Da stvar bude jos gora, nije moguce ni staviti valid aa[ &i]).
clipper.485squsovac,
Kliperaši, ima li rešenja sledećem problemu:
Na disku se nalaze npr. baze:
BAZA_1
BAZA_2
BAZA_3
...
BAZA_n, koje su istovetne po strukturi, ali ih je zbog određenih razloga ipak
potrebno ovako razdvojiti, a ne podatke smeštati u jednu bazu.
Program bi trebalo negde na početku čoveku da ponudi menu u kojem bi čovek
odabrao rad sa bazom koja ga zanima. Ja sam otvorio posebnu bazu u kojoj
su imena ovih baza (1, 2, ..., n), tako da je problem u principu rešen.
Međutim, interesuje me ima li Clipper 5.01 mogućnosti da na primer pregleda
direktorij i da pregled baza nekako ubaci u promenljive da se ja onda
ratosiljam one jedne nepotrebne(???) baze sa imenima baza.
clipper.486zkrstic,
-> #485, squsovac> Program bi trebalo negde na početku čoveku da ponudi menu u kojem bi
> čovek odabrao rad sa bazom koja ga zanima. Ja sam otvorio posebnu
> bazu u kojoj
I stari kliper je to mogao, a i još uvek može ;)))
Lepo poteraš sva imena baza u niz sa ADIR, pa lepo napraviš meni
sa ACHOICE, i teraj dalje. Tako sam ja radio. Konkretan primer
je bio poziv starih obračuna LD-a, obzirom da je svaki imao svoju
bazu LD9101.DBF, LD9102.DBF....
Kratko i jasno. :))
Na žalost, nemam taj source pri ruci, al' ako ga nađem, tvoj je.
Pozdrav, zkr
clipper.488ndragan,
-> #484, bulaja/ macro. Da stvar bude jos gora, nije moguce ni staviti valid aaŠ &iĆ).
Ovo je rešivo; slične cake se pojavljuju kad treba da prebacim nešto iz
foksproa u stari foks, pa naletim na neku caku koju stari ne podržava. Možda
ovako
dum=ltrim(str(i))
pa onda pod a)
vv&dum=aaŠiĆ
... valid vld(vv&dum)
ili pod b)
vv&dum=aaŠiĆ
dum2='vld(vv&dum)'
... valid &dum2
Moj drugar je pisao sličnu rutinu, ali u njoj je čak stajalo valid &q(i),
i u foksprou je radilo ko ludo, ali za mfoxplus smo morali da izmišljamo
nekakve međupromenljive kao ovo gore, i proradilo je. Ne znam samo kako
se kliper odnosi prema izmišljanju novih promenljivih u trku i to iz
makroa (mislim na vv&dum=)
Bue_ NDragan
clipper.489ndragan,
-> #485, squsovac/ BAZA_2
Jel ima kliper aliase? U foksu na neki način izabereš (meni itd) i neka se
izbor nalazi u nekoj promenljivoj x:
_dbf='baza_'+ltrim(str(x,3))
use &_dbf alias baza
Ovo je potrebno ako se u programu pozivaš sa baza->>polje; ako se pozivaš sa
d->>polje i tu bazu uvek otvaraš u istoj zoni, onda nema veze. U foksprou
stvar ide još lepše
use ('baza_'+ltrim(str(x,3))) alias baza
tj samo strpaš izraz u zagrade i ne treba ni pomoćna promenljiva.
Bue_ NDragan
clipper.490nbatocanin,
-> #488, ndragan> Ne znam samo kako se kliper odnosi prema izmišljanju novih
> promenljivih u trku i to iz makroa (mislim na vv&dum=)
Kako 'oćeš!
clipper.491nbatocanin,
-> #484, bulaja> Verovatno, ali je glupo to sto se razlicito tretiraju
> promenljive za get i valid, ...
Štos je što se za GET navodi *promenljiva*, a za VALID logički
*izraz*, pa se i ne mogu isto tretirati. Da ne dužim, evo kako se
tvoj problem može rešiti. Glavni program je ovakav:
FOR i := 1 TO n
@ i,0 GET a[i] VALID v()
NEXT
READ
1)
Kao što je Konda rekao, moguce je uz pomoc ReadVar() funkcije
dobiti ime promenljive koja se upravo učitava, pa onda uz pomoć
makroa ispitivati vrednost:
FUNC v ()
cVar := ReadVar() // cVar == "a[i]"
IF &cVar == ...
Niz a[i] mora biti klase MEMVAR (PUBLIC ili PRIVATE), da bi ovo
radilo - makroi "ne vide" LOCAL i STATIC promenljive.
2)
Bolje je upotrebiti funkciju GetActive() - ona vraca trenutno
aktivan GET objekt, a to je slog sa *svim* podacima koji ti padaju na
pamet, pa i nazivom tekuće promenljive. Na primer:
FUNC v ()
oGet := GetActive()
...
oGet:name sadrzi naziv niza "A", a oGet:subscript tekuci index.
Kombinacija ta dva ti daje mogucnost da adresiraš element niza.
3)
U prethodnom slučaju ti i ne treba KAKO se zove tekuća
promenljiva, već njena vrednost. Njenu ASCII reprezentaciju imaš u
oGet:buffer. Na primer, ako je a[1]=123, oGet:buffer=" 123". Ovo je
savršeno dovoljno za bilo koju proveru. Ako ti zatreba da u VALID-u
promeniš tekucu vrednost, samo napišeš:
oGet:buffer := NovaVrednost
oGet:assign()
4)
Ako ti je baš stalo da u validu funkciju pozivaš sa tekućom
promenljivom, napiši ovako:
@ i,0 GET a[i] VALID { |o| V(a[o:subscript[1]]) }
Da ne davim, ako nekog interesuje kako ovo radi, neka pita.
Problem se može rešiti i makroima, ali budževine ne treba koristiti
bez preke potrebe.
clipper.492jtitov,
Da li bi neko hteo da mi mailuje jedan fajl iz paketa clipper 5.01? Radi se o
fajlu doc.lif jer mi je u njemu "korumpiran" fajl errata.doc. NAPOMINJEM, nije
mi potreban fajl errata.doc, nego "ono" u cemu se on nalazi spakovan, tj.
doc.lif. Volim da imam kompletne verzije instalacionih programa, pa je zato
upucena molba. Inace clipper, kao clipper, pa i nije los, ALI Fox Pro 2.0
zajedno sa distribution kit-om je zakon. I sto se tice lakoce izrade programa,
a i po mogucnostima.
Pozdrav, Jura.
clipper.493ppekovic,
-> #492, jtitov>> Da li bi neko hteo da mi mailuje jedan fajl iz paketa clipper 5.01? Radi se
o
>> fajlu doc.lif jer mi je u njemu "korumpiran" fajl errata.doc. NAPOMINJEM,
>> nije mi potreban fajl errata.doc, nego "ono" u cemu se on nalazi spakovan,
>> tj. doc.lif. Volim da imam kompletne verzije instalacionih programa, pa je
>> zato
Uh, to je deo komercijalnog paketa, pa kao takav se nebi smeo naći
u konferencijama.
Paya
clipper.494nbatocanin,
-> #492, jtitov> Inace clipper, kao clipper, pa i nije los, ALI Fox Pro 2.0 zajedno sa
> distribution kit-om je zakon. I sto se tice lakoce izrade programa, a
> i po mogucnostima.
Još kad bi ovo i obrazložio...
clipper.495jtitov,
-> #494, nbatocanin>Jos kad bi ovo i obrazlozio...
Ah, vrlo rado, ali ne ide u tri reci. Najbolje bi bilo da se raspitas kod
IMTEL-a. (Mogu ti dati i ime osobe). Oni su tamo razvili jednu ogooomnu
aplikaciju za relativno kratko vreme. Ja sam inace stari kliperas, ali kada sam
video mogucnosti razvoja programa u FOX-u (da ne spominjem da odlicno podrzava
SQL), batalio sam i kliper i sve ostalo sto uz njega ide (fliper).
clipper.496andrejl,
Kada kompajliram sa opcijom /w sve lepo radi osim što mi kao
Abigious reference javlja i getlist što se valjda pretprocesira.
Deklarisao sa onda i getlist sa memvar, ali da li to može nekako
lepše :)
bye, andrejl
clipper.497andrejl,
Zatrebala mi je jedna rekurzivna funkcija, i da bi malo eksperimentisao
napisao sam ovo:
procedure main(br)
rekur(1,val(br))
return
function rekur(broj,br)
? broj
if broj==br
return
else
broj:=rekur(broj+1,br)
endif
return broj
/kompajlira se sa /n i poziva sa rekur n gde je n neki broj/
Kada je n>=91 javi grešku
Unrecoverable error 650: Processor stack fault
Nešto slično sam očekivao (ili nisam :).
Pitanje je da li može ovo nekako da se sredi. Funkcija koja mi treba je
mnogo veća i pozivala bi se ko-zna-kolko-puta (zavisi od sreće :) od 2
pa do +oo pa ne bi da mi se nešto nepriatno dešava u programu.
bye, andrejl
clipper.498andrejl,
Da li postoji razlika između = i == ili je samo 'estetske' prirode.
bye, andrejl
clipper.499ilazarevic,
-> #498, andrejl█ Da li postoji razlika između = i == ili je samo 'estetske' prirode.
= je dodela podataka a == poređenje :)
PS. Kliper sam pogledao samo jednom u životu ;)
clipper.500vili,
-> #498, andrejl> Da li postoji razlika izmedu = i == ili je samo 'estetske' prirode.
Postoji:
"=" - Equal
"==" - Exactly equal
Razlika se odnosi na poredjenje stringova i memo-a:
SET EXACT OFF
"ABC" = "ABC" - TRUE
"ABC" = "ABCDE" - FALSE
"ABCDE" = "ABC" - TRUE
"ABC" = "ABC " - FALSE
"ABC " = "ABC" - TRUE
"ABC" = " ABC" - FALSE
" ABC" = "ABC" - FALSE
"ABC" = "" - TRUE
"" = "ABC" - FALSE
SET EXACT ON
"ABC" = "ABC" - TRUE
"ABC" = "ABCDE" - FALSE
"ABCDE" = "ABC" - FALSE
"ABC" = "ABC " - TRUE
"ABC " = "ABC" - TRUE
"ABC" = " ABC" - FALSE
" ABC" = "ABC" - FALSE
"ABC" = "" - FALSE
"" = "ABC" - FALSE
SET EXACT ON ili OFF
"ABC" == "ABC" - TRUE
"ABC" == "ABCDE" - FALSE
"ABCDE" == "ABC" - FALSE
"ABC" == "ABC " - FALSE
"ABC " == "ABC" - FALSE
"ABC" == " ABC" - FALSE
" ABC" == "ABC" - FALSE
"ABC" == "" - FALSE
"" == "ABC" - FALSE
Operator "==" moze da poredi i nizove:
a1:={1,2,3}
b1:={1,2,3}
a1:=c1
a1 == b1 - FALSE
a1 == c1 - TRUE
Vili
clipper.501dpaun,
Clipper za početnike i programere sluhiste (1)
Svaki iole ozbiljniji Clp program zahteva kontrolu podataka koje u bazu
unosimo preko ekranske maske. U principu, posle otkrivanja greške, prog-
ram treba da omogući ispravku pogrešno upisanog podatka. Lepo bi bilo, a
a naš program bi ličio na programe onih iz starijih razreda - kad bi se
u povratku kursor pozicionirao direktno na mesto greške. To se može us-
pešno rešiti preko KEYBOARD, ubacivanjem u bafer tastature koda za kur-
sorsku strelicu "na dole" onoliko puta koliko je to potrebno.
Za domaći zadatak videti niže navedeni primer.
*
PROC Unos
//
...
Err := .T.
DO WHIL Err
Err := .F.
//
č 2,1 GET Var1
č 2,COL() GET Var2
č 2,COL() GET Var3
READ
DO Kontrola
ENDD
*
PROC Kontrola
// Provera uslova za Var1
IF (nije u redu)
//
Err := .T.
č red,kol SAY ' Uput za ispravku Var1'
RETURN
ENDI
// Provera uslova za Var2
IF (nije u redu)
Err := .T.
č red,kol SAY ' Uput za ispravku Var2'
KEYBOARD CHR(24)
RETURN
ENDI
// Provera uslova za Var3
IF (nije u redu)
Err := .T.
č red,kol SAY ' Uput za ispravku Var2'
KEYBOARD CHR(24)+CHR(24)
RETURN
ENDI
Made în dPaun
clipper.502andrejl,
-> #499, ilazarevic>│ = je dodela podataka a == poređenje :)
mislio sam na = i == kao poređenja pošto postoje = i := za dodeljivanje,
a među njima ima razlike.
bye, andrejl
clipper.503dpaun,
Clipper za početnike i programere sluhiste (2)
/ a mogu da gvirnu i ostali, ali da ne galame /
Da li službeni broj sloga, koji se dobija funkcijom RECNO(), može biti
indeksni ključ? I to da se upisuje direktno, bez akrobacija preko nekih
promenljivih i sl.?
Može.
Za domaći:
USE Baza
INDEX ON RECNO() TO IndFajl
Kad se vrši upis, ovaj IndFajl otvoriti kao i svaki drugi:
USE Baza INDEX IndFajl
Ja probao i uspeo, a to je dovoljno!
dPaun
clipper.504dejanr,
-> #501, dpaun>> Svaki iole ozbiljniji Clp program zahteva kontrolu podataka koje u bazu
>> unosimo preko ekranske maske. U principu, posle otkrivanja greške, prog-
>> ram treba da omogući ispravku pogrešno upisanog podatka. Lepo bi bilo, a
>> a naš program bi ličio na programe onih iz starijih razreda - kad bi se
>> u povratku kursor pozicionirao direktno na mesto greške. To se može us-
>> pešno rešiti preko KEYBOARD, ubacivanjem u bafer tastature koda za kur-
>> sorsku strelicu "na dole" onoliko puta koliko je to potrebno.
Možda nisam dobro razumeo, ali zašto ne koristiš klauzulu VALID (ili
RANGE ako je polje numeričko)? Radi "samo" i ostaje na željenom polju
dok se ne unese ispravna vrednost ili ne lupi Esc.
clipper.505andrejl,
-> #497, andrejl
Hm, da probam ovako. Kako da budem siguran koliko puta će se procedura
pozvati pre nego što sve odleti u vazduh :) ? Račun u stilu
(cVAR+nVAR+...)*K=N
n-broj poziva procedure
k-koeficijent zauzimanja memorije i sl. :)
bye, andrejl
clipper.506andrejl,
-> #500, vili
Hvala na opširnom objašnjenju !
clipper.507vili,
-> #497, andrejl> procedure main(br)
> rekur(1,val(br))
> return
> function rekur(broj,br)
> ? broj
> if broj==br
> return
> else
> broj:=rekur(broj+1,br)
> endif
> return broj
Malo sam se igrao sa ovim programcicem i dosao do sledecih rezultata:
Ako linkujes sa: |za: br | dobijes gresku:
------------------------------|--------|------------------------
RTlink FI rekur /STACK:4096 | 92 | Processor stack fault.
RTlink FI rekur /STACK:5000 | 120 | Processor stack fault.
RTlink FI rekur /STACK:10000 | 276 | Processor stack fault.
RTlink FI rekur /STACK:12000 | 339 | Processor stack fault.
RTlink FI rekur /STACK:15000 | 433 | Processor stack fault.
RTlink FI rekur /STACK:18000 | 526 | Processor stack fault.
RTlink FI rekur /STACK:18550 | 544 | Processor stack fault.
RTlink FI rekur /STACK:18600 | 544 | Eval stack fault.
RTlink FI rekur /STACK:19000 | 544 | Eval stack fault.
RTlink FI rekur /STACK:20000 | 512 | Eval stack fault.
RTlink FI rekur /STACK:22000 | 480 | Eval stack fault.
RTlink FI rekur /STACK:25000 | 419 | Eval stack fault.
RTlink FI rekur /STACK:30000 | 352 | Eval stack fault.
RTlink FI rekur /STACK:40000 | 160 | Eval stack fault.
RTlink FI rekur /STACK:45000 | 64 | Eval stack fault.
RTlink FI rekur /STACK:47700 | 32 | Eval stack fault.
Za STACK < 4096 greska je : Cannot execute REKUR.EXE.
Za STACK > 47747 greska je : null pointer assignment.
Zakljucak: tvoja funkcija moze da se rekurzivno pozove najvise 543 puta.
--------- ----------------
Da li to vazi samo za ovu funkciju ili ne, that's the question!
Vili
clipper.508nbatocanin,
-> #496, andrejlNe može. Ovo piše i u uputstvu. Pogledaj u "Release Notes".
clipper.509nbatocanin,
-> #500, vili"=" se upotrebljava i za dodelu vrednosti. Po meni, najbolje je
uopšte ne upotrebljavati "=", već samo ":=" i "==".
clipper.510ilazarevic,
-> #499, ilazarevic█ = je dodela podataka a == poređenje :)
He, baš sam budala :(( Sorry svima.
clipper.511ilazarevic,
-> #502, andrejl█ mislio sam na = i == kao poređenja pošto postoje = i := za
█ dodeljivanje, a među njima ima razlike.
Ma ja sam se malo zeznuo, kad se petljam gde mi nije mesto...