Newbie - Button einen Wert zuweisen und dann in Hex summieren

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von Niko Ortner.

    Newbie - Button einen Wert zuweisen und dann in Hex summieren

    Ich habe eine Form erstellt,die 15 Buttons und einen Restknopf, und zur Ausgabe des Hexwertes eine Textbox hat.
    in vb 2008 express
    Falls sich jemand fragt,was das werden soll:
    Ein Tool, mit dem man Adressdekodierungen von I/O Schaltungen leichter berechnen kann.
    Das ist sonst ein sehr mühsamen und fehlerträchtiger Vorgang.
    Denn ich habe trotz langer Suche nichts ähnliches im Netz gefunden.

    Ich muss mehrere Buttons auswählen können,die den Adressleitungen der CPU entsprechen.
    Trotz etlicher Versuche komme ich nicht weiter. ?(
    Denn mit Radiobuttons gehts nicht ...
    Bitte verzeiht meine Unerfahrenheit,aber jeder lernt mal ....

    mfg Don Karlo

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Don Karlo“ ()

    Denn mit Radiobuttons gehts nicht

    Ich glaube, Du benötigst CheckBoxen. Die sehen ähnlich wie RadioButtons aus, aber sie sind eckig. Sobald Du Deine 15(?) CheckBoxen auf die Form gezogen hast und ihnen sinnvolle Namen gegeben hast, gehst Du ins Codefenster.
    Dort schreibst Du das hier:

    VB.NET-Quellcode

    1. Private Sub CalculateValue() Handles DeineCheckBoxFürBit0.CheckedChanged, DeineCheckBoxFürBit1.CheckedChanged, ...

    (DeineCheckBoxFürBit0 ist natürlich nur symbolisch gemeint.)

    Dadurch wird, sobald Du den Haken aus einer CheckBox rausnimmst, oder ihn hineinsetzt der Code in der Methode ausgeführt.

    Dann erstellst Du Dir eine lokale Variable vom Typ Integer und gibst ihr den Wert 0.

    Wenn DeineCheckBoxFürBit0 gechecked ist, dann schreibst Du
    DeineVariable = DeineVariable Or 1

    Wenn DeineCheckBoxFürBit1 gechecked ist, dann
    DeineVariable = DeineVariable Or 2

    Wenn FürBit2, dann
    DeineVariable = DeineVariable Or 4

    Und so weiter. Immer das doppelte.

    Wie Du sicherlich weißt sind 1, 2, 4, ... Ganzzahlwerte, bei denen immer nur ein Bit gesetzt ist. Wenn Du die oderierst, dann kommt der Wert heraus, der er sein soll.

    Anschließend weist Du Deiner TextBox den Wert zu, indem Du ihn mit Convert.ToString(DeineVariable, 16) konvertierst. So wird die Zahl hexadezimal dargestellt.


    Edit: Ich denke, das wird für einen µC
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Willkommen im Forum. :thumbup:
    Zur Präzisierung des Beitrages von @Niko Ortner:
    Erstelle Dir ein Enum, das die Bits repräsentiert, da kannst Du Klartextnamen verwenden:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. <Flags()> _
    2. Private Enum AdressBits
    3. Bit00 = &H1
    4. Bit01 = &H2
    5. Bit02 = &H4
    6. Bit03 = &H8
    7. Bit04 = &H10
    8. Bit05 = &H20
    9. Bit06 = &H40
    10. Bit07 = &H80
    11. Bit08 = &H100
    12. Bit09 = &H200
    13. Bit10 = &H400
    14. Bit11 = &H800
    15. Bit12 = &H1000
    16. Bit13 = &H2000
    17. Bit14 = &H4000
    18. Bit15 = &H8000
    19. End Enum
    21. Private Sub xxx()
    22. Dim bbb As AdressBits = AdressBits.Bit01 Or AdressBits.Bit03
    23. '...
    24. End Sub
    Bilder

    • enum.jpg

      25,05 kB, 566×214, 130 mal angesehen
    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!

    Basic meckert - er will einen Bezeichner

    VB.NET-Quellcode

    1. Module1
    2. Sub Main()
    4. Dim Deine Variable As Integer
    6. Deine(Variable = 0)
    8. End Sub
    10. End Module
    11. Public Class Form2
    13. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    15. End Sub
    17. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. End Sub
    21. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    22. DeineVariable = DeineVariable Or 0
    23. End Sub
    27. Private
    28. Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e
    29. As System.EventArgs) Handles CheckBox1.CheckedChanged
    30. DeineVariable = DeineVariable Or 1
    31. End Sub
    33. Private
    34. Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As
    35. System.EventArgs) Handles CheckBox2.CheckedChanged
    36. DeineVariable = DeineVariable Or 2
    37. End Sub
    39. Private
    40. Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As
    41. System.EventArgs) Handles CheckBox3.CheckedChanged
    42. DeineVariable = DeineVariable Or 4
    43. End Sub
    45. Private
    46. Sub CheckBox4_CheckedChanged_1(ByVal sender As System.Object, ByVal e
    47. As System.EventArgs) Handles CheckBox4.CheckedChanged
    48. DeineVariable = DeineVariable Or 8
    49. End Sub
    51. Private
    52. Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As
    53. System.EventArgs) Handles CheckBox5.CheckedChanged
    54. DeineVariable = DeineVariable Or 16
    55. End Sub
    57. Private
    58. Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As
    59. System.EventArgs) Handles CheckBox6.CheckedChanged
    60. DeineVariable = DeineVariable Or 32
    61. End Sub
    63. Private
    64. Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As
    65. System.EventArgs) Handles CheckBox7.CheckedChanged
    66. DeineVariable = DeineVariable Or 64
    67. End Sub
    69. Private
    70. Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As
    71. System.EventArgs) Handles CheckBox8.CheckedChanged
    72. DeineVariable = DeineVariable Or 128
    73. End Sub
    75. Private
    76. Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As
    77. System.EventArgs) Handles CheckBox9.CheckedChanged
    78. DeineVariable = DeineVariable Or 256
    79. End Sub
    81. Private
    82. Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As
    83. System.EventArgs) Handles CheckBox10.CheckedChanged
    84. DeineVariable = DeineVariable Or 512
    85. End Sub
    87. Private
    88. Sub CheckBox11_CheckedChanged(ByVal sender As System.Object, ByVal e As
    89. System.EventArgs) Handles CheckBox11.CheckedChanged
    90. DeineVariable = DeineVariable Or 1024
    91. End Sub
    93. Private
    94. Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As
    95. System.EventArgs) Handles CheckBox12.CheckedChanged
    96. DeineVariable = DeineVariable Or 2048
    97. End Sub
    99. Private
    100. Sub CheckBox13_CheckedChanged(ByVal sender As System.Object, ByVal e As
    101. System.EventArgs) Handles CheckBox13.CheckedChanged
    102. DeineVariable = DeineVariable Or 4096
    103. End Sub
    105. Private
    106. Sub CheckBox14_CheckedChanged(ByVal sender As System.Object, ByVal e As
    107. System.EventArgs) Handles CheckBox14.CheckedChanged
    108. DeineVariable = DeineVariable Or 8192
    109. End Sub
    111. Private
    112. Sub CheckBox15_CheckedChanged(ByVal sender As System.Object, ByVal e As
    113. System.EventArgs) Handles CheckBox15.CheckedChanged
    114. DeineVariable = DeineVariable Or 16384
    115. End Sub
    117. Private
    118. Sub CheckBox16_CheckedChanged(ByVal sender As System.Object, ByVal e As
    119. System.EventArgs) Handles CheckBox16.CheckedChanged
    120. DeineVariable = DeineVariable Or 32768
    121. End Sub
    123. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    124. Convert.ToString(DeineVariable, 16)
    125. End Sub
    126. End Class
    Bilder

    • vb fehler.PNG

      152,61 kB, 1.366×768, 140 mal angesehen

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

    Ein Tipp:
    Bitte VB Tags benutzen - was ist damit gemeint?
    Sonst bekommen wir hier noch Augenkrebs ^^

    Und nochwas:
    Wenn Du den VB-Tag eingefügt hast, dann kannst Du uns auch die Fehlerzeile und den Fehlertext erzählen. Sonst müssen wir raten, was nicht passt.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Schmeiß das Module1 raus und schrfeibe die Zeilen so, dass keine Fehler mehr kommen.
    Dann reden wir weiter.
    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!

    @Don Karlo: Jetzt hast Du genau das gemacht, was ich nicht wollte.
    Füge eine Sub hinzu und weise der alle Events zu:

    VB.NET-Quellcode

    1. Private Sub Asdf() Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, .....


    Dann fügst Du die Deklaration (Dim ...), die Value = Value Or ..., und das Zuweisen des Textes in diese Sub ein.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    RodFromGermany schrieb:

    Erstelle Dir ein Enum, das die Bits repräsentiert, d

    Irgendwie ist das aber Fummelkram ...

    Nehmen wir an, die Checkboxen heißen ChkBitXX, wobei XX für 0 bis 15 geht. Nehmen wir an man packt sie in ein "Panel" namens BitPanel, dann bekommt man den Wert am einfachsten so:

    dim BitSumme = (From i in Enumerable.Range(0,16) where Directcast(Me.BitPanel.Controls("ChkBit" & t.tostring), Checkbox).Checked Select 1 << i).Sum

    Du bist wohl noch ein wenig erfahrungsbedürftig beim Umgang mit dem Studio.
    Erstell Dir ein neues Projekt und lass den Designer für Dich die Prozeduren erstellen.
    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!

    Ist

    Don Karlo schrieb:

    die Express Version 2008
    kein Studio?
    Was kannste da nich machen (außer solch Sachen wie Dienste und so)?
    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!

    Wollte das Servicepack vom Studio 2010 installieren, brach mit Fehlermeldung ab, dann war der Installer von Windoof beleidigt,musste mit clean Tool von Windows das ganze Framework Gedöhns rausschmeissen, das Ganze komplett neu installieren,wahrscheinlich wird sich das auf einen Neuaufsatz
    hinauslaufen.

    Don Karlo schrieb:

    VB.NET-Quellcode

    1. Sub Main()
    3. Dim Deine Variable As Integer
    5. Deine(Variable = 0)
    7. End Sub
    9. End Module

    "DeineVariable" darf nicht in einer Methode deklariert werden, sonst gilt sie nur dort. Wenn sie in der gesamten Klasse verfügbar sein soll, muss sie auch in der Klasse deklartiert werden.

    VB.NET-Quellcode

    1. Module Module1
    3. ' Modulebene: Jede hier deklarierte Variable gilt im gesamten Modul inkl. aller Methoden etc
    4. Private Modulebene As Integer = 1
    6. Sub Main()
    8. ' Methodenebene: Jede hier deklarierte Variable gilt nur genau INNERHALB dieser Methode
    9. Dim EineVariable As Integer = 2
    11. End Sub
    13. Sub Foo()
    15. ' Jetzt gibts nochmal "EineVariable", aber das macht nix, weil die andere ja hier nicht gilt
    16. Dim EineVariable As Integer = 3
    19. ' Man kann auch bereits vorhandene Variablen "überschreiben". Die gilt dann aber nur HIER und nicht
    20. ' außerhalb!
    21. Dim Modulebene As Integer = 4
    23. End Sub
    27. End Module


    btw, mal als Vorschlag:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Class ComboItem
    4. Public Wert As Integer
    5. Public Overrides Function ToString() As String
    6. Return "Bits: " & Wert.ToString
    7. End Function
    8. End Class
    10. Private Value As Long = 0
    12. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    14. For Each k In {8, 16, 24, 32, 64}
    15. Me.cbBits.Items.Add(New ComboItem With {.Wert = k})
    16. Next
    18. End Sub
    20. Private Sub cbBits_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cbBits.SelectedIndexChanged
    21. If cbBits.SelectedItem IsNot Nothing Then
    22. Dim cbi As ComboItem = DirectCast(cbBits.SelectedItem, ComboItem)
    23. Me.FlowLayoutPanel1.SuspendLayout()
    24. Me.FlowLayoutPanel1.Controls.Clear()
    25. For i = 0 To cbi.Wert - 1
    26. Dim cb As New CheckBox With {.Text = "Bit " & i.ToString, .Tag = 1L << i}
    27. Me.FlowLayoutPanel1.Controls.Add(cb)
    28. AddHandler cb.CheckedChanged, AddressOf CheckChange
    29. Next
    30. Me.FlowLayoutPanel1.ResumeLayout()
    31. Value = 0
    32. Label1.Text = String.Empty
    33. End If
    34. End Sub
    36. Private Sub CheckChange(sender As Object, e As EventArgs)
    38. Dim cb As CheckBox = DirectCast(sender, CheckBox)
    39. If cb.Checked Then
    40. Value = Value Or CLng(cb.Tag)
    41. Else
    42. Value = Value And Not CLng(cb.Tag)
    43. End If
    44. Me.Label1.Text = String.Format("Hex: {0}, Dez: {1}", Convert.ToString(Value, 16), Value)
    45. End Sub
    47. End Class

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

    Es ist ja nicht so kompliziert. Lies Dir nochmal genau durch, was ich in Post #3 und #9 geschrieben habe.
    Die Variable ist lokal. Das bedeutet, dass sie in die methode kommt.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils