Aus einem Dezimalwert Bits errechnen und werten.

Das war ein freundlicher Hinweis darauf, dass er bei Fragen bescheid sagen soll.

Dein ganzer Quelltext ist eine einzige Frage.

Wenn du ein Problem damit hast oder eine Idee hast etwas besser zu machen, dann kannst du dies gerne sagen. Aber komm nicht mit so Meldungen.

Wenn du Kritik hast, dann sprich. Wenn du nur flamen willst, dann lass es.

BiedermannS schrieb:

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. '''
39. ''' Diese Methode prüft, welche werte aktiv sind und setzt die Farben der Schalter dementsprechend
40. '''
41. ''' der Dezimalwert der überprüft werden soll
42. ''' der höchste Wert
43. '''
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

Also bei mir kommen da einige kleine Fehler auf... Habe es wie folgt mal dazugetippt :



Soweit so gut , dank deiner Erklärung hab ich das Prinzip (glaube ich zumindest) relativ verstanden. Aber ich muss jz nochmal den Unwissenden raushängen lassen und sagen ,dass mir bei

VB.NET-Quellcode

1. If r.HasFlag(enu) Then

gesagt wird ,dass "HasFlag ist kein Member von AusleseTest.Form1.Relais"
und
bei

VB.NET-Quellcode

1. Private RefTable As New Dictionary(Of Relais, Windows.Forms.Button){{Relais._0, cmd_rel0} , {Relais._1, cmd_rel1},{Relais._2 , cmd_rel2},{Relais._3 , cmd_rel3},{Relais._4 , cmd_rel4}

wird eine End Of erwartet.


Wie kann ich diese Fehler beheben , und habe ich den Code richtig eingebunden?

DannyDee schrieb:

Wie kann ich diese Fehler beheben

Indem Du VB2010 verwendest, wie das @BiedermannS: tut, der aber leider nicht gelesen hat, dass Du nur das Studio 2005 hast.
Nimm einfach den Code, den ich Dir gepostet habe.

Sehr schade -.-' Da hab ichs mal verstanden und dann sowas! Naja okey... Dann werd ich deinen Code nutzen ,sofern ich ihn endlich kapiere. Scheint ja nicht schwer zu sein. Ich probiers mal aus , und schaue was dabei rumkommt.

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

DannyDee schrieb:

VB.NET-Quellcode

1. Private RefTable As New Dictionary(Of Relais, Windows.Forms.Button){{Relais._0, cmd_rel0} , {Relais._1, cmd_rel1},{Relais._2 , cmd_rel2},{Relais._3 , cmd_rel3},{Relais._4 , cmd_rel4}

wird eine End Of erwartet.

Hier fehlt ein } am ende

RodFromGermany schrieb:

Indem Du VB2010 verwendest, wie das @BiedermannS: tut, der aber leider nicht gelesen hat, dass Du nur das Studio 2005 hast.
Nimm einfach den Code, den ich Dir gepostet habe.

Rod's Code ist in dem Fall wohl besser, da er manche Funktionalitäten nicht benötigt und trotzdem funktioniert.

@RodFromGermany: Ich warte trotzdem noch auf meine Kritik Will ja wissen, was ich falsch mache...

BiedermannS schrieb:

Will ja wissen, was ich falsch mache...

Du versuchst das Problem der TEs vollständig zu lösen, das kann es ja wohl nicht sein.
Du hilfst ihnen, wenn Du sie in die richtige Richtung dirigierst. Lernen müssen sie allein, und das geht nun mal nicht mit vollständigem C&P-Code.

Nun gut , aber bei

VB.NET-Quellcode

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
3. Dim bits() As Integer = {1, 2, 4, 8, 16, 32, 64, 128}
5. Dim result(7) As Integer
7. Dim value As Integer = 7
9. For i As Integer = 0 To 7
11. If (value And bits(i)) = bits(i) Then
13. result(i) = 1
15. End If
17. Next
19. End Sub

frage ich mich , wie ich die Farben zuweisen kann und welcher der Dim's der ausgelesene Wert ist , denn wenn ich das richtig verstanden habe sollte Value doch der Wert sein den ich auslese , und da ich per auslese müsste es doch in etwa so aussehen :

String = irgendwas
Integer = das selbe irgendwas
Gib Deinem Programm bitte ganz schnell Option Strict On und behebe die Fehler.
Nimm dam bitte die kürzere Variante mit dem Shift.

du könntest, statt dem Result zu speichern (ausser du brauchst es noch öfter), gleich die farbe setzen.
wurde hier auch schon mal erwähnt, wie man controls über den namen anspricht: me.controls("NameDesControls")

@RodFromGermany: Ach so, dachte du meinst die Qualität des Codes....
Ja ich weiß, ich bin manchmal hilfsbereiter als ich eigentlich sein sollte.

Wenn ich der Meinung bin,

BiedermannS schrieb:

die Qualität des Codes....

ist suboptimal, dann schreibe ich "suboptimal" oder "Grütze" oder so.

Iiiiiiiich gebe jetzt einfach mal auf ,was dieses Thema betrifft , bzw lege es auf Eis. Ich klopp mir erstmal die Grundlagen rein , übe etwas und arbeite mich Stück für Stück voran , sobald ich mit der Marterie vertraut bin können wir weiter reden. Waidmanns Hail und nen schönen Arbeitstag an euch alle.