مشکل در تولید بارکد

[adelniya_m]

سلام من هر چی از فونتهای بارکد توی برنامه استفاده می کنم جواب نمیده!!! و به جای اینکه بارکد نمایش بده همون کاراکترهای معمولی رو نشون میده باید چیکار کنم ؟؟؟؟؟فردا باید پروژه ام رو تحویل بدم:گریه:

[mohsen gh]

سلام من هر چی از فونتهای بارکد توی برنامه استفاده می کنم جواب نمیده!!! و به جای اینکه بارکد نمایش بده همون کاراکترهای معمولی رو نشون میده باید چیکار کنم ؟؟؟؟؟فردا باید پروژه ام رو تحویل بدم:گریه:
سلام
دوست من اینم برنامه ای که خواستی فقط اون فونت که داخل پوشه هستش رو کپی کن تو پوشه فونت ویندوز

[adelniya_m]

سلام
دوست من اینم برنامه ای که خواستی فقط اون فونت که داخل پوشه هستش رو کپی کن تو پوشه فونت ویندوز

ولی این که برنامه تولید random بود یا من اشتباه متوجه شدم؟؟؟؟:متعجب:
یعنی اینجا تا حالا هیچکس با بارکد توی VB کار نکرده؟؟

[mohsen gh]

سلام اگه اون به کارت نیومد شما که برنامرو خودت نوشتی، از اون فونت که داخل پوشه هست استفاده کن تا کاراکترات بصورت بارکد نمایش داده بشه..

[adelniya_m]

سلام من برنامه رو نوشتم و انواع فونت ها رو دارم اما توی اجرا فقط حروف رو بارکد میکنه و اعداد رو به همون صورت عددی نمایش میده

[mohsen gh]

سلام من برنامه رو نوشتم و انواع فونت ها رو دارم اما توی اجرا فقط حروف رو بارکد میکنه و اعداد رو به همون صورت عددی نمایش میده
ازین فونتا استفاده کن امیدوارم کارت را بیوفته چون خودم امتحان کردم درست جواب میده فقط خاصیت right to left لیبل تو no بزار

[adelniya_m]

ازین فونتا استفاده کن امیدوارم کارت را بیوفته چون خودم امتحان کردم درست جواب میده فقط خاصیت right to left لیبل تو no بزار

جواب نداد :گیج: به نظرتون بای چیکار کنم . من فونت لیبل رو تنظیم می کنم و بهش عدد میفرستم اما باز هم عدد نشون میده کجای کارم ایراد داره؟؟:متفکر:

[mohsen gh]

برنامتو اگه مایلی بزار تا یه نگاه بش بندازیم یا کداتو بزار

[adelniya_m]

برنامتو اگه مایلی بزار تا یه نگاه بش بندازیم یا کداتو بزار


TextBox1.Text="123456"

و فونت تکست باکس رو هم روی فونتی که شما دادین تنظیم میکنم
در ضمن من میخوام سمت کریستال هم بارکد بفرستم طوری که بارکدخوان اونو بخونه

[mohsen gh]

دوست من اینو نگاه کن من که تست کردم درست جواب میده فقط اون فونتارو بازم کپی کن تو پوشه فونت ویندوزت

[adelniya_m]

باورتون میشه جواب نداد ممکنه به این دلیل باشه که من از 2005 استفاده می کنم؟؟؟؟

[toopak]

دوست من اینو نگاه کن من که تست کردم درست جواب میده فقط اون فونتارو بازم کپی کن تو پوشه فونت ویندوزت


البته این نکته روفراموش نکن که باید با حروف بزرگ بنویسی تا جواب بگیری ;-)

[adelniya_m]

البته این نکته روفراموش نکن که باید با حروف بزرگ بنویسی تا جواب بگیری ;-)
من فقط عدد میفرستم با بارکد کردن حروف مشکلی ندارم ولی عددها رو به صورت همون عدد نشون میده

[ArashRoshan]

نگفتی چه نوع بارکدی ولی :

دیگه این باید جواب بده:لبخندساده: :

http://www.codeproject.com/KB/cs/User_bar_code_fonts_in_C_.aspx

