چطور میشه بارکد تولید کرد؟

[nima898]

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

[Asad.Safari]

نیازی نیست معنی اش رو بدونی ...

در این تالار بگرد و یه فایل DLL داره که شما کافی عددت که همون کد کالات است رو به اون متدش بدی و بارکدت رو تحویل بگیری ...

موفق باشید

[Hossein Bazyan]

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

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

[nima898]

ممنون از اینکه کمکم کردید
ضمنا من یک نرم افزار هم دانلود کردم که اینکارو انجام میده

[tabatabaeefar]

سلام
براي درك مفهوم باركد بد نيست يه سري به تاپيك زير بزنيد.
http://barnamenevis.org/forum/showthread.php?t=168945&page=2
موفق باشيد.

[bastakboys]

سلام
من برای تولید و خواندن بارکد از فونت بارکد استفاده میکنم البته شیوه های دیگری هم استفاده میکنم اما کار با فونت راحت تره .
من فونت را آپلود میکنم ببین میتوانی باهاش کار کنی در غیر اینصورت یه برنامه کوچک برات مینویسم
دوست عزیز من از این فونت استفاده کردم اما دستگاه بارکد خوان قادر به شناسایی بار کد های تولیدی این فونت نیست

[Hossein Bazyan]

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

سلام
من در دو تا از پروژه هام از این فونت استفاده کردم و مشتری هم خیلی راضیه و مشکلی نداره شاید مشکل از بارکد خوانت باشه آخه بارکدها در سیستمهای مختلف نومشته میشوند فکر کنم این سیستم سیستم 128 باشه

[bastakboys]

آخه بار کد خوان تمام بارکدهای روی اجناس را می خونه اما بار کد تولیدی را نه
روش تولید:
من برای امتحان توی ورد بار کد را با اون فونت تایپ کردم و از اون پرینت گرفتم اما قادر به خوندن نیست
البته یک فونت دیگه هم توی همین قسمت بود اونم امتحان کردم همین جوری بود

[bastakboys]

دوستان می شه بگین شما چطوری از این فونت در برنامه استفاده می کنید.

[Hossein Bazyan]

سلام
دوست عزیز نمیشه با این فونت مستقیم تایپ کرد و بارکد خوان آنرا بخواند باید بارکد توسط این فونتها ساخته شود سپس بارکدخوان آنرا بخواند.
من برنامه ای نوشته ام که بارکد را ساخته ( من فایل را در حافظه ایحاد کرده ام ) و سپس عکس بارکد ایجاد شده در picturebox نمایش داده میشود.
برنامه را خوب مطالعه کنید. من در دو پروژه که تحویل مشتری هم داده ام از این کد برای ایجاد بار کد استفاده کرده ام و مشتری ها هم مشکلی ندارند.
فقط مشکلی که در این روش هست اینه که فقط باید عدد را وارد نمائیم و حروف را نمیشناسد

[bastakboys]

دوست عزیز میشه توضیح بدین که این ساب چه کاری انجام میده:



Protected Sub CreateBarcode(ByVal _Code As String, ByVal BarcodeFileName As String)
Const PaddingTop As Integer = 0
Const CodeLenght As Integer = 16
Dim img_file As String = Nothing
Dim requestedCode As String
Dim barcodeText As String

BarcodeFileName &= ".jpg"

Try
requestedCode = _Code
barcodeText = "*" + requestedCode.Trim + "*"

If (barcodeText Is Nothing) OrElse (barcodeText = String.Empty) Then
Throw New Exception("200101")
End If
If requestedCode.Length() > CodeLenght Then
Throw New Exception("200100")
End If

Dim barcodeFontSize As Integer = 72
Dim numericFontSize As Integer = 20
'' '' ''Dim width As Integer = 300
Dim width As Integer = 430
Dim height As Integer = 120

Dim bmp As Bitmap = New Bitmap(width, height)

Dim gfx As Graphics = Graphics.FromImage(bmp)
gfx.Clear(Color.White)

gfx.SmoothingMode = Drawing2D.SmoothingMode.None
gfx.TextRenderingHint = TextRenderingHint.SingleBitPerPixelGridFit

Dim b As Brush = Brushes.Black

Dim pfc As PrivateFontCollection = New PrivateFontCollection
pfc.AddFontFile("C:\Documents and Settings\majid\My Documents\Downloads\Barcode\Barcode\Font\FREE3OF9. TTF")

Dim ff As FontFamily = pfc.Families(0)
Dim f As New Font(ff, barcodeFontSize)
Dim fSize As SizeF = gfx.MeasureString(barcodeText, f)
gfx.DrawString(barcodeText, f, b, (width - CInt(fSize.Width)) / 2, PaddingTop)

Dim f2 As New Font("Courier New", numericFontSize)
Dim f2Size As SizeF = gfx.MeasureString(requestedCode, f2)

Dim ms As MemoryStream = New MemoryStream
bmp.Save(ms, ImageFormat.Gif)

PictureBox1.Image = New System.Drawing.Bitmap(ms)

ms.Close()
bmp.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

[Hossein Bazyan]

[quote=bastakboys;830716]دوست عزیز میشه توضیح بدین که این ساب چه کاری انجام میده:

سلام
دوست عزیز این کد بارکد را میسازد .

[bastakboys]

میدونم بارکد را می سازه
اما چطور ؟
و برای چی از این روش؟