PCPROG.1

20 Sep 1991 - 03 Dec 1992

Topics

  1. ms.dos (235)
  2. cccc (0)
  3. asembler (321)
  4. pascal (896)
  5. clipper (1059)
  6. zastita (239)
  7. basic (178)
  8. baze.podataka (116)
  9. novi.fajlovi (66)
  10. algoritmi (52)
  11. razno (707)
  12. van.teme (126)
  13. unknown (986)

Messages - clipper

clipper.613 tuci, -> #610, charlie
¸> BTW Nedostaje ti READ nakon GET-a Znam, štamparska greška :)) Problem je bio u indeksnim fajlovima. Na pocetku programa je stajalo: USE baza1 index ind1,ind2 REINDEX USE baza2 index ind1,ind2,ind3 REINDEX ... Indeksni fajlovi (jedan deo fajla) su izgledali otprilike ovako: ! 00001199 ! 00002199 ! 00003199 ! 00004199 ! 00005199 Na mestima uzvičnika nalaze se ASCII kodovi ispod 32, a 199 je višak koji zbunjuje Clipper 5.01 a nesmeta Clipperu Summer '87, jer program preveden verzijom S'87 radi i sa ovakvim indeksnim fajlom. Zbog toga sam najpre posumnjao u 5.01 a ne u fajlove :( Posle prepravke programa na početku stoji ovako: USE baza1 INDEX ON exp1 TO ind1 INDEX ON exp2 TO ind2 ... Indexni fajlovi izgledaju ovako: ! 00001 ! 00002 ! 00003 ! 00004 ! 00005 Program radi bez problema problema. žudi me da komanda REINDEX ne uklanja magični broj 199 koji se uz pomoc magije pojavio u indeksnom fajlu. Hvala tomi i charliju na pomoći ! Pozdrav, Zlatko ;)
clipper.614 ndragan, -> #608, tuci
/ č 1,1 SAY "Broj: " GET br / SEEK br / ? IF(FOUND(),"Broj je pronadjen","Broj nije pronadjen") Đe ti Read? Bez brige, u nekoliko mojih programa stoji komentar tipa "konju jedan, ovo ti je već deseti zaboravljeni Read!". Zato smo napisali rutinu za unos, kod koje su prompt, imena polja, pikčeri i validi strpani u parametre, a ona garantovano _ima_Read_. Bue_ Ndragan
clipper.615 toma,
PAčNJA CLIPPER-aši !!!! Još jedna razlika izmedju S87 i 5.01: ALLTRIM() ne radi isto. Summer 87 a=chr(9)+"toma" a=alltrim(a) a je još uvek chr(9)+"toma" 5.01 a je posle operacije samo "toma" Moguće je da postoje još neki karakteri koje ALLTRIM skida, kod mene je bio ovaj slučaj. ▄▄▄▄▄ ▄▄▄ ▄ ▄ ▄▄▄ █ █ █ █▀▄▀█ █▄▄▄█ ▀ ▀▀▀ ▀ ▀ ▀ ▀
clipper.616 jtitov, -> #615, toma
> Summer 87 > a=chr(9)+"toma" > a=alltrim(a) > a je jos uvek chr(9)+"toma" > > 5.01 > a je posle operacije samo "toma" FoxPro 2.0 isto ne skida chr(9) (tabulator). Ma taj clipan 5.01 mi se nikada nije svidjao... '87 je prava stvar, ko voli clipper...
clipper.617 ndragan, -> #613, tuci
/ USE baza2 index ind1,ind2,ind3 / REINDEX Ovo nikako ne preporučujem; štogod da pukne na disku, .dbf se bekapira i može da se vrati, a indekse nema smisla čuvati jer se uvek mogu napraviti novi; usput, može neko i sa PCT ili Norton-nečim da pročačka baze; u slučaju da strada zaglavlje indeksnog fajla, neće ni raditi. / USE baza1 / INDEX ON exp1 TO ind1 Ali zato ovome ne smeta ništa čak i ako indeks ne postoji. Jedino u mrežnoj okolini preporučujem zaključavanje baze (use ... excl) da se ne bi desilo da indeks ind1 bude zaključan - stvar onda puca. BTW, pričam ovo iz Foksa, ali indeks je indeks; samo Index For <expr> je foksov indeks :) Uz to, pade mi na um da neko proveri da li u Kliperu radi ovo: _=4 __=_+_ž_ && ž kao stepenovanje ?__ Ako ispiše 260.000, svaka čas. Bue_ Ndragan
clipper.618 charlie, -> #617, ndragan
█ Uz to, pade mi na um da neko proveri da li u Kliperu radi ovo: █ █ _=4 █ __=_+_ž_ && ž kao stepenovanje █ ?__ █ █ Ako ispiše 260.000, svaka čas. A šta si ti mislio da ispiše?
clipper.619 ndragan, -> #615, toma
/ a je još uvek chr(9)+"toma" U foksprou 2.00 i 1.02 ne skida tab, upravo proverih.
clipper.620 nbatocanin, -> #616, jtitov
> FoxPro 2.0 isto ne skida chr(9) (tabulator). Ma taj clipan > 5.01 mi se nikada nije svidjao... '87 je prava stvar, ko > voli clipper... Bre ljudi, što ste takvi! Na osnovu takve bezvezarije ocenjujete nešto tako dobro kao što je Cl 5.0 - stvarno komunistički! Uostalom, očigledno da je skidanje taba stavljeno namerno - više ima nego što nema logike za to. A ako vam baš treba, napišite novi Trim. Ne slažem se da je S'87 bio dobar: po meni nije loš, ali je daleko od 5.0. Ako biste kritikovali Cl 5.0, morate korektno uzeti u obzir i bar sledeće dobre osobine: 1) Pretprocesor u 5.0 je jedan od najmoćnijih koji sam video. 2) Izuzetan jezik - objekti, naročito kod blokovi, itd. 3) Odlično rešen sistem za interakciju - naročito TBrowse i Get. 4) Otvorena arhitektura - možete ga promeniti kako želite, počev od jezika pa do sistema za pristup DBF datoteka. Uostalom, ovo verovatno još samo C guta: #define _ #define _ _l ? _ __ i _ ___ TO _ ____ 1 _ _____ 100 _ l__ := _ ll + _ l_ FOR l_ __ l__ ____ ___ _____ _ _l_ NEXT _l [_____] ll [_____] _l_ QUIT Da samo napomenem, korišćenjem #translate direktiva može se napraviti još veći rusvaj. Naravno, ne mislim da ovo ičemu služi. Al' je interesantno, jel da?
clipper.621 ndragan, -> #618, charlie
/ A šta si ti mislio da ispiše? Pa, 260.000 :). Palo mi na um kad sam na disku našao one blesave C listinge, pa da probam - kad ono, radi u foksu. žisto sam mislio da neko vidi da li je isto i u kliperu. U dibejzu, naprimer, ne radi ni prva linija. Ovde sam umešao i nešto ličnog afiniteta - koliko traje da se stvar proveri u foksu, a koliko u kliperu. Za foks tvrdim da može za manje od 20 sekundi, ko ume dovoljno brzo da kuca.
clipper.622 toma, -> #620, nbatocanin
■■>> nešto tako dobro kao što je Cl 5.0 - stvarno komunistički! Uostalom, ■■>> očigledno da je skidanje taba stavljeno namerno - više ima nego što ■■>> nema logike za to. A ako vam baš treba, napišite novi Trim. Tako je !!! Ja sam lepo napisao upozorenje jer sam ja 15 min. bio glavu zašto program ne radi kako je radio i nista više. Oni koji ne vole clipper neka ga ne vole al' neka ga ne blate ! Jel jasno ?
clipper.623 ndragan, -> #620, nbatocanin
/ očigledno da je skidanje taba stavljeno namerno - više ima nego što / nema logike za to. A ako vam baš treba, napišite novi Trim. Što jes jes - tab spada u bele znake (white space) i treba ga trimovati; ono što ovde nervira je što od verzije do verzije radi sad ovako sad onako. Još ako nije dokumentovano, dođeš u situaciju da se pitaš 'Bug or Feature' kad prebaciš stari program u novu verziju i nađeš novu nekompatibilnost. BTW, otkud mu tab u stringu koji treba trimovati? Tekst filteriška pisana u kliperu?
clipper.624 mackb,
Da li je neko pokusao da pise aplikacije u clipper-u,tako da se sve poruke korisniku pisu na ruskom u ruskoj cirilici? Veoma sam zainteresovan da diskutujem na tu temu.
clipper.625 ppekovic, -> #624, mackb
>> Da li je neko pokusao da pise aplikacije u clipper-u,tako da se sve poruke >> korisniku pisu na ruskom u ruskoj cirilici? Veoma sam zainteresovan da >> diskutujem na tu temu. Kod ovog problema najmanje je stvar u clipper-u, tj. vezano je za clipper u toliko što clipper nemože (čitaj: formalno može ali praktično teško) da radi u grafičkom modu pa da na taj način rešiš definiciju yu slova. Osnovni je problem kako deinisati ruska slova. Na VGA to nije problem, ali šta ćeš sa hercules-om. Jedino možda da ugradiš u EPROM rusku ćirilicu. Sve u svemu, želim ti puno sreće i čvrstih živaca u ovome. Paya
clipper.626 ciki,
Imam jedan mali problem koji mi ide na zivce. Skinuo sam sa nekog BBS-a CLIPINT.ZIP fajl, (za neo bavestene poziv INT fun. iz clipper-a.) Pokusao sam da compa. taj fajl ali jednostavno mi prijavi gresku ,tj. nekoliko njih i neradi!!!! Pomagajte ! Ciki
clipper.627 ppekovic, -> #626, ciki
>> Skinuo sam sa nekog BBS-a CLIPINT.ZIP fajl, (za neo >> bavestene poziv INT fun. iz clipper-a.) Pokusao sam >> da compa. taj fajl ali jednostavno mi prijavi gresku >> ,tj. nekoliko njih i neradi!!!! A šta ti konkretno ne radi? U arhivi postoje dva source-a, jedan ASM a drugi PRG koji je samo demonstracija upotrebe INTERRUPT funkcije. Koji od njih ne radi, tj. sa kojim verzijama assembler-a, tj. clipper-a si ih prevodio? Paya P.S. Taj neki BBS je možda i Sezam jer se clipint.zip arhiva nalazi u sezamovom /IBMPC/PROGRAM dir-u.
clipper.628 ciki, -> #627, ppekovic
Sezam nije. Tacno , postoje 2 source programa, ali isto tako po- stoje i 2 OBJ fajla koja sam pokusam da linkujem sa TLINK 3.01 (Clipper Summer '87). Inace imam MASM 6.0, ali nisam pokusao da kompa. dobijene source kodove. Konkretno prilikom linkovanja OBJ kodova prijavljuje 2 greske i to je 1 nesto uvezi STACK-a ili zahteva za memorijom 64KB, a 2. gresku sam zaboravio. Hvala ti na paznji, i ako imas vremena pokusaj da mi malo objasnis kako bih to mogao da prevazidjem. P.S. Ta biblioteka mi je potrebna za PASSWORD-e , jer C ne znam PASCAL znam ali (veza Clipper-Pascal!) Puno pozdrava od Cikija
clipper.629 ppekovic, -> #628, ciki
>> Konkretno prilikom linkovanja OBJ kodova prijavljuje >> 2 greske i to je 1 nesto uvezi STACK-a ili zahteva >> za memorijom 64KB, a 2. gresku sam zaboravio. Dok sam radio sa clipper-om '87 koristio sam tlink 1.1, sa tlink-om nemam nikakvog iskustva osim 1.1 verzije. U vezi greške vezane za stack, pogledaj /stack ili sličnu opciju tvog linkera i povećaj količinu memorije koju odvajaš za stack. Odredi je širokopopularnom "šac" metodom. Za drugu grešku ne mogu ništa da ti kažem jer si je zaboravio ;))). Najbolje bi bilo da nam otkucaš kompletnu poruku za obe greške, kao i komandnu liniju kad linkuješ, tj. koje parametre staviš pa da vidimo. Paya P.S. Predji na clipper 5.01. Uglavnom je komatibilan sa '87 verzijom ai je zaista superioran u odnosu na nju.
clipper.630 ciki, -> #629, ppekovic
Ovako greske koje se javljaju su: Error: group DGROUP exceeds 64K Error: InvalidŰN initial stack offset Inace tek sam poceo sa´k 5.01,(hvala na preporuci), Sto se linkera tice imam PL,RTL,TL,LINK, pa ce 1 od njih proci!!! Inace ocekuj skoro u tvom mail-u poduzu poruku ;))))))))) o cliper-u i radu sa mrezama, ako imas iskustvo. Hvala unapred. Ciki!
clipper.631 gstojkovic,
Hitno mi je potreban pomoc oko jednog problema pa molim iskusne Clipperase da mi pomognu. Naime moj problem se sastoji u tome da li postoji mogucnost da posle naredbe SET FILTER koristim naredbe SEEK ili LOCATE za pronalazenje drugog kljuca na osnovu predhodnih maskiranih zapisa pomocu SETT FILTER uslova. KKKKKKKkomande. Znaci imam dva kljuca od kojih prvi izdvajam pomocu SET FILTER komande a zatim trazim dugi kljuc u okviru izdvojenih. Neznam koliko sam bio jasan ali problem me dugo muci i nevidim sam resenje. Unapred zahvalan na pomoci. S'postovanjem GStojkovic...
clipper.632 ciki, -> #631, gstojkovic
I sam sam imao slican problem,ne isti ali slican, pa sam ga resio na ovaj nacin.Pre pozivanja tog dela pro grama koristio sam COPY FILE i napravio kopiju baze sa kojom sam radio,zatim selektovao i radio sa dve baze. Na kraju jedno ERASE resava stvar. Nije nista elegantno,ali vazno je da radi. Gubis na brzini malo samo prilikom COPY FILE. Zdravo!
clipper.633 ciki, -> #632, ciki
NE COPY FILE vec COPY za zadat║i uslov.Pogledaj literaturu literaturu.
clipper.634 ppekovic, -> #630, ciki
>> Ovako greske koje se javljaju su: >> Error: group DGROUP exceeds 64K >> Error: InvalidŰN initial stack offset Pa ove greške pokazuju da ima nekih problema sa memorijskim modelima, ali mi je to vrlo čudno jer clipper radi isključivo u large modelu i ne mogu da verujem da je tip koji je pravio clipint pogrešio pa koristio small model. Mislim da bi najbolje bilo da probaš sa rtlink-om, pa javi rezultate. >> Inace ocekuj skoro u tvom mail-u poduzu poruku >> ;))))))))) o cliper-u i radu sa mrezama, ako imas >> iskustvo. Nemoj u mail, ostavi pitanja ovde verovatno će zanimati još nekog. Paya
clipper.635 ppekovic, -> #631, gstojkovic
>> da mi pomognu. Naime moj problem se sastoji u tome da li >> postoji mogucnost da posle naredbe SET FILTER koristim >> naredbe SEEK ili LOCATE za pronalazenje drugog kljuca >> na osnovu predhodnih maski Koliko se sećam, seek ignoriše filter ali ga zato locate poštuje. Neznam samo koliko ti je važna brzina i kolika je baza, jer se može desiti da locate bude spor, jer sekvencijalno čita sve slogove dok ne naidje na pravi. Takodje neznam ni kakav je konkretan problem, ali ja sam set filter koristio sam kod tbrowse-a i dbedit-a, a za ostala filtriranja i pretraživanja sam koristio seek i pitanje, dakle nadjes sa seek slog po prvom ključu pa onda sa običnim if ispitaš da i zadovoljava i drugi. Paya
clipper.636 bulaja, -> #631, gstojkovic
│da li postoji mogucnost da posle naredbe SET FILTER koristim naredbe │SEEK ili LOCATE za pronalazenje drugog kljuca na osnovu predhodnih │maskiranih zapisa pomocu SET FILTER uslova. └─── I SEEK i LOCATE rade Ok, upravo sam proverio. Ali svejedno, ako hoces da radis npr. FILTER + SEEK, ipak je mnogo bolje (brze) da uopste ne postavljas filter vec da radis prvo SEEK pa onda ispituj uslov na pronadjenom slogu (ili vise njih). Evo primera kako to da uradis ako vec imas aktivan filter: // ---------------- // cF := dbfilter() // pokupi uslov filtera set filter to // iskljuci fltr seek xx // xx je kljuc koji se trazi u indexu if found() if &cF // pronadjen prvi slog po seek+if uslovu // pa ovde ubaci sta treba da se radi sa slogom, npr. prikaz endif do while .T. skip if ! ( xx == &indexkey(0)) // da li slogovi i dalje zadovoljavaju seek uslov? exit endif if ! &cF // ostali slogovi po seek+if // i sta vec treba da se radi sa njima endif enddo else // nema slogova koji zadovoljavaju endif set filter to &cF // ponovo aktiviraj filter go top // ---------------- // Bulaja
clipper.637 d.petrovic,
Ne mogu da smestim NANFOR.LIB u PLL biblioteku zbog zakrpa, pa mi treba LIB.EXE, slican program koji za isto to sluzi ili savet kako to da uradim.
clipper.638 nbatocanin, -> #624, mackb
Znam čoveka koji je pisao program za automatsku konverziju Clipper programa YU -> RUSKI. Poslaću ti njegov telefon mailom.
clipper.639 neman,
Hi Novi sam korisnik Sezama i čitanjem SVIH prethodnih poruka nisam primetio rešenje svog problema ! Problem se manifestuje na sledeći način: Clipper aplikacija je imala problem u pristupu jednom slogu u bazi. Analizom datoteke kolega i ja utvrdili smo da se u slogu na mestu gde se nalazi znak * ili blanko koji označava da li je slog brisan ili nije našao se znak 1Ah - kraj datoteke. Pošto je kod zvezdice 2Ah mislio sam da je došlo do pomeranja jedinice u binarnom zapisu. Kada se to desilo u roku od par dana kod više korisnika, a kod jednog i više puta prestao sam da optužujem Marfija. Problem se javio kako na Novell Netware 2.15 , tako i na običnom PC-ju pod MS DOS 4.01. SCAN 93 nije otkrio ništa. Interesantno je da DBASE i CLIPPER 87 i 5.01 ne tretiraju podjednako pojavu ovog znaka na pogrešnom mestu. Pri sekvencijalnom prolasku kroz bazu u DBASE ( BROWSE ili SKIP nnn) kaže da je naišao na kraj datoteke (EOF() == .T.). Npr. stigao sam do 545 sloga i ni makac dalje. Kada kažem GOTO 547 pozicioniranje bude uspešno i mogu da nastavim da se krećem po datoteci. Naravno, slog 546 je zabrljan na napred naveden način. Sa druge strane, CLIPPER ne obraća pažnju na pogrešan znak na mestu oznake brisanja. DBU sasvim normalno radi BROWSE stim što se za slog 546 javlja oznaka <deleted>. Međutim, izgleda da ima problema pri drugim operacijama - nisam vršio neka druga testiranja. Očigledno je da DBASE i CLIPPER različito sadržaj utvrđuju da li je slog brisan ili nije, a i da sam Clipper različitu tretira ovu situaciju. Nisam probao da li ima problema sa pojavom drugih znakova na tom mestu. Jednostavan način za utvrđivanje postojanja ovog problema je da u DBASE pustite program: USE baza SKIP RECCOUNT()+5 SKIP -1 IF ,NOT. (RECNO() = RECCOUNT()) ? " Problem " ENDIF Moram da pomenem da na ovo nisam naišao do sada. Problem sam otklonio upotrebom DISKEDIT-a. Eventualno bi mogao da bude i neki programčić za filtriranje baze, ali ovo treba SPREžITI a ne LEžITI. Pomozite ! NeMan
clipper.640 paris,
Moli se korisnik Graficke biblioteke za CLIPPER koji je uspesno koristi da se javi radi detaljnijeg opisa cina prevodjenja koji me se cini neostvarivim. Probao sam sve varijante i ni jedna ne funkcionise. POzdrav PARIS
clipper.641 asrdjan,
Imam jedan problem sa bazama podataka u clipperu.Naime pre izvesnog vremena sam napisao program u kojem se prvi put pojavila greska o kojoj govorim.Dakle, program je trebao da upita operatera za sifru odredjenog clana u bazi i da na osnovu toga pronadje i otvori slog za tog clana ili da javi poruku da clan sa tom sifrom ne postoji u bazi.Ova procedura se ponavljala na dva mesta u programu i to u unosu podataka i u pregledu podataka(normalno uz neke izmene). E sad,sve do trenutka kada je trebalo da program javi,da li odredjeni clan postoji ili ne u bazi,je bilo u redu,medjutim pri pretragi je program uvek javljao da odredjeni clan NE postoji u bazi i to cak i onda kada bi prethodno clan bio upisan(istom procedurom) u bazu podataka.Nakon nekih izmena izgledalo je da je program konacno poceo normalno da radi,ali onda se ispostavilo da program i dalje za prvog unetog clana javlja poruku da ne postoji u bazi,kao da nije unet.Dakle ukoliko neko zna u cemu je stvar neka mi ostavi resenje bilo na MAIL SEND Asrdjan bilo u ovoj konferenciji.I jos da napomenem da sam nortonom pregledao datoteke koje bi program formirao i u njima je naravno bio upisan prvi clan.Uz ovu poruku je prikacena i datoteka APP.ZIP koja sadrzi deo listinga aplikacije kod kojeg je zapelo zajedno sa startnim modulom.Naravno da od opcija u meniju radi samo prva posto je kod nje i zapelo.Ostatak programa nisam poslao jer nije ni potreban.Program je radjen u verziji Summer '87 i za njegovo prevodjenje i startovanje potrebne su jos i sledece datoteke: CLIPPER.EXE CLIPPER.LIB EXTEND.LIB TLINK.EXE Prilikom prevodjenja dovoljno je startovati datoteku STARTUJ.BAT i sve ce teci automatski.Resenje kao i komentare i sugestije posaljite na,kao sto sam vec rekao,MAIL SEND Asrdjan ili kao poruku u ovoj konferenciji. Pozdrav Asrdjan P.S. Izvinite zbog malih neurednosti u programu posto je sve radjeno na brzinu. P.P.S. Evo malog uputstva kako i gde se javlja greska.Dakle posto sve uradite kako treba i startujete program izaberite opciju 'Stalni podaci'.Zatim izaberite opciju 'Unos stalnih podataka' pa unesite podatke o 2-3 clana.Onda izadjite pa idite u opciju 'Pregled stalnih podataka' i tu trazite korisnika sa sifrom 1.Ako ga program nadje,idite u 'Unos stalnih podataka' pa unesite podatke za jos jednog korisnika.Sad ponovite 'Pregled stalnih podataka' pa zatim upisite za sifru 1 i program ce javiti da trazeni korisnik ne postoji u bazi. app.zip
clipper.642 ciki, -> #641, asrdjan
Ovako kod mene tvoj prg radi sve Ok ako posle READ u fajlu Pod_ekr1 stavim Append blank a ne gde je bio. A sada evo ti nekoliko dobronamernih saveta: 1. Predji na clipper 5.01 (Pozdrav d.petrovicu) 2. Gde ti je ispravka podataka 3. SKLONI TAJ DOSADNI SAT!!!!!!!!! 4. Pri unosu podataka nemoj zaboraviti da uneses sifru :)) 5. Nabavi neku II knjigu nego Programiranje u Clipper-u od Popovica P.S. Datoteke pregledaj sa DBU
clipper.643 nbatocanin,
Ako vam zatreba da tekst iz nekog tekst-procesora ubacite u DBF datoteku kao memo polje, snimite tekst u "Generic" formatu: tada ostaju samo tabovi i oznake za novi red, a takav format upravo koristi i Clipper. U WP-u je to <Ctrl-F5><Save as><Generic>.
clipper.644 neman, -> #641, asrdjan
Tvoj problem je rešen. Sledeći put *nemoj* da direktno prebacuješ programske datoteke. Modifikovanu aplikaciju ti šaljem uz ovu poruku. Pitanje za Sve: Šta je bilo sa mojim problemom :( ? P.S. Da li postoji grupa za CLIPPER ? IF grupa _make_me_:))( :( ) END IF Pozdrav, NeMan app_isp.zip
clipper.645 dejanr, -> #644, neman
>> P.S. Da li postoji grupa za CLIPPER ? Šta će grupa kad ima temu u konferenciji?
clipper.646 andrejl, -> #622, toma
>│ Oni koji ne vole clipper neka ga ne vole al' neka ga ne >│ blate ! >│ >│ Jel jasno ? Nemo' da mi neko dira Clipper ! ;) bye, andrejl
clipper.647 neman, -> #645, dejanr
>>> P.S. Da li postoji grupa za CLIPPER ? > > Šta će grupa kad ima temu u konferenciji? žitajući poruke iz EXTRA:SF stekao sam utisak da grupa SF postoji. Ko pita ...
clipper.648 ciki,
Evo primera za lep Crsr Prilikom unosa Get-a. Moze li neko krace (mlogo mi je vazno) #include"SetCurs.ch" Set key 22 to ja Mi:=space(10) cls č 1,1 get mi read quit procedure ja if setcursor()=SC_INSERT setcursor(SC_NORMAL) ReadInsert(.f.) else setcursor(SC_INSERT) Readinsert(.t.) endif P.S. Vrlo mi je vaznoako moze krace ;) Ciki!!
clipper.649 d.petrovic, -> #648, ciki
>Moze li neko krace (mlogo mi je vazno)... Probaj da sve stavis u jedan red? :))))))))))) Hi!
clipper.650 ilazarevic, -> #647, neman
█ žitajući poruke iz EXTRA:SF stekao sam utisak da grupa SF postoji. █ Ko pita ... Postoje dve sf grupe. Razlog njihovog postojanja je to što u vreme osnivanja nije postojala tema, a posle nas je mrzelo da ih ukidamo...
clipper.651 ciki,
Opet ja! Sada sa jednim problemom. Ocu da mi prg. koji vam saljem lepo pozove I meni, pa tek onda kada pozovem opciju za stampanje podataka da mi izda obavestenje o tome da li je stampac prikljucen ili ne! P.S. Napominjem da je lepo radilo dok nisam ubacio #include"Print.prg" Saljem vam listinge.Onaj ko mi pomogne ima pice cim ga vidim. VRLO JE HITNOOOOOOOO!!! Ciki zasto.arj
clipper.652 mandrejevic, -> #648, ciki
set key K_INS to Tog_Ins ///////////// // Tog_ins // ///////////// function Tog_ins() if SetCursor() != 0 ReadInsert(.not. ReadInsert()) SetCursor(Iif(ReadInsert(), 2, 1)) end return nil
clipper.653 d.petrovic, -> #651, ciki
#include je pretprocesorska direktiva, sto znaci da je print.prg ubacen u tvoj program da se izvrsi pre menija. Inace, sa #include se pozivaju heder fajlovi, a ne *.prg, tako da ni taj red programa nema mnogo smisla. Ako pogledas bilo koji *.ch fajl videces da se uglavnom sastoji od definicija, sa samim programom nemaju bas puno veze. 1.PRINT.PRG posebno prevedi i smesti u svoj fajl funkcija (npr. FUNKCIJE.OBJ) 2.Kasnije to zajedno linkuj i... Ako ne mozes da se brzo priviknes na clipper 5.01, znaj da je gomilu naredbi pokupio iz C-a. npr. naredba strana++ je zaista efikasnija od strana:=strana+1 jer kompajleru saopstava da na promenljivu treba primeniti masinsku naredbu INC, a ne sabirati ga sa konstantom (sta je brze :))) ) P.S. Prelistaj malo to sto imas u clipper-ovim direktorijumima, obrati paznju na *.rmk, korisni su i jednostavni. Aaaaaaaj zdra'o !
clipper.654 dpaun,
Tri molbice za Clipper braću: 1. Bavi(o) li se neko Sycerom? Kakva su iskustva? 2. Osoba iz prethodnog stava nek mi pošlje na mail kompletan spisak fajlova koje sadrži ovaj paket. 3. Imam "Moj mikro" u kome je kratak prikaz rada sa Sycer-om, ali mi se čini da je nešto bilo i u "Računarima". Pamti li neko koji je to bio broj? Zahvalan++, dPaun
clipper.655 ndragan, -> #646, andrejl
/ Nemo' da mi neko dira Clipper ! ;) Dođi malo da vidiš šta radi fokspro. Za plakanje preporučujem levo rame.
clipper.656 vitez.koja, -> #655, ndragan
#=> Dođi malo da vidiš šta radi fokspro. Za plakanje #=> preporučujem levo rame.
clipper.657 ciki, -> #653, d.petrovic
Ovako. Prvo da ti se zahvalim sto si pogledao moj "problem". Resio sam ga i sam na slican nacin odmah po slanju onog zahteva za pomoc. Inace sto se tice #incl. direktive mislim da gresis iz 2 nepobitna razloga. 1. U ovo conf sam negde procitao da iskusni clipper programer savetuje da se koristi #inc umesto Do pa i sa prg. fajlovima. 2. Zaviri u bilo koju knjigu (BIBLIJA za CLIPPER 5.0 recimo,..) pa ces videti da #inc.sa prg nije neko cudo! P.S. Ipak hvala ti. P.P.S. Zahvaljujem se mandrejevic-u za fun(stvarno moze krace, ali nisam na to mislio). Pozdrav!
clipper.658 jtitov, -> #655, ndragan
>> / Nemo' da mi neko dira Clipper ! ;) > > Dodi malo da vidis sta radi fokspro. Za plakanje > preporucujem levo rame. Bas tako. Clipper je smoke of pussy za foxpro.
clipper.659 asrdjan,
Hvala svima na odgovorima.
clipper.660 bulaja, -> #657, ciki
│1. U ovo conf sam negde procitao da iskusni clipper programer │ savetuje da se koristi #inc umesto Do pa i sa prg. fajlovima. └─── Pa sad, zavisi sta je u .prg, ali u principu (tj. vecini slucajeva) #include ne treba tako koristiti. Ako u tim .prg imas neke odvojene procedure ili funkcije (kao sto je slucaj sa tvojim print.prg), uvek je mnogo bolje prevoditi ih odvojeno i posle ulinkovati. DO nemas uopste potrebe da koristis, vec ili pravi .bat file za kompajliranje svih modula, ili (sto je najbolje) koristi make.
clipper.661 nbatocanin, -> #652, mandrejevic
Kad već cepidlačimo: FUNC Tog_Ins RETURN IIF (SetCursor() != 0, ; SetCursor(IIF(ReadInsert(!ReadInsert()), 2, 1)), )
clipper.662 ciki, -> #660, bulaja
Vako. Ako si procitao moj odgovor d.petroviv-u,mogao si zakljuciti da sam na taj nacin i resio problem praveci BAT fajl(ali ipak nije to to.) Sto se tice onoga #inc sa prg, zamolio bih te da mi kazes kada se ova kombinacija koristi! Pozdrav Ciki!
clipper.663 ciki, -> #661, nbatocanin
Dobro de nemoj se zestiti. Ciki!
clipper.664 bulaja, -> #662, ciki
│resio problem praveci BAT fajl (ali ipak nije to to.) └─── Ali tako se i dalje svaki put kompajliraju svi moduli. MAKE it! :) │Sto se tice onoga #inc sa prg, zamolio bih te da mi kazes kada se │ova kombinacija koristi! └─── Ja je ne koristim nikad :).
clipper.665 kanda, -> #661, nbatocanin
>> Kad već cepidlačimo: >> >> >> FUNC Tog_Ins >> RETURN IIF (SetCursor() != 0, ; >> SetCursor(IIF(ReadInsert(!ReadInsert()), 2, 1)), ) >> >> Pa kad vec cepidlacimo... :) SetKey(K_INS, {|| SetCursor(If(ReadInsert(!ReadInsert()),1,2))}) c := Space(8) @ 2,2 GET c READ
clipper.666 kanda, -> #662, ciki
>> Sto se tice onoga #inc sa prg, zamolio bih te da mi kazes kada se >> ova kombinacija koristi! Koristi se kad hoces da vise od vise .PRG dobijes jedan .OBJ. U istu svrhu moze da posluzi i .CLP datoteka - u nju upises imena .PRG datoteka, onda kazes CLIPPER @ime.CLP, i dobijes JEDNU datoteku ime.OBJ.
clipper.667 yowo,
Pomagajte !!! Kako se ubrzava linkovanje preko .pll i preko .plt fajlova ??? Nesto kod mene ne ide pa ne ide... yowo
clipper.668 dvokshi,
Koristio sam biblioteku oClip.lib iz Sezama da bih deklarisao nove klase u Clipperu. Sve je išlo dobro sa novim klasama, kao i sa klasama koje su nasleđivale neku od novih klasa. Ali kad sam pokušao da deklarišem novu klasu kao naslednik TBrowse klase, počeli su problemi. Naime nova klasa ne nasleđuje ama baš ništa od svog roditelja. Probao sam na dva načina : CLASS MyBrowse FROM TBrowseNew CLASS MyBrowse FROM TBrowseDB ... ali ni u jednom slučaju nisam postigao rezultat. Kad pokušam da u programu koristim neku promenljivu ili metod klase TBrowse uvek dobijam grešku : No exported method / variable Help !!! Unapred zahvalan.
clipper.669 ciki, -> #666, kanda
Lepo je to u praksi ali u zbilji druga prica!!! Ipak hvala ti za K_INS. Pozdrav Ciki
clipper.670 ciki, -> #664, bulaja
Pa make je strasna stvar za relativno duze aplikacije, ali moju aplikaciju pravim iz nekoliko fajlova koje u toku testiranja programa prevodim svaku ponaosob, tako da mi je dir pun nekih PRAVIX.BAT (X=1,n) programa. Pozdrav Ciki!
clipper.671 jsalai, -> #622, toma
> Oni koji ne vole clipper neka ga ne vole al' neka ga ne > blate ! Ovo treba uvesti na SVIM NIVOIMA!!!! Mozda ni rata ne bi bilo.......
clipper.673 d.petrovic, -> #667, yowo
>Pomagajte !!! >Kako se ubrzava linkovanje preko .pll i preko .plt fajlova ??? >Nesto kod mene ne ide pa ne ide... Ajde? Imao sam slican problem (nikako nije htelo da proradi) pa sam na kraju napravio na jedvite jade jednu biblioteku. Ovo moje malecko iskustvo kaze: 1. Moras imati bar jedan FI pri pravljenju biblioteke (ne mozes samo gotove biblioteke strpati u jednu)! 2. Ako koristis nanfor biblioteku i neku od predefinisanih funkcija ne smes je strpati u *.PLL jer kasnije predefinisane funkcije nece raditi korektno (zbog ovog sam vec trazio ovde da mi neko nabavi LIB.EXE ali nigde dobre duse :)) )! 3. Dodaj odmah u biblioteku i CLD.LIB (cik pogodi zasto? :))) )! Da bi ti sve bilo malo jasnije evo ti jedan moj (trenutno u upotrebi) rmk pa ga malkice analiziraj, izmeni i iskoristi! Ljudi ja jos uvek ne nadjoh neki program za biblioteke :(((((((((( Hi! ----------------------------------------------------------- // // Dex.rmk // Make file za evkn program // // Copyright (c) 1992 Petrovic D. All rights reserved. // .prg.obj: CLIPPER $* /b EVKN.OBJ : EVKN.PRG FUNKCIJE.OBJ: FUNKCIJE.PRG MENU.OBJ: MENU.PRG KONTIRAJ.PRG PROCEDUR.OBJ: PROCEDUR.PRG IZVESTAJ.OBJ: IZVESTAJ.PRG BIBLDEX.PLL : FUNKCIJE.OBJ PROCEDUR.OBJ MENU.OBJ RTLINK/PRELINK OUT BIBLDEX FI MENU,FUNKCIJE,PROCEDUR LIB CLIPPER,EXTEND,CLD EVKN.EXE : EVKN.OBJ IZVESTAJ.OBJ DEX.RMK BIBLDEX.PLL RTLINK/PLL:BIBLDEX FI EVKN,IZVESTAJ,FLOPTST,ORIGIN LIB NANFOR
clipper.674 bdm., -> #667, yowo
## Kako se ubrzava linkovanje preko .pll i preko .plt fajlova ??? ## Nesto kod mene ne ide pa ne ide... Ni kod mene Kad hocu biblioteke da prepovezem javlja neke zezalice sa definicijama simbola. Zna li ko resenje? Linkovanje mi traje 40 sekundi a tlink nece da radi kod mene... :( BDM.
clipper.675 ppekovic, -> #673, d.petrovic
>> 2. Ako koristis nanfor biblioteku i neku od predefinisanih >> funkcija ne smes je strpati u *.PLL jer kasnije predefinisane >> funkcije nece raditi korektno (zbog ovog sam vec trazio >> ovde da mi neko nabavi LIB.EXE ali nigde dobre duse >> :)) )! Ja zaista nisam čuo ni za jedan LIB manager koji je PD ili SW. Ako je neko čuo, ili još bolje ako ima PD/SW LIB manager bilo bi lepo da podeli informaciju/program sa ostalima. Paya
clipper.676 ppekovic, -> #674, bdm.
>> a tlink nece da radi kod mene... :( Sa '87 verzijom su radili tlink 1.0 i 1.1 kao i 3.0 koliko se sećam. Za verziju 5.1 se nije našao bolji (pouzdaniji) linker od rtlink-a (?). Paya
clipper.678 dpaun,
Molim za rešenje u Clp5.01 sledećeg problema: čelim da "pozovem" na ažuriranje grupu izabranih slogova, čiji brojevi nisu sukcesivni. Ja sam to zasad rešio ovako: // (1) BrSlog = 0 č x,y SAY "Broj slogova za izmenu: " GET BrSlog READ // (2) DECL SlogŠ BrSlog Ć // (3) FOR j = 1 TO BrSlog č ROW()+1,y ... GET Broj READ SlogŠ j Ć = Broj NEXT // (4) USE Baza FOR j = 1 TO BrSlog GOTO SlogŠ j Ć // NEXT * Smeta mi korak (3) zbog toga što ne mogu da ispravljam greške koje uočim posle pritiska na ENTER. Kako se (ceo) ovaj problem može drukčije rešiti? Unapred hvala za svaku ideju. dPaun
clipper.679 ciki, -> #674, bdm.
Pa vidis kod mene Tlink 3.01 radi bez problema. Proveri da li si naveo sve biblioteke, i tacan put do njih. Ako ti treba posluacu ti moj BAT-ch fajl za Tlink. Pozdrav Ciki!
clipper.680 bdm., -> #679, ciki
## Proveri da li si naveo sve biblioteke, i tacan put do njih. ## Ako ti treba posluacu ti moj BAT-ch fajl za Tlink. Moze. Stos je sto kod stomic-a (a imamo sve isto) radi tlink 4.0 a kod mene nece pa se zezam sa rtlink-om a trenutno pisem kratke toolbox-ove pa me tih 35s ubijaju. BDM.
clipper.681 ciki, -> #680, bdm.
Vidis ovako. Tlink nece da radi ako si pored clipper-ovih lib. dodao jos neku( nanfor lib npr.),jer prijavljuje neku greskicu (memorija?). Inace moj batch ide nekako vako Clipper %1 /a/m/n Tlink %1,,,..ĐlibĐclipper+..ĐlibĐextend,... P.S. Moje programe radim recimo u diru Iks , tree daje -- IKS -- LIB -- OBJ ..., pa da ne bih pisao ono d:ĐclipperĐlibĐclipper+... ja stavim ..Đlib. Srecno ;)) Ciki!
clipper.682 kanda, -> #678, dpaun
>> Smeta mi korak (3) zbog toga što ne mogu da ispravljam greške koje >> uočim posle pritiska na ENTER. Kako se (ceo) ovaj problem može >> drukčije rešiti? Unapred hvala za svaku ideju. Probaj ovo - 'skrolujucci getovi'. Stvar je PD, sors je bogato komentarisan i valjda ces se snaci.
clipper.683 stomic, -> #681, ciki
$ ..., pa da ne bih pisao ono d:ĐclipperĐlibĐclipper+... ja $ stavim ..Đlib. Mogao bih i da koristiš /Lpath, tako da samo jednom navedeš put, posle samo stavljaš imean LIBova. ST.
clipper.684 mandrejevic,
Imam jedno trivailno pitanje jer nemam NG za Clipper 5.01 - Koja je sintaksa za @ red, kol GET var SEND ******* ? - Koja je sintaksa (parametri) funkcije ALERT(******) ? - Koja je sintaksa komande USE .dbf VIA ****** ? Unapred hvala dobroj dusi!
clipper.685 dpaun, -> #682, kanda
>>>> Smeta mi korak (3) >> >> Probaj ovo - 'skrolujucci getovi'. Stvar je PD, sors je bogato >> komentarisan i valjda ces se snaci. Materijal je prekomplikovan za moj stil programiranja "na uvce", ali mi je dao ideju kako mogu da rešim problem. Osnovno je: kako da "ni iz čega" kreiram onoliko varijabli koliko mi je potrebno na osnovu dodeljene vrednosti promenljivoj BrSlog. Kad sam malo pažljivije razmotrio taj deo aplikacije, shvatio sam da BrSlog iz praktičnih razloga ne treba da bude prekomerno veliki, bolje reći neodređeno veliki, pa sam ga ograničio na 30! Posle te odluke, sve je leglo na svoje mesto: LOCAL Broj1:=Broj2:=Broj3:= .... Broj30:=0 // (1) BrSlog = 0 č x,y SAY "Broj slogova za izmenu (najviše 30): " GET BrSlog ; VALID BrSlog < 31 READ // (3) FOR j = 1 TO BrSlog Broj := "Broj"+ALLTRIM(STR(j)) č ROW()+1,y ... GET &Broj NEXT j READ PS. I u primeru koji si priložio, problem broja varijabli je rešen na isti način: kreirano ih je 19, dakle ograničen broj. Hvala na pomoći. dPaun
clipper.686 bulaja, -> #684, mandrejevic
│- Koja je sintaksa za @ red, kol GET var SEND ******* ? └─── SEND? Nema toga ... │- Koja je sintaksa (parametri) funkcije ALERT(******) ? └─── ALERT() - Display a simple modal dialog box Syntax - ALERT( <cMessage> [, <aOptions] ) --> <nChoice> Arguments - <cMessage> defines a message shown centered in the alert box. If the message contains one or more semicolons, the text after the semicolons is centered on succeeding lines in the dialog box. <aOptions> defines a list of possible responses to the dialog box. Returns - ALERT() returns a numeric value indicating which option was chosen. If the Esc key is pressed, the value returned is zero. Description - The ALERT() function creates a simple modal dialog. It is useful in error handlers and other "pause" functions. The user can respond chosen by moving a highlight bar and pressing the Return or Space keys, or by pressing the key corresponding to the first letter of the option. If <aOptions> is not supplied, a single "Ok" option is presented. ALERT() is sensitive to the presence or absence of the Clipper full-screen I/O system. If the full-screen system is not present, ALERT() uses standard I/O to display the message and options tty-style. │- Koja je sintaksa komande USE .dbf VIA ****** ? └─── VIA <cDriver> defines the replaceable database driver (RDD) to use to process the current work area. <cDriver> is name of the RDD specified as a character expression. If <cDriver> is specified as a literal value, it must be enclosed in quotes. If the VIA clause is not specified, the DBFNTX driver is used by default. Note that if the specified driver is not linked, an unrecoverable error occurs. In no arguments are specified, the database file open in the current work area is closed.
clipper.687 mandrejevic, -> #686, bulaja
>││ - Koja je sintaksa za @ red, kol GET var SEND ******* ? >│└─── >│ SEND? Nema toga ... Kako nema; u STD.CH : *** * @..GET * #command @ <row>, <col> GET <var> ; [PICTURE <pic>] ; [VALID <valid>] ; [WHEN <when>] ; [SEND <msg>] ; ; => SetPos( <row>, <col> ) ; ; AAdd( ; GetList, ; _GET_( <var>, <(var)>, <pic>, <{valid}>, <{when}> ) ; ) ; [; ATail(GetList):<msg>] Inace mnogo ti hvala!
clipper.688 bulaja, -> #687, mandrejevic
││ SEND? Nema toga ... │└─── │Kako nema; u STD.CH : │*** │* @..GET │* │#command @ <row>, <col> GET <var> │ [PICTURE <pic>] │ [VALID <valid>] │ [WHEN <when>] │ [SEND <msg>] └─── Svasta :), u NG se @ .. GET .. SEND nigde ne spominje, a ne spominje se ni u originalnoj dokumentaciji (doduse, ona je za verziju 5.0)! Evo sta pise u NG za @..GET: @ <nRow>, <nCol> [SAY <exp> [PICTURE <cSayPicture>] [COLOR <cColorString>]] GET <idVar> [PICTURE <cGetPicture>] [COLOR <cColorString>] [WHEN <lPreCondition>] [RANGE* <dnLower>, <dnUpper>] | [VALID <lPostCondition>]
clipper.689 toma, -> #685, dpaun
■■>> LOCAL Broj1:=Broj2:=Broj3:= .... Broj30:=0 max_broj=30 for n=1 to 30 a="broj"+alltrim(str(n)) &a.=0 next n Tek da se zna... ─Ď─Í─ĚÍ┬ĚÍ─Ě đ Ë─ŻË ŻË~Ż
clipper.690 ciki, -> #683, stomic
Hvala na obaveštenju.Moraću da probam. Pozdrav Ciki!
clipper.691 ciki,
Ho! Imam par pitanjca. 1. Ako promenljivu ne deklarisem kao local,private,.. vec je odmah incializujem npr: ... local nBb:=1 vv:=2 ... kako je clipper deklarisao vv. 2. Zasto ovo nece da radi: COPY TO Baza1 FOR (alltrim(konto)==sifra) Dok ovo radi: IF alltrim(konto)==sifra. P.S. Ispred COPY i IF ide nesto kao sifra:=alltrim(sifra) Zasad toliko. Unapred hvala. Pozdrav Ciki!
clipper.692 dpaun, -> #689, toma
>> Tek da se zna... Nisam razumeo, al nema veze. Dok sam lupao glavu oko toga "šta je pisac hteo da kaže", sinula mi je ideja, te rešenje mog problema sada glasi: t = reccount() č .. get brz read .. decl brsŠbrzĆ for j=1 to brz brsŠjĆ=0 next for j=1 to brz č .. get brsŠjĆ //ovde bilo: valid (brsŠjĆ<t), ali to niće! next read dPaun
clipper.693 dpaun,
1. Jedan prijatelj se žali da mu Clp ne prevodi prg veći od 64 k? Da li je to moguće? Odnosno, da li ima ograničenje veličine prg? 2. U vezi grafike u Clp: može li se, u toku uobičajenog tekst moda, kreirati jedno prozorče pa tamo nešto izgrafikovati? A! 3. Da li je rad sa mišom u Clp programerski komplikovana rabota, i šta je od alatki potrebno. Hvala. dPaun
clipper.694 mandrejevic, -> #688, bulaja
>│ Svasta :), u NG se @ .. GET .. SEND nigde ne spominje, a >│ ne spominje se Malo da se pojasnimo: Iz STD.CH sam zakljucio da to treba da salje neku poruku i negde, tj. da vise nisu potrebne neke kerefeke sa VALID NekaFunkcija() koja ce izmedju ostalog i da posalje poruku ; pa sam probao: set message to 24 center ... @ 10, 10 say "Get1 : " get var1 color "w+/n" @ 12, 10 say "Get2 : " get var2 send "Poruka" ^^^^^^^^^^^^^ sto pravi Error C2001 Syntax error : 'Poruka' i kod komajlera i kod predprocesora; medjutim predprocesor ipak nesto uradi: DevPos( 10, 10 ) ; DevOut( "Get1 : " ) ; SetPos( Row(), Col()+1 ) ; AAdd( GetList, _GET_( var1, "var1",,, ) ) ; ATail(GetList):colorDisp("w+/n") DevPos( 12, 10 ) ; DevOut( "Get2 : " ) ; SetPos( Row(), Col()+1 ) ; AAdd( GetList, _GET_( var2, "var2",,, ) ); ATail(GetList):"Poruka" ^^^^^^^^^^^^^^^^^^^^^^ i na osnovu neke analogije ja postavim u surs.prg: DevPos( 10, 10 ) ; DevOut( "Get1 : " ) ; SetPos( Row(), Col()+1 ) ; AAdd( GetList, _GET_( var1, "var1",,, ) ) ; ATail(GetList):colorDisp("w+/n") DevPos( 12, 10 ) ; DevOut( "Get2 : " ) ; SetPos( Row(), Col()+1 ) ; AAdd( GetList, _GET_( var2, "var2",,, ) ); ATail(GetList):msg("Poruka") ^^^^^^^^^^^^^ sto se prevede bez problema ali zato ceka rantajm greska: Error BASE/1004 No exported method : msg. Cak sam probao i message, getmsg i slicno ali ne vredi, uvek javi istu gresku. Pretpostavka je da mozda idu i parametri za red i kolonu (tj. da ne vazi ono set message to 24 center) ali vise nisam imao zivaca. Pomagajte drugoviiii...
clipper.695 vili, -> #694, mandrejevic
> ATail(GetList):msg("Poruka") > žžžžžžžžžžžžž > sto se prevede bez problema ali zato ceka rantajm greska: > Error BASE/1004 No exported method : msg. Samo neki od "exportnih metoda" (exported methods) za GET objekt moze da se stavi iza SEND. Funkcija msg() to nije. PS. Exported methods for GET Class are: assign() end() backspace() colordisp() home() delleft(0 display() left() delright() killfocus() right() delwordleft() reset() todecpos() delwordright() setfocus() wordleft() undo() wordright() updatebuffer() insert() varget() overstrike() varput() Vili
clipper.696 mandrejevic, -> #695, vili
>│ Samo neki od "exportnih metoda" (exported methods) za GET >│ objekt moze da se stavi iza SEND. Funkcija msg() to nije. Ne tvrdim ni ja da jeste, samo imam neki osecaj da postoji neki metod koji nije dokumentovan, jer sto bi ga u STD.CH inace stavili ? Ovo je kod verzije 5.00 bila uobicajena pojava. I kao jos jedna potvrda da ovde ipak nesto smrdi je da kada se CLIPPER.LIB rasclani sa LIB dobija se izmedju ostalog : _GETMSG Offset: 0003b990H Code and data size: 80eH GETNEW __GETBADDA __GETBLOCK __GETBUFFE __GETCARGO __GETCLASS __GETDWLEF __GETEXITS __GETHASFO __GETNAME __GETORIGI __GETPICTU __GETPOSTB __GETPREBL __GETREADE __GETSETBL __GETSETBU __GETSETCA __GETSETEX __GETSETNA __GETSETPB __GETSETPI __GETSETPR __GETSETRE __GETSUBX __GETTODEC __GETUNDO
clipper.697 nbatocanin, -> #668, dvokshi
> No exported method / variable Eh, štos je u tome što novodefinisani objekti nisu definisani na isti način kao ugrađeni. Bolje sačekaj novu verziju Clipper-a.
clipper.698 nbatocanin, -> #663, ciki
> Dobro de nemoj se zestiti. Ja? :)
clipper.699 nbatocanin, -> #678, dpaun
Ako korisniku ne znači mnogo redni broj sloga, mogao bi da mu omogućiš interaktivni izbor slogova sa TBrowse: korisnik prvo selektuje slogove, a zatim se vrši obrada.
clipper.700 nbatocanin, -> #665, kanda
Sad baš nešto gledah GETSYS i videh da se sa SET KEY na INS radi posao koji GET sistem automatski radi. Kada se definiše INS kao f-taster, ta automatska funkcija ne radi! žini mi se da je najbolje njega promeniti pošto je ovu promenu potrebno trajno zapamtiti. Treba izmeniti proceduru ShowScoreboard. Pre RETURN-a treba staviti: SetCursor (IIF (Set(_SET_INSERT), 2, 1)) i problem je rešen!
clipper.701 ciki, -> #693, dpaun
>> Da li je rad sa mišom u Clp programerski komplikovana rabota, i >> šta je od alatki potrebno. Uzmi Nflib sa sezama. Rad sa misom moze i iz Graficke biblioteke CLIP_GR.ZIP isto sa sezama :). Sam rad nije tezak, ali najvecu komotnost pruza Flipper 5.0, pozdrav snowwhite-u. Pozdrav Ciki!
clipper.702 d.petrovic,
Bilo bi lepo da mi neko zakaci uputstvo za rad sa LIB.EXE. Problem je sto kad hocu da promenim onih 5 OBJ-a koji idu za bibliotekom nanfor (po uputstvo koje ide uz zakrpe npr. LIB NANFOR -+ FLOPTST;) on mi poizbacuje silu drugih funkcija (ne znam ni ja koje sve, tek biblioteka vise ne valja) koje ja nigde nisam pomenuo. Jel neko sredio tu biblioteku?
clipper.703 hercog, -> #693, dpaun
**> 1. Jedan prijatelj se žali da mu Clp ne prevodi prg **> veći od 64 k? Da li je to moguće? Odnosno, da li ima **> ograničenje veličine prg? Koliko ja znam nije. Malko smo se zezali pa smo napravili jedan malecki program od 350 kb i sve je radilo kako treba (prevođenje linkovanje itd) Hercog
clipper.704 dpaun, -> #699, nbatocanin
>> Ako korisniku ne znači mnogo redni broj sloga, mogao bi da mu >> omogućiš interaktivni izbor slogova sa TBrowse Verovatno da si u pravu kad su u pitanju slogovi sa uobičajenim tipovima podataka, ali moj primarni Clp materijal jesu tekstovi, odnosno memo. Ne znam kako bi to izgledalo preko TBrowse! Zgodna je prilika da još jednom priupitam - ima li još koga ovde koji se bavi tekstualnim bazama podataka? dPaun
clipper.705 dpaun, -> #687, mandrejevic
>>>│ SEND? Nema toga ... >> Kako nema; u STD.CH : Evo još jednog primera SEND-a iz STD.CH: // č..GET COLOR #command č <row>, <col> GET <var> ; Š<clauses,...>Ć ; COLOR <color> ; Š<moreClauses,...>Ć ; ; => č <row>, <col> GET <var> ; Š<clauses>Ć ; SEND colorDisp(<color>) ; Š<moreClauses>Ć dPaun.ch
clipper.706 hercog, -> #702, d.petrovic
**> Jel neko sredio tu biblioteku? Ja sam to uradio sa TLIB programom iz Turboassemblera (ili beše debugera) Hercog
clipper.707 ciki, -> #702, d.petrovic
Ho! Sacekaj da prevedem uputstvo koje se dobije kao fajl QuickHelp uz MASM 6.0 pa cu ga nakaciti tebi u MAIL Pozdrav Ciki!
clipper.708 ciki, -> #702, d.petrovic
Ho! Posle celih 300s evo prevoda uputstva za LIB.EXE jer si ti to trazio d.petrovic-u.Ocekujem pice za ovo i za ono pre ;))))) Pozdrav Ciki! lib.arj
clipper.709 yowo,
Mozda nekom ovo i pomogne. (radi se o koriscenju prelink datoteka) Recimo da se program sastoji iz dva modula (m1.prg i m2.prg). Prvi module se prevodi normalno i kada je potpuno gotov napravi se sledeci .lnk fajl. /PRELINK FI m1 Drugi modul se linkuje na sledeci nacin CLIPPER čm2HHHHHHHH (podrazumavam da se radi sa .clp fajlovima) RTLINK FI M1 FI M2 OUT M1 /PLL:M1 (ovo traje oko 5s na 386 DX 33Mhz umesto 20s sa klasicnim linkovanjem) Mozda ovo nekom izgleda smesno, ali ja sam se preporodio !!! Za Darling & Co: Srdjan Gajic
clipper.710 yowo,
P.S. Zaboravih da pitam. Jel' neko moze da mi objasni kako da od clipper.lib napravim prelink datoteku. Uvek mi javi da neki simbol nije definisan i stane (nije nijedan od onih koje je Rick Spence naveo u svojoj knjizi). Od prilike je nesto kao __START__SYM.
clipper.711 d.petrovic, -> #710, yowo
To valjda mora tako !????? To ce ti se samo uglaviti u exe fajl (jel negde oko 17K ?), vidis valjda da tad ne prijavljuje gresku. Hi!
clipper.712 dpaun, -> #693, dpaun
Pošto je ostalo bez odgovora, ponavljam ovo pitanje od ranije. >> 2. U vezi grafike u Clp: može li se, u toku uobičajenog tekst >> moda, kreirati jedno prozorče pa tamo nešto izgrafikovati? A! Molim znalce za komentar. Reč je o prestižu Sezama; toliko sam ga nahvalio prijatelju da je ovo poduže ćutanje kontraproduktivno. dPaun.--
clipper.713 ppekovic, -> #712, dpaun
>> >> 2. U vezi grafike u Clp: može li se, u toku uobičajenog te >> >> moda, kreirati jedno prozorče pa tamo nešto izgrafikovati? Nemože, ali ne zbog clipper-a već zbog samog pc-a, jer na pc-u nemožeš u tekst modu mešati grafiku. Ipak, ako mu je baš stalo da tako nešto uradi, može da proba sledeće: Neka isčita tekuće definicije fontova, pa neka krene redom da čita video memeoriju i kreira bitmap sliku negde u memoriji. Zatim lepo prebaci karticu u grafički mod i onda baci kreiranu bitmap sliku u video mem. Posle nek crta šta hoće. Paya
clipper.714 dejanr, -> #712, dpaun
>> 2. U vezi grafike u Clp: može li se, u toku uobičajenog tekst >> moda, kreirati jedno prozorče pa tamo nešto izgrafikovati? A! Ne može, koliko znam. Clipper radi samo u tekst modu.