Kod kreskowy i druki z poczty PP77, PP17

Bartek

unread,

May 1, 2009, 6:08:37 AM5/1/09

to

Witam
Robi� kto� mo�e kod kreskowy, czy wog�le da sie zrobi� co� takiego?
Chodzi mi o druki pocztowe : ADRES POMOCNICZY, PRZESY�KA POBRANIOWA.

Jak wog�le taki kod wygenerowa�?

Pozdrawiam
Bartek

Jacek

unread,

May 1, 2009, 7:45:51 AM5/1/09

to

http://www.download3k.com/Install-free-TrueType-Barcode-Font.html

Zbigniew Bratko

unread,

May 1, 2009, 10:57:08 AM5/1/09

to

Uďż˝ytkownik "Bartek" <bglo...@op.pl> napisaďż˝ w wiadomoďż˝ci
news:gtehn9$cc5$1...@inews.gazeta.pl...
> Witam
> Robiďż˝ ktoďż˝ moďż˝e kod kreskowy, czy wogďż˝le da sie zrobiďż˝ coďż˝ takiego?
> Chodzi mi o druki pocztowe : ADRES POMOCNICZY, PRZESYďż˝KA POBRANIOWA.
>
> Jak wogďż˝le taki kod wygenerowaďż˝?

[...]

Zainteresuj sie kodem Kod128, a raczej jego odmianďż˝ gs1-128 (dawniej EAN128)

Na poczďż˝tek moďż˝esz zerknďż˝ďż˝ na http://www.access.vis.pl/war308.htm, ale
przykďż˝ad ten traktuj jako poglďż˝dowy. Obsďż˝uguje on niestety zbiďż˝r B,
a Ty musisz zastosowaďż˝ zbiďż˝r C.

Tu masz specyfikacjďż˝:
http://www.gs1pl.org/download/publikacje/ean128.pdf

a tutaj generator kodu na www:
http://wipos.p.lodz.pl/zylla/ut/barcode/ean128.php

ew. poszukaj gdzieďż˝ w sieci darmowego fontu Kod 128.
Moďż˝e Ci sie uda gdzieďż˝ znaleďż˝ďż˝.

--
Pozdrowienia
BraZby

Tomasz Kiełpiński

unread,

May 4, 2009, 4:01:47 AM5/4/09

to

Uďż˝ytkownik "Bartek" <bglo...@op.pl> napisaďż˝ w wiadomoďż˝ci
news:gtehn9$cc5$1...@inews.gazeta.pl...
> Witam
> Robiďż˝ ktoďż˝ moďż˝e kod kreskowy, czy wogďż˝le da sie zrobiďż˝ coďż˝ takiego?
> Chodzi mi o druki pocztowe : ADRES POMOCNICZY, PRZESYďż˝KA POBRANIOWA.
>
> Jak wogďż˝le taki kod wygenerowaďż˝?
>

> Pozdrawiam
> Bartek

Zrobiďż˝ siďż˝ da. Pytanie tylko jak stworzysz numeracjďż˝. Ja po dďż˝ugich
poszukiwaniach kto w PP moďż˝e choďż˝by porozmawiaďż˝ na temat wykorzystania
wďż˝asnej numeracji, odkopaďż˝em drukarkďż˝ igďż˝owďż˝ i korzystam nadal z
oryginalnych drukďż˝w :)

Pozdrawiam,
TK

__________ Informacja programu ESET NOD32 Antivirus, wersja bazy sygnatur wirusďż˝w 4050 (20090503) __________

Wiadomosc zostala sprawdzona przez program ESET NOD32 Antivirus.

http://www.eset.pl lub http://www.eset.com

Bartek

unread,

May 4, 2009, 4:17:28 AM5/4/09

to

> Zrobi� si� da. Pytanie tylko jak stworzysz numeracj�. Ja po d�ugich
> poszukiwaniach kto w PP mo�e cho�by porozmawia� na temat wykorzystania
> w�asnej numeracji, odkopa�em drukark� ig�ow� i korzystam nadal z
> oryginalnych druk�w :)

No tak, ale je�li mam przyznan� p�le numer�w?
To zadam zakres i potem niech leci kolejny wolny nr.

A mo�e kto� robi� ju� co� takiego? Mo�e ma gotowca?

Pozdrawiam

Tomasz Kiełpiński

unread,

May 4, 2009, 4:41:32 AM5/4/09

to

Uďż˝ytkownik "Bartek" <bglo...@op.pl> napisaďż˝ w wiadomoďż˝ci

news:gtm8b0$ndk$1...@inews.gazeta.pl...

>> Zrobiďż˝ siďż˝ da. Pytanie tylko jak stworzysz numeracjďż˝. Ja po dďż˝ugich
>> poszukiwaniach kto w PP moďż˝e choďż˝by porozmawiaďż˝ na temat wykorzystania

>> wďż˝asnej numeracji, odkopaďż˝em drukarkďż˝ igďż˝owďż˝ i korzystam nadal z
>> oryginalnych drukďż˝w :)
>
> No tak, ale jeďż˝li mam przyznanďż˝ pďż˝le numerďż˝w?

Auu! Co masz przyznane?
Jeďż˝li miaďż˝byďż˝ PULďż˝ i mďż˝gďż˝byďż˝ podesďż˝aďż˝ nieco wiďż˝cej informacji jak Ci siďż˝
udaďż˝o to zaďż˝atwiďż˝ byďż˝bym zobowiďż˝zany.

> To zadam zakres i potem niech leci kolejny wolny nr.
>

> A moďż˝e ktoďż˝ robiďż˝ juďż˝ coďż˝ takiego? Moďż˝e ma gotowca?

A z czym problem? Jak drukowaďż˝ kody koledzy podpowiedzieli. Ja mogďż˝
podpowiedzieďż˝ jak wyliczyďż˝ cyfrďż˝ kontrolnďż˝, ďż˝eby nie trzeba byďż˝o rďż˝cznie
wprowadzaďż˝ przyznanej puli. Reszta to odpowiedni ukďż˝ad raportu.

Pozdrawiam,
Kieďż˝piďż˝

Bartek

unread,

May 4, 2009, 4:47:41 AM5/4/09

to

> A z czym problem? Jak drukowa� kody koledzy podpowiedzieli. Ja mog�
> podpowiedzie� jak wyliczy� cyfr� kontroln�, �eby nie trzeba by�o r�cznie
> wprowadza� przyznanej puli. Reszta to odpowiedni uk�ad raportu.

A podpowiedz bardzo ch�tnie, odrazu podaj maila, bo pr�bowa�em wys�a� info
na temat jak to zalatwi�em na priva, ale co� odrzuca.

Pozdrawiam
Bartek

Tomasz Kiełpiński

unread,

May 4, 2009, 5:05:10 AM5/4/09

to

Uďż˝ytkownik "Bartek" <bglo...@op.pl> napisaďż˝ w wiadomoďż˝ci

news:gtma5b$1c1$1...@inews.gazeta.pl...

>> A z czym problem? Jak drukowaďż˝ kody koledzy podpowiedzieli. Ja mogďż˝
>> podpowiedzieďż˝ jak wyliczyďż˝ cyfrďż˝ kontrolnďż˝, ďż˝eby nie trzeba byďż˝o rďż˝cznie

>> wprowadzaďż˝ przyznanej puli. Reszta to odpowiedni ukďż˝ad raportu.
>
> A podpowiedz bardzo chďż˝tnie, odrazu podaj maila, bo prďż˝bowaďż˝em wysďż˝aďż˝ info
> na temat jak to zalatwiďż˝em na priva, ale coďż˝ odrzuca.
>
> Pozdrawiam
> Bartek

"Piszďż˝c prywatnie usuďż˝ FALSZYWY z adresu."
Zmieniďż˝em czytnik i na razie nie mam sygnaturki, gdzie to byďż˝o napisane :)
Ale jak widzďż˝ poradziďż˝eďż˝ sobie.

Na prv wysďż˝aďż˝em arkusz Excelowy ktďż˝rego uďż˝ywam.

Bartek

unread,

May 4, 2009, 5:14:53 AM5/4/09

to

> "Pisz�c prywatnie usu� FALSZYWY z adresu."
> Zmieni�em czytnik i na razie nie mam sygnaturki, gdzie to by�o napisane :)
> Ale jak widz� poradzi�e� sobie.
Tak, tak zauwa�y�em
Dzi�ki za info i plik.
Pozdrawiam
Bartek

Krzysztof Naworyta

unread,

May 4, 2009, 12:13:50 PM5/4/09

to

Juzer Zbigniew Bratko <bra...@BEZTEGOgazeta.pl> napisaďż˝

|| Robiďż˝ ktoďż˝ moďż˝e kod kreskowy, czy wogďż˝le da sie zrobiďż˝ coďż˝ takiego?
|| Chodzi mi o druki pocztowe : ADRES POMOCNICZY, PRZESYďż˝KA POBRANIOWA.
||
|| Jak wogďż˝le taki kod wygenerowaďż˝?
|
| [...]
|
| Zainteresuj sie kodem Kod128, a raczej jego odmianďż˝ gs1-128 (dawniej
| EAN128)
|
| Na poczďż˝tek moďż˝esz zerknďż˝ďż˝ na http://www.access.vis.pl/war308.htm, ale
| przykďż˝ad ten traktuj jako poglďż˝dowy. Obsďż˝uguje on niestety zbiďż˝r B,
| a Ty musisz zastosowaďż˝ zbiďż˝r C.
|
| Tu masz specyfikacjďż˝:
| http://www.gs1pl.org/download/publikacje/ean128.pdf
|
| a tutaj generator kodu na www:
| http://wipos.p.lodz.pl/zylla/ut/barcode/ean128.php

Hmmm, nie sprawdzaďż˝em dogďż˝ďż˝bnie czym rďż˝ni siďż˝ GS1-128 od Code128, ale
zdaje siďż˝, ďż˝e jedynie znakiem specjalnym FNC1 zaraz po znaku Start.

Czyli chyba niewiele potrzeba aby dorobiďż˝ w moim module basBarcodesCode128
odpowiedni typ czy przerobiďż˝/zuniwersalizowaďż˝ funkcjďż˝
BarcodePatternCode128() tak aby zwracaďż˝a odpowiedni "pattern" (znaczy
zero-jedynki do dalszej obrďż˝bki)

Jeďż˝li tak, to proszďż˝ o sugestie:
http://www.access.vis.pl/naworyta/knBarCodesV1.zip

--
KN

archiwum grupy:
http://groups.google.pl/advanced_group_search
(grupa: pl*msaccess)

Zbigniew Bratko

unread,

May 4, 2009, 2:05:08 PM5/4/09

to

Uďż˝ytkownik "Krzysztof Naworyta" <k.naw...@datacomp.com.pl> napisaďż˝ w
wiadomoďż˝ci news:gtn47r$r4t$1...@news.onet.pl...

> Juzer Zbigniew Bratko <bra...@BEZTEGOgazeta.pl> napisaďż˝

[...]

> | Tu masz specyfikacjďż˝:
> | http://www.gs1pl.org/download/publikacje/ean128.pdf
> |
> | a tutaj generator kodu na www:
> | http://wipos.p.lodz.pl/zylla/ut/barcode/ean128.php
>
> Hmmm, nie sprawdzaďż˝em dogďż˝ďż˝bnie czym rďż˝ni siďż˝ GS1-128 od Code128, ale
> zdaje siďż˝, ďż˝e jedynie znakiem specjalnym FNC1 zaraz po znaku Start.
>
> Czyli chyba niewiele potrzeba aby dorobiďż˝ w moim module basBarcodesCode128
> odpowiedni typ czy przerobiďż˝/zuniwersalizowaďż˝ funkcjďż˝
> BarcodePatternCode128() tak aby zwracaďż˝a odpowiedni "pattern" (znaczy
> zero-jedynki do dalszej obrďż˝bki)
>
> Jeďż˝li tak, to proszďż˝ o sugestie:
> http://www.access.vis.pl/naworyta/knBarCodesV1.zip
>

Znalazďż˝em gdzieďż˝ w sieci przykďż˝ad druku pocztowego z ADRESem POMOCNICZYm
i byďż˝ tam przykďż˝ad kodu paskowego dla wartoďż˝ci 00159007733000000005.
Ten kod paskowy generowany byďż˝ zestawem znakďż˝w C.
Czy zawsze tak jest, nie wiem.
Bartek dostaďż˝ pulďż˝, wiďż˝c wie jakie tam sďż˝ znaki i jak je kodowaďż˝.
Byďż˝ moďż˝e moďż˝na kodowaďż˝ numery z puli Zbiorem B, ale czy
na pewno, tego nie wiem. Czytnik powinien odczytaďż˝ i Zbiďż˝r B.

Innymi sďż˝awami mďż˝wiďż˝c dla Zestawu C jeden znak kodu okreďż˝la dwie cyfry.
Kod jest w tym konkretnym przypadku dwukrotnie zmniejszony
w/g http://wipos.p.lodz.pl/zylla/ut/barcode/ean128.php zapis jest
nastďż˝pujďż˝cy

StartC Fnc1 00 15 90 07 73 30 00 00 00 05 11 Stop

w sumie jest 10 znakďż˝w danych + 3 znaki specjalne + 1 znak kontrolny

Rďż˝nice w dďż˝ugoďż˝ci kodu jest pokazana na:

http://www.bratki.w.v1.pl/tmp/Code128C.png

ďż˝rodkowy kod utworzony zostaďż˝ przez generator na stronie.
Pozostaďż˝e dwa poprzez mďż˝j testowy generator. Nie sprawdzaďż˝em moich kodďż˝w
czytnikiem kodďż˝w kreskowych, ale w porďż˝wnaniu z kodem ze strony juďż˝ widzďż˝
maďż˝ďż˝ rďż˝nicďż˝ w szerokoďż˝ci jednego paska. Czy jest to wina skalowania, czy
jakiďż˝ bďż˝ďż˝d muszďż˝ sprawdziďż˝. Ktďż˝ry kod jest prawidďż˝owy (a moďż˝e oba dobre)
zobaczymy pďż˝niej.

--
Pozdrowienia
BraZby

Krzysztof Naworyta

unread,

May 5, 2009, 8:56:33 PM5/5/09

to

Juzer Zbigniew Bratko <bra...@BEZTEGOgazeta.pl> napisaďż˝

(...)

||| Tu masz specyfikacjďż˝:
||| http://www.gs1pl.org/download/publikacje/ean128.pdf
|||
||| a tutaj generator kodu na www:
||| http://wipos.p.lodz.pl/zylla/ut/barcode/ean128.php
||
|| Hmmm, nie sprawdzaďż˝em dogďż˝ďż˝bnie czym rďż˝ni siďż˝ GS1-128 od Code128, ale
|| zdaje siďż˝, ďż˝e jedynie znakiem specjalnym FNC1 zaraz po znaku Start.
||
|| Czyli chyba niewiele potrzeba aby dorobiďż˝ w moim module
|| basBarcodesCode128 odpowiedni typ czy przerobiďż˝/zuniwersalizowaďż˝
|| funkcjďż˝ BarcodePatternCode128() tak aby zwracaďż˝a odpowiedni "pattern"
|| (znaczy zero-jedynki do dalszej obrďż˝bki)
||
|| Jeďż˝li tak, to proszďż˝ o sugestie:
|| http://www.access.vis.pl/naworyta/knBarCodesV1.zip

| Znalazďż˝em gdzieďż˝ w sieci przykďż˝ad druku pocztowego z ADRESem
| POMOCNICZYm
| i byďż˝ tam przykďż˝ad kodu paskowego dla wartoďż˝ci 00159007733000000005.
| Ten kod paskowy generowany byďż˝ zestawem znakďż˝w C.
| Czy zawsze tak jest, nie wiem.

W specyfikacji, do ktďż˝rej podaďż˝eďż˝ linkďż˝, wyraďż˝nie mďż˝wiďż˝, ďż˝e to w zasadzie
program powinien sam optymalizowaďż˝ czy w Code128 zostanie uďż˝yty typ A, B,
czy C.
Nawet podajďż˝ ogďż˝lne wytyczne czym taki algorytm miaďż˝by siďż˝ kierowaďż˝.
Powiem szczerze, ďż˝e bardzo mnie to zainteresowaďż˝o.

Pamiďż˝tamy oczywiďż˝cie caďż˝y czas, ďż˝e w tym kodzie w kaďż˝dej chwili moďż˝emy
przeďż˝ďż˝czyďż˝ siďż˝ miďż˝dzy typami lub po prostu uďż˝yďż˝ SHIFT (dla pojedynczego
znaku).

Jest to doďż˝ďż˝ fajne wyzwanie, gdy juďż˝ sam problem malowania kresek przestaďż˝
byďż˝ tak istotny.

| Bartek dostaďż˝ pulďż˝, wiďż˝c wie jakie tam sďż˝ znaki i jak je kodowaďż˝.
| Byďż˝ moďż˝e moďż˝na kodowaďż˝ numery z puli Zbiorem B, ale czy
| na pewno, tego nie wiem. Czytnik powinien odczytaďż˝ i Zbiďż˝r B.
|
| Innymi sďż˝awami mďż˝wiďż˝c dla Zestawu C jeden znak kodu okreďż˝la dwie cyfry.
| Kod jest w tym konkretnym przypadku dwukrotnie zmniejszony
| w/g http://wipos.p.lodz.pl/zylla/ut/barcode/ean128.php zapis jest
| nastďż˝pujďż˝cy
|
| StartC Fnc1 00 15 90 07 73 30 00 00 00 05 11 Stop
|
| w sumie jest 10 znakďż˝w danych + 3 znaki specjalne + 1 znak kontrolny
|
| Rďż˝nice w dďż˝ugoďż˝ci kodu jest pokazana na:
| http://www.bratki.w.v1.pl/tmp/Code128C.png

Dla Code128 okreďż˝la siďż˝ gďż˝rnďż˝ granicďż˝ jako 16cm szerokoďż˝ci i/lub 48 znakďż˝w
(vide przytoczona przez Ciebie specyfikacja).
Jak dďż˝ugo pierwszy i drugi sposďż˝b kodowania nie przekrocza tej granicy,
dyskusja jest pewnie czysto akademicka.
Ale ta "akademickoďż˝ďż˝" teďż˝ jest ciekawa :)
Koďż˝cem nosa czujďż˝, ďż˝e optymalizacja sposobu kodowania (z uďż˝yciem
przeďż˝ďż˝cznikďż˝w) moďż˝e zahaczaďż˝ o problem komiwojaďż˝era, czyli w najlepszym
wypadku o algorytmy szacunkowe, bez pretensji do ďż˝cisďż˝oďż˝ci matematycznej.
Nadal jest to fajne wyzwanie.

Jeszcze inna ciekawostka, to sprawa umieszczania w jednym kodzie kilku
informacji.
Czyli (znďż˝w za specyfikacjďż˝) np. kodu produktu, jego wagi czy ceny.
Wykorzystaďż˝ predefiniowane "dďż˝ugoďż˝ci" czy uďż˝yďż˝ FNC1 jako rozdzielnika.

No i na koniec:
Czy znak Start + FNC1 (jako rozszerzony znak Start) wchodzi jako element
wyliczanej sumy kontrolnej czy nie?
Bo jakoďż˝ nie znalazďż˝em tej informacji w specyfikacji.

Pomijajďż˝c wszystko co powyďż˝sze, zapominajďż˝c o ewentualnych niuansach przy
wyliczaniu sumy kontrolnej, wydaje siďż˝, ďż˝e spreparowany przeze mnie sposďż˝b
malowania kodu jest doďż˝ďż˝ uniwersalny.

To, czego ewidentnie mu brakuje, to w zasadzie jedna funkcja
optymalizujďż˝ca wejďż˝ciowy string.

Przykďż˝adowo:
Jeďż˝li na wejďż˝ciu pojawi siďż˝ coďż˝ takiego:
000129943400037ABC345urt
to powinno to zostaďż˝ przekazane jako
typ C: 00 01 29 94 34 00 03
typ A: 7ABC345
typ B: urt

ale gdy tak juz to zostanie zrobione (przez uďż˝ytkownika lub algorytmem) i
przekazane dalej, to moje moduďż˝y powinny to ďż˝adnie wyrysowaďż˝/wymalowaďż˝.

Wracajďż˝c do rozdzielczoďż˝ci...
swego czasu powďż˝tpiewaďż˝eďż˝ czy moje jednopikselowe kody kreskowe z
wďż˝ďż˝czonym trybem rozszerzania obrazka przypadkiem czegoďż˝ nie przekďż˝amiďż˝.
Na ekranie moďż˝e tak, moďż˝e nie. Ale z ekranu ďż˝aden czytnik niczego zczytaďż˝
nie potrafi ;)
Zaďż˝ na wydruku jakoďż˝ zawsze siďż˝ to ďż˝wietnie spisywaďż˝o.

Krzysztof Naworyta

unread,

May 5, 2009, 9:13:08 PM5/5/09

to

Juzer Tomasz Kieďż˝piďż˝ski <FALSZYW...@poczta.onet.pl> napisaďż˝

|| Robiďż˝ ktoďż˝ moďż˝e kod kreskowy, czy wogďż˝le da sie zrobiďż˝ coďż˝ takiego?
|| Chodzi mi o druki pocztowe : ADRES POMOCNICZY, PRZESYďż˝KA POBRANIOWA.
||
|| Jak wogďż˝le taki kod wygenerowaďż˝?

| Zrobiďż˝ siďż˝ da. Pytanie tylko jak stworzysz numeracjďż˝. Ja po dďż˝ugich

| poszukiwaniach kto w PP moďż˝e choďż˝by porozmawiaďż˝ na temat wykorzystania
| wďż˝asnej numeracji, odkopaďż˝em drukarkďż˝ igďż˝owďż˝ i korzystam nadal z
| oryginalnych drukďż˝w :)

Oďż˝wieďż˝cie mnie, bo jestem poza tematem.
Co to sďż˝ te druki PP-77, PP-17
Jak do tego majďż˝ siďż˝
- kody kreskowe
- wďż˝asna numeracja
- ADRES POMOCNICZY
- PRZESYďż˝KA POBRANIOWA
czy
- drukarka igďż˝owa ?

