FiveTech Software tech support forums

FWH Next Version

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST FWZEBRA

function Main()

   local oDlg, oCode, oSay, oSay2, oSay3, oFont
   local cText    := "FiveTechSoft"
   local cName    := Space( 20 )
   local cCity    := Space( 20 )
   local cCountry := Space( 20 )
   local cItem    := "123456789012"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 600,800 PIXEL TRUEPIXEL FONT oFont ;
      TITLE "TSAYBARCODE CONTROL"

   @ 080, 40 SAY "PDF417" SIZE 100,26 PIXEL OF oDlg

   @ 050,150 SAYBARCODE oSay2 ;
      TEXT "Address :" + CRLF + cName - CRLF - cCity - CRLF - cCountry ;
      TYPE "PDF417" SIZE 400,80 PIXEL OF oDlg UPDATE

   @ 240, 40 SAY "Name    :" GET cName    SIZE 300,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. )
   @ 270, 40 SAY "City    :" GET cCity    SIZE 300,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. )
   @ 300, 40 SAY "Country :" GET cCountry SIZE 300,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. )
   @ 330, 40 SAY "Item    :" GET cItem    SIZE 200,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. ) ;
                                          PICTURE "999999999999" RIGHT
   @  230,450 SAYBARCODE oSay ;
      TEXT "Address :" + CRLF + cName - CRLF - cCity - CRLF - cCountry ;
      TYPE "QR-CODE" SIZE 100,100 PIXEL OF oDlg ;
      UPDATE

   @ 400,040 SAYBARCODE TEXT cName - "," - cCity ;
      TYPE "CODE128" SIZE 500,50 PIXEL OF oDlg UPDATE

   @ 480,040 SAY "CODE128" SIZE 520,24 PIXEL OF oDlg CENTER


   @ 650,350 SAY "Item : EAN13" SIZE 200,24 PIXEL OF oDlg CENTER

   @ 700,350 SAYBARCODE TEXT cItem ;
      TYPE "EAN13" SIZE 200,50 PIXEL OF oDlg UPDATE

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil
 

where is FWZEBRA ?

Will be provided in the next release of FWH.

Very Nice.

fwh\samples\qrcode.prg

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST FWZEBRA

//----------------------------------------------------------------------------//

function Main()

   local oWnd, cText, cPrg := cFileSetExt( ExeName(), "prg" )

   cText    := MEMOREAD( cPrg )

   DEFINE WINDOW oWnd TITLE cPrg
   ACTIVATE WINDOW oWnd CENTERED ;
      ON PAINT oWnd:SayBarCode( cText, { 20,20,-20,-20 }, "QR-CODE" )

return nil

//----------------------------------------------------------------------------//
 

It seems barcode is missing in FWH 19.03 -> FIVEHX.lib



regards
Uwe

1) Please use buildx.bat provided with FWH19.03.
This batch file contains the line :
"echo %hdirl%\hbzebra.lib + >> b32.bc"
Please check this
2) Please ensure that your \xharbour\lib folder contains hbzebra.lib

because I used a modified copy of buildx.bat

"echo %hdirl%\hbzebra.lib + >> b32.bc"

was not included

it is working now.

thank You
Uwe

When we first release a new feature, please test in the samples folder with the build?.bat as provided.
Later on, you can modify to your requirements.

Nages ,
Many mounths ago I saw there are error on coding of most barcode

the barcode reader did not read the codes. Now I can't remember which they were. The class of Timm Soldabers (reportdesigner) did not work well even in this class there were invalid codes and the class had been made on the basis of the Barlib.

My friend Santiago and I had discovered which codes were not working and in that context we had also created the circular bar code used here in Italy for video rentals and barcode readers could more easily read circular codes rather than linear ones

tomorrow I'll list the barcodes that had problems reading at least with our reader that we used at that time

I found the note on my old hard disk :

this is the List of vrdbarcode you use

// 1 = Code 39 ok
// 2 = Code 39 check digit
// 3 = Code 128 auto select
// 4 = Code 128 mode A ok
// 5 = Code 128 mode B ok
// 6 = Code 128 mode C
// 7 = EAN 8
// 8 = EAN 13 ok
// 9 = UPC-A
// 10 = Codabar
// 11 = Suplemento 5
// 12 = Industrial 2 of 5
// 13 = Industrial 2 of 5 check digit
// 14 = Interlaved 2 of 5 ok
// 15 = Interlaved 2 of 5 check digit ok
// 16 = Matrix 2 of 5
// 17 = Matrix 2 of 5 check digit


where is not "ok" the code was not read from our barcode reader

we made ten year ago (2010) also circular/square code as this:



I made also a Setup dialog to set each type of barcode

Mr Silvio

Thanks for sharing the test results. They match with our own test results.
So we released only those which passed the tests.

But by linking hbzebra.lib, more types of barcodes are available. Please check and offer your comments.

We shall be glad if you can throw more light on circular and square codes. Where from we can get more information about them and where are they being used now?

you can found circular barcode on video rental shop or Supermarket..



mainly used on video vending vending machines and compatible with all brands on the market, but also useful for cataloging your CD Rom or DVD collection and for any other application that requires a barcode reading from any side.

see on your mail

sample :
Circular

Code: Select all  Expand view

     oBC:= VRDBarcode():New( oPrn:hDcOut ,AllTrim(cCodice),nRowBar,nColBar,nHeightBar,nWidthBar,cTipo, KColor,, .T. )
       oBC:lCircular:=.T.

        // semicircles
        oBC:aPartial := {l90g,l180g,l270g,l360g}
        oBC:nGradIni:=cGradIni
        oBC:nGradEnd:=cGradEnd

Square

Code: Select all  Expand view

oBC := VRDBarcode():New( oPrn:hDcOut ,AllTrim(cCodice),nRowBar,nColBar,nHeightBar,nWidthBar,cTipo,KColor,, .T. )
            oBC:lsquare:=.T.

Mr. Silivio

Thanks for the mail. I will study the program you sent me.
Meanwhile, can you please guide me as to which android app can read these circular codes? I am unable to find one in the App Store

I use this

https://play.google.com/store/apps/deta ... gamma.scan



and now read good my circular barcode ( it read the code "200004" I insert into ) I posted above

I printed the image and make a scan with my smathphone