Quersummen Berechnung 15 Stelliger Nummer für Pürfziffernberechnung nach Modulo 10

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von Eierlein.

    Quersummen Berechnung 15 Stelliger Nummer für Pürfziffernberechnung nach Modulo 10

    Hi,

    Auch wenn der Titel erstmal kompliziert zu lesen ist, ist die Aufgabenstellung bzw die bitte um Hilfe nicht soo schlimm.

    Mein ziel ist eine Prüfziffernberechnung nach Modulo 10

    Hier mal ein Kleines beispiel

    Nummer 302 569 854785969

    Hier muss nun von links nach rechts jede zahl abwechseln mit 1 & 2 Gewichtet werden, also

    3 *2 =6
    0 *1 =0
    2 *2 =4
    5 *1 =5
    6 *2 =12


    Und so weiter .

    Nun habe ich erstmal was zusammen geschrieben das die Nummer gesplittet wird.

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim Check_Number = CheckNumber.Text
    3. Dim len = 1
    4. Dim list = New List(Of String)
    5. For i = 0 To Check_Number.Length - 1 Step len
    6. Dim part = If(i + len > Check_Number.Length, Check_Number.Substring(i), Check_Number.Substring(i, len))
    7. list.Add(part)
    8. Next
    10. Dim result = list.ToArray()
    12. Dim No1 As Integer = result(0) * 2
    15. End Sub


    Ich kann wie schon hier im Script angedeutet alle zahlen problemlos in einem arry durch berechnen jeweils *2 und *1

    Das Problem ist ich muss später die Quersumme aller zahlen berechnen bei 6*2 Kommt 12 raus die Quersumme ist aber 3 und ich bin grade leicht überfordert wie ich das alles schreiben kann ohne Kilometer weise code

    Ich hoffe meine Erklärung ist verständlich.

    Ich suche eine art arry quersummenberechnung

    Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

    Richtig, aber die Quersumme hier wäre 18 :)
    Ich muss alle 15 zahlend abwechseln mit 2 und 1 gewichten und dann von jeder zahl die Quersumme berechnen.

    Ich dachte an eine funktion ala

    VB.NET-Quellcode

    1. Public Class Class1
    2. Private Function Quersumme(ByVal Zahl As String)
    3. Dim Sum As Integer = 0
    5. For Each C As Char In Zahl.ToCharArray
    6. Try
    7. Sum += C.ToString
    8. Catch ex As Exception
    9. End Try
    10. Next
    12. Return Sum
    13. End Function
    14. End Class


    Das Problem ich habe mir Programmieren durch YouTube und co beigebracht und Klassen Programmierung bisher selten betrieben, und weis nicht wie ich die Parameter in die klasse sende um sie zu berechnen und das Ergebnis also (Return) im Haupt Code ab zu rufen.


    Wenn es eine bessere Lösung gebe gern her damit.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

    Hier ein VBA CODE:

    Beachte das der VBA-String bei 1 beginnt, der .net String bei 0.

    Visual Basic-Quellcode

    1. Option Explicit
    3. Sub test()
    4. Dim z$
    5. z = "302569 854785969"
    6. Debug.Print z
    7. Debug.Print
    9. Debug.Print "Quersumme = "; QSum(z)
    11. End Sub
    13. Function QSum(z As String) As Integer
    14. Dim i%, tmp$, sum&, m%
    15. z = Replace(z, " ", "")
    16. For i = 1 To Len(z)
    17. If i Mod 2 = 1 Then m = 2 Else m = 1
    18. tmp = tmp$ & CStr(Val(Mid$(z, i, 1) * m))
    20. Debug.Print i, tmp 'Nur zur INFO
    21. Next
    22. For i = 1 To Len(tmp)
    23. sum = sum + Val(Mid$(tmp, i, 1))
    24. QSum = sum
    25. Next
    26. End Function


    Testausgabe:

    Quellcode

    1. 302569 854785969
    3. 1 6
    4. 2 60
    5. 3 604
    6. 4 6045
    7. 5 604512
    8. 6 6045129
    9. 7 604512916
    10. 8 6045129165
    11. 9 60451291658
    12. 10 604512916587
    13. 11 60451291658716
    14. 12 604512916587165
    15. 13 60451291658716518
    16. 14 604512916587165186
    17. 15 60451291658716518618
    18. Quersumme = 90


    Wie soll's mit Modulo 10 weitergehen? ?(

    Edit mein fehler sry ja richtig
    1. Beginnend von links werden alle Ziffern abwechselnd mit 1 und 2 gewichtet (PZ = 1. Stelle = Gewicht 1).

    2. Die Quersumme über alle Produkte wird errechnet.

    3. Von der Quersumme wird der ganzzahlige Rest zum nächst kleineren Vielfachen von 10 bestimmt (Modulo 10).

    4. Die Prüfziffer ergibt sich nach Substraktion des Restes von 10.
    • Ist die Differenz 10, gilt p = 0


    NummerSchritt 1: GewichtungSchritt 2:Produkte fürQuersumme
    32
    		6
    010
    8216
    313
    428
    212
    326
    111
    020
    313
    122
    818
    7214
    616
    9218
    p1-

    Quersumme66
    Schritt 3: Quersumme modulo 10
    		66 ÷ 10 =6 Rest 6
    Schritt 4: Differenz
    		10 - 6 = 4
    Endergebnis Prüfziffer
    		4



    Selbst wenn ich nur die hälfte von deinem script verstehe habe ich trotzdem das Problem wie ich nun die Funktion in einer klasse abrufe da ich ja oben schon geschrieben habe das ich damit meine Problemchen habe

    Möchte die Funktion nicht im Hauptteil, aber sonst siehts gut aus muss aber trotzdem erstmal dahinter steigen.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „bigbase“ ()

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Function Quersumme(ByVal input As String) As Integer
    2. Const ZERO_OFFSET As Integer = &H30
    3. Dim value As Integer = 0
    4. Dim index As Integer = 1
    6. For Each charackter As Char In input
    8. If charackter >= "0"c AndAlso charackter <= "9"c Then // Ist nummer
    9. Dim innerValue As Integer = (Convert.ToInt32(charackter) - ZERO_OFFSET) * ((index And &B1) + 1)
    10. ' wie wir wissen wird binär die Zahl 1 mit 0b0001 dargestellt und die zwei 0b0010 und die drei 0b0011
    11. ' alle geraden zahlen haben also ein 0 am ende im binär sinne
    12. ' und alle geraden ein 0' den index binär verundet mit 0b0001, folgt das wir nur die eine 0 oder eine 1 habe
    13. If innerValue < 10 Then
    14. value += innerValue
    15. Else
    16. value += 1
    17. value += innerValue - 10
    18. End If
    19. End If
    21. index += 1
    22. Next
    24. Return 10 - (value Mod 10)
    25. End Function

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Facebamm“ ()

    @Facebamm

    Danke aber da ist das hier einfacher

    VB.NET-Quellcode

    1. ​ Public Shared Function Quersumme(ByVal Zahl As String)
    2. Dim Sum As Integer = 0
    4. For Each C As Char In Zahl.ToCharArray
    5. Try
    6. Sum += C.ToString
    7. Catch ex As Exception
    8. End Try
    9. Next
    11. Return Sum
    12. End Function


    Zusätzlich hat habe ich dan immer noch nicht das abwechselnde Gewichten

    Visual Basic-Quellcode

    1. Option Explicit
    3. Sub test()
    5. Dim z$
    6. z = "308342310318769"
    7. Debug.Print z
    8. Debug.Print
    10. Debug.Print "Prüfziffer = "; PZ(z)
    12. End Sub
    14. Function PZ(z As String) As Integer
    15. Dim i&, tmp$, Qsum&, m%, diff%
    16. z = Replace(z, " ", "")
    17. For i = 1 To Len(z)
    18. If i Mod 2 = 1 Then m = 2 Else m = 1
    19. tmp = tmp$ & CStr(Val(Mid$(z, i, 1) * m))
    21. Debug.Print i, tmp 'Nur zur INFO
    22. Next
    23. For i = 1 To Len(tmp)
    24. Qsum = Qsum + Val(Mid$(tmp, i, 1))
    25. Next
    27. Debug.Print "Quersumme :"; Qsum 'Nur zur INFO
    29. Qsum = Qsum Mod 10
    31. Debug.Print "Qsum Mod 10 : "; Qsum 'Nur zur INFO
    33. diff = 10 - Qsum
    34. If diff = 10 Then diff = 0
    36. Debug.Print "Diff.: "; diff 'Nur zur INFO
    38. PZ = diff
    40. End Function


    Ausgabe:

    Quellcode

    1. 308342310318769
    3. 1 6
    4. 2 60
    5. 3 6016
    6. 4 60163
    7. 5 601638
    8. 6 6016382
    9. 7 60163826
    10. 8 601638261
    11. 9 6016382610
    12. 10 60163826103
    13. 11 601638261032
    14. 12 6016382610328
    15. 13 601638261032814
    16. 14 6016382610328146
    17. 15 601638261032814618
    18. Quersumme : 66
    19. Qsum Mod 10 : 6
    20. Diff.: 4
    21. Prüfziffer = 4

    Öhm, dann sollte das aber nicht gehen Oo Quersummen Berechnung 15 Stelliger Nummer für Pürfziffernberechnung nach Modulo 10
    zudem deine Rückgabe fehlt

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

    Hab das ganze jetzt umgesetzt funktioniert eigentlich auch ......aber

    In der Ausgabedatei fehlen führende nullen die werden leider weggelöscht, da der Präfix fast immer gleich ist und ich eigentlich nur die letzten 9 nummern + Prüfzahl brauche musste ich die Nummer splitten

    VB.NET-Quellcode

    1. Option Explicit On
    2. Imports System.IO
    3. Imports System.Text.RegularExpressions
    5. Public Class Form1
    7. Dim Check_Number As String
    8. Dim Startnumber As String
    9. Dim i As Integer = 0
    11. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    12. Check_Number = praefix.Text & CheckNumber.Text
    13. Startnumber = CheckNumber.Text
    15. Do Until i = NumericUpDown1.Text
    17. i = i + 1
    19. Dim W As New StreamWriter(Environment.CurrentDirectory & "\Output.txt", True)
    20. W.WriteLine((Startnumber & QSumB.PZ(Check_Number)))
    21. W.Close()
    23. Check_Number = Check_Number + 1
    24. Startnumber = Startnumber + 1
    26. Loop
    28. End Sub
    29. End Class


    VB.NET-Quellcode

    1. Public Class QSumB
    2. Public Shared Function PZ(z As String) As Integer
    3. Dim i&, tmp$, Qsum&, m%, diff%
    5. For i = 1 To Len(z)
    6. If i Mod 2 = 1 Then m = 2 Else m = 1
    7. tmp = tmp$ & CStr(Val(Mid$(z, i, 1) * m))
    9. Next
    10. For i = 1 To Len(tmp)
    11. Qsum = Qsum + Val(Mid$(tmp, i, 1))
    12. Next
    14. Qsum = Qsum Mod 10
    16. diff = 10 - Qsum
    17. If diff = 10 Then diff = 0
    19. PZ = diff
    20. End Function
    22. End Class

    What :?:

    bigbase schrieb:

    VB.NET-Quellcode

    1. Option Explicit On
    2. ' ...
    3. Dim i As Integer = 0
    4. ' ...
    5. Do Until i = NumericUpDown1.Text
    6. ' ...
    7. Check_Number = Check_Number + 1
    8. Startnumber = Startnumber + 1


    Option Strict On

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @bigbase Du weist einer Integer-Variavlen einen String zu und solch.
    Machst Du Option Strict On:
    Visual Studio - Empfohlene Einstellungen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    bigbase schrieb:

    Aber mein Problem leider bisher nicht gelöst
    Das sehe ich mir an, wenn Dein Code Strict On ist.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    :thumbsup: Hier der VB.Net CODE mit Strict On

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Imports System.Convert
    6. Module Module1
    8. Sub Main()
    10. Dim zahl As String = "308342310318769"
    11. Debug.Print("Zahl = " & zahl)
    13. Debug.Print("")
    14. Debug.Print("Prüfziffer = " & PZ(zahl))
    16. End Sub
    18. Function PZ(z As String) As Integer
    19. Dim Qsum As Integer, m As Integer, diff As Integer
    20. Dim tmp As String = ""
    21. z = z.Replace(" ", "")
    22. For i As Integer = 0 To z.Length - 1
    23. If i Mod 2 = 0 Then m = 2 Else m = 1
    24. tmp &= (Convert.ToInt16(z.Substring(i, 1)) * m).ToString
    26. Debug.Print(z.Substring(i, 1) & vbTab & m & vbTab & tmp)
    28. Next
    29. For i = 0 To tmp.Length - 1
    30. Qsum += Convert.ToInt16(tmp.Substring(i, 1))
    31. Next
    33. Debug.Print("Quersumme : " & Qsum) 'Nur zur INFO
    35. Qsum = Qsum Mod 10
    37. Debug.Print("Qsum Mod 10 : " & Qsum) 'Nur zur INFO
    39. diff = 10 - Qsum
    40. If diff = 10 Then diff = 0
    42. Debug.Print("Diff.: " & diff) 'Nur zur INFO
    43. PZ = diff
    44. End Function
    46. End Module

Facebook
Telefonspende