ISBN Prüfziffer berechnen

  • Excel

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Mad Andy.

    ISBN Prüfziffer berechnen

    Hallo,
    ich bin neu hier, und habe auch schon eine Frage.
    Ich möchte mit VB eine function erstellen mit der ich von ISBN-Nummern die Prüfziffer berechnen kann, da ich nicht das Genie bin und noch in den anfängen von VB bin würde ich gerne wissen wie Ihr diese Aufgabe lösen würdet. Oder könnt ihr mir etwas helfen?

    MFG
    Hemtoni

    Wie wird diese Prüfsumme berechnet und wo ist dein bisheriger Lösungsansatz? Eine Quersumme zu, Beispiel kannst du errechnen, indem du eine Zahl in eine Zeichenkette umwandelst (CStr-Funktion) und diesen String zeichenweise durchläuftst (For-Scheife mit Mid-Funktion) und die einzelnen Ziffern wieder in eine Zahl umwandelst (CInt-Funktion) und summierst.
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    Wie ich bereits oben beschrieben habe, die Ziffer mit Mid in Integer umwandeln:

    Visual Basic-Quellcode

    1. Function Prüfzifferberechnen(Wert As String) As Double
    2. Dim x As Integer, Summe As Integer, Lang As Integer, Ziffer as Byte
    3. Lang = Len(Wert)
    4. For x = 1 To Lang
    5. Ziffer = cint(mid(Wert,x,1))
    6. Summe = Summe + Ziffer
    7. next x
    8. Prüfzifferberechnen = Summe
    9. end function
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    hey ;)

    da es mich auch interessiert hat, hab ich mich mal hingesetzt und das ganze gecodet, wahrscheinlich geht es viel einfacher und besser, aber jeder fängt mal klein an, bei fragen, frag mich einfach :)

    zur Berechnung hab ich diese Page herangezogen :)
    german-isbn.org/isbn_merkblatt.html


    Visual Basic-Quellcode

    1. Option Explicit
    3. Private sISBNNr As String
    4. Private sISBNNr1 As String
    5. Private iErgebnis As String
    6. Private iCounter As Integer
    7. Private iMultiplicator As Integer
    8. Private izwischenspeicher As Long
    9. Private bgefunden As Boolean
    10. Private ipruefziffer As Integer
    12. Private Sub cmdCheck_Click()
    14. Reset ' Werte zurücksetzen
    16. sISBNNr = Me.txtISBN
    17. sISBNNr1 = Replace(sISBNNr, "-", "")
    19. For iCounter = 1 To 9
    21. iMultiplicator = iMultiplicator - 1
    22. iErgebnis = Mid(sISBNNr1, iCounter, 1) * iMultiplicator
    23. Debug.Print iErgebnis
    24. izwischenspeicher = izwischenspeicher + iErgebnis
    26. Next
    28. While bgefunden = False
    30. If izwischenspeicher Mod 11 = 0 Then
    31. bgefunden = True
    32. Me.txtprfchar = CStr(ipruefziffer - 1)
    33. Else
    34. izwischenspeicher = izwischenspeicher + 1
    35. ipruefziffer = ipruefziffer + 1
    36. End If
    38. Wend
    40. End Sub
    42. Private Function Reset()
    44. iMultiplicator = 11
    45. ipruefziffer = 1
    46. Me.txtprfchar = ""
    47. izwischenspeicher = 0
    48. iCounter = 1
    49. bgefunden = False
    51. End Function


    habe das ganze noch als gezippte exe mal angehängt :)

    HIER


    PS:
    Da ich selbst nicht der beste bin bin ich offen für Anregungen / Verbesserungen oder auch falls doch etwas falsch sein sollte auf den hinweis :)

    Hallo zusammen,

    hier mal meine Variante:

    Visual Basic-Quellcode

    1. Private Sub Command1_Click()
    2. Dim strISBN As String
    3. strISBN = "3-7609-4012-9"
    4. MsgBox getCheckDigit(strISBN)
    5. End Sub
    7. Private Function getCheckDigit(strISBN As String) As String
    8. Dim i As Long, lngSum As Long
    9. strISBN = Replace(strISBN, "-", "")
    10. For i = 1 To 9
    11. lngSum = lngSum + (11 - i) * CLng(Mid(strISBN, i, 1))
    12. Next i
    13. getCheckDigit = (11 - (lngSum Mod 11)) Mod 11
    14. If getCheckDigit = 10 Then getCheckDigit = "X"
    15. End Function


    Gruß Markus

    immer wieder schön mehrere Versionen zu sehen um seine eigene Denkweise evtl. doch noch zu verbessern :) weiter so *daumen hoch*

    PS:
    Hätte da mal eine Frage, eigentlich ist es bei meinem beispiel ja egal (auser dem Reset) ob die Variablen als DIM oder Private deklariert sind, GLobal macht es mit der Übergabe halt einfacher bei so "kleinen" funktionen, was sagt denn der gute programmierstil dazu ?

    Private wirklich nur die Globalen oder bei solchen anwendungen egal ?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Realy?“ ()

    Hi!

    Wenn du ne funktion verwendest, bei möglichkeit immer nur den Rückgabewert verwenden.

    Und global ist sowieso tot ;)
    Public ist das neue Schlüsselwort dafür, mit der gleichen wirkung.


    mfG Andy

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mad Andy“ ()

Facebook
Telefonspende