Zahlenbasen

  • VB.NET

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

    Zahlenbasen

    Hi

    In Anlehnung an diesen Thread hab ich eine Frage:

    Ich habe mir ein kleines Programm gebastelt, bei dem ich 1 Zahl eingebe und das Programm gibt sie mir dann in allen möglichen Zahlensystemen wieder aus. Angefangen habe ich mit Binär und Hexadezimal, dann wurde ich ein bisschen größenwahnsinnig und habe noch (der Vollständigkeit halber) Dezimal und Oktal hinzugefügt. Geplant waren auch die anderen Systeme mit den Basen 3, 4, 5, 6, 7, 9, 11, 12, 13, 14 und 15, klappt aber nicht.

    Kann VB das nicht oder mach ich was falsch?

    Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Math
    3. Public Class Form1
    5. Public dbl As Double
    6. Public hlf As Double
    7. Public sqr As Double
    8. Public rt As Double
    9. 'Base 2 bis 16 deklariert in Zeilensparender Form
    10. Public base2, base8, base10, base16 As String
    12. 'Nicht funktionierende
    13. 'Public base2, base3, base4, base5, base6 As String
    14. 'Public base7, base8, base9, base10, base11, base12 As String
    15. 'Public base13, base14, base15, base16 As String
    17. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. 'Labels erst jetzt leeren, damit sie auf der Form nicht "unsichtbar" sind
    20. lbl_dbl.Text = ""
    21. lbl_hlf.Text = ""
    22. lbl_sqr.Text = ""
    23. lbl_rt.Text = ""
    24. lbl_2.Text = ""
    25. lbl_3.Text = ""
    26. lbl_4.Text = ""
    27. lbl_5.Text = ""
    28. lbl_6.Text = ""
    29. lbl_7.Text = ""
    30. lbl_8.Text = ""
    31. lbl_9.Text = ""
    32. lbl_10.Text = ""
    33. lbl_11.Text = ""
    34. lbl_12.Text = ""
    35. lbl_13.Text = ""
    36. lbl_14.Text = ""
    37. lbl_15.Text = ""
    38. lbl_16.Text = ""
    40. End Sub
    42. Private Sub num_input_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num_input.ValueChanged
    44. Try
    45. 'Funktionieren
    46. dbl = num_input.Value * 2
    47. hlf = num_input.Value / 2
    48. sqr = num_input.Value ^ 2
    49. rt = Sqrt(num_input.Value)
    50. base2 = Convert.ToString(CInt(num_input.Value), 2)
    51. base8 = Convert.ToString(CInt(num_input.Value), 8)
    52. base10 = Convert.ToString(CInt(num_input.Value), 10)
    53. base16 = Convert.ToString(CInt(num_input.Value), 16)
    55. 'Funktionieren nicht
    56. 'base3 = Convert.ToString(CInt(num_input.Value), 3)
    57. 'base4 = Convert.ToString(CInt(num_input.Value), 4)
    58. 'base5 = Convert.ToString(CInt(num_input.Value), 5)
    59. 'base6 = Convert.ToString(CInt(num_input.Value), 6)
    60. 'base7 = Convert.ToString(CInt(num_input.Value), 7)
    61. 'base9 = Convert.ToString(CInt(num_input.Value), 9)
    62. 'base11 = Convert.ToString(CInt(num_input.Value), 11)
    63. 'base12 = Convert.ToString(CInt(num_input.Value), 12)
    64. 'base13 = Convert.ToString(CInt(num_input.Value), 13)
    65. 'base14 = Convert.ToString(CInt(num_input.Value), 14)
    66. 'base15 = Convert.ToString(CInt(num_input.Value), 15)
    68. Catch ex As Exception
    70. MsgBox(ex.Message)
    72. End Try
    74. num_out()
    76. End Sub
    78. Sub num_out()
    80. 'Funktionieren
    81. lbl_dbl.Text = CStr(dbl)
    82. lbl_hlf.Text = CStr(hlf)
    83. lbl_sqr.Text = CStr(sqr)
    84. lbl_rt.Text = CStr(rt)
    85. lbl_2.Text = CStr(base2)
    86. lbl_8.Text = base8
    87. lbl_10.Text = base10
    88. lbl_16.Text = base16
    90. 'Funktionieren nicht
    91. 'lbl_3.Text = base3
    92. 'lbl_4.Text = base4
    93. 'lbl_5.Text = base5
    94. 'lbl_6.Text = base6
    95. 'lbl_7.Text = base7
    96. 'lbl_9.Text = base9
    97. 'lbl_11.Text = base11
    98. 'lbl_12.Text = base12
    99. 'lbl_13.Text = base13
    100. 'lbl_14.Text = base14
    101. 'lbl_15.Text = base15
    103. End Sub
    105. End Class


    VG
    Eine Pizza auf einer Pizza sind 2 Pizzen

    Eine Lasagne auf einer Lasagne ergibt 1 große Lasagne

    VB.NET-Quellcode

    1. base16 = Convert.ToString(CInt(num_input.Value), 16)


    Das gibt mir die Variable vom NumericUpDown ganz einfach als hexadezimale Zahl aus, ohne das ich da rechnen muss... 16 ist da die Basis, aber das geht nur mit den Basen 2, 8, 10 und 16. Das finde ich so seltsam
    Eine Pizza auf einer Pizza sind 2 Pizzen

    Eine Lasagne auf einer Lasagne ergibt 1 große Lasagne

    Ja die 4 Systeme kenn ich. Hab sogar das handschriftliche Umrechnen zwischen Binär - Dezimal - Hexadezimal gelernt -.-

    Ok, schade... Ich hab einen Umrechner im Internet gefunden, laut dem die Zahl 34 bei der Basis 3 = 1021 ist. Ich verstehe nicht so ganz, wie man darauf kommt. Klar die Zahlen können keine 4 oder größer beinhalten, trotzdem ist mir nicht ganz schlüssig, wie die Zahlen errechnet werden.
    Eine Pizza auf einer Pizza sind 2 Pizzen

    Eine Lasagne auf einer Lasagne ergibt 1 große Lasagne

    Ryke schrieb:

    Hab sogar das handschriftliche Umrechnen zwischen Binär - Dezimal - Hexadezimal gelernt -.-

    Aber mur auswändig und nicht verstanden? Denn im Prinzip ist das ja trivial:

    VB.NET-Quellcode

    1. Public Function umrechne(i As Integer, base As Integer) As String
    3. Dim numbers As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    4. Dim sb As New System.Text.StringBuilder
    6. While i > 0
    7. Dim c = i Mod base
    8. sb.Append(numbers(c))
    9. i \= base
    10. End While
    12. Return sb.ToString
    14. End Function
    16. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    18. Debug.Print(umrechne(34, 3))
    19. Debug.Print(umrechne(1234567, 29))
    21. End Sub

Facebook
Telefonspende