Guidance
指路人
g.yi.org
software / rapidq / Examples / Graphics & Animation / barcode / barcode / Code39 / code39-console.BAS

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

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

' controleer command string
     tekst = COMMAND$(1)
     IF tekst="" THEN tekst = "C39"

     filename = COMMAND$(2)
     IF filename ="" THEN filename ="c:\c39.bmp"
'
' maak de barcode zwart/wit string
     barcod=code39(tekst)

     BLineWidth=3           ' breedte per lijn

' maak van de barcode zwart/wit string een bmp plaatje
     makebmp (barcod,tekst,BLineWidth,filename)
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2024-3-29  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:58:36