3

I am attempting to take a string and convert it into a code 128 barcode in vb.net. I am a novice programmer and was wondering what some people thought would be the best design practices for accomplishing this.

A simple google search has yielded a few seemingly free solutions to this. http://www.onbarcode.com/vb_net/code-128-generator.html for example

I could also attempt to do this myself, but I'm not sure the exact method of converting strings into barcodes. I am going to keep looking into this but if someone knew this off the top of their head already it could save me some time.

Thanks in advance

Brandon
  • 915
  • 4
  • 23
  • 44

5 Answers5

2

Have a look at the following codeproject page - Barcode Image Generation Library

This allows you to generate a barcode image in your desired format from a string.

It should be enough to get you started

Matt Wilko
  • 26,994
  • 10
  • 93
  • 143
2

If you don't want to write any code for string conversion in barcode and don't want to buy an external component, you can use the ItextSharp library ( http://sourceforge.net/projects/itextsharp/ ) which is in my opinion the simplest way to achieve your goal. You can find several resources online and on stackoverflow too for itextsharp, mostly in c# but also vb.net.

for barcode generation vb.net code you can have a look here: http://professionalaspnet.com/archive/2008/11/09/A-Quick-and-Dirty-Bar-Code-Image-httpHandler.aspx

fakeChina
  • 76
  • 4
  • Thank you, I actually had an external component with this functionality and I wasn't aware it. But I will give you credit as you're the only one that answered it with a helpful post. – Brandon Nov 05 '12 at 15:35
1

The following examples are taken from

http://www.onbarcode.com/tutorial/vb-net-barcode-generation.html

Generate barcode 

 Dim barcode As OnBarcode.Barcode.Linear
    ' Create linear barcode object
    barcode = New OnBarcode.Barcode.Linear()
    ' Set barcode symbology type to Code-39
    barcode.Type = OnBarcode.Barcode.BarcodeType.CODE39
    ' Set barcode data to encode
    barcode.Data = "0123456789"
    ' Set barcode bar width (X    dimension) in pixel
    barcode.X = 1
    ' Set barcode bar height (Y dimension) in pixel
    barcode.Y = 60
    ' Draw & print generated barcode to png image file
    barcode.drawBarcode("C://vbnet-code39.png")

Draw and Print

 Dim qrCode As OnBarcode.Barcode.QRCode
    ' Create QRCode object
    qrCode = New OnBarcode.Barcode.QRCode()
    ' Set QR Code data to encode
    qrCode.Data = "VB.NET QRCode"
    ' Set QRCode data mode (QR-Code Barcode Settings)
    qrCode.DataMode = OnBarcode.Barcode.QRCodeDataMode.Auto
    ' Draw & print generated QR Code to jpeg image file
    qrCode.ImageFormat = System.Drawing.Imaging.ImageFormat.Jpeg
    qrCode.drawBarcode("C://vbnet-qrcode.jpg")
0

You need to question your goal. That answer will drive your methodology.

  • Rapid development and completion
  • Learning experience
  • Cheap / free (sweat-equity excluded)

Your google link shows a product that displays sample code on that very page. What's wrong with that?

What is your target output? A report object, or will you print directly to the printer/label?

Donny McCoy
  • 130
  • 7
  • Learning Experience primarily, but I have limited time to complete this project. I'm going to be assigning the bar-code to an object before it is sent to the printer. – Brandon Oct 11 '12 at 19:27
0

You can generate and output the code128 images in VB programming with this code . Refer to the following Visual Basic sample code,you can try to generate code128 in vb.net.

VB Sample code

 Dim code128 As KeepAutomation.Barcode.Bean.BarCode = New KeepAutomation.Barcode.Bean.BarCode
 code128.Symbology = KeepAutomation.Barcode.Symbology.Code128Auto
 code128.CodeToEncode = "0128"

 'Apply checksum for Code 128 barcode.
 code128.ChecksumEnabled = True
 'Display checksum in the Code 128 barcode text
 code128.DisplayChecksum = True

 'Unit of measure, Pixel, Cm and Inch supported. 
 code128.BarcodeUnit = KeepAutomation.Barcode.BarcodeUnit.Pixel
 'Code 128 image resolution in DPI.
 code128.DPI = 72

 'Set Size for Generated Code 128 image

 'Code 128 bar module width (X dimention)
 code128.X = 2
 'Code 128 barcode image width (X dimention)
 code128.BarCodeWidth = 100
 'Code 128 bar module height (Y dimention)
 code128.Y = 60

 'Image left margin size, a 10X is automatically added according to specification.
 code128.LeftMargin = 0
 'Image right margin size, a 10X is automatically added according to specification.
 code128.RightMargin = 0
 'Code 128 image top margin size'
 code128.TopMargin = 0
 'Code 128 image bottom margin size'
 code128.BottomMargin = 0

 'Orientation, 90, 180, 270 degrees supported' Code 128 image bottom margin size
 code128.Orientation = KeepAutomation.Barcode.Orientation.Degree0
 'Code 128 image formats in Png, Gif, Jpeg/Jpg, Tiff, Bmp/Bitmap, etc.
 code128.ImageFormat = System.Drawing.Imaging.ImageFormat.Png

 'Set Code 128 human readable text style

 code128.DisplayText = True
 code128.TextFont = New Drawing.Font("Arial", 10.0F, Drawing.FontStyle.Regular)
 'Space between barcode and text
 code128.TextMargin = 6

 code128.generateBarcodeToImageFile("C://code128-vb-net.png")
bobbell2
  • 1