clipper.519whitie,
-> #515, kajko> Kako da nateram softverski LX-300 da predje na 852 kodnu stranu ?
Skoro sam u ovom konfu dao odgovor, ali mi je Sezam "pojeo" ESC-karakter,
pa da ponovim:
Assign Character Table ESC ( t 0 d1 d2 d3
Asign Character table set with d2 and d3 to table d1; d1=0,1,48 or 49
CP 437 850 852 855 866 ?
Opis USA Multi East Ciryll Russ Bulg
d2 1 3 10 6 14 32 ... itd
d3 0 0 0 0 0 0
Posle toga ide jos i:
Select Character Table ESC t n
Select Character Table n assigned by ESC ( t
Ovde n odgovara d1 u predhodnoj komandi. Obe komande su u sastavu Epson
ESC/P 2 printer kontrol lengridz-a. Mozes takodje koristiti i Tomil-ov savet
a izvodljivo je i setovanje -> drzis FONT dugme pri ukljucivanju, pa izaberes
jezik, pa tabelu F (4. od vrha), pa najzad konkretnu CP.
clipper.520kajko,
U vezi LX-300 i 852 strane...
Hvala svima na opsirnim odgovorima,
sve isprobano i ...
nista ne radi.
Ili sam ja nesposoban ili ne znam sta je...
Inace, probao sam hardverski i uspelo je, ali mi u
odredjenim trenutcima treba i normalna strana.
Zna li neko sta moze da bude ?
Inace, kodove sam probao i decimalno i HEX.
Moze li neko d mi napise tacno kako ide ?
Npr. Chr(27) + Chr(.....
Hvala svima...
clipper.521tomil,
-> #520, kajko> Inace, kodove sam probao i decimalno i HEX.
> Moze li neko d mi napise tacno kako ide ?
> Npr. Chr(27) + Chr(.....
Probaj sledeće, možda će ti pomoći:
**************************************************
PROC Main()
LOCAL n, cNasaSlova:=""
//
//Naša slova (ŠšĐđČčĆ掞) po CP852
/*
cNasaSlova:=CHR(230)+CHR(231)+CHR(209)+CHR(208) + ;
CHR(172)+CHR(159)+CHR(143)+CHR(134) + ;
CHR(166)+CHR(167)
*/
//
FOR n=32 TO 255
cNasaSlova:=cNasaSlova+CHR(n)
NEXT n
//
SET PRINTER ON
SET CONSOLE OFF
?? CHR(27)+CHR(40) //Reset printera
FOR n=0 TO 255
?? CHR(27)+"R"+CHR(n) //Promeni internac. kod
?
? "Internacionalni kod = "+ ALLTRIM(STR(n))
? cNasaSlova // ŠšĐđČčĆ掞 - treba da se vide naša slova
?
NEXT n
SET PRINTER OFF
SET CONSOLE ON
CLOSE
QUIT
**************************************************
clipper.522whitie,
-> #521, tomil> FOR n=0 TO 255
> ?? CHR(27)+"R"+CHR(n) //Promeni internac. kod
> ?
> ? "Internacionalni kod = "+ ALLTRIM(STR(n))
> ? cNasaSlova // SsDdCcCcZz - treba da se vide nasa slova
> ?
> NEXT n
Malo si preterao! n moze od 0 do 12.
A menja se defenicija samo ca karaktereza 23, 24, 40, 5B, 5C, 5D, 5E,
60, 7B, 7C, 7D i 7E.
clipper.523whitie,
-> #519, whitie Okej, idemo opet. Posalji fajl 855.prn na stampu sa copy /b. Treba da
ti se pojavi tabela 0 (italik), pre i posle definicije CP855. Ako nije tako,
ne krivi kliper i stampac. Nesto si zeznuo sa kaptiranjem, spulerom ili sl.
> Assign Character Table ESC ( t 3 0 d1 d2 d3
> Asign Character table set with d2 and d3 to table d1; d1=0,1,48 or 49
>
> CP 437 850 852 855 866 ?
> Opis USA Multi East Ciryll Russ Bulg
> d2 1 3 10 6 14 32
> d3 0 0 0 0 0 0
Dakle CHR(27)+CHR(40)+CHR(116)+CHR(3)+CHR(0)+CHR(48)+CHR(6)+CHR(0)
sto je: ESC ( t 3 0 d1 d2 d3
gde je d1=0 tabela 0, bila italik;
d2 i d3 konstante iz gornje tablice za CP855
> Posle toga ide jos i:
>
> Select Character Table ESC t n
> Select Character Table n assigned by ESC ( t
Ili CHR(27)+CHR(116)+CHR(48) za tabelu 0 -> cirilica odnosno
CHR(27)+CHR(116)+CHR(49) za tabelu 1 -> klasika CP437, nepromenjeno.
S'obzirom da se menja samo gornja polovina tabele, svaka tabela u donjoj
polovini sadrzi i CP437.
Najzad, fajl 855.prn je odstampan pre slanja i sigurno je ok. Primer je
uradjen za CP855 jer se CHR(10) ne vidi editorom i vrlo je tezak za kapiranje
kao primer. Inace stvar radi i sa CP852.!
Pozdrav. _ I ne prebacuj stampac u graficki mod. _
855.prnclipper.524biki,
Da li neko zna gde i kao se legalno moze kupiti FiveWin 1.92.
clipper.525jolicm,
Kakvi su Clip4Win i FiveWin.
Koju mašinu zahtevaju, za razvoj i korisničku ?
Kolika im je instalacija ...
clipper.526arazumenic,
-> #525, jolicm> Kakvi su Clip4Win i FiveWin.
> Koju masinu zahtevaju, za razvoj i korisnicku ?
> Kolika im je instalacija ...
Sto se tice Clip4Win, dovoljna mu je bilo koja masina na kojoj radi Windows.
Sama instalacija oduzme 10,5 Mb, ali ima dosta fajlova, tako da slack moze da
oduzme jos dosta prostora.
clipper.527mmarkovic,
Koji bi program, ili dodatak Clipperu, mogao da se koristi
za stampanje bar kodova "3 od 9" iz Clipper aplikacije.
Ima li tako nešto na Sezamu?
clipper.528jitka,
PgUp4 sezam.c
clipper.529jitka,
IMAM PROBLEM -
Aplikacija u Clipperu 5.01 koja nekoliko godina radi bez problema
pod DOS-om 3.3 do 6.2 javlja grešku na mašinama koje se podižu pod
WIN95 i tek onda prelaze u DOS.
greška glasi :
OPEN ERROR
POP.DBF (DOS GREŠKA 32)
POZVANA OD DBUSEAREA(0)
i vezana je za deo programa
USE pop ALIAS pop1 INDEX pop11 NEW
USE pop ALIAS pop2 INDEX pop12 NEW
Dali je moguće da taj DOS nepodnosi Alias_ime? Mogu li rješiti problem
ako promjenim nekakve parametre, setovanje i sl.?
U prevravku programa se mi ne ulazi pošto je source ogroman i može se
pojaviti nova greška ko zna gde i kada.
Imate rješenje? Unapred hvala.
P.S.
Nepomaže ni USE pop INDEX pop11 NEW ALIAS pop1
USE pop INDEX pop12 NEW ALIAS pop2
Imam privremeno rješenje pomoću startne diskete sa DOS 6.2 (znam, nije lepo).
Ali kod zadnjeg korisnika ni to ne pomaže. Sistem se lepo digne sa diskete i
kad otkucam C: javi se INVALID DRIVE SPECIFICATION. (Disketa je ispravna).
clipper.530mmarkovic,
-> #529, jitka> OPEN ERROR
> POP.DBF (DOS GREŠKA 32)
> POZVANA OD DBUSEAREA(0)
NG kaže DOS greška 32 - sharing violation...
> USE pop ALIAS pop1 INDEX pop11 NEW
> USE pop ALIAS pop2 INDEX pop12 NEW
Fali ti klauzula SHARED ...
clipper.531jitka,
Radi - Markoviću hvala.
clipper.533livan,
Ima li ko iskustva u radu sa bar-kod čitačima?
Trebao bih da prepravim jedan svoj stari program (za video klub) tako da
može da radi sa bar-kodom.
Interesantno bi mi bilo sve što znate na tu temu. Počev od hardvera, koji,
gde i pošto se može naći, pa do povezivanja sa clipper programom.
clipper.534kenza,
-> #533, livan>> Ima li ko iskustva u radu sa bar-kod citacima?
Ja sam svojevremeno trebao da pisem neku bazu, pa sam se malo raspitivao. U
principu je najvaznije da se bar-kod citac(barem ona sapa) vezuje zajedno
sa tastaturom i radi preko njenog bafera. Sad, tako su mi rekli ali ja
nisam imao nikakvog prakticnog iskustva s tim... Ajde bas probaj pa mi
javi, OK?
clipper.535gcurcic,
-> #533, livan> Ima li ko iskustva u radu sa bar-kod čitačima?
Trenutno kod jednog pacijenta arče neki nemački čitač.
Princip je prost: spravica se povezuje između tastature i compa i ono što
pročita, comp shvata kao uneto sa tastature. Sve funkcioniše pouzdano.
Ne treba mu nikakav drajver (ne troši memoriju), napaja se sa džeka za
tastaturu, a podešava se iz neke knjižice sa bar kodovima (zezalice tipa
"da li da po pročitanom kodu compu bude prosleđen i CR" i slično).
Sa programerske tačke, u bazi artikala treba obezbediti jedno polje širine
13 za šifru artikla. Naravno, nemaju svi artikli bar kod, a i oni koji imaju
ponekad kao da i nemaju (jel neko uspeo da pročita bar kod sa Štarkove krem
banane?). Takođe, postoji više standarda za bar kod. Najrašireniji je
13-cifreni. Sastoji se od (ako me sećanje služi) šifre zemlje (3 cifre),
proizvođača (5), artikla (4) i kontrolne cifre po mod 11. NE TREBA vršiti
logičku kontrolu po kontrolnoj cifri, zato što postoji more standarda, a
i zbog artikala koji nemaju svoj bar kod (hleb, sve u rinfuzu itd) i kojima
će korisnik izmisliti šifru.
Jedan ortak je ovako "doradio" svoju aplikaciju:
pošto je program već duže vreme u upotrebi i artikli su prešifrirani davno
pre nego što su dobili čitač, bilo je glupo postojeće šifre artikala menjati
bar kodovima, posebno zato što su nekim artiklima (motorna ulja) od više
proizvođača ranije dodeljene jedinstvene šifre. Drugi razlog je što se računi
štampaju na POS štampaču i što je gazda insistirao da na istima bude odštam-
pana puna šifra artikla, puni naziv, jedinica mere, količina, cena i vrednost.
Red na POS štampaču je širine 40 znakova, a tu je uleteo i POS displej sa po
20 znakova u dva reda, radi sexy efekta.
Zato je mučenik uveo još jedno polje za bar kod. Pri unošenju šifre od strane
prodavca, ista se prvo potraži među bar kodovima, pa ako se ne nađe, onda se
pretraga obavi među prvobitnim šiframa. Na POS štampaču se ne printa njegov bar
kod, već glavna šifra (zato što je njena dužina 5).
Kod unosa, prodavac prinese čitač na najviše 1,5 cm od koda na artiklu,
pritisne
dugme, a iz odgovarajuće baze se pročitaju relevantni podaci (naziv, j.m.,
cena)
i izbace na displej za mušteriju. Nezgoda je bila što onda treba da unese
količinu i pritisne Enter. Žongleraj. To smo rešili tako što smo načinili tablu
sa bar kodovima za brojeve od 1 do 20. Dovoljno je da, po unosu šifre, trgovac
čitačem pročita količinu sa te tabele.
Uzgred, formirali smo i tabelu za artikle koji nemaju bar kod, sa izmišljenim
šiframa. To će ti verovatno trebati kad budeš pravio šifarnik za video klub.
Neki matrični štampači (stari Fujitsu DX2200) mogu da štampaju bar kod, a
može se i iz Wina štampati na bilo kakvom štampaču uz upotrebu posebnog fonta.
clipper.536mmarkovic,
-> #535, gcurcic> Princip je prost: spravica se povezuje između tastature i compa i ono
> što pročita, comp shvata kao uneto sa tastature. Sve funkcioniše
> pouzdano.
Kažem ja, najbolje je kad ja prosto!
> Neki matrični štampači (stari Fujitsu DX2200) mogu da štampaju bar kod,
> a može se i iz Wina štampati na bilo kakvom štampaču uz upotrebu posebnog
> fonta.
Možeš li da okačiš taj font ?
clipper.537livan,
-> #535, gcurcic-> Neki matrični štampači (stari Fujitsu DX2200) mogu da štampaju bar kod,
-> a može se i iz Wina štampati na bilo kakvom štampaču uz upotrebu
-> posebnog fonta.
Imaš li možda te fontove za štampu iz Win-a, ili još bolje neko programče
koje generiše neku sličicu sa bar-kod šarom.
Ovaj moj "pacijent" hoće da u štampariji naruči par hiljada kartica za
članove sa odštampanim petocifrenim bar-kodom. Za sada neće da lepi bar-kod
i na kasete, ali poznajući ga, mislim da će mu i to dunuti za mesec dva.
Pa rekoh, mogao bih mu ja to pripremiti za štampu ako već nije neki problem.
clipper.538banga,
-> #536, mmarkovic>> Neki matrični štampači (stari Fujitsu DX2200) mogu da štampaju
>> bar kod, a može se i iz Wina štampati na bilo kakvom štampaču
>> uz upotrebu posebnog
> Možeš li da okačiš taj font ?
Evo pronašao sam neki 3 od 9
bcodettf.zipclipper.539mmarkovic,
-> #538, banga> > Možeš li da okačiš taj font ?
>
> Evo pronašao sam neki 3 od 9
Xvala, mada sam tražio za svaki slučaj. Zatrebace mi nekad,
sigurno, a vidim ima još interesenata.
clipper.540livan,
-> #538, banga-> Evo pronašao sam neki 3 od 9
Baš lepo radi. To je ono što mi treba.
Hvala!
clipper.541vule.,
Nedavno sam nabavio Clipper ali ne mogu da napravim nijedan EXE fajl.
Linker prijavljuje sledece:
-------------------------------------- - - - - - - - - - - - - - - -
.RTLink for Clipper Dynamic Overlay Linker / Pre-Linker Version
3.14B
(C) Copyright Pocket Soft Inc., 1988-1991. All Rights Reserved.
Input Parsing Error. Caret (^) shows portion of line read when error
discovered.
box.obj
^
- - ------------------ - - - - - - - - ------- - - - - - - - - - - -
U cemu je stvar ?
Hvala
clipper.542mmarkovic,
-> #541, vule.> Nedavno sam nabavio Clipper ali ne mogu da napravim nijedan EXE fajl.
> Linker prijavljuje sledece:
Verovatno ispuštaš FILE klauzulu. Sintaksa je:
RTLINK FILE f1,f2,... LIB l1,l2,...
-------------
ne mora ako se koriste samo standardne biblioteke
Dakle:
RTLINK FILE f1,box
i dobiješ F1.EXE
clipper.543vule.,
Napravio sam .EXE fajlove ali oni nista NE RADE. samo se startuje
i odmah izadje bez prijave o gresci ili tako nesto...
O cemu se radi ?
Da posaljem neki primer takvog EXE fajla ?
HVALA unapred !
clipper.544suki,
-> #543, vule.» Napravio sam .EXE fajlove ali oni nista NE RADE. samo se startuje
» i odmah izadje bez prijave o gresci ili tako nesto...
Bolje bi bilo da posaljes sors kod programa (ako nije prevelik) ili da
debagujes svoj program, pa tako vidis gde ti je greska.
Pozdrav Suad.
clipper.545jolicm,
-> #543, vule.>Neće .EXE da radi ništa ....
Verovatno si kompajlirao sa opcijom /M, a nemaš funkciju ili
proceduru "MAIN"
U stvari siguran sam da je to.
clipper.546sasab,
-> #544, suki
> » Napravio sam .EXE fajlove ali oni nista NE RADE. samo se startuje
> » i odmah izadje bez prijave o gresci ili tako nesto...
>
> Bolje bi bilo da posaljes sors kod programa (ako nije prevelik) ili da
> debagujes svoj program, pa tako vidis gde ti je greska.
clipper <source> /m /n
+- obrati pa`nju na ovaj swič ako imaš f-ju/proc
Main() u glavnom modulu.
clipper.547livan,
-> #543, vule.-> Da posaljem neki primer takvog EXE fajla ?
Pošalji source, kraće je.
clipper.548vule.,
-> #547, livan│ Pošalji source, kraće je.
└────────────────────────────────────
Ma BOKIR mi je pomogao, ali HVALA...
clipper.549jolicm,
Ima li neko od Vas FLIPPER 6.0 ili noviju biblioteku ...
clipper.550jolicm,
MOLBA ...
Da li neko od Vas ima grafičku biblioteku za clipper pod nazivom
FLIPPER i koju verziju.
Stvar mi je prilično hitna.
clipper.551jolicm,
Dal je neko od Vas radio sa Clipper 5.2 + Flipper 6.03 ??
Kod mene neće da se setuje rad u 800*600.
Imam S3 trio 64V+.
Da li je neko naterao rad u 800*600 i kako ?
clipper.552kajko,
Treba mi neko ko zna da skine zastitu HardLock.
Naime, preko firme smo kupili izvestan software, a ja
bi zeleo da ga instaliram kod kuce. Kontaktirao sam
i distributera, ali oni kazu da dolazi u obzir samo
da ga ponovo kupim za kucnu upotrebu. (2000 DM :) )
Program je inace za Win95, i staje na 4 (cetiri) HD
diskete (1.44).
Ukoliko je to ne predstavlja problem, moze li neko da mi
objasni na Mail kako se to radi.
Unapred zahvalan,
KAJKOŽsezam.co.yu
clipper.553jolicm,
Ko se od Vas služi BLinkerom ?
Treba mi hitna pomoć u vidu mail-a :)
clipper.554milpaun,
da li neko hice da mi kaze pod kojim uslovima radi onaj five win,odnosno da li
hoce da radi pod win 3.11 i na masini 386.Pretpostavljate da ove uslove ja
imam.Imam ja ,medjutim, jos jedan problem: ja zivim u Paracinu i imam modem
2400 pa kad bih poceo sa sezama da skidam taj clipper to bi iznelo sigurno
jedno 300 din racuna.Iz ovih razloga molim sve vas koji imate skinut ovaj
program i voljni ste da mi ga date da mi se javite na mail kako bi se
dogovorili oko preuzimanja.Puno vam hvala
clipper.556sjocic,
Nemam nikakva iskustva u programiranju sa Clipper-om, i za sad
samo jedno pitanje: kako kompajlirati program koji se sastoji
iz gomile *.prg fajlova. Dakle, kako dobiti Obj fajlove, kako
to linkovati i dobiti EXE ?
Clipper je 5.2 (ide na 2 diskete) i nemam nista od dodataka.
clipper.557livan,
Problem je u sledećem:
Redovno se dešava da program linkovan sa CA Tools bibliotekom neće da radi
na mašinama sa Cyrix procesorima bez obzira na model procesora i ploče.
Odmah po startovanju prijavi grešku "Divide by zero". Isti program radi bez
problema sa Intelovim i AMD procesorima.
Ima li neko rešenje?
clipper.558livan,
-> #556, sjocic-> Nemam nikakva iskustva u programiranju sa Clipper-om, i za sad
-> samo jedno pitanje: kako kompajlirati program koji se sastoji
-> iz gomile *.prg fajlova. Dakle, kako dobiti Obj fajlove, kako
-> to linkovati i dobiti EXE ?
Uf! Ajde da malo uprostimo pa da krenemo samo od jednog PRG fajla, npr.
TEST.PRG. Kompajliraš ga sa 'clipper test', a linkuješ sa 'rtlink fi test'.
Ako imaš više programskih fajlova možeš svaki od njih kompajlirati posebno
uz dodavanje opcije /m iza imena fajla, a onda sve to linkovati tako što
navedeš listu svih OBJ fajlova 'rtlink fi test,upit,stampa' ili napraviš jedan
LNK fajl - file.lnk u kome navedeš sve te OBJ fajlove jedan ispod drugog a
ispred svakog dodaš 'file':
file test
file upit
file stampa
i onda samo kucaš 'rtlink Žfile.lnk'.
Ako koristiš i neku biblioteku koja nije Clipper-ova, onda je moraš spomenuti
u tom LNK fajlu i to na kraju a ispred njenog imena dodaš 'lib', npr.
lib nanfor. Ako linkuješ ručno onda 'rtlink fi test,upit,stampa lib nanfor'.
Ako se u modulima (prg fajlovima) javljaju procedure istog imena kao i modul,
pri kompajliranju treba navesti opciju /n.
Da bi se program mogao debagovati (cld - Clipper Debugger) treba navesti i
opciju /b.
Zgodno je, prilikom kompajliranja, navesti i opciju /w jer tada kompajler
prijavljuje warning-e.
Dosta za početak. Čitaj NG, a toplo ti preporučujem da nabaviš patch za
Clipper 5.2d ili 5.2e i da umesto rtlink-a koristiš blinker.
Ako ti ovo ne pomogne, pošalji mi to na mail pa ćemo videti šta s tim.
clipper.559posejdon,
Uputite me na literaturu, bilo šta, gde bi mogao da pročitam nešto o
korišćenju SIx-ova (npr. svi brojevi Računara u kojima je pisano o SIx).
clipper.560jolicm,
Nije za ovu konferenciju, ali kad je muka ...
KAKO DA DOBIJEM NAŠA SLOVA NA HP 6L ???
clipper.561livan,
-> #560, jolicm-> Nije za ovu konferenciju, ali kad je muka ...
-> KAKO DA DOBIJEM NAŠA SLOVA NA HP 6L ???
Pretpostavljam da ti treba štampanje iz nekog DOS programa, verovatno
Clipper programa. U tom slučaju, prvo promeni kodnu stranu štampača u
CP852. To se može uraditi slanjem ESC sekvence pre teksta za štampanje.
Nemam pri ruci knjigu za HPLJ 6L pa ti ne mogu reći tačno, ali ako ne
nađeš javi pa ću potražiti. Drugi korak jeste da izvedeš da ti program
šalje tekst na štampu po istom, CP852, rasporedu. Ako na to ne možeš
uticati, skini sa Sezama prnconv.zip ili neki sličan program koji vrši
konverziju u letu. Na taj način možeš štampati naša slova bez obzira
na raspored koji se koristi u programu, bitno je samo da ih
konvertuješ pri štampi u CP852.
Evo ti dva ta konvertora.
konvert.zipclipper.562pesnik,
Hi!
Pre nekoliko dana ostavih poruku u 'pchard:laseri' da ne
mogu da setujem 5L. Posle kratkog delirijuma, uzeo sam
shareware koji to radi, debagovao, i nasao sta
se prosledjuje stampacu (nisam imao tech reference manual,
pa sam morao da trazim tako :), a zatim napisao kratak
.COM u asm-u. Btw, programchich ne kontrolishe stampac i
ne prijavljuje greske (dovoljno za 130 bajtova :).
Ako neko ima bolju ideju - odlicno.
Da, uz CP852, postavlja se Courier font (po defaultu).
Napomena: Program je isproban samo na HP LaserJet 5L, pa
ne znam kako funkcionise na drugim serijama.
Btw, uputstva koja se dobivaju uz HP stampace su veoma
lose pisana; ima par osnovnih ESC sekvenci za postavljanje
strane u portrait ili landscape mod i jos neke gluposti.
Da, primetio sam, na kraju uputstva, stoji napomena:
'This appendix is not intended to provide a complete set
of printer commands. An in-depth Technical Reference
manual set may be purchased separately.'
"""""""""""""""""""""""""""
Sta jos da kazem :(.
Inache, trazio sam po shinternetu nesto o PCL-u, medjutim
ono sta ima je ili iz '88, ili se placa info.
Pozdrav,
Marko alias Pesnik
yucp5l.comclipper.563emajsijuen,
Jel zna neko kako se pravi funkcija za citanje serijskog broja diska ? Inace,
je ne programiram u clipperu i nemam veze sa istim, a ovo pitanje je od jednog
ortaka. Heeeelpppp... :)
Pozdrav, Vlada...
clipper.564pesnik,
-> #563, emajsijuen>> Jel zna neko kako se pravi funkcija za citanje serijskog
>> broja diska ? Inace, je ne programiram u clipperu i nemam
>> veze sa istim, a ovo pitanje je od jednog ortaka.
Ovako...Sam Clipper nema funkciju za citanje serijskog broja
diska. Istu je najbolje napraviti u ASM-u, koristeci DOSovu
nedokumentovanu funkciju 69h;
mov ah, 069 ; DOS Fn 69h / GetSet disk serial no
xor al, al ; citamo serial (AL = 0)
xor bl, bl ; default disk (BL = 0)
int 021 ; call dos
...
Posle izvrsenja, citamo DoubleWord sa ds:[dx+2], koji ujedno
predstavlja serijski broj. Dalje se igramo sa konvertovanjem
BCD to ASCII ili slicno. Medjutim, mislim da sam povredio
granice ove confe :).
Drugi nacin...programerski veoma nekorektan, ali funkcionise
i dobija se koristeci samo Clipper funkcije. Stvar se sastoji
u sledecem: - preusmeriti DOS komandu 'VOL' u fajl, i sa
odredjenih koordinata procitati serial number.
Recimo ovako:
-------------- CUT HERE ----------------
LOCAL disk_id := "1111-AAAA", ; && Serijski broj zadan u programu
red := 3, ; && Red u 'opis.tmp' u kom je Serial
kolona := 26, ; && Kolona - || -
tekst, ; && Ovde ide sadrzaj fajla
tekst_red, ; && Sadrzaj reda odredjenog
; && varijablom 'red'
ctrlnum && Kontrolni Serial za poredjenje
RUN vol > opis.tmp
tekst := Memoread( "Opis.tmp") && Citamo fajl 'Opis.tmp'
tekst_red := MemoLine( tekst, 79, red) && Citamo kompletan red
// Sad citamo 9 znakova sa koordinate red, kolona == Serial
ctrlnum := Substr( tekst_red, kolona, 9)
If ctrlnum != disk_id
? 'Serijski brojevi nisu isti!'
Else
? 'Serijski brojevi su isti.'
Endif
Erase Opis.tmp
Release all
Quit
-------------- CUT HERE ----------------
Kao sto rekoh, ovo je primer programa tipa 'po svaku cenu' i
zavisi od verzije DOSa, medjutim koristan je za pocetnike i ljude
koji ne vole ASM. S druge strane, u slucaju da 'gazde' promene
kolonu ili red na kom se ispisuje serial, mora da se menja i
source. Zato bi predlozio da se ovo ipak odradi u ASM-u. S trece
strane, DOS fn 69h jeste jelte...nedokumentovana, i najbolje je da
se odustane od svega. :)
poz,
Marko alias Pesnik
clipper.565emajsijuen,
-> #564, pesnik│ Ovako...Sam Clipper nema funkciju za citanje serijskog broja
│ diska. Istu je najbolje napraviti u ASM-u, koristeci DOSovu
│ nedokumentovanu funkciju 69h;
└────────────────────────────────────────────────
Ma znam ja to da napravim u pascalu (preko asm-a). Ortaku to treba bas u
clipper-u. Kaze da bi mu pomogao i neki .obj fajl. Ima li neko tako nesto ?
Pozdrav, Vlada...
clipper.566kojai,
-> #565, emajsijuen>> Ma znam ja to da napravim u pascalu (preko asm-a). Ortaku to treba bas u
>> clipper-u. Kaze da bi mu pomogao i neki .obj fajl. Ima li neko tako nesto ?
Pa uradi program u assembleru pa ga iskompajliraj sa tasm.exe u obj...
clipper.567pesnik,
-> #566, kojai* >> Ma znam ja to da napravim u pascalu (preko asm-a). Ortaku to
* >> treba bas u clipper-u. Kaze da bi mu pomogao i neki .obj fajl.
* >> Ima li neko tako nesto ?
*
* Pa uradi program u assembleru pa ga iskompajliraj sa tasm.exe u obj...
Tacno...samo tu mogu da se pojave problemi oko komunikacije
Clipper-a sa navedenim .obj. Drugim recima, treba da se poznaju
interne Clipper f-je, (kako se pomera stack pointer, gde su
parametri i ostale djidjamidje). Najbolje je da covek pretrazi
literaturu, jer ovde nema dovoljno prostora za sve to :).
Btw, ako budem imao vremena...napravicu .obj. U poslednje vreme
sam nesto van forme (citaj nemam vremena), pa ne znam kad bi isti
mogao da bude gotov. Inace, sam serial treba da se koristi zajedno
sa ostalim sredstvima za zastitu programa (ako je to u pitanju)
jer sam ne predstavlja veliki problem krekerima. :)
poz,
Marko alias Pesnik
clipper.569pesnik,
Evo...nesto mi djavo nije dao Miru...ovaj...mira, pa
sedoh i napisah programcic u ASM-u za uporedjivanje serijskog
broja aktivnog diska sa nekim, zadatim, kao i jednostavno
citanje istog. Izvinite zbog lupetanja u 'read.me'...ali to je
nesto sto mi je pre neko vreme donelo gadne neprilike
(mislim...neposedovanje istog). :)
poz,
Marko alias Pesnik
serialno.arjclipper.570sjocic,
Koju bi knjigu preporucili za ucenje Clipper-a?
Ne neko silno teoretisanje, vec primena kroz primere.
clipper.571kostja,
-> #570, sjocic=> Koju bi knjigu preporucili za ucenje Clipper-a?
=> Ne neko silno teoretisanje, vec primena kroz primere.
Za svagda i zanavjek: Rick Spence "Clipper 5 - Vodič
za programere" izdanje Mikro Knjige.
clipper.572jolicm,
Zdravo.
Rešio sam da predjem na CLIP4WIN.
Instalirao sam ga, podesio staze i set naredbe ...
ali na samom startu videh u primerima da traži neki RC.EXE,
kaže da je to resource compiler ...
Pitanje i molba: da li neko od Vas ima taj RC.exe i ako ga ima odmah i
velika molba !!!.
Da li će mi još koji alat trebati ... ?
Uopšte kakva su iskustva sa CLIP4WIN ...
šta je sve potrebno osim exe ffajla prebaciti na korisničku mašinu ...
clipper.573jolicm,
Ajde ljudi ko ima 16 bitni resourse kompajler. Treba mi zbog Clip4Win.
Velika molba pa na mail.
clipper.574drbuca,
a lis neko zna da mik kaze zasto mi ispisuje procesor stack fault u
sred zivrsavanja programa.Ako neko zna molim neka mi dogori!!!!!!
clipper.575udav,
Mnogo cesto se gubi memorija pri izvrsavanju programa,i prikazije
greska processor stack fault ili uncoverable error 650.Molim vas
recite mi kako ovo da popravim
p.s.
(ova adresa je pozajmljena)
clipper.576pesnik,
>> Mnogo cesto se gubi memorija pri izvrsavanju programa,i prikazije
>> greska processor stack fault ili uncoverable error 650.Molim vas
>> recite mi kako ovo da popravim
Kako se gubi memorija?
Jel radis pod w95 u DOS-u?
Jel imas neke ASM/C alatke u samom .EXE?
Prvo odgovori na ova dva pitanjca...pa cemo da vidimo...inace...ne
znam koliko se bavis Clipper-om...no...pogledaj koliko program
zahteva memorije...Taj podatak dobijas neposredno posle linkovanja.
Inace...clipperova boljka su ogromni .exe.
Na primer:
>> .RTLink for Clipper Dynamic Overlay Linker/Pre-Linker Version 3.14B
>> (C) Copyright Pocket Soft Inc., 1988-1991. All Rights Reserved.
>>
>> 137K
Ono 137K je, recimo, neka cifra. E sad...da bi program radio,
potrebno mu je na to jos 120K konvencijalne memorije (minimalno)...optimalan
rad zahteva +160K.
znaci: minimalno -> 137K + 120K = 257K
optimalno -> 137K + 160K = 297K
Sad, moras da uporedis slobodnu memoriju, sa onim koliko program
zahteva. Pogledaj prvo to...sami uzroci ovakvog i slicnih problema mogu da
budu razliciti...zato...ne gubi strpljenje :).
clipper.577suki,
-> #575, udav Ako koristis Blinker probaj da dodas ovu liniju u *.lnk datoteku:
BLINKER PROCEDURE DEPTH n
gde je n > 60
Pozdrav,
Suad
clipper.578livan,
Treba mi algoritam po kome se izra~unava kontrolna cifra u jedinstvenom
mati~nom broju gra|ana (JMBG).
clipper.579bolep,
DA li neko zna gde mogu nabaviti Visual Basic 4.0 u Novom Sadu ili
Beogradu.
clipper.580udav,
>> Kako se gubi memorija?
>> Jel koristis w95 u DOS-u?
>> Jel koristis neke asembler alatke?
Proveravam da se memorija gubifunkcijom memory()
Kada nema dovoljno memorije ispisuje:
"Processor stack fault"
ili
"Uncoverable error 650"
___________________________________________
Da,koristim Windows 95u dos-promptu
___________________________________________
Ne,ne koristim asebmler alatke
clipper.581jujo,
Jedan lik me danas pitao za program za vodjenje STR-a. Pozeljno je
da ima magacin, ulaz-izlaz, dvojni kurs, crno-belo...Ako neko
ima nesto, neka mi se javi da ga povezem sa covekom...
yooyo:
clipper.582udav,
Pesnice ... nazalost zaboravio sam broj tvoje poruke, taka da ti saljem
pitanje jos jednom ... izvini :-)
Zasto dobijam prijavu o gresci : "processor stack fault" ili "unrecovalable
error 650" pri izvrsavanju programa, posle nekog vremena ? Zapravo jednostavno
sa memory() proverim koliko memorije ima/nema i dobijaju se neki sasvim
nepovezani rezultati. Ove greske se javljaju usled nedostatka memorije, ali
nije mi jasno ZASTO SE KOLICINA SLOBODNE MEMORIJE SMANJUJE ???
Napominjem da prijava u vezi slobodne memorije nema nikakve veze sa brojem
varijabli, velicinom baze sa kojom radim ... i uopste, nista nije logicno ni
povezano. Inace, koristim WIN97.
UNAPRED ZAHVALAN
clipper.583aris,
-> #582, udavGreska je runtime (650 vidi norton guide za clipper).
Ne mora (generalno) da znaci da je problem u nedostatku memorije vec
da ti se u source-u potkrala greska koju compiler nije prijavio (neka
varijabla nije inicijalizovana, ne postoji polje u bazi...)
(Mozda pokusas clipper <neki-prg> /m /n /w /a)
Verovatno si setovao u autoexecu:
set clipper=//f:40 //dynf:4 //swapk:4096 //noidle
set temp=c:\temp
Mogao bi da pokusas reindex baza ako prethodno pobrises index
datoteke.
Koristi RTLINK.
Imam iskustvo i sa EXE-om od 1 mega koji radi pod WIN9.. bez problema.
P.S. (Nazalost na SEZAM NET-u CLIPPER JE MRTAV!)
clipper.584udav,
-> #583, aris
Zeleo bih da ti se zahvalim sto si odgovorio na moju poruku. Drago mi je da na
Sezamu ima ljubaznih ljudi spremnih da pomognu.
>> Greska je runtime (650 vidi norton guide za clipper)
Priznajem, zvuci cudno, ali ne mogu da nigde nadjem gresku 650. Pogledao sam u
poglavlju o runtime-error-ima, ali je jednostavno nema.
Gledao sam u NG za clipper 5.2.
-----------------------------------------------
>> Mozda pokusas clipper <neki-prg> /m /n /w /a
Nazalost ne mogu da koristim opciju /m jer mi .prg fajl poziva druge .prg
fajlove.
-----------------------------------------------
proc aga
local mmm:=space(20)
alert(str(Memory(0),10,2)+str(Memory(1),10,2)+str(Memory(2),10,2))
@ 1,0 get mmm
read
aga()
Pokusaj ovaj program i vedeces kako se memorija gubi pri izvrsavanju. Ovo nije
deo programa u kojem mi je problem bitan, ali demonstrira situaciju.
-----------------------------------------------
>> set clipper=//f:40 //dynf:4 //swapk:4096 //noidle
>> set temp=c:\temp
Ne, mislim da u tome nije problem. Sve je setovano po default-u. Evo kako
izgleda ...
SET INCLUDE=E:\ALATI\CLIPPER5\INCLUDE
SET LIB=E:\ALATI\CLIPPER5\LIB
SET OBJ=E:\ALATI\CLIPPER5\OBJ
SET PLL=E:\ALATI\CLIPPER5\PLL
PATH=E:\ALATI\CLIPPER5\BIN;E:\alati\clipper5\NG;%path%
-----------------------------------------------
>> Mogao bi da pokusas reindex baza
>> ako prethodno pobrises index
>> datoteke.
U gornjem primeru vidis da nazalost nije do toga ...
-----------------------------------------------
>> Koristi RTLINK.
Koristim ga.
-----------------------------------------------
>> P.S. (Nazalost na SEZAM NET-u CLIPPER JE MRTAV!)
Ma, ne, to ti je isti slucaj kao sa LEWIS farmerkama "legenda zivi" :-)
POZDRAV
clipper.585jolicm,
-> #584, udavNe bi da se mesam ali ...
Proc Aga
Local ...
Allert ...
@ x, y Get ..
Read
Aga()
E ovo ce ti SIGURNO dati gresku zauzeca memorije (ukoliko ovako stoji
u samom programu). Procedura poziva samu sebe beskonacan broj puta i
puni memoriju ...
To si napisao samo kao primer, a ako ti tako stoji i u programu eto
ti veselja ...
clipper.586udav,
E, evo malog program za kripciju/enkripciju koji smo ja i brat
napravili u clipper- u ...
Uros Davidovic
pri.zipclipper.587pesnik,
-> #584, udav│ Nazalost ne mogu da koristim opciju /m jer mi .prg fajl poziva
│ druge .prg fajlove.
└──────────────────────────────────────────────────────────────────────
Pa napravi .CLP fajl, u kome navedes sve prg-ove, a zatim ga
prevodis sa:
cliper @test.clp /m
Mozes i da navedes vise .clp fajlova, posle prevodjenja:
clipper @test1.clp /m
clipper @test2.clp /m
clipper @test3.clp /m
dobija se: test1.obj, test2.obj, test3.obj, tako da ti to
omogucuje samostalno kreiranje sadrzine .obj.
pozdrav
PS: Sori, nisam dugo prelistavao confu...imao posla
clipper.588pesnik,
-> #581, jujo│ Jedan lik me danas pitao za program za vodjenje STR-a. Pozeljno
│ je da ima magacin, ulaz-izlaz, dvojni kurs, crno-belo...Ako neko
│ ima nesto, neka mi se javi da ga povezem sa covekom...
└──────────────────────────────────────────────────────────────────────
Ja se bavim pravljenjem software-a za knjigovodstvene i druge namene
u oblasti finansija. Medjutim, to sta ti covek trazi, jeste nesto
drugo, i ne verujem da se takvo nesto 'proizvodi' serijski. Problem
je crno/belog. Medjutim, ja ljudima sugerisem, da odvoje crno od
belog u startu. Malo se usloznjuje manipulacija, ali su rezultati
posle duzeg perioda koriscenja programa mnogo bolji. Tacnije, ljudi
koji drze sve na jednom mestu, mislim na crno/belo, posle nekog
vremena dolaze do situacije da im program postaje neupotrebljiv. No
necu da tupim o tome...sve je stvar organizacije posla.
Da, osim toga, softverske kuce to ne stavljaju u osnovni paket
za prodaju, posto bi time ugrozili sebe, jelte. Dodje im finansijska
il' neka druga inspekcija i pita sta to 'prave'. Zbog toga,
oni crno/bele stvari pripisuju necemu sto se zove 'posebna porudzbina'
i to, naravno, drugacije naplacuju. Takodje, osigurali su istim svoja
ledja, govoreci da je to od njih trazio neki subjekat i da su oni to
uradili tako, ne ulazeci u problem da li je isto zakonito ili ne.
pozdrav
clipper.589pesnik,
Video sam programcic. Lepa ideja, medjutim, mislim da bi imao neku
primedbu vezanu za nacin izvedbe. Recimo, ocito je da ste koristili
ascii char set za mask-ovanje stringa i to u reversed obliku od
255 - 0. Da ne duzim dalje, kako je i sta je uradjeno, recimo,
bio bi spreman, za opkladu, razvaliti sadrzaj smislene poruke
duzine cca 1k kriptovane ovim programom, za mozda koji sat, al'
da ne prenaglim - jedan dan :).
pozdrav
clipper.590dr.grba,
-> #588, pesnik>> i to, naravno, drugacije naplacuju. Takodje, osigurali su istim svoja
>> ledja, govoreci da je to od njih trazio neki subjekat i da su oni to
>> uradili tako, ne ulazeci u problem da li je isto zakonito ili ne.
Zakon je svoje već rekao: pisanje softvera za crno knjigovodstvo
je kažnjivo.
clipper.591zlatan,
dali je neko radio sa clipper 5.3
imam problem kad kompajliram sa sixdrv javlja mi da ne postoji
funkcija koja
koja u stvari postoji
clipper.592zlatan,
clipper kao program je jednokorisnicki u osnovi pa kad se startuje pod
win95 ponasa se kao da je u mrezi. zato kad radi pojedinacno moze da brise
fajlove a u win95 se pojavljuje acces denied. potrebno je kao sto bi za
mrezu uradio da se datoteke i tretiraju mrezno tj set exclusive i tako to.
clipper.593sjocic,
Da li neko može da raspakuje ovaj fajl (samoraspakujući) ?
Naime, to je sadržaj diskete koja ide uz knjigu Clipper 5, u izdanju
Mikro knjige. Fajl (disketu) sam preuzeo sa njihovog sajta.
cl5_prg.execlipper.594kovacevicd,
Kako da u clipper-u 5.2 proverim da li postoji data funkcija
ili procedura ali bez aktiviranja date funkcije ili procedure!
clipper.595mimap,
Jedno pitanjce ovako padobranski..
moze li da se linkuje clipper 5.2 sa borlandom c++ 3.11 ?
if moze
kako?
else
'fala
endif
return
:))
clipper.596pesnik,
-> #595, mimap│ moze li da se linkuje clipper 5.2 sa borlandom c++ 3.11 ?
│
│ if moze
│ kako?
│ else
│ 'fala
│ endif
└──────────────────────────────────────────────────────────────────────────
Static Proc DaLiMoze( moze)
If moze
? 'Compiliras c source u .obj, clipper source u .obj i linkujes, s'
? 'tim sto je vazno da li pozivas neku fn clippera iz c++ ili'
? 'obrnuto. Onda potrebne interne funkcije (i varijable) moras da'
? 'proglasis za Extrn, a tvoje f-je za Public (u assembleru). Doduse sa'
? 'c-om nisam radio, ali sve lepo funkcionise u .asm-u. Ako oces mogu'
? 'da uploadujem source. Da, takodje je vazno da poznajes (ili nadjes'
? 'literaturu) Clipper-ove i C-ove interne funkcije uradjene u .asm-u.'
? 'Inace, spisak clipper internih f-ja ima u \clipper\include dir-u,'
? 'neki od .inc fajlova.'
Else
? 'E ovo ne moze!'
Endif
Return
clipper.597sjocic,
Potreban Blinker 5 (ne demo) ili info gde se isti može naći/kupiti.
clipper.598sljubisic,
Poznanik me je zamolio da upitam da li neko zna gde se moze naci instalacioni
"CA-Visual Objects 2.0".
Zahvaljujem na svakoj informaciji.
clipper.599mradosav,
Postovanje,
da li bi neko mogao da mi posalje clipper 5.2
Hvala,
Miroslav
clipper.600uuud,
Jel nabavio neko Delphi 4.0 ? Ima li nekih poboljsanja ?
Goran.
Zna li neko kako mogu vise edit box-ova da stampam na jednom
papiru, po nekom mom rasporedu, koji ja zelim ? Zna li neko kako se
stampa DBGrid ?
Goran.
> Jel nabavio neko Delphi 4.0 ? Ima li nekih poboljsanja ?
Cuo sam da Delphi 4.0 ne radi za S3 virge grafickom, ali na sajtu
ima patch. Toliko ja znam o cetvorci :)
>> > Jel nabavio neko Delphi 4.0 ? Ima li nekih poboljsanja ?
Mogu samo reci da program radi fenomenalno...
>> Cuo sam da Delphi 4.0 ne radi za S3 virge grafickom, ali na sajtu
>> ima patch. Toliko ja znam o cetvorci :)
Xex... Sto ne bi radio? Sa starim Diamondima radi, a to je takodje
S3 chipset...
Isa
Zna li neko kako mogu program (Delphi 2.0) da minimizujem u taskbar
(Win9x) ???
Hvala.
Vidim da je ovde tesko dobiti odgovor na pitanje i pored toliko
molbi, ali ajde da postavim jedno pitanje (mozda ce se neko konacno
smilovati da mi odgovori).
Dakle, treba napraviti program koji izracunava sledece :
d:=sqrt(sqr(x2-x1)+sqr(y2+y1))
x1,x2,y1,y2 se unose preko edit boxova. E sad ja znam za onu
proceduru Val, koja konvertuje String u Integer, ali problem je u
tome sto funkcija SQRT radi samo za Real tip a ne za integer. I sad
ne znam sta da radim.
Ajde ljudi smilujte se, ako nista bar zato sto me nije mrzelo
da pisem ovoliku poruku. ;))
Goran.
> d:=sqrt(sqr(x2-x1)+sqr(y2+y1))
> x1,x2,y1,y2 se unose preko edit boxova. E sad ja znam za onu
> proceduru Val, koja konvertuje String u Integer, ali problem je u
> tome sto funkcija SQRT radi samo za Real tip a ne za integer. I sad
> ne znam sta da radim.
Pa treba da stavis u programu da su ti promenjlive float, a mislim
da se to u delphiju zove Real, ako stavis integer onda ces moci
da unosis samo celobrojne vrednosti. Razlog zasto nece SQRT je taj,
sto ako izaberes integer, izlaz isto mora da bude integer, sto je
ok ako recimo uneses 4, ali ako unesec 5 tu vec u rezultatu imas,
i decimalni zarez, a to nije integer vec float, neznam kako se to radi
u delfiju, ali recimo da ti ulazi bude integer a izlaz float, to bi onda
bilo ok...
>> u delfiju, ali recimo da ti ulazi bude integer a izlaz float,
Sve je to OK, ali ne postoji, koliko sam ja uspeo da provalim,
procedura koja konvertuje iz Stringa u Float. :(
Val konvertuje iz stringa u integer, a Str iz integeraa u string, a
ne znam kako da to isto radi za float (string->float).
Goran.
> Vidim da je ovde tesko dobiti odgovor na pitanje i pored toliko
> molbi, ali ajde da postavim jedno pitanje (mozda ce se neko konacno
> smilovati da mi odgovori).
> Dakle, treba napraviti program koji izracunava sledece :
> d:=sqrt(sqr(x2-x1)+sqr(y2+y1))
> x1,x2,y1,y2 se unose preko edit boxova. E sad ja znam za onu
> proceduru Val, koja konvertuje String u Integer, ali problem je udijak.rarclipper.601roach,
Citaj pod RAZNO