Position in String abfragen

  • VB.NET

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Hier einmal meine Version
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    3. Dim TimeNow As TimeSpan = Date.Now.TimeOfDay
    4. Label1.Text = TimeNow.ToString("hh\:mm\:ss")
    6. Dim StundeZBin As String = Convert.ToString(TimeNow.Hours \ 10, 2).PadLeft(2, "0"c)
    7. Dim StundeEBin As String = Convert.ToString(TimeNow.Hours Mod 10, 2).PadLeft(4, "0"c)
    9. Dim MinuteZBin As String = Convert.ToString(TimeNow.Minutes \ 10, 2).PadLeft(3, "0"c)
    10. Dim MinuteEBin As String = Convert.ToString(TimeNow.Minutes Mod 10, 2).PadLeft(4, "0"c)
    12. Dim SekundeZBin As String = Convert.ToString(TimeNow.Seconds \ 10, 2).PadLeft(3, "0"c)
    13. Dim SekundeEBin As String = Convert.ToString(TimeNow.Seconds Mod 10, 2).PadLeft(4, "0"c)
    15. 'Errechnete Binärwärte in die Radiobuttons übertragen
    16. 'Stunden Zehner
    17. rb_H_Z1.Checked = StundeZBin(1) = "1"
    18. rb_H_Z2.Checked = StundeZBin(0) = "1"
    20. 'Stunden Einer
    21. rb_H_E1.Checked = StundeEBin(3) = "1"
    22. rb_H_E2.Checked = StundeEBin(2) = "1"
    23. rb_H_E8.Checked = StundeEBin(1) = "1"
    24. rb_H_E8.Checked = StundeEBin(0) = "1"
    26. 'Minuten Zehner
    27. rb_M_Z1.Checked = MinuteZBin(2) = "1"
    28. rb_M_Z2.Checked = MinuteZBin(1) = "1"
    29. rb_M_Z4.Checked = MinuteZBin(0) = "1"
    31. 'Minuten Einer
    32. rb_M_E1.Checked = MinuteEBin(3) = "1"
    33. rb_M_E2.Checked = MinuteEBin(2) = "1"
    34. rb_M_E4.Checked = MinuteEBin(1) = "1"
    35. rb_M_E8.Checked = MinuteEBin(0) = "1"
    37. 'Sekunden Zehner
    38. rb_S_Z1.Checked = SekundeZBin(2) = "1"
    39. rb_S_Z2.Checked = SekundeZBin(1) = "1"
    40. rb_S_Z4.Checked = SekundeZBin(0) = "1"
    42. 'Sekunden Einer
    43. rb_S_E1.Checked = SekundeEBin(3) = "1"
    44. rb_S_E2.Checked = SekundeEBin(2) = "1"
    45. rb_S_E4.Checked = SekundeEBin(1) = "1"
    46. rb_S_E8.Checked = SekundeEBin(0) = "1"
    48. End Sub

    Ich hoffe ich habe alle gemachten Verbesserungsvorschläge gut umgesetzt und kann künftigen Suchenden eine Hilfe sein (und mich auf diesem Wege revanchieren)!
    Hier der neue Quellcode, mit nützlicheren Kommentaren und ich habe einige lose Zöpfe entfernt. Außerdem hat meine Maske eine Checkbox bekommen, mit der ich die Radiobuttons beschriften kann, damit das Ablesen der Uhrzeit etwas vereinfacht werden soll.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Public StundeZMaxBin() As String = {"0", "0"}
    4. Public StundeZBin As String
    5. Public StundeEMaxBin() As String = {"0", "0", "0", "0"}
    6. Public StundeEBin As String
    8. Public MinuteZMaxBin() As String = {"0", "0", "0"}
    9. Public MinuteZBin As String
    10. Public MinuteEMaxBin() As String = {"0", "0", "0", "0"}
    11. Public MinuteEBin As String
    13. Public SekundeZMaxBin() As String = {"0", "0", "0"}
    14. Public SekundeZBin As String
    15. Public SekundeEMaxBin() As String = {"0", "0", "0", "0"}
    16. Public SekundeEBin As String
    18. Public BinString As String
    19. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    21. Presets()
    23. Timer1.Interval = 100
    24. Timer1.Start()
    26. End Sub
    28. Private Sub Presets()
    30. 'Alle Radiobuttons vorbereiten
    31. Dim RadioButtons = {rb_H_Z1, rb_H_Z2, rb_H_E1, rb_H_E2, rb_H_E4, rb_H_E8, rb_M_Z1, rb_M_Z2, rb_M_Z4, rb_M_E1, rb_M_E2, rb_M_E4, rb_M_E8, rb_S_Z1, rb_S_Z2, rb_S_Z4, rb_S_E1, rb_S_E2, rb_S_E4, rb_S_E8}
    32. RadioButtons.ToList.ForEach(Sub(x)
    33. x.Checked = False
    34. x.AutoCheck = False
    35. x.Text = ""
    36. End Sub)
    38. End Sub
    40. Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    42. 'Hilfsanzeigen der Radiobuttons ein/ausschalten
    43. If CheckBox1.Checked Then
    44. RadioButtonTextAn()
    45. Else
    46. RadioButtonTextAus()
    47. End If
    49. End Sub
    51. Sub RadioButtonTextAus()
    53. 'Hilfstexte an den Radiobuttons zur vereinfachten Lesbarkeit AUS
    54. Dim RadioButtons = {rb_H_Z1, rb_H_Z2, rb_H_E1, rb_H_E2, rb_H_E4, rb_H_E8, rb_M_Z1, rb_M_Z2, rb_M_Z4, rb_M_E1, rb_M_E2, rb_M_E4, rb_M_E8, rb_S_Z1, rb_S_Z2, rb_S_Z4, rb_S_E1, rb_S_E2, rb_S_E4, rb_S_E8}
    55. RadioButtons.ToList.ForEach(Sub(x)
    56. x.Text = ""
    57. End Sub)
    59. End Sub
    61. Sub RadioButtonTextAn()
    63. 'Hilfstexte an den Radiobuttons zur vereinfachten Lesbarkeit EIN
    64. Dim RadioButtons1 = {rb_H_Z1, rb_H_E1, rb_M_Z1, rb_M_E1, rb_S_Z1, rb_S_E1} '1er
    65. Dim RadioButtons2 = {rb_H_Z2, rb_H_E2, rb_M_Z2, rb_M_E2, rb_S_Z2, rb_S_E2} '2er
    66. Dim RadioButtons4 = {rb_H_E4, rb_M_Z4, rb_M_E4, rb_S_Z4, rb_S_E4} '4er
    67. Dim RadioButtons8 = {rb_H_E8, rb_M_E8, rb_S_E8} '8er
    69. RadioButtons1.ToList.ForEach(Sub(x)
    70. x.Text = "1"
    71. End Sub)
    73. RadioButtons2.ToList.ForEach(Sub(x)
    74. x.Text = "2"
    75. End Sub)
    77. RadioButtons4.ToList.ForEach(Sub(x)
    78. x.Text = "4"
    79. End Sub)
    81. RadioButtons8.ToList.ForEach(Sub(x)
    82. x.Text = "8"
    83. End Sub)
    85. End Sub
    87. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    89. Dim Time As String = CStr(DateAndTime.TimeOfDay)
    91. 'Beispiel Zeit: 14:52:44
    92. 'Time(0+1) --> Stunde Z/E
    93. 'Time(3+4) --> Minute Z/E
    94. 'Time(6+7) --> Sekunde Z/E
    96. Me.Text = CStr(DateAndTime.TimeOfDay)
    98. 'DezInBinUmrechner(H/M/S, Nötige Binär-Länge)
    99. DezInBinUmrechner(Time(0), 2)
    100. StundeZBin = BinString.ToString
    101. DezInBinUmrechner(Time(1), 4)
    102. StundeEBin = BinString.ToString
    104. DezInBinUmrechner(Time(3), 3)
    105. MinuteZBin = BinString.ToString
    106. DezInBinUmrechner(Time(4), 4)
    107. MinuteEBin = BinString.ToString
    109. DezInBinUmrechner(Time(6), 3)
    110. SekundeZBin = BinString.ToString
    111. DezInBinUmrechner(Time(7), 4)
    112. SekundeEBin = BinString.ToString
    114. 'Errechnete Binärwärte in die Radiobuttons übertragen
    115. RadioButtonsSetzen()
    117. End Sub
    119. Private Sub RadioButtonsSetzen()
    121. 'Stunden Zehner
    122. rb_H_Z1.Checked = Not (StundeZBin(1) = "" Or StundeZBin(1) = "0")
    123. rb_H_Z2.Checked = Not (StundeZBin(0) = "" Or StundeZBin(0) = "0")
    125. 'Stunden Einer
    126. rb_H_E1.Checked = Not (StundeEBin(3) = "" Or StundeEBin(3) = "0")
    127. rb_H_E2.Checked = Not (StundeEBin(2) = "" Or StundeEBin(2) = "0")
    128. rb_H_E4.Checked = Not (StundeEBin(1) = "" Or StundeEBin(1) = "0")
    129. rb_H_E8.Checked = Not (StundeEBin(0) = "" Or StundeEBin(0) = "0")
    131. 'Minuten Zehner
    132. rb_M_Z1.Checked = Not (MinuteZBin(2) = "" Or MinuteZBin(2) = "0")
    133. rb_M_Z2.Checked = Not (MinuteZBin(1) = "" Or MinuteZBin(1) = "0")
    134. rb_M_Z4.Checked = Not (MinuteZBin(0) = "" Or MinuteZBin(0) = "0")
    136. 'Minuten Einer
    137. rb_M_E1.Checked = Not (MinuteEBin(3) = "" Or MinuteEBin(3) = "0")
    138. rb_M_E2.Checked = Not (MinuteEBin(2) = "" Or MinuteEBin(2) = "0")
    139. rb_M_E4.Checked = Not (MinuteEBin(1) = "" Or MinuteEBin(1) = "0")
    140. rb_M_E8.Checked = Not (MinuteEBin(0) = "" Or MinuteEBin(0) = "0")
    142. 'Sekunden Zehner
    143. rb_S_Z1.Checked = Not (SekundeZBin(2) = "" Or SekundeZBin(2) = "0")
    144. rb_S_Z2.Checked = Not (SekundeZBin(1) = "" Or SekundeZBin(1) = "0")
    145. rb_S_Z4.Checked = Not (SekundeZBin(0) = "" Or SekundeZBin(0) = "0")
    147. 'Sekunden Einer
    148. rb_S_E1.Checked = Not (SekundeEBin(3) = "" Or SekundeEBin(3) = "0")
    149. rb_S_E2.Checked = Not (SekundeEBin(2) = "" Or SekundeEBin(2) = "0")
    150. rb_S_E4.Checked = Not (SekundeEBin(1) = "" Or SekundeEBin(1) = "0")
    151. rb_S_E8.Checked = Not (SekundeEBin(0) = "" Or SekundeEBin(0) = "0")
    153. End Sub
    154. Private Sub DezInBinUmrechner(Wert As String, Stellen As Integer)
    156. If Wert Is Nothing Then Wert = "0"
    157. If Stellen < 0 Then Stellen = 2
    159. Dim IntWert As Integer = CInt(Val(Wert))
    160. Dim i As Integer = IntWert
    161. Dim Rest As Integer = 0
    162. BinString = ""
    164. If IntWert > 0 Then
    166. While i > 0
    168. 'Dezimal --> Binär umrechnen
    169. If Math.DivRem(i, 2).Remainder > 0 Then
    170. 'Division hat Rest --> 1
    171. BinString = String.Concat("1".ToString, BinString)
    172. Else
    173. 'Division geht auf --> 0
    174. BinString = String.Concat("0".ToString, BinString)
    175. End If
    177. i = Math.DivRem(i, 2).Quotient
    178. End While
    180. Else
    181. BinString = String.Concat("0".ToString, BinString)
    182. End If
    184. 'Fehlende Stellen auffüllen
    185. Rest = Stellen - BinString.Length
    187. 'Auf nötige Stellenanzahl auffüllen
    188. While Rest > 0
    189. BinString = String.Concat("0".ToString, BinString)
    190. Rest = Stellen - BinString.Length
    191. End While
    193. End Sub
    194. End Class


    Wie immer: Vielen Dank für die Hilfen und fühlt euch frei, diesen Code zu verwenden. Verbesserungsvorschläge sind auch stets willkommen.
    Ich habe eine Menge gelernt, was zukünftig mit Sicherheit Anwendung finden wird :thumbsup:
    Eine Pizza auf einer Pizza sind 2 Pizzen

    Eine Lasagne auf einer Lasagne ergibt 1 große Lasagne

    noch zweii:

    VB.NET-Quellcode

    1. RadioButtons1.ToList.ForEach(Sub(x)x.Text = "1")

    und: Verwende OrElse statt Or.
    OrElse wertet den zweiten Teilausdruck garnicht erst aus, wenn der erste schon unzutreffend war.
    das ist eine Frage der Logik: ich brauche auf dem Mond nicht an den Regenschirm denken, weil es dort garnet regnen kann.
    Also angewöhnen: Für logische Verknüpfungen OrElse bzw AndAlso verwenden.
    Or und And verhalten sich minimal "unlogisch", weil sie den zweiten Ausdruck auswerten, egal was die erste Bedingung ergab.
    Or und And sollte man nur noch für bitweise Verknüpfungen verwenden - eine andere Baustelle.

    ErfinderDesRades schrieb:

    OrElse wertet den zweiten Teilausdruck garnicht erst aus, wenn der erste schon unzutreffend war.
    Eh, nee. Da biste bei AndAlso. Der zweite wird nicht ausgewertet, wenn der erste bereits zutrifft.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    ErfinderDesRades schrieb:

    OrElse wertet den zweiten Teilausdruck garnicht erst aus, wenn der erste schon unzutreffend war.
    Eh, nee. Da biste bei AndAlso. Der zweite wird nicht ausgewertet, wenn der erste bereits zutrifft.

    neuer Versuch:
    • AndAlso wertet den zweiten Teilausdruck garnicht erst aus, wenn der erste schon unzutreffend war.
    • OrElse wertet den zweiten Teilausdruck garnicht erst aus, wenn der erste bereits zutreffend war.

Facebook
Telefonspende