Aus einem Dezimalwert Bits errechnen und werten.

  • VB.NET

Es gibt 32 Antworten in diesem Thema. Der letzte Beitrag () ist von DannyDee.

    Aus einem Dezimalwert Bits errechnen und werten.

    Ich hab da ein kleines Problemchen.

    Ich habe ein Programm welches mir den Dezimalwert eines Registers zuschickt. Dieses Register steuert 5 Relais. Ich möchte , aus dem ausgelesenen Dezimalwert , die Bitreihenfolge errechnen und dadurch ein Visuelles Feedback geben können , welche Bits gesetzt sind , bzw welche Relais damit aktiv sind.

    Bsp:
    Ausgelesener Wert(Dec) : 7
    Bitreihenfolge : 00111
    Relais aktiv : Relais 0 , Relais 1 , Relais 2

    Hat jmd ne Ahnung wie ich aus dem Decwert die Bits errechne und durch die Bitreihenfolge auslesen bestimmen kann welche Relais mir im Programm als Aktiv angezeigt werden sollen?

    z.Z. benutze ich Rote Buttons für die einzelnen Relais , welche Grün werden ,falls das Relais aktiv ist.

    Hier mal der Code zum reinschnuppern:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub cmd_zyklRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_zyklRead.Click
    5. If TimerRead.Enabled = False Then
    9. cmd_zyklRead.Text = "Lesen aktiv"
    13. TimerRead.Enabled = True
    17. TB_ShortAdr.ReadOnly = True
    21. TB_Reg.ReadOnly = True
    25. Else
    29. TimerRead.Enabled = False
    33. cmd_zyklRead.Text = "Zyklisches Lesen"
    37. cb_SingleAct.Checked = True
    41. TB_ShortAdr.ReadOnly = False
    45. TB_Reg.ReadOnly = False
    49. End If
    53. End Sub
    61. Private Sub cmd_rel0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_rel0.Click
    65. If cb_SingleAct.Checked = True Then
    69. writeReg(TB_ShortAdr.Text, 0, 1)
    73. End If
    77. If cb_SingleAct.Checked = False And cmd_rel0.BackColor = Color.Red Then
    81. writeReg(TB_ShortAdr.Text, 0, TB_ReadReg.Text + 1)
    85. End If
    89. If cb_SingleAct.Checked = False And cmd_rel0.BackColor = Color.Green Then
    93. writeReg(TB_ShortAdr.Text, 0, TB_ReadReg.Text - 1)
    97. End If
    101. End Sub
    109. Private Sub cmd_rel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_rel1.Click
    113. If cb_SingleAct.Checked = True Then
    117. writeReg(TB_ShortAdr.Text, 0, 2)
    121. End If
    125. If cb_SingleAct.Checked = False And cmd_rel1.BackColor = Color.Red Then
    129. writeReg(TB_ShortAdr.Text, 0, TB_ReadReg.Text + 2)
    133. End If
    137. If cb_SingleAct.Checked = False And cmd_rel1.BackColor = Color.Green Then
    141. writeReg(TB_ShortAdr.Text, 0, TB_ReadReg.Text - 2)
    145. End If
    149. End Sub
    157. Private Sub cmd_rel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_rel2.Click
    161. If cb_SingleAct.Checked = True Then
    165. writeReg(TB_ShortAdr.Text, 0, 4)
    169. End If
    173. If cb_SingleAct.Checked = False And cmd_rel2.BackColor = Color.Red Then
    177. writeReg(TB_ShortAdr.Text, 0, TB_ReadReg.Text + 4)
    181. End If
    185. If cb_SingleAct.Checked = False And cmd_rel2.BackColor = Color.Green Then
    189. writeReg(TB_ShortAdr.Text, 0, TB_ReadReg.Text - 4)
    193. End If
    197. End Sub
    205. Private Sub cmd_rel3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_rel3.Click
    209. If cb_SingleAct.Checked = True Then
    213. writeReg(TB_ShortAdr.Text, 0, 8)
    217. End If
    221. If cb_SingleAct.Checked = False And cmd_rel3.BackColor = Color.Red Then
    225. writeReg(TB_ShortAdr.Text, 0, TB_ReadReg.Text + 8)
    229. End If
    233. If cb_SingleAct.Checked = False And cmd_rel3.BackColor = Color.Green Then
    237. writeReg(TB_ShortAdr.Text, 0, TB_ReadReg.Text - 8)
    241. End If
    245. End Sub
    253. Private Sub cmd_rel4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_rel4.Click
    257. If cb_SingleAct.Checked = True Then
    261. writeReg(TB_ShortAdr.Text, 0, 16)
    265. End If
    269. If cb_SingleAct.Checked = False And cmd_rel4.BackColor = Color.Red Then
    273. writeReg(TB_ShortAdr.Text, 0, TB_ReadReg.Text + 16)
    277. End If
    281. If cb_SingleAct.Checked = False And cmd_rel4.BackColor = Color.Green Then
    285. writeReg(TB_ShortAdr.Text, 0, TB_ReadReg.Text - 16)
    289. End If
    293. End Sub
    301. Private Sub TimerStatus_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerStatus.Tick
    305. If TimerRead.Enabled = True Then
    309. cb_SingleAct.Visible = True
    313. Else
    317. cb_SingleAct.Visible = False
    321. End If
    325. Dim x As Integer
    329. x = readReg(TB_ShortAdr.Text, 0)
    333. Select Case x
    337. Case 1
    341. cmd_rel0.BackColor = Color.Green
    345. cmd_rel1.BackColor = Color.Red
    349. cmd_rel2.BackColor = Color.Red
    353. cmd_rel3.BackColor = Color.Red
    357. cmd_rel4.BackColor = Color.Red
    361. Case 2
    365. cmd_rel0.BackColor = Color.Red
    369. cmd_rel1.BackColor = Color.Green
    373. cmd_rel2.BackColor = Color.Red
    377. cmd_rel3.BackColor = Color.Red
    381. cmd_rel4.BackColor = Color.Red
    385. Case 3
    389. cmd_rel0.BackColor = Color.Green
    393. cmd_rel1.BackColor = Color.Green
    397. cmd_rel2.BackColor = Color.Red
    401. cmd_rel3.BackColor = Color.Red
    405. cmd_rel4.BackColor = Color.Red
    409. Case 4
    413. cmd_rel0.BackColor = Color.Red
    417. cmd_rel1.BackColor = Color.Red
    421. cmd_rel2.BackColor = Color.Green
    425. cmd_rel3.BackColor = Color.Red
    429. cmd_rel4.BackColor = Color.Red
    433. Case 5
    437. cmd_rel0.BackColor = Color.Green
    441. cmd_rel1.BackColor = Color.Red
    445. cmd_rel2.BackColor = Color.Green
    449. cmd_rel3.BackColor = Color.Red
    453. cmd_rel4.BackColor = Color.Red
    457. Case 6
    461. cmd_rel0.BackColor = Color.Red
    465. cmd_rel1.BackColor = Color.Green
    469. cmd_rel2.BackColor = Color.Green
    473. cmd_rel3.BackColor = Color.Red
    477. cmd_rel4.BackColor = Color.Red
    481. Case 7
    485. cmd_rel0.BackColor = Color.Green
    489. cmd_rel1.BackColor = Color.Green
    493. cmd_rel2.BackColor = Color.Green
    497. cmd_rel3.BackColor = Color.Red
    501. cmd_rel4.BackColor = Color.Red
    505. Case 8
    509. cmd_rel0.BackColor = Color.Red
    513. cmd_rel1.BackColor = Color.Red
    517. cmd_rel2.BackColor = Color.Red
    521. cmd_rel3.BackColor = Color.Green
    525. cmd_rel4.BackColor = Color.Red
    529. Case 9
    533. cmd_rel0.BackColor = Color.Green
    537. cmd_rel1.BackColor = Color.Red
    541. cmd_rel2.BackColor = Color.Red
    545. cmd_rel3.BackColor = Color.Green
    549. cmd_rel4.BackColor = Color.Red
    553. Case 10
    557. cmd_rel0.BackColor = Color.Red
    561. cmd_rel1.BackColor = Color.Green
    565. cmd_rel2.BackColor = Color.Red
    569. cmd_rel3.BackColor = Color.Green
    573. cmd_rel4.BackColor = Color.Red
    577. Case 11
    581. cmd_rel0.BackColor = Color.Green
    585. cmd_rel1.BackColor = Color.Green
    589. cmd_rel2.BackColor = Color.Red
    593. cmd_rel3.BackColor = Color.Green
    597. cmd_rel4.BackColor = Color.Red
    601. Case 12
    605. cmd_rel0.BackColor = Color.Red
    609. cmd_rel1.BackColor = Color.Red
    613. cmd_rel2.BackColor = Color.Green
    617. cmd_rel3.BackColor = Color.Green
    621. cmd_rel4.BackColor = Color.Red
    625. Case 13
    629. cmd_rel0.BackColor = Color.Green
    633. cmd_rel1.BackColor = Color.Red
    637. cmd_rel2.BackColor = Color.Green
    641. cmd_rel3.BackColor = Color.Green
    645. cmd_rel4.BackColor = Color.Red
    649. Case 14
    653. cmd_rel0.BackColor = Color.Red
    657. cmd_rel1.BackColor = Color.Green
    661. cmd_rel2.BackColor = Color.Green
    665. cmd_rel3.BackColor = Color.Green
    669. cmd_rel4.BackColor = Color.Red
    673. Case 15
    677. cmd_rel0.BackColor = Color.Green
    681. cmd_rel1.BackColor = Color.Green
    685. cmd_rel2.BackColor = Color.Green
    689. cmd_rel3.BackColor = Color.Green
    693. cmd_rel4.BackColor = Color.Red
    697. Case 16
    701. cmd_rel0.BackColor = Color.Red
    705. cmd_rel1.BackColor = Color.Red
    709. cmd_rel2.BackColor = Color.Red
    713. cmd_rel3.BackColor = Color.Red
    717. cmd_rel4.BackColor = Color.Green
    721. Case 17
    725. cmd_rel0.BackColor = Color.Green
    729. cmd_rel1.BackColor = Color.Red
    733. cmd_rel2.BackColor = Color.Red
    737. cmd_rel3.BackColor = Color.Red
    741. cmd_rel4.BackColor = Color.Green
    745. Case 18
    749. cmd_rel0.BackColor = Color.Red
    753. cmd_rel1.BackColor = Color.Green
    757. cmd_rel2.BackColor = Color.Red
    761. cmd_rel3.BackColor = Color.Red
    765. cmd_rel4.BackColor = Color.Green
    769. Case 19
    773. cmd_rel0.BackColor = Color.Green
    777. cmd_rel1.BackColor = Color.Green
    781. cmd_rel2.BackColor = Color.Red
    785. cmd_rel3.BackColor = Color.Red
    789. cmd_rel4.BackColor = Color.Green
    793. Case 20
    797. cmd_rel0.BackColor = Color.Red
    801. cmd_rel1.BackColor = Color.Red
    805. cmd_rel2.BackColor = Color.Green
    809. cmd_rel3.BackColor = Color.Red
    813. cmd_rel4.BackColor = Color.Green
    817. Case 21
    821. cmd_rel0.BackColor = Color.Green
    825. cmd_rel1.BackColor = Color.Red
    829. cmd_rel2.BackColor = Color.Green
    833. cmd_rel3.BackColor = Color.Red
    837. cmd_rel4.BackColor = Color.Green
    841. Case 22
    845. cmd_rel0.BackColor = Color.Red
    849. cmd_rel1.BackColor = Color.Green
    853. cmd_rel2.BackColor = Color.Green
    857. cmd_rel3.BackColor = Color.Red
    861. cmd_rel4.BackColor = Color.Green
    865. Case 23
    869. cmd_rel0.BackColor = Color.Green
    873. cmd_rel1.BackColor = Color.Green
    877. cmd_rel2.BackColor = Color.Green
    881. cmd_rel3.BackColor = Color.Red
    885. cmd_rel4.BackColor = Color.Green
    889. Case 24
    893. cmd_rel0.BackColor = Color.Red
    897. cmd_rel1.BackColor = Color.Red
    901. cmd_rel2.BackColor = Color.Red
    905. cmd_rel3.BackColor = Color.Green
    909. cmd_rel4.BackColor = Color.Green
    913. Case 25
    917. cmd_rel0.BackColor = Color.Green
    921. cmd_rel1.BackColor = Color.Red
    925. cmd_rel2.BackColor = Color.Red
    929. cmd_rel3.BackColor = Color.Green
    933. cmd_rel4.BackColor = Color.Green
    937. Case 26
    941. cmd_rel0.BackColor = Color.Red
    945. cmd_rel1.BackColor = Color.Green
    949. cmd_rel2.BackColor = Color.Red
    953. cmd_rel3.BackColor = Color.Green
    957. cmd_rel4.BackColor = Color.Green
    961. Case 27
    965. cmd_rel0.BackColor = Color.Green
    969. cmd_rel1.BackColor = Color.Green
    973. cmd_rel2.BackColor = Color.Red
    977. cmd_rel3.BackColor = Color.Green
    981. cmd_rel4.BackColor = Color.Green
    985. Case 28
    989. cmd_rel0.BackColor = Color.Red
    993. cmd_rel1.BackColor = Color.Red
    997. cmd_rel2.BackColor = Color.Green
    1001. cmd_rel3.BackColor = Color.Green
    1005. cmd_rel4.BackColor = Color.Green
    1009. Case 29
    1013. cmd_rel1.BackColor = Color.Red
    1017. cmd_rel0.BackColor = Color.Green
    1021. cmd_rel2.BackColor = Color.Green
    1025. cmd_rel3.BackColor = Color.Green
    1029. cmd_rel4.BackColor = Color.Green
    1033. Case 30
    1037. cmd_rel0.BackColor = Color.Red
    1041. cmd_rel1.BackColor = Color.Green
    1045. cmd_rel2.BackColor = Color.Green
    1049. cmd_rel3.BackColor = Color.Green
    1053. cmd_rel4.BackColor = Color.Green
    1057. Case 31
    1061. cmd_rel0.BackColor = Color.Green
    1065. cmd_rel1.BackColor = Color.Green
    1069. cmd_rel2.BackColor = Color.Green
    1073. cmd_rel3.BackColor = Color.Green
    1077. cmd_rel4.BackColor = Color.Green
    1081. Case Else
    1085. cmd_rel0.BackColor = Color.Red
    1089. cmd_rel1.BackColor = Color.Red
    1093. cmd_rel2.BackColor = Color.Red
    1097. cmd_rel3.BackColor = Color.Red
    1101. cmd_rel4.BackColor = Color.Red
    1105. End Select
    1109. End SubPrivate Sub TimerRead_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerRead.Tick
    1113. TB_ReadReg.Text = readReg(TB_ShortAdr.Text, TB_Reg.Text)
    1117. End Sub
    1125. End Class

    Ich verstehe ums verrecken nicht wieso da immer so viele Leerzeilen sind -.- Ich schreib hier alles direkt aneinander.

    Edit by hal2000:
    - Extrem ausladendes Layout korrigiert.

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

    Das hatten wir doch eben erst:

    VB.NET-Quellcode

    1. Dim Bit0 = 1
    2. Dim Bit1 = 2
    3. Dim Bit2 = 4
    4. Dim Value = 7
    5. If (Value And Bit0) = Bit0 Then
    6. ' Bit 0 gesetzt
    7. End If
    8. If (Value And Bit1) = Bit1 Then
    9. ' Bit 1 gesetzt
    10. End If
    11. If (Value And Bit2) = Bit2 Then
    12. ' Bit 2 gesetzt
    13. End If
    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!

    Demnach müsste ich doch auch wieder für jeden Bitwert einen Fall konstruieren oder steh ich auf dem Schlauch? Der errechnet ja nciht automatisch welche Bits gesetzt sind...

    Edit by hal2000:
    - Vollzitat entfernt. Bitte in Zukunft vermeiden.

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

    Du musst sie einzeln abfragen.
    Das lässt sich natürlich mit einer Schleife erledigen.
    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!

    VB.NET-Quellcode

    1. Dim Rel0 = 1Dim Rel1 = 2Dim Rel2 = 4Dim Rel3 = 8Dim Rel4 = 16Value = readreg ( 20 , 0 )
    2. Do
    3. If (Value And Rel0) = Rel0 thencb_rel0.checked = trueEnd If
    5. If (Value And Rel1) = Rel1 thencb_rel1.checked = trueEnd If
    7. If (Value And Rel2) = Rel2 thencb_rel2.checked = trueEnd If
    9. If (Value And Rel3) = Rel3 thencb_rel3.checked = trueEnd If
    11. If (Value And Rel4) = Rel4 thencb_rel4.checked = trueEnd IfLoop
    So z.B.?

    eher so:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim bits() As Integer = {1, 2, 4, 8, 16, 32, 64, 128}
    3. Dim result(7) As Integer
    4. Dim value As Integer = 7
    5. For i As Integer = 0 To 7
    6. If (value And bits(i)) = bits(i) Then
    7. result(i) = 1
    8. End If
    9. Next
    10. End Sub
    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!

    Hi

    VB.NET-Quellcode

    1. Dim result(7) As Boolean
    2. Dim value As Integer = 7
    3. For i As Integer = 0 To 7
    4. If (value And (1 << i)) <> 0 Then
    5. result(i) = True
    6. End If
    7. Next


    Ansonsten wäre es schöner, einfach

    VB.NET-Quellcode

    1. cb_rel = (Value And Rel) = Rel

    zu schreiben.

    Gruß
    ~blaze~

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

    ~blaze~ schrieb:

    zu schreiben.
    Oder gleich so:

    VB.NET-Quellcode

    1. result(i) = (value And (1 << i)) <> 0
    2. ' bzw
    3. result(i) = (value And bits(i)) = bits(i)
    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!

    Ich würde hier einen Enum vorschlagen:

    VB.NET-Quellcode

    1. Public Enum Relais
    2. _1 = 1
    3. _2 = 2
    4. _3 = 4
    5. _4 = 8
    6. _5 = 16
    7. _6 = 32
    8. _7 = 64
    9. End Enum
    11. Sub Main()
    12. Dim r As New Relais
    13. r = Relais._2 Or Relais._5 Or Relais._7
    14. Dim sb As New System.Text.StringBuilder
    15. For Each enu As Relais In [Enum].GetValues(GetType(Relais))
    16. If r.HasFlag(enu) Then
    17. sb.AppendLine("Relais " & [Enum].GetName(GetType(Relais), enu) & " is activated!")
    18. End If
    19. Next
    20. MsgBox(sb.ToString)
    21. End Sub
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

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

    @RodFromGermany: Das Array wär halt fast überflüssig, da es ja keinen anderen Zweck erfüllt, als das (1 << i).
    @BiedermannS: Dann schon als Flags ;). Insgesamt wär's vielleicht eh als Flags-Kombination besser, als Array. Die Flags kann man ja dann per Cast in das Enum casten. Nicht dass es hier was ausmacht, aber das [Enum].GetValues... ist relativ langsam.

    Gruß
    ~blaze~

    ~blaze~ schrieb:

    Das Array wär halt fast überflüssig
    So isses. :D
    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!

    Hier nochmal, etwas an das eigentliche Problem angepasst.

    VB.NET-Quellcode

    1. Public Enum Relais
    2. _1 = 1
    3. _2 = 2
    4. _3 = 4
    5. _4 = 8
    6. _5 = 16
    7. _6 = 32
    8. _7 = 64
    9. _8 = 128
    10. End Enum
    12. Sub Main()
    13. Dim r As New Relais
    14. r = Relais._2 Or Relais._5 Or Relais._7
    15. SetColors(r, Relais._8)
    16. r = 16
    17. SetColors(r, Relais._8)
    18. End Sub
    20. Private RefTable As New Dictionary(Of Relais, Windows.Forms.Button) From {{Relais._1, button1}, {Relais._2, button2}, {Relais._3, button3},
    21. {Relais._4, button4}, {Relais._5, button5}, {Relais._6, button6},
    22. {Relais._7, button7}, {Relais._8, button8}}
    23. Public Sub SetColors(ByVal r As Relais, ByVal Max As Integer)
    24. Dim enu As Relais = Relais._1
    25. Dim counter As Integer = 1
    26. Do Until enu > Max
    27. If r.HasFlag(enu) Then
    28. RefTable(enu).BackColor = Color.Green
    29. Else
    30. RefTable(enu).BackColor = Color.Red
    31. End If
    32. enu = 2 ^ counter
    33. counter += 1
    34. Loop
    35. End Sub
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

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

    Okey , also umso mehr Antworten ich hier bekomme , umso weniger versteh ich.

    Könnte mir ein "Pro" , bitte die einfachste Lösung aufzeigen , und erklären , so dass ich sie anhand eines Beispiels nachvollziehen und abgeändert in meinem Code benutzen kann? Das wäre voll Knorke. Eine kleine , für Neulinge passende Funktionsbeschreibung. Mehr will ich gar nicht =DD Vielen Dank.

    Nehmen wir an, deine "Anzeigen" sind Button, sind direkt auf der Form (nicht in nem Panel) und heißen "btn0" bis "btn4". Sei "wert" der "Dezmalwert" deines Registers

    for i = 0 to 4
    dim btn = me.controls("btn" & i.tostring)
    if (wert AND 1<<i)>0 then
    btn.backcolor = irgendwas ' an!
    else
    btn.backcolor = irgendwasanderes ' aus!
    endif

    VB.NET-Quellcode

    1. 'Das sind die Flags (Schalter) die deine Relais darstellen
    2. 'Links steht der Name, rechts der Wert (jeder wert ist der Wert des binären Stellenwerts von rechts nach links)
    3. Public Enum Relais
    4. _1 = 1 'Erstes Relais
    5. _2 = 2 'Zweites Relais usw...
    6. _3 = 4
    7. _4 = 8
    8. _5 = 16
    9. _6 = 32
    10. _7 = 64
    11. _8 = 128
    12. End Enum
    14. 'In diesem Dictionary wird eine Zuordnung von dem Wert im Enum Relais zum entsprechenden Button gespeichert
    15. 'also wenn das Dictionary mit Relais._1 aufgerufen wird, so greift man auf button1 zu, bei Relais._2 auf button2 usw...
    16. Private RefTable As New Dictionary(Of Relais, Windows.Forms.Button) From {{Relais._1, button1}, {Relais._2, button2}, {Relais._3, button3},
    17. {Relais._4, button4}, {Relais._5, button5}, {Relais._6, button6},
    18. {Relais._7, button7}, {Relais._8, button8}}
    20. Sub Main()
    21. 'In dieser Variable, wird der Dezimalwert gespeichert, der angibt welche Relais aktiviert sind.
    22. Dim r As New Relais
    24. 'Hier wird als Beispiel, der Wert für die Relais 2 5 und 7 in die variable gespeichert.
    25. 'durch das or werden die werte binär verknüpft
    26. r = Relais._2 Or Relais._5 Or Relais._7
    28. 'Diese Methode prüft, welche werte aktiv sind und setzt die Farben der Schalter dementsprechend
    29. 'r = der Dezimalwert der überprüft werden soll
    30. 'Relais._8 = der höchste Wert
    31. SetColors(r, Relais._8)
    33. 'man kann allerdings auch normale Ganzzahlen darin speichern
    34. r = 16
    35. SetColors(r, Relais._8)
    36. End Sub
    38. ''' <summary>
    39. ''' Diese Methode prüft, welche werte aktiv sind und setzt die Farben der Schalter dementsprechend
    40. ''' </summary>
    41. ''' <param name="r">der Dezimalwert der überprüft werden soll</param>
    42. ''' <param name="Max">der höchste Wert</param>
    43. ''' <remarks></remarks>
    44. Public Sub SetColors(ByVal r As Relais, ByVal Max As Integer)
    45. 'bei diesem Wert beginnt die Schleife
    46. Dim enu As Relais = Relais._1 ' = 1
    48. 'Diese Variable, dient der Zählung der durchläufe und somit der Ermittlung der Binärstelle
    49. Dim counter As Integer = 1
    51. 'Die Schleife wird so lange durchlaufen, bis der aktuelle binärwert größer als der maximale wert ist (in diesem Fall Relais._8 also 128)
    52. Do Until enu > Max
    54. 'Ist der aktuelle Binärwert im Dezimalwert gesetzt (also das Relais aktiviert)
    55. If r.HasFlag(enu) Then
    57. 'Färbe den entsprechenden Button Grün ein
    58. RefTable(enu).BackColor = Color.Green
    60. 'sonst
    61. Else
    63. 'Färbe den entsprechenden Button Rot ein
    64. RefTable(enu).BackColor = Color.Red
    65. End If
    67. 'berechne den neuen Stellenwert und setze den counter auf die neue Stelle
    68. enu = 2 ^ counter
    69. counter += 1
    71. 'der Stellenwert berechnet sich beim binären wie folgt
    72. 'erste Stelle = 2 hoch 0 (muss nicht beachtet werden, da dies der ausgangszustand ist)
    73. 'zweite Stelle = 2 hoch 1
    74. 'dritte Stelle = 2 hoch 2
    75. 'vierte Stelle = 2 hoch 3
    77. 'darum wird der counter immer um 1 erhöht und der stellenwert mit 2 ^ counter berechnet
    78. Loop
    79. End Sub


    Wenn du noch Fragen hast, sag bescheid :)
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    Übrigens ist 2 ^ n (in VB) das Gleiche, wie 1 << n. Potenzrechnen auf Double-Basis ist übrigens extrem unperformant - im Gegensatz zur Basis 2 und mit ganzzahligem Exponenten. Ist halt so ein typischer VB-Mist und macht nichts anderes, als Math.Pow... ;) Übrigens macht deine Do-Loop-Schleife nichts anderes, als eine For-Schleife.
    Bin mir jetzt zwar nicht ganz sicher, aber HasFlag ist denk' ich eher für eine "dynamische" Evaluierung von Flags gedacht oder? HasFlag macht ja nichts anderes, als das zu überprüfen, was wir oben schon gezeigt hatten. Da Flags nicht zwangsweise von einem spezifischen Datentypen sein müssen, sind die Operatoren nicht für alle Typen definierbar (gibts auch keine statische Funktion für den Operator à la op_BitwiseAnd, da es eben ein nativer Datentyp ist). Wenn mans weiß, ist es vllt. besser, einfach die obige Variante davon zu verwenden. Da die einzelnen Flags nicht mehrere Bits abdecken genügt ja eine Überprüfung auf > 0.
    @Topic:
    Mach es einfach als Array und speichere da die einzelnen Controls rein und steuere sie anschließend per Register-Index an.

    VB.NET-Quellcode

    1. Dim registerControls() As CheckBox = new CheckBox(){cb_reg1, cb_reg2, cb_reg3, cb_reg4, cb_reg5} 'whatever
    2. Dim setRelais As Relais = FlagsMitGesetztenBits
    3. For i As Integer = 0 To 4
    4. registerControls(i).Checked = (setRelais And (1 << i)) > 0 'Visuelles Feedback, falls das Bit gesetzt ist*
    5. Next

    Hierbei ist einfach nur zu beachten, dass setRelais in den ersten 5 Bits speichert, ob das Relais aktiv ist. Also werden eben von den bspw. 32 Bits 5 immer zwischen 1 (aktiv) und 0 (inaktiv) umgeschaltet. (1 << i) ist quasi eine Maske, die das n-te Bit darstellt. And ist eine bitweise Und-Verknüpfung. Bei c = a And b enthält c nur jene Bits, die in beiden Werten gesetzt sind (z.B. 4 And 1 = 0, 5 And 3 = 1). Da man nur dann 0 als Ergebnis erhält, wenn für alle Indices i der Bits gilt, dass das i-te Bit in a oder das i-te Bit in b nicht gesetzt sind, heißt das, dass das i-te Relais aktiv ist, wenn (a And (1 << i)) > 0 gilt.

    Gruß
    ~blaze~

    BiedermannS schrieb:

    Wenn du noch Fragen hast, sag bescheid
    Was soll das :?:
    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!