Zainteresowaďż˝o mnie to, ale googiel niczego sensownego mi nie pokazaďż˝ :(

Tomasz Kiełpiński

unread,

May 6, 2009, 3:45:55 AM5/6/09

to

Uďż˝ytkownik "Krzysztof Naworyta" <k.naw...@datacomp.com.pl> napisaďż˝ w
wiadomoďż˝ci news:gtqo6o$8a1$1...@news.onet.pl...

W duďż˝ym skrďż˝cie:
- Adres pomocniczy to taki druczek, ktďż˝ry trzeba wypeďż˝niďż˝ nadajďż˝c paczkďż˝ na
poczcie.
(A drugi - jeďż˝li chcesz ďż˝eby odbiorca zapďż˝aciďż˝ za przesyďż˝kďż˝.
- PP-77 i PP-17 to ich oficjalne symbole.
- Druczki sďż˝ samokopiujďż˝ce.
- Kaďż˝dy druczek na swďż˝j wďż˝asny indywidualny numer pod postaciďż˝ liczb i kodu
kreskowego
- Jeďż˝li dostaniesz wďż˝asnďż˝ pulďż˝ numerďż˝w moďż˝esz sam sobie takie druki
stworzyďż˝,
ale potrzebujesz czionki kodu kreskowego.
- A jeďż˝li puli nie masz, na gotowy druk z poczty wdrukowywujesz nadawcďż˝ i
adresata.
Poniewaďż˝ druk jest samokopiujďż˝cy, bez igďż˝ďż˝wki ani rusz.

Pozdrawiam,
TK

__________ Informacja programu ESET NOD32 Antivirus, wersja bazy sygnatur wirusďż˝w 4054 (20090505) __________

Krzysztof Naworyta

unread,

May 6, 2009, 12:41:12 PM5/6/09

to

Juzer Tomasz Kieďż˝piďż˝ski <FALSZYW...@poczta.onet.pl> napisaďż˝

(...)

Rozumiem. Dziwi mnie jednak, ďż˝e nigdzie nie mogďż˝ znaleďż˝ďż˝ wzorďż˝w takich
druczkďż˝w (www).
Pewnie przejdďż˝ siďż˝ na pocztďż˝ :)
Z tego co widzďż˝, PP rozpisaďż˝a swego czasu przetarg na te formularze.

Rozumiem, ďż˝e mozna do nich wystďż˝piďż˝ o "pulďż˝ numerďż˝w" i wtedy drukujemy
sami?
Dbajďż˝c jedynie o unikalnoďż˝ďż˝ kaďż˝dego numeru?

Zbigniew Bratko

unread,

May 6, 2009, 2:28:46 PM5/6/09

to

Uďż˝ytkownik "Krzysztof Naworyta" <k.naw...@datacomp.com.pl> napisaďż˝ w

wiadomoďż˝ci news:gtqn7n$6gf$1...@news.onet.pl...

> Juzer Zbigniew Bratko <bra...@BEZTEGOgazeta.pl> napisaďż˝
>
>
> (...)
> ||| Tu masz specyfikacjďż˝:
> ||| http://www.gs1pl.org/download/publikacje/ean128.pdf
> |||
> ||| a tutaj generator kodu na www:
> ||| http://wipos.p.lodz.pl/zylla/ut/barcode/ean128.php
> ||

[...]

>
> W specyfikacji, do ktďż˝rej podaďż˝eďż˝ linkďż˝, wyraďż˝nie mďż˝wiďż˝, ďż˝e to w zasadzie
> program powinien sam optymalizowaďż˝ czy w Code128 zostanie uďż˝yty typ A, B,
> czy C.
> Nawet podajďż˝ ogďż˝lne wytyczne czym taki algorytm miaďż˝by siďż˝ kierowaďż˝.
> Powiem szczerze, ďż˝e bardzo mnie to zainteresowaďż˝o.

[...]

Moim zdaniem Zestaw A jest zupeďż˝nie spokojnie do odrzucenia,
chyba ďż˝e chcemy przekazywaďż˝ znaki sterujďż˝ce. Juďż˝ bardziej ciekawe jest
uďż˝ycie Znaku FNC4 rozszerzajďż˝cego zakres o nastďż˝pne 128.
Ale czy czytniki to juďż˝ obsďż˝ugujďż˝, tego nie wiem.

Nie bardzo chce mi siďż˝ bawiďż˝ w takie optymalizowanie.
Tak najproďż˝ciej (moim zdaniem) to sprawdzamy ile jest *par* kolejnych
numerycznych znakďż˝w. Piszemy "Code C" i przekazujemy pary znakďż˝w,
potem "Code B" i ewentualnie ostatni nieparzysty znak i ciďż˝g znakďż˝w.

Pytanie, czy dla ciďż˝gu Ala123Ula warto siďż˝ przeďż˝ďż˝czaďż˝.
Ala123Ula
StartB A l a CodeC 12 CodeB 3 U l a - 11 znakďż˝w
StartB A l a 1 2 3 U l a - 10 znakďż˝w
Ala12345Ula
StartB A l a CodeC 12 34 CodeB 5 U l a - 12 znakďż˝w
StartB A l a 1 2 3 4 5 U l a - 12 znakďż˝w

lub. 12345
StartC 12 34 CodeB 5 - 5 znakďż˝w
a moďż˝e wymusiďż˝, a raczej jeďż˝eli jest to moďż˝liwe samemu to zrobiďż˝, by przed
ostatnim nieparzystym znakiem dopisaďż˝ 0
12345 -->123405
StartC 12 34 05 - 4 znakďż˝w
Oczywiďż˝cie sďż˝ puďż˝apki dla ostatniego, tak zapisanego znaku,

Moďż˝emy takďż˝e w programie (jeďż˝eli mamy na to wpďż˝yw) tworzyďż˝
parzystďż˝ iloďż˝ďż˝ cyfr, no a jeďż˝eli nie to moďż˝na siďż˝ zastanowiďż˝
czy walka o jeden, czy dwa znaki jest tak bardzo istotna,
aczkolwiek sama optymalizacja moďż˝e byďż˝ ciekawa.

[...]

>
> Pamiďż˝tamy oczywiďż˝cie caďż˝y czas, ďż˝e w tym kodzie w kaďż˝dej chwili moďż˝emy
> przeďż˝ďż˝czyďż˝ siďż˝ miďż˝dzy typami lub po prostu uďż˝yďż˝ SHIFT (dla pojedynczego
> znaku).

No, nie bardzo, jedynie w obrďż˝bie Zbiorďż˝w A i B:

<cyt>
a.. Znak Shift zmienia zestaw kodu A na B lub B na A dla jednego znaku
nastďż˝pujďż˝cego po znaku Shift. Znak nastďż˝pujďż˝cy po znaku, na ktďż˝ry zadziaďż˝aďż˝
znak Shift wraca do zestawu kodu A lub B zdefiniowanego przed znakiem Shift.
</cyt>

W zestawie C nie ma znaku SHIFT.

>
> Jest to doďż˝ďż˝ fajne wyzwanie, gdy juďż˝ sam problem malowania kresek przestaďż˝
> byďż˝ tak istotny.
>
> | Bartek dostaďż˝ pulďż˝, wiďż˝c wie jakie tam sďż˝ znaki i jak je kodowaďż˝.
> | Byďż˝ moďż˝e moďż˝na kodowaďż˝ numery z puli Zbiorem B, ale czy
> | na pewno, tego nie wiem. Czytnik powinien odczytaďż˝ i Zbiďż˝r B.
> |
> | Innymi sďż˝awami mďż˝wiďż˝c dla Zestawu C jeden znak kodu okreďż˝la dwie cyfry.
> | Kod jest w tym konkretnym przypadku dwukrotnie zmniejszony
> | w/g http://wipos.p.lodz.pl/zylla/ut/barcode/ean128.php zapis jest
> | nastďż˝pujďż˝cy
> |
> | StartC Fnc1 00 15 90 07 73 30 00 00 00 05 11 Stop
> |
> | w sumie jest 10 znakďż˝w danych + 3 znaki specjalne + 1 znak kontrolny
> |
> | Rďż˝nice w dďż˝ugoďż˝ci kodu jest pokazana na:
> | http://www.bratki.w.v1.pl/tmp/Code128C.png
>
> Dla Code128 okreďż˝la siďż˝ gďż˝rnďż˝ granicďż˝ jako 16cm szerokoďż˝ci i/lub 48 znakďż˝w
> (vide przytoczona przez Ciebie specyfikacja).
> Jak dďż˝ugo pierwszy i drugi sposďż˝b kodowania nie przekrocza tej granicy,
> dyskusja jest pewnie czysto akademicka.

No nie bardzo. Moďż˝e dojďż˝ďż˝ do ograniczenia wielkoďż˝ci miejsca na kod paskowy.
Byďż˝ moďż˝e na druku miejsce na ADRES POMOCNICZY jest zbyt wďż˝skie
by pomieďż˝ciďż˝ ciďż˝g znakďż˝w kodowany Zbiorem B, a zupeďż˝nie spokojnie wchodzi
tam ciďż˝g znakďż˝w kodowany Zbiorem C.

[...]

> Ale ta "akademickoďż˝ďż˝" teďż˝ jest ciekawa :)
> Koďż˝cem nosa czujďż˝, ďż˝e optymalizacja sposobu kodowania (z uďż˝yciem
> przeďż˝ďż˝cznikďż˝w) moďż˝e zahaczaďż˝ o problem komiwojaďż˝era, czyli w najlepszym
> wypadku o algorytmy szacunkowe, bez pretensji do ďż˝cisďż˝oďż˝ci matematycznej.
> Nadal jest to fajne wyzwanie.
>
> Jeszcze inna ciekawostka, to sprawa umieszczania w jednym kodzie kilku
> informacji.
> Czyli (znďż˝w za specyfikacjďż˝) np. kodu produktu, jego wagi czy ceny.
> Wykorzystaďż˝ predefiniowane "dďż˝ugoďż˝ci" czy uďż˝yďż˝ FNC1 jako rozdzielnika.
>

O nie, w ďż˝ďż˝czenie kodďż˝w nie chce mi siďż˝ wchodziďż˝.
Uďż˝ywajďż˝c znaku FNC1 jako rozdzielacza, naleďż˝y pamiďż˝taďż˝ ďż˝e czasami
znak kontrolny moďż˝e byďż˝ znakiem FNC1, ale i tak rozpatrujemy
wszystkie znaki oprďż˝cz dwďż˝ch ostatnich (Kontrolny i Stop).
No chyba ďż˝e zrobimy Split w/m znaku FNC1 dla caďż˝ego odczytanego ciďż˝gu,
to moďż˝emy siďż˝ zdziwiďż˝.

[...]

> No i na koniec:
> Czy znak Start + FNC1 (jako rozszerzony znak Start) wchodzi jako element
> wyliczanej sumy kontrolnej czy nie?
> Bo jakoďż˝ nie znalazďż˝em tej informacji w specyfikacji.

Na stronie 5 jest przykďż˝adzik.

Znak kontrolny symbolu "Kod 128" powinien byďż˝ obliczony zgodnie
nastďż˝pujďż˝cymi zasadami:

<cyt>
a) Kaďż˝dy znak symbolu ma nadanďż˝ wartoďż˝ďż˝ (patrz: Tabela 1).
b) Kaďż˝da pozycja znaku symbolu ma nadany wspďż˝czynnik waďż˝ony. Znak Start ma
wspďż˝czynnik waďż˝ony "1". Nastďż˝pnie, zaczynajďż˝c od lewej strony od pierwszego
znaku
wystďż˝pujďż˝cego po znaku Start, wspďż˝czynniki waďż˝one przybierajďż˝ wartoďż˝ďż˝
1, 2, 3, 4 .... n, dla wszystkich kolejnych znakďż˝w symbolu a_ do, lecz go
nie
wďż˝ďż˝czajďż˝c, znaku kontrolnego symbolu; n oznacza liczbďż˝ znakďż˝w w
symbolu reprezentujďż˝cych dane lub specjalnďż˝ informacjďż˝ w symbolu, wyďż˝ďż˝czajďż˝c
znaki Start/Stop i znak kontrolny.
Naleďż˝y tu zaznaczyďż˝, ďż˝e zarďż˝wno znak Start, jak i nastďż˝pujďż˝cy po nim
pierwszy
znak symbolu majďż˝ wspďż˝czynnik waďż˝ony "1".
</cyt>'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

czyli dla 2009, mamy:
Start C = 1x105=105
FNC1 = 1x102 =102
20 =2x20=40
09 =3x9=27
....
znak kontrolny =274-2*103=68

>
> Pomijajďż˝c wszystko co powyďż˝sze, zapominajďż˝c o ewentualnych niuansach przy
> wyliczaniu sumy kontrolnej, wydaje siďż˝, ďż˝e spreparowany przeze mnie sposďż˝b
> malowania kodu jest doďż˝ďż˝ uniwersalny.
>
> To, czego ewidentnie mu brakuje, to w zasadzie jedna funkcja
> optymalizujďż˝ca wejďż˝ciowy string.

[...]

> ale gdy tak juz to zostanie zrobione (przez uďż˝ytkownika lub algorytmem) i
> przekazane dalej, to moje moduďż˝y powinny to ďż˝adnie wyrysowaďż˝/wymalowaďż˝.

