---

Hi Community,

ich stehe vor einem neuen Problem. Die Erstellung von Barcodes auf Zeichnungen.

Es wird gefordert einen Barcode  (Code 128 B) auf Zeichnungen darzustellen.

Folgende vorgehensweise habe ich versucht:

1. Schriftart Code 128 von http://www.zoll.de/DE/Fachthemen/Zoelle/ATLAS/ATLAS-Publikationen/Sonstiges/sonstiges.html

2. Ermittlung der Prüfsummer von http://www.hi-tier.de/Entwicklung/technik/barcode_Code128.html#charset128B

Nun scheitere ich an evtl. Kleinigkeiten... Mir fehlt das Startzeichen und das Endzeichen... Mein Plan war folgendes in Word einzugeben:

<Starzeichen>123.456.abc<Prüfzeichen><Endzeichen>

Hier im Forum habe ich über Code 128 nichts gefunden, hat schon einmal jemand Erfahrungen damit gemacht? Oder wie müsste ich vorgehen!?

Vielen Dank!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

geht denn das Muster aus deinem Beispiel nicht ?
<Start B>0400007694587343<Stop>

Gruss Alex

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Startzeichen ist
Chr$(208), Chr$(209) oder Chr$(210)
Stoppzeichen ist
Chr$(211)

Hier gibt's auch für alle möglichen Sprachen einen Programmcode zur Prüfsummenberechnung.
Das nett verpackt in ein Ilogic Makro, das ein Iproperty füllt...
http://grandzebu.net/informatique/codbar/code128.htm

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von CAD-Huebner:
Startzeichen ist
Chr$(208), Chr$(209) oder Chr$(210)
Stoppzeichen ist
Chr$(211)

Hier gibt's auch für alle möglichen Sprachen einen Programmcode zur Prüfsummenberechnung.
Das nett verpackt in ein Ilogic Makro, das ein Iproperty füllt...
http://grandzebu.net/informatique/codbar/code128.htm

---

Vielen Dank!

Ich will euch meinen Lösungsweg auch nicht vorenthalten:

1) Schriftart von http://grandzebu.net/informatique/codbar-en/code128.htm (Danke CAD-Huebner)
2) VBA-Function angepasst (von http://www.azalea.com/code-128/excel/Code-128-B.txt) <- Musste Start-Stopzeichen ändern
3) iLogic-Regel erstellt (Ereignessauslöser auf Beim öffnen und beim ändern)
4) benutzerdefinierten Wert eingefügt namens Barcode
5) Auf meiner Zeichnung den Wert "Barcode" eingefügt
6) folgende Regel eingefügt (in meinem Fall lasse ich den Dateinamen ohne Endung einfügen und als Barcode mit aufdrucken):

Ergebniss ist ein schöner Barcode (Code 128 B)

Sub Main()

iProperties.Value("Custom", "Barcode") = Code_128_B(ThisDoc.FileName(False))

End Sub

Function Code_128_B(ByVal yourData As String) As String
        Dim temp As String
        Dim chunk As String
        Dim i As Integer
        Dim checkDigitSubtotal As Integer
        Dim e As Integer                 
       
temp = Chr(209)
        checkDigitSubtotal = 104
       
For i = 1 To Len(yourData) Step 1
            chunk = Mid(yourData, i, 1)
            Select Case Asc(chunk)
                Case Is > 200
                    temp = temp & Chr(Asc(chunk) - 35)
                Case Is = 32
                    temp = temp & Chr(206)
                Case Else
                    temp = temp & chunk
            End Select
        Next i

        For i = 1 To Len(yourData)
            e = Asc(Mid(yourData, i, 1)) - 32
            If e <> 142 Then
                checkDigitSubtotal = checkDigitSubtotal + (e * i)
            End If
        Next i
        checkDigitSubtotal = checkDigitSubtotal Mod 103

        Select Case checkDigitSubtotal
            Case 0
                Code_128_B = temp & Chr(206) & Chr(211)
            Case 1 To 93
                Code_128_B = temp & Chr(checkDigitSubtotal + 32) & Chr(211)
            Case Is > 93
                Code_128_B = temp & Chr(checkDigitSubtotal + 103) & Chr(211)
        End Select

    End Function

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

I've done a barcode project before, and I think you can actually check out this .NET barcode generator to easily draw Code 128, Code 128A, Code 128B and Code 128C easily. Check character can be automatically added so you don't need to worry about it.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von sarahlynnbr:
I've done a barcode project before, and I think you can actually check out this .NET barcode generator to easily draw Code 128, Code 128A, Code 128B and Code 128C easily. Check character can be automatically added so you don't need to worry about it.

---

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.
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

[Diese Nachricht wurde von allensmith am 08. Jan. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi!

I don't want to be impolite, but why does an unknown person suddenly enter a forum and post a code which could possibly do ANYTHING on my computer when i install it?

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo liebe CAD-Gemeinde,

ich habe es hinbekommen, einen Barcode auf mein Zeichnungsblatt zu bekommen. (Danke cmaass)
Mein Problem ist aber jetzt, dass der Code nicht erkannt wird, wenn ich die Zeichnung als pdf exportiert und dann ausgedruckt habe.

Weiß da jemand Rat? Ich hatte schon einmal ein ähnliches Phänomen, als ich Servicelisten mit Barcodes zusammengestellt habe, und da ebenfalls Probleme beim exportieren als odf aufgetreten sind.

Danke,

Gruß, Sebastian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP