Neue Version mit Image-Export für alle unterstützten Barcodes ist online.
Die Benutzung ist sehr einfach.
Hier ein Beispiel (Code128):
Code: Alles auswählen
IncludeFile "C:\Users\Micha\Desktop\Barcode_Module\Source\Barcode_Modul 1.3.0.pbi"
EnableExplicit
UseModule Common
UseModule Barcode
Define Code128.s, Code128_Sequence.s, Checksum.i, Result.i, Event.i, quit.i, width.d, height.d, Image_Number.i
;Prüfziffer berechnen
Define Checksum = Generate_Code128_Checksum(#BC128_StartB + #BC128_FNC4 + "Dein Text oder sonstiges")
If Checksum > 99
Debug "Fehler Generate_Code128_Checksum(): " + Checksum
End
EndIf
;Linien-Sequenz generieren
Code128_Sequence.s = Generate_Code128_Sequence(#BC128_StartB + #BC128_FNC4 + "Dein Text oder sonstiges" + #BC128_Checksum + Str(Checksum) + #BC128_Stop)
If Code128_Sequence.s = "26" Or Code128_Sequence.s = "27" Or Code128_Sequence.s = "28" Or Code128_Sequence.s = "29" Or Code128_Sequence.s = "30"
Debug "Fehler Generate_Code128_Sequence(): " + Code128_Sequence.s
End
EndIf
;Benötigten Parameter in die Struktur Image_Parameter
Define Image_Export.Image_Parameter
Image_Export\Type = #BCODE_Type_Code128 ;Beispiel: Konstante #BCODE_Type_EAN13
Image_Export\Text = "Dein Text oder sonstiges" ;Die Code Ziffern/Buchstaben. Beispiel EAN8: "72395677"
Image_Export\Font = "ocrB" ;Beispiel: "ocrB". Die Größe wird automatisch angepasst. Wird kein Font angegeben, Wird der Code OHNE Ziffern gedruckt
Image_Export\Sequence = Code128_Sequence.s ;Die zuvor erzeugte Linien Sequenz.
Image_Export\Width = 150 ;Die Barcode Breite in Millimeter
Image_Export\Height = 50 ;Die Barcode Höhe in Millimeter
Image_Export\Color0 = "255,255,255" ;Farbe der hellen Code Linien. Beispiel: "255,255,255". Komma = Trennzeichen
Image_Export\Color1 = "0,0,0" ;Farbe der dunklen Code Linien. Beispiel: "0,0,0". Komma = Trennzeichen
Image_Export\ColorDigits = "0,0,0" ;Farbe der Code Ziffern. Beispiel: "0,0,0". Komma = Trennzeichen
;Umrechnung Millimeter zu Pixel bei 96 DPI
width.d = Image_Export\Width / 25.4 * 96
height.d = Image_Export\Height / 25.4 * 96
;Bild erstellen
Image_Number.i = CreateImage(#PB_Any, width.d, height.d, 24, RGB(255,255,255))
Image_Export\Image_Number = Image_Number.i
;Den Barcode zeichnen lassen
Result.i = Barcode_Image_Export(Image_Export)
If Result.i <> 1
Debug "Fehler Barcode_Image_Export(): " + Result.i
End
EndIf
;Fenster mit Image-Gadget öffnen
If OpenWindow(0, 0, 0, width.d + 30, height.d + 30, "Code128 Bitmap Demo", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
ImageGadget(0, 15, 15, 0, 0, ImageID(Image_Number.i))
Repeat
Event = WaitWindowEvent()
If Event.i = #PB_Event_CloseWindow
quit.i = 1
EndIf
Until quit.i = 1
EndIf
End
Weitere Beispiele findet Ihr dort:
http://micha122.bplaced.net/?Beispiele
Grüße, Michael