>
> Wracajďż˝c do rozdzielczoďż˝ci...
> swego czasu powďż˝tpiewaďż˝eďż˝ czy moje jednopikselowe kody kreskowe z
> wďż˝ďż˝czonym trybem rozszerzania obrazka przypadkiem czegoďż˝ nie przekďż˝amiďż˝.
> Na ekranie moďż˝e tak, moďż˝e nie. Ale z ekranu ďż˝aden czytnik niczego zczytaďż˝
> nie potrafi ;)
> Zaďż˝ na wydruku jakoďż˝ zawsze siďż˝ to ďż˝wietnie spisywaďż˝o.

<cyt>

str 9 ...
5) Jego budowa jest modularna (w tabeli 1 przedstawiony jest wzďż˝r
elementďż˝w
kaďż˝dego znaku Kodu 128).
Minimalny wymiar moduďż˝u X wynosi 0,191 mm.
</cyt>

Jeďż˝eli mamy (chyba typowo) rozdzielczoďż˝ďż˝ DPI=96 to
szerokoďż˝ďż˝ piksela: 25,4 / 96= 0,26 mm
Rysujďż˝c na ekranie mamy 0,07 mm straty na kaďż˝dym module

Dla rozdzielczoďż˝ci 300 DPI
szerokoďż˝ďż˝ piksela: 25,4 / 300= 0,085 mm, czyli musimy rysowaďż˝
moduďż˝ za pomocďż˝ 3 pikseli 3* 0,085=0,254
Czyli na to samo wychodzi.
No chyba, ďż˝e coďż˝ pokrďż˝ciďż˝em

Moďż˝emy (w kontekďż˝cie 300DPI) narysowaďż˝ moduďż˝ (czyli najwďż˝szy pasek)
o szerokoďż˝ci 1 piksela, ale czy tak wďż˝ski pasek przeczyta czytnik ???

Rďż˝nice w dďż˝ugoďż˝ci kodu przedstawiaďż˝em juďż˝ na
http://www.bratki.w.v1.pl/tmp/Code128C.png
zaznaczajďż˝c, ďż˝e widzďż˝ drobnďż˝ rďż˝nice w jednym pasku pionowym
w porďż˝wnaniu z kodem utworzonym przez generator i mam nadziejďż˝,
ďż˝e czytnik da sobie radďż˝.
Otďż˝ NIE. Czytnik odmďż˝wiďż˝ wspďż˝pracy przy tym kodzie. Nie czytaďż˝ go.
Oďż˝ďż˝wkiem pogrubiďż˝em problematycznďż˝ liniďż˝ i czytnik odczytaďż˝ kod.
Czy to byďż˝ bďż˝ďż˝d programu. Otďż˝ i tak i nie.
Formant Image miaďż˝ ustawione border Width=1pt i Size Mode =Stretch
(dla potrzeb przedstawienia na WWW), a wymiary formantu programowo
dopasowywany byďż˝ do zawartoďż˝ci. Czyli obramowanie zabraďż˝o czďż˝ďż˝
miejsca na bitmapďż˝

Nastďż˝piďż˝a zmiana szerokoďż˝ci bitmapy o 1 lub kilka pikseli.
I co zrobiďż˝ Access. Ano dopasowaďż˝ bitmapďż˝.
Szerokoďż˝ďż˝ jednego z paskďż˝w zmniejszyďż˝ o 1 piksel i byďż˝ moďż˝e
biaďż˝e obramowanie o pozostaďż˝y(e) piksel(e).

No i bďż˝ďż˝d odczytu gotowy.
Byďż˝ to zupeďż˝ny przypadek, ale bardzo dobrze ze siďż˝ zdarzyďż˝.

Przykďż˝ad obrazujďż˝cy problem skalowania:
http://www.bratki.w.v1.pl/tmp/Code128CTest.png

Trzy pierwsze kody (od gďż˝ry) sďż˝ prawidďż˝owe.
W dwďż˝ch dolnych pasek zaznaczony na czerwono powoduje
bďż˝ďż˝d odczytu !

--
Pozdrowienia
BraZby
www.bratki.w.v1.pl/accesspseudofaq

Krzysztof Naworyta

unread,

May 6, 2009, 3:12:15 PM5/6/09

to

Juzer Zbigniew Bratko <bra...@BEZTEGOgazeta.pl> napisaďż˝

|| W specyfikacji, do ktďż˝rej podaďż˝eďż˝ linkďż˝, wyraďż˝nie mďż˝wiďż˝, ďż˝e to w

|| zasadzie program powinien sam optymalizowaďż˝ czy w Code128 zostanie
|| uďż˝yty typ A, B, czy C.
|| Nawet podajďż˝ ogďż˝lne wytyczne czym taki algorytm miaďż˝by siďż˝ kierowaďż˝.
|| Powiem szczerze, ďż˝e bardzo mnie to zainteresowaďż˝o.
|
| [...]
|
| Moim zdaniem Zestaw A jest zupeďż˝nie spokojnie do odrzucenia,
| chyba ďż˝e chcemy przekazywaďż˝ znaki sterujďż˝ce. Juďż˝ bardziej ciekawe jest
| uďż˝ycie Znaku FNC4 rozszerzajďż˝cego zakres o nastďż˝pne 128.
| Ale czy czytniki to juďż˝ obsďż˝ugujďż˝, tego nie wiem.

No wďż˝aďż˝nie... Cos mi tam przebďż˝ysďż˝o, ďż˝e w zasadzie toto nie dziaďż˝a...
Czy raczej: dziaďż˝a, ale jedynie w obrďż˝bie hamerykaďż˝skiej strony kodowej
(?)
Mniejsza... Jakos mi na razie nie zaleďż˝y na ďż˝ i ďż˝ ;)

| Nie bardzo chce mi siďż˝ bawiďż˝ w takie optymalizowanie.

szkoda ;)

| a moďż˝e wymusiďż˝, a raczej jeďż˝eli jest to moďż˝liwe samemu to zrobiďż˝, by
| przed ostatnim nieparzystym znakiem dopisaďż˝ 0
| 12345 -->123405
| StartC 12 34 05 - 4 znakďż˝w
| Oczywiďż˝cie sďż˝ puďż˝apki dla ostatniego, tak zapisanego znaku,

No wďż˝aďż˝nie. Nie mďż˝w mi, ze nie widzisz rďż˝nicy miďż˝dzy ciďż˝giem
12345
a
123405

bo dla mnie to zupeďż˝nie inny kod.
Co? dodaďż˝ kolejny znak sugerujďż˝cy obsuwkďż˝ zera? :)

To juďż˝ bardziej
12345
versus
012345

ale odrzucam i jedno i drugie. Nie o taka optymalizacjďż˝ chodzi.

|| Pamiďż˝tamy oczywiďż˝cie caďż˝y czas, ďż˝e w tym kodzie w kaďż˝dej chwili moďż˝emy
|| przeďż˝ďż˝czyďż˝ siďż˝ miďż˝dzy typami lub po prostu uďż˝yďż˝ SHIFT (dla pojedynczego
|| znaku).
|
| No, nie bardzo, jedynie w obrďż˝bie Zbiorďż˝w A i B:
|
| <cyt>
| a.. Znak Shift zmienia zestaw kodu A na B lub B na A dla jednego znaku
| nastďż˝pujďż˝cego po znaku Shift. Znak nastďż˝pujďż˝cy po znaku, na ktďż˝ry
| zadziaďż˝aďż˝ znak Shift wraca do zestawu kodu A lub B zdefiniowanego przed
| znakiem Shift. </cyt>
|
| W zestawie C nie ma znaku SHIFT.

Oj, ale jesteďż˝ drobiazgowy :)
Jasne, ďż˝e w C nie ma SHIFT, bo co tu shiftowaďż˝ ;)

|| Dla Code128 okreďż˝la siďż˝ gďż˝rnďż˝ granicďż˝ jako 16cm szerokoďż˝ci i/lub 48
|| znakďż˝w (vide przytoczona przez Ciebie specyfikacja).
|| Jak dďż˝ugo pierwszy i drugi sposďż˝b kodowania nie przekrocza tej granicy,
|| dyskusja jest pewnie czysto akademicka.
|
| No nie bardzo. Moďż˝e dojďż˝ďż˝ do ograniczenia wielkoďż˝ci miejsca na kod
| paskowy. Byďż˝ moďż˝e na druku miejsce na ADRES POMOCNICZY jest zbyt wďż˝skie
| by pomieďż˝ciďż˝ ciďż˝g znakďż˝w kodowany Zbiorem B, a zupeďż˝nie spokojnie
| wchodzi tam ciďż˝g znakďż˝w kodowany Zbiorem C.

Ok, Ok! Masz racjďż˝. Sďż˝ jeszcze wymogi Poczty Polskiej. :)))
Ale mďż˝wiďż˝em tylko o specyfikacji.

| [...]

| O nie, w ďż˝ďż˝czenie kodďż˝w nie chce mi siďż˝ wchodziďż˝.

No wiem, ďż˝atwiej zwaliďż˝ to na juzeriďż˝ :)
Ale dlaczego nie chce Ci siďż˝ wchodziďż˝?
W sumie rozgraniczmy: piszemy program do drukowania kodu kreskowego czy
program do interpretowania co odczytaďż˝ czytnik?
Bo jeďż˝li tylko to pierwsze, to chyba nie trzeba aďż˝ tak siďż˝ staraďż˝? Czy na
odwrďż˝t? ;)

|| No i na koniec:
|| Czy znak Start + FNC1 (jako rozszerzony znak Start) wchodzi jako
|| element wyliczanej sumy kontrolnej czy nie?
|| Bo jakoďż˝ nie znalazďż˝em tej informacji w specyfikacji.
|
| Na stronie 5 jest przykďż˝adzik.

| (...)

No i d*pa, bo przykďż˝adzik dotyczy Code128 a nie rozszerzonego GS1-128.
Dla mnie nie jest to jednoznaczne.

| [...]

| Formant Image miaďż˝ ustawione border Width=1pt i Size Mode =Stretch
| (dla potrzeb przedstawienia na WWW), a wymiary formantu programowo
| dopasowywany byďż˝ do zawartoďż˝ci. Czyli obramowanie zabraďż˝o czďż˝ďż˝
| miejsca na bitmapďż˝
|
| Nastďż˝piďż˝a zmiana szerokoďż˝ci bitmapy o 1 lub kilka pikseli.
| I co zrobiďż˝ Access. Ano dopasowaďż˝ bitmapďż˝.
| Szerokoďż˝ďż˝ jednego z paskďż˝w zmniejszyďż˝ o 1 piksel i byďż˝ moďż˝e
| biaďż˝e obramowanie o pozostaďż˝y(e) piksel(e).
|
| No i bďż˝ďż˝d odczytu gotowy.
| Byďż˝ to zupeďż˝ny przypadek, ale bardzo dobrze ze siďż˝ zdarzyďż˝.

Kurde, nie rozumiem. Oczywiďż˝cie moďż˝emy wszystko zrzuciďż˝ na Border i juďż˝...
Ale czy na access'a ? Bo jeďż˝li dobrze rozumiem, Mode=Stretch
przeskalowaďż˝oby wszystkie paski a nie jakiďż˝ ostatni (?)
Dlaczego ostatni? Moďż˝e nastďż˝piďż˝o jakieďż˝ uciďż˝cie i juďż˝?

--
KN

Tomasz Kiełpiński

unread,

May 7, 2009, 3:17:50 AM5/7/09

to

Uďż˝ytkownik "Krzysztof Naworyta" <k.naw...@datacomp.com.pl> napisaďż˝ w

wiadomoďż˝ci news:gtseje$qe1$1...@news.onet.pl...

>[...]

>
> Rozumiem, ďż˝e mozna do nich wystďż˝piďż˝ o "pulďż˝ numerďż˝w" i wtedy drukujemy
> sami?
> Dbajďż˝c jedynie o unikalnoďż˝ďż˝ kaďż˝dego numeru?

Aha.
Kieďż˝piďż˝

__________ Informacja programu ESET NOD32 Antivirus, wersja bazy sygnatur wirusďż˝w 4058 (20090507) __________

Zbigniew Bratko

unread,

May 7, 2009, 1:01:17 PM5/7/09

to

Uďż˝ytkownik "Krzysztof Naworyta" <k.naw...@datacomp.com.pl> napisaďż˝ w

wiadomoďż˝ci news:gtspue$sqh$2...@news.onet.pl...

> Juzer Zbigniew Bratko <bra...@BEZTEGOgazeta.pl> napisaďż˝
>

[...]

>
>
> | a moďż˝e wymusiďż˝, a raczej jeďż˝eli jest to moďż˝liwe samemu to zrobiďż˝, by
> | przed ostatnim nieparzystym znakiem dopisaďż˝ 0
> | 12345 -->123405
> | StartC 12 34 05 - 4 znakďż˝w
> | Oczywiďż˝cie sďż˝ puďż˝apki dla ostatniego, tak zapisanego znaku,
>
> No wďż˝aďż˝nie. Nie mďż˝w mi, ze nie widzisz rďż˝nicy miďż˝dzy ciďż˝giem
> 12345
> a
> 123405
>
> bo dla mnie to zupeďż˝nie inny kod.
> Co? dodaďż˝ kolejny znak sugerujďż˝cy obsuwkďż˝ zera? :)
>
> To juďż˝ bardziej
> 12345
> versus
> 012345
>
> ale odrzucam i jedno i drugie. Nie o taka optymalizacjďż˝ chodzi.

Ja zaproponowaďż˝em to raczej z mojego "specyficznego" punktu widzenia.
Oczywiďż˝cie, jeďż˝eli chodzi o przekazania ciďż˝gu jako liczby (czy teďż˝ liczby
jako ciďż˝g znakďż˝w) to moja sugestia jest bez sensu.

Ja bardziej zainteresowany jestem utworzeniem wďż˝asnego systemu
oznaczeďż˝ pewnych grup elementďż˝w:

grupa gďż˝ďż˝wna: 0 do 99 -> formatowane na 00
podgrupa: 0 do 99 -> formatowane na 00
i subgrupa: 0 do 999 -> formatowane na 000 ???
a dalej np. numeryczne (lub alfanumeryczny) identyfikator.

Zamiast babraďż˝ siďż˝ w kodowanie ostatniego, (tego nie od pary) znaku
naleďż˝y sformatowaďż˝ subgrupďż˝ na 0000. Mam parzystďż˝ liczbďż˝ znakďż˝w
i oszczďż˝dzam jeden znak przeďż˝ďż˝czenia na zbiďż˝r A.

Ale jeďż˝eli kodowana jest liczba, no to nie ma tak prostej zabawy.

[...]

>
> || No i na koniec:
> || Czy znak Start + FNC1 (jako rozszerzony znak Start) wchodzi jako
> || element wyliczanej sumy kontrolnej czy nie?
> || Bo jakoďż˝ nie znalazďż˝em tej informacji w specyfikacji.
> |
> | Na stronie 5 jest przykďż˝adzik.
> | (...)
>
> No i d*pa, bo przykďż˝adzik dotyczy Code128 a nie rozszerzonego GS1-128.
> Dla mnie nie jest to jednoznaczne.

Zobacz na str. 30
http://tinyurl.com/cq8tb9

>
> | [...]
> | Formant Image miaďż˝ ustawione border Width=1pt i Size Mode =Stretch
> | (dla potrzeb przedstawienia na WWW), a wymiary formantu programowo
> | dopasowywany byďż˝ do zawartoďż˝ci. Czyli obramowanie zabraďż˝o czďż˝ďż˝
> | miejsca na bitmapďż˝
> |
> | Nastďż˝piďż˝a zmiana szerokoďż˝ci bitmapy o 1 lub kilka pikseli.
> | I co zrobiďż˝ Access. Ano dopasowaďż˝ bitmapďż˝.
> | Szerokoďż˝ďż˝ jednego z paskďż˝w zmniejszyďż˝ o 1 piksel i byďż˝ moďż˝e
> | biaďż˝e obramowanie o pozostaďż˝y(e) piksel(e).
> |
> | No i bďż˝ďż˝d odczytu gotowy.
> | Byďż˝ to zupeďż˝ny przypadek, ale bardzo dobrze ze siďż˝ zdarzyďż˝.
>

> Kurde, nie rozumiem. Oczywiďż˝cie moďż˝emy wszystko zrzuciďż˝ na Border i juďż˝...
> Ale czy na access'a ? Bo jeďż˝li dobrze rozumiem, Mode=Stretch
> przeskalowaďż˝oby wszystkie paski a nie jakiďż˝ ostatni (?)
> Dlaczego ostatni? Moďż˝e nastďż˝piďż˝o jakieďż˝ uciďż˝cie i juďż˝?

Na Border nic nie zrzucam. Border razem z Clip jest OK,
ale Border rysowane jest takďż˝e wewnďż˝trz formantu Image.
I tutaj zaczyna byďż˝ problem.

Rozpatrzmy przykďż˝adowďż˝ bitmapďż˝ i formant Image:

Szerokoďż˝ďż˝ formantu= 2460 twipďż˝w, czyli 46,57 mm przy DPI 96

Border=0; SizeMode = Stretch -> co w moim przypadku nie gra roli
poniewaďż˝ formant Image programowo jest dopasowany do wymiarďż˝w bitmapy,
przez co dla rďż˝nych kodďż˝w, szerokoďż˝ďż˝ formantu Image jest rďż˝na

No to rysujemy przykďż˝adowy kod kreskowy, czyli nasz "Oryginaďż˝".
Czyta go prawidďż˝owo czytnik.

Ale co siďż˝ stanie gdy akurat nie dopasowujemy rozmiaru formantu Image
do rozmiaru bitmapy, ale mamy SizeMode = Stretch by dopasowaďż˝
bitmapďż˝ do rozmiarďż˝w formantu.
No to ustawmy szerokoďż˝ďż˝ formantu image na 46,04 mm, czyli 2410 twipďż˝w.
Praktycznie zmniejszyliďż˝my szerokoďż˝ďż˝ bitmapy o 0, 53 mm, czyli 2 piksele
ekranowe, w naszym przykďż˝adzie ze 176 pikseli na 174 piksele.

Jak Access zgubiďż˝ 2 piksele.

A. 1-szy piksel:

Popatrzmy na 10 i 11 czarny pionowy pasek kodu oryginalnego (liczďż˝c
od lewej). jest tam ukďż˝ad : X_XXX (czarny pasek 1px, biaďż˝y pasek 1px,
czarny pasek 3px)
Obszar ten Access zamieniďż˝ na XXXX , czyli utworzyďż˝ jeden czarny pasek
o szerokoďż˝ci 4 px, usuwajďż˝c biaďż˝y 1 pikselowy pasek.
Praktycznie zostaďż˝ usuniďż˝ty biaďż˝y i czarny pasek.

B. 2-gi piksel

Biaďż˝y pasek o szerokoďż˝ci 3 px, pomiďż˝dzy 9 a 10 paskiem czarnym (liczďż˝c
od strony prawej) zmniejszyďż˝ o 1 px. I to wszystko.
Czym siďż˝ Access kierowaďż˝ przy wyborze tych paskďż˝w wiedzďż˝ chyba tylko
programiďż˝ci M$.

A mďż˝gďż˝ przecieďż˝ uciďż˝ďż˝ (a raczej zlikwidowaďż˝) biaďż˝y obszar po lewej lub po
prawej stronie. Bo to duďż˝y jednolity obszar. Prawda ?
Ale jest to tzw. cicha strefa o ďż˝ciďż˝le okreďż˝lonej szerokoďż˝ci.
No, a jak byďż˝my narysowali kod paskowy bez marginesďż˝w (tzw. cichej strefy).
To gdzie ma usunďż˝ďż˝ te dwa piksele.

Efekt pomniejszenia bitmapy powoduje takďż˝e ustawienie obramowania formantu
Image. Jeďż˝li siďż˝ nie mylďż˝ to obramowanie rysowane jest po poďż˝owie (jakie by
te poďż˝owy nie byďż˝y dla jednego piksela) wewnďż˝trz i na zewnďż˝trz obrysu
formantu, zajmujďż˝c tym samym obszar przeznaczony na bitmapďż˝.

Moim zdanie najlepszy jest SizeMode=Clip.
Wtedy nic Ci Access nie Utnie.

Wydaje mi siďż˝, ďż˝e im wiďż˝ksza rozdzielczoďż˝ďż˝, tym mniejszy problem.
Ale im bardziej upakowany (gďż˝ciejszy) kod tym bardziej wraďż˝liwy na
skalowanie.
Ja rozpatrywaďż˝em wszystko w kontekďż˝cie Ekranu, u mnie DPI =96.

Moďż˝na siďż˝ bawiďż˝ w rysowanie na wiďż˝kszej bitmapie (czyli w wiďż˝kszej
rozdzielczoďż˝ci), ale potem to trzeba wsadziďż˝ w formant Image.

Nasuwa sie pytanie jak Access drukuje wiďż˝ksze bitmapy.
Czy na drukarkďż˝ idzie tylko przeskalowana bitmapa z formantu Image,
czy przekazywana jest caďż˝a bitmapa, ktďż˝ra w trakcie wydruku jest
skalowana do konkretnej rozdzielczoďż˝ci drukarki ?

Moďż˝na rďż˝wnieďż˝ bawiďż˝ siďż˝ w rysowanie w kontekďż˝cie hdc Printera i wysyďż˝aďż˝
bitmapďż˝ na drukarkďż˝, ale to tylko rozwaďż˝ania dotyczďż˝ce raczej drukowania
samych etykietek z kodem.

</dywagowanie>

--
Pozdrowienia
BraZby

Zbigniew Bratko

unread,

May 7, 2009, 1:10:55 PM5/7/09

to

Uďż˝ytkownik "Zbigniew Bratko" <bra...@BEZTEGOgazeta.pl> napisaďż˝ w wiadomoďż˝ci
news:gtv44b$j3k$1...@inews.gazeta.pl...

[...]

Zapomniaďż˝em podaďż˝ link do przykďż˝adowego obrazka:

http://www.bratki.w.v1.pl/tmp/Code128C_Test2a.png

--
Pozdrowienia
BraZby

Krzysztof Naworyta

unread,

May 8, 2009, 2:03:42 PM5/8/09

to

Juzer Zbigniew Bratko <bra...@BEZTEGOgazeta.pl> napisaďż˝

|||| No i na koniec:

|||| Czy znak Start + FNC1 (jako rozszerzony znak Start) wchodzi jako
|||| element wyliczanej sumy kontrolnej czy nie?
|||| Bo jakoďż˝ nie znalazďż˝em tej informacji w specyfikacji.

|| No i d*pa, bo przykďż˝adzik dotyczy Code128 a nie rozszerzonego GS1-128.

|| Dla mnie nie jest to jednoznaczne.
|
| Zobacz na str. 30
| http://tinyurl.com/cq8tb9

Teraz juďż˝ wszystko ok!
Czyli po prostu dla celďż˝w obliczenia sumy kontrolnej pierwszy FNC1
traktowany jest jak kaďż˝dy inny znak w Code128.
Oznacza to teďż˝, ďż˝e w samym algorytmie nic siďż˝ nie zmienia. I to jest dobra
nowina :)

Jeďż˝li w mojej bazie zapragnďż˝ przekazaďż˝ coďż˝ w kodzie GS1-128, to wystarczy
jesli do "AlaMaKota01234567" doklejďż˝ na poczďż˝tku owo FNC1.
Czyli
Chr(135) & "AlaMaKota01234567"
i wybiorďż˝ Start B.

Oczywiďż˝cie jeďż˝li zrzucďż˝ wszystko na uzytkownika, to niech po literach
wstawi sobie CodeC, a pary cyfr przeksztaďż˝ci do odpowiednich znakďż˝w.

Byďż˝oby to wtedy:
Chr(135) & "AlaMaKota" & chr(131) & chr(33) & chr(55) & chr(77) &
chr(99)
------------------------------------------------------------------------
FNC1 AlaMaKota CodeC 01 23 45 67

Zamiast 8 znakďż˝w przekaďż˝e 5. Zysk: 3 znaki.

Niemniej juďż˝ widzďż˝, ďż˝e w swoim module w ogďż˝le nie uwzglďż˝dniďż˝em przypadku
StartC/CodeC.
Albo bezwiednie zaďż˝oďż˝yďż˝em, ďż˝e uďż˝ytkownik przekaďż˝e pary cyfr juďż˝
przekonwertowane do znakďż˝w...
Czyli jest co poprawiaďż˝.

Swojďż˝ drogďż˝ ciekawe sďż˝ te znaki funkcyjne w CodeA...
Jakie mogďż˝ one mieďż˝ praktyczne znaczenie?
Czy jeďż˝li przekaďż˝ďż˝ c128a_HT (73 := chr(105)), to czytnik jako emulator
klawiatury przekaďż˝e to jako Tab (chr(9)) ?
Czy bďż˝dzie to oznaczaďż˝ przeskok do kolejnej kontrolki???

(kurde, nie mam obecnie czytnika by to sprawdziďż˝...)

Z kolei, jesli w aplikacji chciaďż˝bym swďż˝j kod rozďż˝oďż˝yďż˝ do kilku kontrolek
(vide: nr, waga, jednostka), to juďż˝ chyba lepiej wykorzystaďż˝ grupowanie,
hmmm...

Coraz bardziej zaciekawia mnie ten Code128...

||| [...]

| Rozpatrzmy przykďż˝adowďż˝ bitmapďż˝ i formant Image:
|
| Szerokoďż˝ďż˝ formantu= 2460 twipďż˝w, czyli 46,57 mm przy DPI 96
|
| Border=0; SizeMode = Stretch -> co w moim przypadku nie gra roli
| poniewaďż˝ formant Image programowo jest dopasowany do wymiarďż˝w bitmapy,
| przez co dla rďż˝nych kodďż˝w, szerokoďż˝ďż˝ formantu Image jest rďż˝na
|
| No to rysujemy przykďż˝adowy kod kreskowy, czyli nasz "Oryginaďż˝".
| Czyta go prawidďż˝owo czytnik.
|
| Ale co siďż˝ stanie gdy akurat nie dopasowujemy rozmiaru formantu Image
| do rozmiaru bitmapy, ale mamy SizeMode = Stretch by dopasowaďż˝
| bitmapďż˝ do rozmiarďż˝w formantu.
| No to ustawmy szerokoďż˝ďż˝ formantu image na 46,04 mm, czyli 2410 twipďż˝w.
| Praktycznie zmniejszyliďż˝my szerokoďż˝ďż˝ bitmapy o 0, 53 mm, czyli 2
| piksele ekranowe, w naszym przykďż˝adzie ze 176 pikseli na 174 piksele.
|
| Jak Access zgubiďż˝ 2 piksele.

(...)

| Moim zdanie najlepszy jest SizeMode=Clip.
| Wtedy nic Ci Access nie Utnie.

Ech, no tak, ale obydwaj chyba podchodzimy do tego z dwďż˝ch skrajnych
punktďż˝w...

Jakie byďż˝o moje rozumowanie:
Narysowaďż˝ najmniejszďż˝ mozliwďż˝ bitmapďż˝, bo...

Czyli niech bďż˝dzie monochromatyczna (niewielki narzut nagďż˝ďż˝wka ale
oszczďż˝dnoďż˝ďż˝ na pixelach na bajt) oraz wysokoďż˝ci jednego pixela.
W poziomie jeden pixel (jako jednostka minimalna) musi reprezentowaďż˝
szerokoďż˝ďż˝ najwďż˝szego moduďż˝u (o ile pozostaďż˝e sďż˝ jego wielokrotnoďż˝ciďż˝).

Dziďż˝ki takiemu zabiegowi mam naprawdďż˝ bardzo maďż˝ďż˝ bitmapkďż˝, jej
"rysowanie" jest szybkie itd. itp.

Uzytkownik sam okreďż˝la wielkoďż˝ďż˝ kodu kreskowego (wielkoďż˝ďż˝ kontrolki Obraz)
a ja wsadzam bitmapďż˝ i jďż˝ rozciďż˝gam.
Rozciďż˝gam! Nie zawďż˝am! (przynajmniej w 99% przypadkach :) )
Fakt, ďż˝e nie wprowadziďż˝em ďż˝adnej kontroli, czy pierwotna bitmapa nie jest
zbyt gďż˝sta lub cos przekďż˝amuje.

Przyjmijmy zaďż˝oďż˝enie, ďż˝e uďż˝ytkownik:
a) zna ograniczenia Code128 (np: 48 znakďż˝w i max. 16cm)
b) sprwadza czy czytnik prawidďż˝owo odczytuje kod kreskowy

Jakie jest ryzyko, ďż˝e rozciďż˝gniďż˝ty pixel zostanie przekďż˝amany?
ďż˝e zostanie zinterpretowany nie jako jeden minimalny moduďż˝ tylko 2?
Na ekranie moďż˝e wyglďż˝daďż˝ to rďż˝nie, ale na papierze (ponad 3 krotnie
wiďż˝ksza rozdzielczoďż˝ďż˝) jest juďż˝ duďż˝o lepiej i jakims cudem mieďż˝ci siďż˝ w
tolerancji samego kodu.
Czy przy rozciďż˝ganiu jest ryzyko, ďż˝e zniknie biaďż˝a przerwa miďż˝dzy czarnymi
moduďż˝ami? E, chyba nikďż˝a.
Niby jest ryzyko, ďż˝e jeďż˝li rozciďż˝gnďż˝ 1 pixel 10.5-krotnie, to czasami
bďż˝dzie to 10 pikseli a czasem 11.
Ale moduďż˝ 2x szerszy bďż˝dzie miaďż˝ szerokoďż˝ďż˝ 20, 21 lub 22 piksele.
I to siďż˝ chyba najwyraďż˝niej ďż˝wietnie mieďż˝ci w tolerancji wbudowanej w sam
czytnik.

| <dywagowanie>
|
| Moďż˝na siďż˝ bawiďż˝ w rysowanie na wiďż˝kszej bitmapie (czyli w wiďż˝kszej
| rozdzielczoďż˝ci), ale potem to trzeba wsadziďż˝ w formant Image.
|
| Nasuwa sie pytanie jak Access drukuje wiďż˝ksze bitmapy.
| Czy na drukarkďż˝ idzie tylko przeskalowana bitmapa z formantu Image,
| czy przekazywana jest caďż˝a bitmapa, ktďż˝ra w trakcie wydruku jest
| skalowana do konkretnej rozdzielczoďż˝ci drukarki ?
|
| Moďż˝na rďż˝wnieďż˝ bawiďż˝ siďż˝ w rysowanie w kontekďż˝cie hdc Printera i wysyďż˝aďż˝
| bitmapďż˝ na drukarkďż˝, ale to tylko rozwaďż˝ania dotyczďż˝ce raczej drukowania
| samych etykietek z kodem.
|
| </dywagowanie>

BraZby, ja osobiďż˝cie podziwiam Twojďż˝ zdolnoďż˝ďż˝ operowania na bitmapach i
tutaj nic od lat siďż˝ nie zmienia.
Rozumiem np. Twojďż˝ ambicjďż˝ aby stworzyďż˝ bitmapďż˝, ktďż˝ra zawiera nie tylko
kreski ale takďż˝e humanreadable information.
I to, choďż˝ fajne, narzuca Ci koniecznoďż˝ďż˝ rysowania bitmapy w rzeczywistym
rozmiarze.
Pewnie masz zupeďż˝nďż˝ racjďż˝, ďż˝e w koďż˝cu generowanie bitmapy ktďż˝ra waďż˝y 10kB
a bitmapy 100B, to i tak pomijalna rďż˝nica czasowa i RAM'u.

Ale wďż˝aďż˝nie teraz zauwaďż˝am, ďż˝e chyba moje podejďż˝cie minimalistyczne jest
bezpieczniejsze.
Bo chyba bitmapa nie cierpi ďż˝cieďż˝niania. Tu dochodzi do najczďż˝stszych
przekďż˝amaďż˝. Nawet w tak niewinnym przypadku jak styl obramowania.
Za to w przypadku rozciďż˝gania jest chyba lepiej.

Powiem tak.
Drukowaďż˝em unikalny kod EAN13 w dziesiďż˝tkach tyďż˝. egzemplarzy na kartkach
A4 (kaďż˝da kartka inne 5 kodďż˝w).
Nastďż˝pnie te kartki do nas wracaďż˝y i byďż˝y wrzucane do skanera.
Inny mďż˝j program te skany dekodowaďż˝ przy pomocy jakiegoďż˝ ActiveX, juďż˝ nie
pamiďż˝tam jakiego.
Iloďż˝ďż˝ nierozpoznanych kartek byďż˝a minimalna! Gdzieďż˝ poniďż˝ej 1%% !
Mimo dodatkowych bďż˝ďż˝dďż˝w jakie narzucaďż˝a operacja skanowania!
(przekrďż˝cony dokument w podajniku, zagiďż˝ta kartka, kilka kartek
wciďż˝gniďż˝tych naraz ...)
Skaner byďż˝ z podajnikiem i niesamowicie wydajny (kosztem pewnie
dokďż˝adnoďż˝ci) a wszystkie rozpoznane pliki byďż˝y pod nowďż˝ nazwďż˝ przesuwane
do innego katalogu, wraz z notacjďż˝ w bazie.

Powiesz: EAN13 to jednak zupeďż˝nie co innego niďż˝ Code128. Ma staďż˝ďż˝
szerokoďż˝ďż˝ (13 cyfr i ani jednej mniej czy wiďż˝cej). Jest bardzo ostry.
Obrazek szerokoďż˝ci 5-6cm to czasami aďż˝ zbyt kulfoniasty kod wychodziďż˝ :)
Niemniej... Sam byďż˝em zaskoczony. Przypuszczam, ďż˝e w supermarketach
czďż˝ciej muszďż˝ wpisywaďż˝ kod z palca.

No i w koďż˝cu, wydaje siďż˝, ďż˝e w zastosowaniach przemysďż˝owych Code128 teďż˝ ma
przewidywalnďż˝ szerokoďż˝ďż˝.
Jeďż˝li PocztaPolska rezerwuje dla niego 7cm, to rozumiem, ďż˝e nie oczekuje
aby tam byďż˝o wiďż˝cej niďż˝ poďż˝owa z dopuszczalnych 45-u znakďż˝w.

No i na koniec moďż˝emy powrďż˝ciďż˝ do tematu EMF, ktďż˝ry - jak pamiďż˝tam -
roztrzaskaďż˝eďż˝ ďż˝wietnie.
Czyli nie piszemy pikseli tylko instrukcje. Namaluj czarny prostokďż˝t,
potem kolejny itd.
Czy to jednak przeskoczy problem ziarnistoďż˝ci obrazka? Jeďż˝li EMF-a bďż˝dzie
trzeba zawďż˝ziďż˝ tak, ďż˝e jeden pixel (w zadanym kontekďż˝cie) ma przyjďż˝ďż˝ 0,7
piksela, to chyba i EMF nie poradzi.

Zbigniew Bratko

unread,

May 9, 2009, 10:09:04 AM5/9/09

to

Uďż˝ytkownik "Krzysztof Naworyta" <k.naw...@datacomp.com.pl> napisaďż˝ w

wiadomoďż˝ci news:gu1s62$dur$2...@news.onet.pl...

> Juzer Zbigniew Bratko <bra...@BEZTEGOgazeta.pl> napisaďż˝

[...]

> Swojďż˝ drogďż˝ ciekawe sďż˝ te znaki funkcyjne w CodeA...
> Jakie mogďż˝ one mieďż˝ praktyczne znaczenie?
> Czy jeďż˝li przekaďż˝ďż˝ c128a_HT (73 := chr(105)), to czytnik jako emulator
> klawiatury przekaďż˝e to jako Tab (chr(9)) ?
> Czy bďż˝dzie to oznaczaďż˝ przeskok do kolejnej kontrolki???
>
> (kurde, nie mam obecnie czytnika by to sprawdziďż˝...)
>

No nie mďż˝w ze chcesz sterowaďż˝ Accessem za pomocďż˝ czytnika kodďż˝w.
By czytaďż˝ kod przeskakiwaďż˝ po kontrolkach, wpisywaďż˝ tekst,
dodawaďż˝ nowe linie.
No nie wiem jak zareaguje Access na sygnaďż˝y z czytnika
robiďż˝cego za klawiaturďż˝..

> Z kolei, jesli w aplikacji chciaďż˝bym swďż˝j kod rozďż˝oďż˝yďż˝ do kilku kontrolek
> (vide: nr, waga, jednostka), to juďż˝ chyba lepiej wykorzystaďż˝ grupowanie,
> hmmm...

No niby moďż˝esz ďż˝ďż˝czyďż˝ kody w grupy, bďż˝dďż˝ stosujďż˝c IZ okreďż˝lajďż˝cy
dďż˝ugoďż˝ďż˝ danych, bďż˝dďż˝ znak FNC1. Oszczďż˝dzasz praktycznie
tylko na znaku kontrolnym.

>
> Coraz bardziej zaciekawia mnie ten Code128...
>

[...]

> | Jak Access zgubiďż˝ 2 piksele.
> (...)
> | Moim zdanie najlepszy jest SizeMode=Clip.
> | Wtedy nic Ci Access nie Utnie.
>
> Ech, no tak, ale obydwaj chyba podchodzimy do tego z dwďż˝ch skrajnych
> punktďż˝w...
>
> Jakie byďż˝o moje rozumowanie:
> Narysowaďż˝ najmniejszďż˝ mozliwďż˝ bitmapďż˝, bo...
>
> Czyli niech bďż˝dzie monochromatyczna (niewielki narzut nagďż˝ďż˝wka ale
> oszczďż˝dnoďż˝ďż˝ na pixelach na bajt) oraz wysokoďż˝ci jednego pixela.
> W poziomie jeden pixel (jako jednostka minimalna) musi reprezentowaďż˝
> szerokoďż˝ďż˝ najwďż˝szego moduďż˝u (o ile pozostaďż˝e sďż˝ jego wielokrotnoďż˝ciďż˝).
>
> Dziďż˝ki takiemu zabiegowi mam naprawdďż˝ bardzo maďż˝ďż˝ bitmapkďż˝, jej
> "rysowanie" jest szybkie itd. itp.

Dla 10 znakďż˝w kodowanych w poziomie rzeczywiďż˝cie jest malutko
bo ok. 65 bajtďż˝w,
ale dla paska w orientacji pionowej masz juďż˝ ok. 700 bajtďż˝w

___
Poniďż˝ej przedstawiam procedurďż˝ rysujďż˝ca bitmapďż˝ o wys. 1 pix.
ktďż˝rďż˝ moďż˝na sobie rozciďż˝gnďż˝ďż˝.

Przykďż˝adowe wywoďż˝anie:

Dim sCodeData As String

' sCodeData - przekazane szerokoďż˝ci poszczegďż˝lnych paskďż˝w

sCodeData = "211232411131212222113222" & _
"214121122312142112212123" & _
"212222212222212222131222" & _
"2312122331112"

StretchBarCode Me.imgTest, sCodeData

W poziomie zajmuje 11 * 10 * 3 + 2 * 3 + 40 = 376 bajtďż˝w

W pionie (korzystam z wďż˝asnej funkcji obracajďż˝cej)
11 * 10 * 4 + 2 * 4 + 40 = 488 bajtďż˝w

'_______________________________
Private Sub StretchBarCode( _
img As Access.Image, _
sCodeData As String)
Dim lBmpWidth As Long
Dim lLenLine As Long
Dim fBlack As Boolean
Dim aPixInBar() As Byte
Dim aPict() As Byte
Dim lOffset As Long
Dim i As Long, j As Long

' iloďż˝ďż˝ wszystkich elementďż˝w * 11 moduďż˝ďż˝w na znak
' + 2 dodatkowe moduďż˝y w znaku Stop
lBmpWidth = (Len(sCodeData) \ 6) * 11 + 2
' dďż˝ugoďż˝ďż˝ linii w bajtach (wielokrotnoďż˝ďż˝ 4)
lLenLine = ((lBmpWidth * 3 + 3) \ 4) * 4

ReDim aPict(0 To 39 + lLenLine) As Byte
' wypeďż˝nij BitmapInfoHeader podstawowymi danymi
aPict(0) = 40: aPict(8) = 1
aPict(12) = 1: aPict(14) = 24:
CopyMemory aPict(4), lBmpWidth, ByVal 4
CopyMemory aPict(20), (lLenLine), ByVal 4

aPixInBar = StrConv(sCodeData, vbFromUnicode)
lOffset = 40
For i = LBound(aPixInBar) To UBound(aPixInBar)
fBlack = Not fBlack
For j = 1 To aPixInBar(i) - 48
' czarny pasek
If fBlack Then
aPict(lOffset + 0) = 0
aPict(lOffset + 1) = 0
aPict(lOffset + 2) = 0
Else
aPict(lOffset + 0) = 255 'Blue
aPict(lOffset + 1) = 255 'Green
aPict(lOffset + 2) = 255 'Red
End If
lOffset = lOffset + 3
Next
Next

img.SizeMode = acOLESizeStretch
' tutaj ewentualnie funkcja obracajďż˝ca bitmapďż˝
img.PictureData = aPict()

End Sub

[...]

>
>
> BraZby, ja osobiďż˝cie podziwiam Twojďż˝ zdolnoďż˝ďż˝ operowania na bitmapach i
> tutaj nic od lat siďż˝ nie zmienia.
> Rozumiem np. Twojďż˝ ambicjďż˝ aby stworzyďż˝ bitmapďż˝, ktďż˝ra zawiera nie tylko
> kreski ale takďż˝e humanreadable information.
> I to, choďż˝ fajne, narzuca Ci koniecznoďż˝ďż˝ rysowania bitmapy w rzeczywistym
> rozmiarze.
> Pewnie masz zupeďż˝nďż˝ racjďż˝, ďż˝e w koďż˝cu generowanie bitmapy ktďż˝ra waďż˝y 10kB
> a bitmapy 100B, to i tak pomijalna rďż˝nica czasowa i RAM'u.
>

Ale tak naprawdďż˝ sam proces rysowania wyglďż˝da prawdopodobne tak:
Rysujesz bitmapkďż˝ o wysokoďż˝ci 1 px, przekazujesz jďż˝ do Accessa, ktďż˝remu
nakazujesz przeskalowanie bitmapy. Czyli Access w pamiďż˝ci tworzy nowďż˝
bitmapďż˝ (w kontekďż˝cie Ekranu) , pewnie wywoďż˝uje funkcjďż˝ API StretchBlt
i powoduje ďż˝e moďż˝na tďż˝ bitmapďż˝ przemalowaďż˝ ekran.

A u mnie malujďż˝ bitmapďż˝, przekazujďż˝ jďż˝ Accessowi, ktďż˝ry tylko przycina
bitmapďż˝ i maluje na ekranie. Zapewne teďż˝ tworzy nowďż˝ bitmapďż˝, ale
nie musi jej skalowaďż˝ (wybieraďż˝ ktďż˝re piksele i gdzie dodaďż˝ lub odjďż˝ďż˝).
No i u mnie PictureDate jest wiďż˝ksza i zajmuje trochďż˝ pamiďż˝ci.
Ale jest 1:1 wiďż˝c tyle zajmuje co ten obszar ekranu w pamiďż˝ci Windows

Ale tak jak piszesz, to sďż˝ niezauwaďż˝alne rďż˝nice

> Ale wďż˝aďż˝nie teraz zauwaďż˝am, ďż˝e chyba moje podejďż˝cie minimalistyczne jest
> bezpieczniejsze.
> Bo chyba bitmapa nie cierpi ďż˝cieďż˝niania. Tu dochodzi do najczďż˝stszych
> przekďż˝amaďż˝. Nawet w tak niewinnym przypadku jak styl obramowania.
> Za to w przypadku rozciďż˝gania jest chyba lepiej.

Jeďż˝eli niepoďż˝ďż˝dane zjawisko zachodzi przy zmniejszaniu np. o dwa piksele
to moďż˝e zajďż˝ďż˝ rďż˝wnieďż˝ przy powiďż˝kszaniu o dwa piksele.
A takie zdarzenie moďż˝e prďż˝dzej, czy pďż˝niej zajďż˝ďż˝.

Jak to Kubuďż˝ Puchatek mawiaďż˝:
Wypadek to dziwna rzecz. Nigdy go nie ma dopďż˝ki siďż˝ nie wydarzy ! ;-)

Mi to w kaďż˝dym bďż˝dďż˝ razie nie daje spokoju.

[...]

--
Pozdrowienia
BraZby

Zbigniew Bratko

unread,

May 9, 2009, 3:13:28 PM5/9/09

to

Uďż˝ytkownik "Zbigniew Bratko" <bra...@BEZTEGOgazeta.pl> napisaďż˝ w wiadomoďż˝ci
news:gu42q2$gpd$1...@inews.gazeta.pl...

>
> Uďż˝ytkownik "Krzysztof Naworyta" <k.naw...@datacomp.com.pl> napisaďż˝ w
> wiadomoďż˝ci news:gu1s62$dur$2...@news.onet.pl...
>> Juzer Zbigniew Bratko <bra...@BEZTEGOgazeta.pl> napisaďż˝
>

[...]

Nowsza wersja procedury rysujďż˝cej kod paskowy Kode128.
Nie sďż˝ sprawdzane jakiekolwiek warunki.
Wszystko naleďż˝y sprawdziďż˝ przed wywoďż˝aniem procedury
we wďż˝asnym zakresie.

'____________________________________________
Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" (pDst As Any, _
pSrc As Any, ByVal ByteLen As Long)
Private Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Const LOGPIXELSX As Long = 88
Private Const LOGPIXELSY As Long = 90
Private Declare Function GetDC Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, _
ByVal hdc As Long) As Long
'______________________
Private Sub btnTest_Click()
Dim sWidthBars As String

sWidthBars = "211232411131212222113222" & _

"214121122312142112212123" & _
"212222212222212222131222" & _
"2312122331112"

StretchBarCode128 sWidthBars, Me.imgTest, 1, 2, True

End Sub
'__________________________________________________________
' pobiera:
' sWidthBars - przygotowany wczeďż˝niej ciďż˝g znakďż˝w w ktďż˝rym kaďż˝da
' cyfra oznacza szerokoďż˝ďż˝ paska. Pierwsza cyfra odnosi siďż˝ do
' czarnego paska, dalej naprzemiennie biaďż˝y, czarny, biaďż˝y ...
' img - formant w ktďż˝rym ma byďż˝ osadzona bitmapa z kodem paskowym
' bRotate - kďż˝t obrotu:
' 1 - bez obrotu; 2 - obrďż˝t o 90 stopni w prawo
' 3 - poziomo o 180 stopni, 4 - 270 stopni w prawo
' bSize - szerokoďż˝ďż˝ moduďż˝u (najwďż˝szego paska)
' fFitImg - czy dopasowaďż˝ wymiar formantu Image do wiďż˝kszego
' wymiaru bitmapy kodu paskowego
'__________________________________________________________
Private Sub StretchBarCode128( _
sWidthBars As String, _
img As Access.Image, _
Optional bRotate As Byte = 1, _
Optional bSize As Byte = 1, _
Optional fFitImg As Boolean = False)
Dim lBmpWidth As Long
Dim lBmpHeight As Long

Dim lLenLine As Long
Dim fBlack As Boolean
Dim aPixInBar() As Byte
Dim aPict() As Byte
Dim lOffset As Long