زبانش VB نیست ولی می تونی از کلاسش هرجا خواستی استفاده کنی .

[ArashRoshan]

این هم خوبه ، این زبانش VB هستش ولی باز هم باید کامپوننتشو دانلود کنی :

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

[ArashRoshan]

این ها رو هم نگاه نکن :

===============================================

http://www.squaregear.net/fonts/free3of9.shtml

===============================================
Option Explicit On
Option Strict On

Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Drawing.Bitmap
Imports System.Drawing.Graphics
Imports System.IO

Partial Public Class Barcode
Inherits System.Web.UI.Page
'Sebastiaan Janssen - 20081001 - TINT-30584
'Most of the code is based on this example:
'http://www.atalasoft.com/cs/blogs/loufranco/archive/2008/04/25/writing-code-39-barcodes-with-javascript.aspx-generation.aspx
'With a bit of this thrown in:
'http://www.atalasoft.com/cs/blogs/loufranco/archive/2008/03/24/code-39-barcode

Private _encoding As Hashtable = New Hashtable
Private Const _wideBarWidth As Short = 8
Private Const _narrowBarWidth As Short = 2
Private Const _barHeight As Short = 100

Sub BarcodeCode39()
_encoding.Add("*", "bWbwBwBwb")
_encoding.Add("-", "bWbwbwBwB")
_encoding.Add("$", "bWbWbWbwb")
_encoding.Add("%", "bwbWbWbWb")
_encoding.Add(" ", "bWBwbwBwb")
_encoding.Add(".", "BWbwbwBwb")
_encoding.Add("/", "bWbWbwbWb")
_encoding.Add("+", "bWbwbWbWb")
_encoding.Add("0", "bwbWBwBwb")
_encoding.Add("1", "BwbWbwbwB")
_encoding.Add("2", "bwBWbwbwB")
_encoding.Add("3", "BwBWbwbwb")
_encoding.Add("4", "bwbWBwbwB")
_encoding.Add("5", "BwbWBwbwb")
_encoding.Add("6", "bwBWBwbwb")
_encoding.Add("7", "bwbWbwBwB")
_encoding.Add("8", "BwbWbwBwb")
_encoding.Add("9", "bwBWbwBwb")
_encoding.Add("A", "BwbwbWbwB")
_encoding.Add("B", "bwBwbWbwB")
_encoding.Add("C", "BwBwbWbwb")
_encoding.Add("D", "bwbwBWbwB")
_encoding.Add("E", "BwbwBWbwb")
_encoding.Add("F", "bwBwBWbwb")
_encoding.Add("G", "bwbwbWBwB")
_encoding.Add("H", "BwbwbWBwb")
_encoding.Add("I", "bwBwbWBwb")
_encoding.Add("J", "bwbwBWBwb")
_encoding.Add("K", "BwbwbwbWB")
_encoding.Add("L", "bwBwbwbWB")
_encoding.Add("M", "BwBwbwbWb")
_encoding.Add("N", "bwbwBwbWB")
_encoding.Add("O", "BwbwBwbWb")
_encoding.Add("P", "bwBwBwbWb")
_encoding.Add("Q", "bwbwbwBWB")
_encoding.Add("R", "BwbwbwBWb")
_encoding.Add("S", "bwBwbwBWb")
_encoding.Add("T", "bwbwBwBWb")
_encoding.Add("U", "BWbwbwbwB")
_encoding.Add("V", "bWBwbwbwB")
_encoding.Add("W", "BWBwbwbwb")
_encoding.Add("X", "bWbwBwbwB")
_encoding.Add("Y", "BWbwBwbwb")
_encoding.Add("Z", "bWBwBwbwb")
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
BarcodeCode39()
Dim barcode As String = String.Empty
If Not IsNothing(Request("barcode")) AndAlso Not (Request("barcode").Length = 0) Then
barcode = Request("barcode")
Response.ContentType = "image/png"
Response.AddHeader("Content-Disposition", String.Format("attachment; filename=barcode_{0}.png", barcode))

'TODO: Depending on the length of the string, determine how wide the image will be
GenerateBarcodeImage(250, 140, barcode).WriteTo(Response.OutputStream)
End If
End Sub

Protected Function getBCSymbolColor(ByVal symbol As String) As System.Drawing.Brush
getBCSymbolColor = Brushes.Black
If symbol = "W" Or symbol = "w" Then
getBCSymbolColor = Brushes.White
End If
End Function

Protected Function getBCSymbolWidth(ByVal symbol As String) As Short
getBCSymbolWidth = _narrowBarWidth
If symbol = "B" Or symbol = "W" Then
getBCSymbolWidth = _wideBarWidth
End If
End Function

Protected Overridable Function GenerateBarcodeImage(ByVal imageWidth As Short, ByVal imageHeight As Short, ByVal Code As String) As MemoryStream
'create a new bitmap
Dim b As New Bitmap(imageWidth, imageHeight, Imaging.PixelFormat.Format32bppArgb)

'create a canvas to paint on
Dim canvas As New Rectangle(0, 0, imageWidth, imageHeight)

'draw a white background
Dim g As Graphics = Graphics.FromImage(b)
g.FillRectangle(Brushes.White, 0, 0, imageWidth, imageHeight)

'write the unaltered code at the bottom
'TODO: truely center this text
Dim textBrush As New SolidBrush(Color.Black)
g.DrawString(Code, New Font("Courier New", 12), textBrush, 100, 110)

'Code has to be surrounded by asterisks to make it a valid Code39 barcode
Dim UseCode As String = String.Format("{0}{1}{0}", "*", Code)

'Start drawing at 10, 10
Dim XPosition As Short = 10
Dim YPosition As Short = 10

Dim invalidCharacter As Boolean = False
Dim CurrentSymbol As String = String.Empty

For j As Short = 0 To CShort(UseCode.Length - 1)
CurrentSymbol = UseCode.Substring(j, 1)
'check if symbol can be used
If Not IsNothing(_encoding(CurrentSymbol)) Then
Dim EncodedSymbol As String = _encoding(CurrentSymbol).ToString

For i As Short = 0 To CShort(EncodedSymbol.Length - 1)
Dim CurrentCode As String = EncodedSymbol.Substring(i, 1)
g.FillRectangle(getBCSymbolColor(CurrentCode), XPosition, YPosition, getBCSymbolWidth(CurrentCode), _barHeight)
XPosition = XPosition + getBCSymbolWidth(CurrentCode)
Next

'After each written full symbol we need a whitespace (narrow width)
g.FillRectangle(getBCSymbolColor("w"), XPosition, YPosition, getBCSymbolWidth("w"), _barHeight)
XPosition = XPosition + getBCSymbolWidth("w")
Else
invalidCharacter = True
End If
Next

'errorhandling when an invalidcharacter is found
If invalidCharacter Then
g.FillRectangle(Brushes.White, 0, 0, imageWidth, imageHeight)
g.DrawString("Invalid characters found,", New Font("Courier New", 8), textBrush, 0, 0)
g.DrawString("no barcode generated", New Font("Courier New", 8), textBrush, 0, 10)
g.DrawString("Input was: ", New Font("Courier New", 8), textBrush, 0, 30)
g.DrawString(Code, New Font("Courier New", 8), textBrush, 0, 40)
End If

'write the image into a memorystream
Dim ms As New MemoryStream

Dim encodingParams As New EncoderParameters
encodingParams.Param(0) = New EncoderParameter(Encoder.Quality, 100)

Dim encodingInfo As ImageCodecInfo = FindCodecInfo("PNG")

b.Save(ms, encodingInfo, encodingParams)

'dispose of the object we won't need any more
g.Dispose()
b.Dispose()

Return ms
End Function

Protected Overridable Function FindCodecInfo(ByVal codec As String) As ImageCodecInfo
Dim encoders As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders
For Each e As ImageCodecInfo In encoders
If e.FormatDescription.Equals(codec) Then Return e
Next
Return Nothing
End Function
End Class

منبع :http://stackoverflow.com/questions/149379/how-to-generate-code39-barcodes-in-vb-net

================================================== ==

اگر خدایی نکرده این ها هم نشد :ناراحت: برو همون منبع بالا ، بازم یه چند تا سایت معرفی کرده .