2013-06-19 07:58

'----------------------------------------------------------
'
' BARCODE CODE MSI
'
'----------------------------------------------------------
     $APPTYPE  CONSOLE
     $OPTIMIZE ON
'
     $INCLUDE "J:\BARCODE\MSI\MSI.inc"
     $INCLUDE "J:\BARCODE\MSI\makebmp.inc"
'
     DIM barcod AS STRING


     barcod=MSI("12345")  '                     maak de barcode zwart/wit string

     BLineWidth=3           '                     breedte per lijn
     FILENAME="MSI.BMP"


     makebmp (barcod,"12345",BLineWidth,filename) ' maak van de barcode zwart/wit string een bmp plaatje

2013-06-19 07:58