Dim lStep As Long
Dim lStep1 As Long
Dim lStep2 As Long
Dim lHdc As Long

Dim i As Long, j As Long

If bRotate < 2 Or bRotate = 3 Then

' iloďż˝ďż˝ wszystkich elementďż˝w * 11 moduďż˝ďż˝w na znak
' + 2 dodatkowe moduďż˝y w znaku Stop

lBmpWidth = ((Len(sWidthBars) \ 6) * 11 + 2) * bSize
lBmpHeight = 1
Else
lBmpWidth = 1
lBmpHeight = ((Len(sWidthBars) \ 6) * 11 + 2) * bSize
End If

' dďż˝ugoďż˝ďż˝ linii w bajtach (wielokrotnoďż˝ďż˝ 4)
lLenLine = ((lBmpWidth * 3 + 3) \ 4) * 4

ReDim aPict(0 To 39 + lBmpHeight * lLenLine) As Byte

aPict(0) = 40: aPict(12) = 1: aPict(14) = 24:

CopyMemory aPict(4), lBmpWidth, ByVal 4

CopyMemory aPict(8), lBmpHeight, ByVal 4
CopyMemory aPict(20), lLenLine, ByVal 4

Select Case bRotate
Case Is < 2 '1. 0 stopni
lStep = 3
lOffset = 40
Case 2 '2. 90 stopni w prawo
lStep = -4
lOffset = UBound(aPict) - 1
Case Is = 3 '3. 180 stopni w prawo
lStep = -3
lOffset = UBound(aPict) '- 1
Case Else '4. 270 stopni w prawo
lStep = 4
lOffset = 40
End Select
lStep1 = Sgn(lStep)
lStep2 = 2 * Sgn(lStep)

aPixInBar = StrConv(sWidthBars, vbFromUnicode)

For i = LBound(aPixInBar) To UBound(aPixInBar)
fBlack = Not fBlack

For j = 1 To (aPixInBar(i) - 48) * bSize

' czarny pasek
If fBlack Then

aPict(lOffset) = 0
aPict(lOffset + lStep1) = 0
aPict(lOffset + lStep2) = 0
Else
aPict(lOffset) = 255 'Blue
aPict(lOffset + lStep1) = 255 'Green
aPict(lOffset + lStep2) = 255 'Red
End If
lOffset = lOffset + lStep
Next
Next

img.SizeMode = acOLESizeStretch
img.BorderStyle = 0

' dopasuj do bitmapy
If fFitImg = True Then
lHdc = GetDC(Me.hwnd)
' dla bitmap poziomych
If lBmpHeight = 1 Then
img.Width = lBmpWidth * CSng(1440 / _
GetDeviceCaps(lHdc, LOGPIXELSX))
Else
img.Height = lBmpHeight * CSng(1440 / _
GetDeviceCaps(lHdc, LOGPIXELSY))
End If
Call ReleaseDC(Me.hwnd, lHdc)
End If

img.PictureData = aPict()

End Sub

[...]

Moďż˝e siďż˝ komuďż˝ przyda.
Nie testowaďż˝em przykďż˝adu gruntownie, ale nie powinno
byďż˝ chyba "baboli".

--
Pozdrowienia
BraZby
www.bratki.w.v1.pl/accesspseudofaq

Zbigniew Bratko

unread,

May 10, 2009, 3:50:45 PM5/10/09

to

Uďż˝ytkownik "Zbigniew Bratko" <bra...@BEZTEGOgazeta.pl> napisaďż˝ w wiadomoďż˝ci

news:gu4kkr$au8$1...@inews.gazeta.pl...

> [...]
>
>
> Nowsza wersja procedury rysujďż˝cej kod paskowy Kode128.
> Nie sďż˝ sprawdzane jakiekolwiek warunki.
> Wszystko naleďż˝y sprawdziďż˝ przed wywoďż˝aniem procedury
> we wďż˝asnym zakresie.

[...]

> '____________________________________

> Private Sub StretchBarCode128( _
> sWidthBars As String, _
> img As Access.Image, _
> Optional bRotate As Byte = 1, _
> Optional bSize As Byte = 1, _
> Optional fFitImg As Boolean = False)

[...]

>
> Moďż˝e siďż˝ komuďż˝ przyda.
> Nie testowaďż˝em przykďż˝adu gruntownie, ale nie powinno
> byďż˝ chyba "baboli".

[...]

Trochďż˝ jednak potestowaďż˝em i poprawiďż˝em maďż˝e Co nieco.
Przede wszystkim procedura rysuje dowolny kod paskowy
w/ zadanych szerokoďż˝ci (zmieniďż˝em sposďż˝b liczenia szerokoďż˝ci).
Dodatkowo poprawiďż˝em rysowanie w kolorach, ale skďż˝adowe kolorďż˝w
trzeba samemu wpisaďż˝ na sztywno w kodzie.
Dlatego musiaďż˝em powstawiaďż˝ dodatkowe przesuniďż˝cia do bajtďż˝w
tablicy.
Moďż˝liwe jest takďż˝e dorysowanie marginesu lewego i (lub) prawego.

'____________________________________________
Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" (pDst As Any, _
pSrc As Any, ByVal ByteLen As Long)
Private Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Const LOGPIXELSX As Long = 88
Private Const LOGPIXELSY As Long = 90
Private Declare Function GetDC Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, _
ByVal hdc As Long) As Long

'________________________

Private Sub btnTest_Click()
Dim sWidthBars As String

sWidthBars = "211232411131212222113222" & _
"214121122312142112212123" & _
"212222212222212222131222" & _
"2312122331112"

zbDrawStretchBarCode sWidthBars, Me.imgTest, 1, 2, True, 5, 10

End Sub
'__________________________________________________________
' pobiera:
' sWidthBars - przygotowany wczeďż˝niej ciďż˝g znakďż˝w w ktďż˝rym kaďż˝da
' cyfra oznacza szerokoďż˝ďż˝ paska. Pierwsza cyfra odnosi siďż˝ do
' czarnego paska, dalej naprzemiennie biaďż˝y, czarny, biaďż˝y ...
' img - formant w ktďż˝rym ma byďż˝ osadzona bitmapa z kodem paskowym
' bRotate - kďż˝t obrotu:
' 1 - bez obrotu; 2 - obrďż˝t o 90 stopni w prawo
' 3 - poziomo o 180 stopni, 4 - 270 stopni w prawo

' bModuleSize - szerokoďż˝ďż˝ moduďż˝u (najwďż˝szego paska)

' fFitImg - czy dopasowaďż˝ wymiar formantu Image do wiďż˝kszego
' wymiaru bitmapy kodu paskowego

' lMarginLeft - lewy margines bitmapy (w moduďż˝ach)
' lMarginRight - prawy margines bitmapy (w moduďż˝ach)
'__________________________________________________________
Private Sub zbDrawStretchBarCode( _

sWidthBars As String, _
img As Access.Image, _
Optional bRotate As Byte = 1, _

Optional bModuleSize As Byte = 1, _
Optional fFitImg As Boolean = False, _
Optional lMarginLeft As Long = 0, _
Optional lMarginRight As Long = 0)

Dim lBmpWidth As Long
Dim lBmpHeight As Long
Dim lLenLine As Long
Dim fBlack As Boolean
Dim aPixInBar() As Byte
Dim aPict() As Byte
Dim lOffset As Long
Dim lStep As Long

Dim lStep0 As Long

Dim lStep1 As Long
Dim lStep2 As Long
Dim lHdc As Long
Dim i As Long, j As Long

aPixInBar() = StrConv(sWidthBars, vbFromUnicode)
' oblicz szerokoďż˝ďż˝ bitmapy kodu paskowego
For i = 0 To UBound(aPixInBar)
lBmpWidth = lBmpWidth + (aPixInBar(i) - 48)
Next
' dodaj marginesy
lBmpWidth = (Abs(lMarginLeft) + lBmpWidth + _
Abs(lMarginRight)) * bModuleSize
lBmpHeight = 1
' orientacja pionowa
If bRotate = 2 Or bRotate > 3 Then
lBmpHeight = lBmpWidth
lBmpWidth = 1
End If

' dďż˝ugoďż˝ďż˝ linii w bajtach (wielokrotnoďż˝ďż˝ 4)
lLenLine = ((lBmpWidth * 3 + 3) \ 4) * 4

ReDim aPict(0 To 39 + lBmpHeight * lLenLine) As Byte

aPict(0) = 40: aPict(12) = 1: aPict(14) = 24:
CopyMemory aPict(4), lBmpWidth, ByVal 4
CopyMemory aPict(8), lBmpHeight, ByVal 4
CopyMemory aPict(20), lLenLine, ByVal 4

Select Case bRotate
Case Is < 2 '1. 0 stopni
lStep = 3
lOffset = 40

lStep0 = 0: lStep1 = 1: lStep2 = 2

Case 2 '2. 90 stopni w prawo
lStep = -4
lOffset = UBound(aPict) - 1

lStep0 = -2: lStep1 = -1: lStep2 = -0

Case Is = 3 '3. 180 stopni w prawo
lStep = -3

lOffset = UBound(aPict) + _
IIf((bModuleSize Mod 4) = 0, 0, _
(bModuleSize Mod 4) - 4)
lStep0 = -2: lStep1 = -1: lStep2 = -0

Case Else '4. 270 stopni w prawo
lStep = 4
lOffset = 40

lStep0 = 0: lStep1 = 1: lStep2 = 2
End Select
' margines lewy
For i = 1 To Abs(lMarginLeft) * bModuleSize
aPict(lOffset + lStep0) = 255 'Blue

aPict(lOffset + lStep1) = 255 'Green
aPict(lOffset + lStep2) = 255 'Red

lOffset = lOffset + lStep
Next

' obszar kodu paskowego

For i = LBound(aPixInBar) To UBound(aPixInBar)
fBlack = Not fBlack

For j = 1 To (aPixInBar(i) - 48) * bModuleSize

' czarny pasek
If fBlack Then

aPict(lOffset + lStep0) = 0

aPict(lOffset + lStep1) = 0
aPict(lOffset + lStep2) = 0
Else

aPict(lOffset + lStep0) = 255

aPict(lOffset + lStep1) = 255

aPict(lOffset + lStep2) = 255

End If
lOffset = lOffset + lStep
Next
Next

' margines prawy
For i = 1 To Abs(lMarginRight) * bModuleSize
aPict(lOffset + lStep0) = 255

aPict(lOffset + lStep1) = 255

aPict(lOffset + lStep2) = 255

lOffset = lOffset + lStep
Next

img.SizeMode = acOLESizeStretch

' dopasuj formant do wiekszego wymiaru kodu paskowego

If fFitImg = True Then

img.BorderStyle = 0

If lBmpHeight = 1 Then

Call ResizeControl(img, lBmpWidth)
Else
Call ResizeControl(img, , lBmpHeight)
End If
End If

img.PictureData = aPict()

End Sub
'______________________________________
Private Sub ResizeControl( _
ctl As Control, _
Optional ByVal lWidthPix As Long = 0, _
Optional ByVal lHeightPix As Long = 0)
Dim lHdc As Long
Dim lWidth As Long
Dim lHeight As Long

lHdc = GetDC(Application.hWndAccessApp)
If lWidthPix > 0 Then
' dla bitmap poziomych
lWidth = lWidthPix * CSng(1440 / _
GetDeviceCaps(lHdc, LOGPIXELSX))
If lWidth > (21.5 * 1440 + ctl.Left) Then
lWidth = (21.5 * 1440 - ctl.Left)
End If
ctl.Width = lWidth
End If

If lHeightPix > 0 Then
' dla bitmap pionowych
lHeight = lHeightPix * CSng(1440 / _
GetDeviceCaps(lHdc, LOGPIXELSY))
If lHeight > (21.5 * 1440 - ctl.Top) Then
lHeight = (21.5 * 1440 - ctl.Top)
End If
ctl.Height = lHeight
End If

Call ReleaseDC(Application.hWndAccessApp, lHdc)

End Sub

[...]

--
Pozdrowienia
BraZby