Re: EAN-8 Barcode generator
Posted: Thu Jul 18, 2013 7:24 am
Or we should use HMG_LEN() function instead of len()
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
For me too; '9638507" and '9638507 " too.quartz565 wrote: '96385074' it works fine for me.
Code: Select all
cCode := alltrim( cCode ) // line 124
Superb !Rathinagiri wrote:This is the second version.
1. Added an option to show/hide the digits in the barcode.
2. Separated ean8 encoding code into a separate prg so that it can be added to any project and called with a function. Or we can create a library. (If Marek makes his code into a library for EAN-13 like this it will be great.)
3. Added Esgici's suggestion.
4. Made the default line width to 2 and line height to 110 for making the barcode visible and sizable.
Hi RathiRathinagiri wrote:This is the second version...]
Code: Select all
function createbarcode
local cImage := 'barcode.png'
if ean8_barcode( barcode.code.value, cImage, barcode.linewidth.value, barcode.lineheight.value, barcode.showdigits.value )
if file( cImage )
open file cImage
endif
endif
return nil
OK, I'll do it!Rathinagiri wrote:This is the second version.
1. Added an option to show/hide the digits in the barcode.
2. Separated ean8 encoding code into a separate prg so that it can be added to any project and called with a function. Or we can create a library. (If Marek makes his code into a library for EAN-13 like this it will be great.)
3. Added Esgici's suggestion.
4. Made the default line width to 2 and line height to 110 for making the barcode visible and sizable.