Gewichten von Einzelnen Zahlen in einem Integer

  • VB.NET
  • .NET 5–6

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von bigbase.

    Gewichten von Einzelnen Zahlen in einem Integer

    Moin, seit langem mal wieder am Basteln und habe Folgendes Problem
    Erstmal

    mein Code

    VB.NET-Quellcode

    1. Dim SplitChar As Char
    2. Dim ByteCount As Integer
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Dim SplitPraefix As Integer = tbx_praefix.Text
    7. For ByteCount = 1 To Len(CStr(SplitPraefix))
    9. SplitChar = Mid(CStr(SplitPraefix).Trim, ByteCount, 1)
    11. Next


    Ich möchte SplitChar alle einzelnen zahlen die darin enthalten sind abwechselnd mit2 und 1 gewichten, beginnend mit 2.

    Anschließend möchte ich das Ergebnis prüfen ob es mehr als eine Nummer enthält, wenn ja soll diese gesplitet und miteinander addiert werden.

    Versuche jetzt schon ne weile rum komme aber auf keine lösung please help

    Danke im vorraus

    CodeTags korrigiert ~VaporiZed

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

    @bigbase Fang an mit Option Strict On :!:
    Visual Studio – Empfohlene Einstellungen
    Mach Dir eine entsprechende Variable:

    VB.NET-Quellcode

    1. Dim Gewicht = 2
    2. BENUTZE_DEIN_GEWICHT(Gewicht)
    3. Gewicht = 3 - Gewicht
    4. ' nächste Runde
    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!

    RodFromGermany schrieb:


    Mach Dir eine entsprechende Variable:


    Ich glaube nicht das das die schönste und code sparendste Option ist.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Praefix1 As String
    3. Dim Praefix3 As String
    4. Dim Praefix5 As String
    6. Dim SplitChar As String
    7. Dim ByteCount As Integer
    9. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    10. Dim SplitPraefix As Integer = tbx_praefix.Text
    12. For ByteCount = 1 To Len(CStr(SplitPraefix))
    14. SplitChar = Mid(CStr(SplitPraefix).Trim, ByteCount, 1)
    16. Next
    18. Praefix1 = SplitChar(1)
    19. Praefix1 = Praefix1 * 2
    21. Praefix3 = SplitChar(3)
    22. Praefix3 = Praefix3 * 2
    24. Praefix5 = SplitChar(5)
    25. Praefix5 = Praefix5 * 2
    27. If Praefix1 >= 10 Then
    29. Dim ByteCount1 As Integer
    30. Dim IntNum1 As Integer
    31. Dim SplitChar1 As String
    33. For ByteCount1 = 1 To Len(CStr(IntNum1))
    34. SplitChar1 = Mid(CStr(IntNum1).Trim, ByteCount1, 1)
    36. Dim PraefixResult1 As String
    37. Dim PraefixResult2 As String
    38. PraefixResult1 = SplitChar1(1)
    39. PraefixResult2 = SplitChar1(2)
    41. PraefixResult1 = PraefixResult1 + PraefixResult2
    42. Next
    44. End If
    46. End Sub
    48. End Class


    CodeTags korrigiert ~VaporiZed

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

    Ein kleiner Ansatz, vielleicht hilft es dir weiter.

    Freundliche Grüsse

    exc-jdbi

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​Option Strict On
    2. Option Explicit On
    4. Module WeightingNumbers
    5. Private ReadOnly Rand As Random = New Random
    7. Public Sub Main()
    8. Dim size = 16
    9. Dim numbers = GenerateNumerics(16)
    10. 'numbers = New Integer() {3, 0, 8, 4, 3, 3, 1, 1, 8, 7, 3, 0, 5, 5, 7, 0}
    11. Array.Reverse(numbers)
    12. For i = 1 To numbers.Length - 1 Step 2
    13. numbers(i) = 2 * numbers(i)
    14. If numbers(i) >= 10 Then
    15. numbers(i) = ToCrossSum(numbers(i))
    16. End If
    17. Next
    18. Array.Reverse(numbers)
    19. Dim result = numbers.Sum
    20. Stop
    21. End Sub
    23. Private Function ToCrossSum(number As Int32) As Int32
    24. If number < 10 Then Return number
    25. Dim sum = 0
    26. Dim n = number
    27. While Not n = 0
    28. sum += n Mod 10
    29. n \= 10
    30. End While
    31. Return sum
    32. End Function
    33. Private Function GenerateNumerics(size As Int32) As Int32()
    34. Dim result = New Int32(size - 1) {}
    35. For i = 0 To result.Length - 1
    36. result(i) = Rand.Next(10)
    37. Next
    38. Return result
    39. End Function
    40. End Module

    Ein Consolen-Testprogramm:

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Module Module1
    6. Sub Main()
    7. Dim zahl As String = "3084331187305570"
    9. Dim L As Integer = zahl.Length - 1
    10. Dim sum As Integer
    11. Dim Arr(L) As String
    13. 'step 1
    14. For i As Integer = 0 To L
    15. If i Mod 2 = 0 Then
    16. Arr(i) = (Convert.ToInt16(zahl.Substring(i, 1)) * 2).ToString
    17. Else
    18. Arr(i) = zahl.Substring(i, 1)
    19. End If
    20. Next
    21. Debug.Print(zahl)
    22. Debug.Print(String.Join("", Arr))
    24. 'step 2
    25. For i = 0 To L
    26. If Arr(i).Length > 1 Then
    27. Arr(i) = (Convert.ToInt16(Arr(i).Substring(0, 1)) _
    28. + Convert.ToInt16(Arr(i).Substring(1, 1))).ToString
    29. End If
    30. Next
    31. Debug.Print(String.Join("", Arr))
    33. 'step 3
    34. For i = 0 To L
    35. sum += Convert.ToInt16(Arr(i))
    36. Next
    37. Debug.Print("Sum = " & sum.ToString)
    38. Debug.Print("Sum Mod 10 = " & (sum Mod 10).ToString)
    39. End Sub
    41. End Module

    bigbase schrieb:

    Ich glaube nicht das das die schönste und code sparendste Option ist.


    Wenn ich einen kleinen Tip geben darf. Arbeite mehr Dotnet-Konform. Solche Threads wie dieser hier dürfen ruhig auch solche Fragen beinhalten. Du arbeitest immer noch mit diesen VB-Altlasten wie Len, Mid, CStr etc. Die würde ich als Erstes mal eliminieren.

    Zur Funktion von deinem Vorhaben vielleicht auch noch schnell eine Kleinigkeit. Ein String ist ein zusammenhängendes Gebilde, das den Vorteil bietet, durch die einzelnen Zeichen durch zu iterieren. Mid oder Substring so finde ich, haben ihren tollen Zweck, aber schlussendlich sind sie eigentlich gar nicht nötig.

    Sofern dir ein solcher String Schwierigkeiten verursacht, dann konvertieren den String einfach in eine Integer-Array. Das lässt sich mit Convert.ToInt32 leicht bewältigen. Einfach von diesen Zwischen-Werten noch den Ascii Index abzählen und schon hast du eine gültige Integer-Array. Irgendwie so.

    VB.NET-Quellcode

    1. ​Dim ArrI32 = MyString.Select(Function(c) Convert.ToInt32(c) - 48).ToArray


    Wenn dir eine Rückwärts-Schleife Schwierigkeiten macht, dann versuche es mit der Revers-Methode wie ich es gemacht habe.

    usw.

    Alle diese kleinen Fragen führen schlussendlich dazu, dass du mit der Zeit viel optimierteren Code produzierst den du vor allem problemlos verstehst. Warum also nicht dieses Forum dazu nutzen, um solche Fragen geklärt zu bekommen. Es gibt hier wirklich sehr gute und kompetente User, die dir sicher gerne gute Tips abgeben.

    Übrigens glaube ich dir, dass du gute Kenntnisse im Umgang mit deinem Vorhaben hast, aber in der Umsetzung der Algos da würde ich auf jeden Fall noch ein paar Tips abholen hier.

    Freundliche Grüsse

    exc-jdbi

    bigbase schrieb:

    Ich glaube nicht das das die schönste und code sparendste Option ist.
    Welchen Teil dieser Deiner Aufgabenstellung erfüllt mein Snippet nicht?

    bigbase schrieb:

    Ich möchte SplitChar alle einzelnen zahlen die darin enthalten sind abwechselnd mit2 und 1 gewichten, beginnend mit 2.
    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!

    Noch eine Variante:

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Module Module1
    6. Sub Main()
    7. Dim zahl As String = "3084331187305570"
    9. Dim L As Integer = zahl.Length - 1
    10. Dim sum, tmp As Integer
    11. Dim Arr(L) As Integer
    13. For i As Integer = 0 To L
    14. tmp = Asc(zahl(i)) - 48
    15. If i Mod 2 = 0 Then
    16. tmp *= 2
    17. If tmp > 9 Then tmp -= 9
    18. Arr(i) = tmp
    19. Else
    20. Arr(i) = tmp
    21. End If
    22. sum += Arr(i)
    23. Next
    25. Debug.Print("Zahl : " & zahl)
    26. Debug.Print("Step 2: " & String.Join("", Arr))
    27. Debug.Print("Sum = " & sum.ToString)
    28. Debug.Print("Sum Mod 10 = " & (sum Mod 10).ToString)
    30. End Sub
    32. End Module

    kann man noch stark vereinfachen, insbesondere wenn die Schleife Step verwendet:

    VB.NET-Quellcode

    1. Sub Main()
    2. Dim sZahl As String = "3084331187305570"
    4. Dim ArrI32 = sZahl.Select(Function(c) Convert.ToInt32(c) - 48).ToArray
    5. For i = 0 To ArrI32.Length - 1 Step 2
    6. Dim tmp = ArrI32(i) * 2
    7. If tmp > 9 Then ArrI32(i) = tmp - 9
    8. Next
    9. Dim isValid = ArrI32.Sum Mod 10 = 0
    11. Debug.Print("Zahl : " & sZahl)
    12. Debug.Print("Step 2: " & String.Join("", ArrI32))
    13. Debug.Print("Sum = " & ArrI32.Sum)
    14. Debug.Print("Sum Mod 10 = " & isValid)
    16. End Sub
    edit: rechenFehler korrigiert

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

    Die Lösung ist jetzt natürlich nicht mehr schwer.

    @ErfinderDesRades von dir habe ich eine anonyme Methode erwartet :)

    Meine Lösung ist natürlich nichts mehr besonderes. Würde sicher auch noch mit SelectMany funktionieren.

    VB.NET-Quellcode

    1. ​Dim result = digits.
    2. Select(Function(x, idx) If(idx Mod 2 = 0, x + x, x)).
    3. Select(Function(x, idx) If(idx Mod 2 = 0, If(x >= 10, x - 9, x), x)).
    4. Sum Mod 10 = 0


    Freundliche Grüsse

    exc-jdbi