Binär Uhr mit möglichst wenig Code

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von TVX.

    Binär Uhr mit möglichst wenig Code

    VB.NET-Quellcode

    1. ' NORMALE UHR + BINÄRUHR
    2. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    4. Dim jetzt As Date = Date.Now
    5. Dim stunde As Integer = jetzt.Hour
    6. Dim minute As Integer = jetzt.Minute
    7. Dim sekunde As Integer = jetzt.Second
    9. Dim stundeBinaer As String = Convert.ToString(stunde, 2)
    10. Dim minuteBinaer As String = Convert.ToString(minute, 2)
    11. Dim sekundeBinaer As String = Convert.ToString(sekunde, 2)
    14. TextBox2.Text = "Uhr : " & stunde & " : " & minute & " : " & sekunde
    15. TextBox3.Text = "Binäruhr : " & stundeBinaer & " : " & minuteBinaer & " : " & sekundeBinaer
    17. End Sub


    Also nach dem splitten der Zeit brauche ich ca 17 if Abfragen !

    Geht das noch kürtzer ?

    LG Andre.......

    Sieh Dir mal die Formatierungsmöglichkeiten von DataTime an, z.B.:

    VB.NET-Quellcode

    1. Dim jetzt As Date = Date.Now
    2. txt = jetzt.ToLongTimeString
    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!

    RodFromGermany: ja schau ich mier mal an, mal sehn was sich finded.
    brauche nämlich die secunden als 01 und nicht als 1

    So in etwar hätte ich gedacht :

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    3. 'Stunden/Minuten/Secunden
    4. Dim Stunden1 As String, Stunden2 As String, Stunden3 As String, Stunden4 As String, Stunden5 As String
    5. Dim Minuten1 As String, Minuten2 As String, Minuten3 As String, Minuten4 As String, Minuten5 As String, Minuten6 As String
    6. Dim Secunden1 As String, Secunden2 As String, Secunden3 As String, Secunden4 As String, Secunden5 As String, Secunden6 As String
    8. 'Timer
    9. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    10. 'Stunden binär und fertig zerlegt
    11. Stunden1 = Convert.ToString(Date.Now.Hour, 2)(0)
    12. Stunden2 = Convert.ToString(Date.Now.Hour, 2)(1)
    13. Stunden3 = Convert.ToString(Date.Now.Hour, 2)(2)
    14. Stunden4 = Convert.ToString(Date.Now.Hour, 2)(3)
    15. Stunden5 = Convert.ToString(Date.Now.Hour, 2)(4)
    16. 'Minuten binär und fertig zerlegt
    17. Minuten1 = Convert.ToString(Date.Now.Minute, 2)(0)
    18. Minuten2 = Convert.ToString(Date.Now.Minute, 2)(1)
    19. Minuten3 = Convert.ToString(Date.Now.Minute, 2)(2)
    20. Minuten4 = Convert.ToString(Date.Now.Minute, 2)(3) 'Wie regel ich das am besten dass ich hier wen null ,,nicht rausfalle ?!
    21. Minuten5 = Convert.ToString(Date.Now.Minute, 2)(4)
    22. Minuten6 = Convert.ToString(Date.Now.Minute, 2)(5)
    23. 'Secunden binär und fertig zerlegt
    24. Secunden1 = Convert.ToString(Date.Now.Second, 2)(0)
    25. Secunden2 = Convert.ToString(Date.Now.Second, 2)(1)
    26. Secunden3 = Convert.ToString(Date.Now.Second, 2)(2)
    27. Secunden4 = Convert.ToString(Date.Now.Second, 2)(3)
    28. Secunden5 = Convert.ToString(Date.Now.Second, 2)(4)
    29. Secunden6 = Convert.ToString(Date.Now.Second, 2)(5)
    31. End Sub


    Und dann über if Abfrage an Pictureboxen :?: :!:

    LG Andre......
    Ok dann anders -dann lesen wir halt die ganze zeit und sagen wenn stelle x = 1 = dann passende stelle an !

    Damit sollte es passender werden......... :whistling:

    binär zeit = Convert.ToString(Date.Now.Hour, 2) & " : " & Convert.ToString(Date.Now.Minute, 2)& " : " & Convert.ToString(Date.Now.Second, 2)

    und dann stellen direkt abfragen und umsetzen :whistling:

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

    Hi, die Zahl 1 wird binär natürlich viel kürzer dargestellt als z.b. 123. Du musst vor der Zahl also mit ausreichend Nullen auffüllen, z.B. so:

    VB.NET-Quellcode

    1. Dim sekundenZahl As Integer = ...
    2. Dim sekundenString As String = Convert.ToString(sekundenZahl, 2).ToString.PadLeft(8, "0"c)'8 ist die Soll-Länge

    jo habs gesehn mim integer

    und das wenn ich ne stelle abfrage die nicht da ist es knallt ist auch klar

    was du mier da hinterlassen hast schau ich mir jetz mal an

    an sonst währe ich jetz so vorgegangen

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Dim Uhr As String
    6. 'Timer
    7. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    8. Uhr = Convert.ToString(Date.Now.Hour, 2) & ":" & Convert.ToString(Date.Now.Minute, 2) & ":" & Convert.ToString(Date.Now.Second, 2)
    10. If Uhr(1) = "1" Then
    11. PictureBox1.BackColor = Color.Red
    12. Else
    13. If Not Uhr(1) = "1" Then
    14. PictureBox1.BackColor = Color.Cyan
    15. Else
    17. If Uhr(2) = "1" Then
    18. PictureBox2.BackColor = Color.Red
    19. Else
    20. If Not Uhr(2) = "1" Then
    21. PictureBox2.BackColor = Color.Cyan
    22. End If
    23. End If
    24. End If
    25. End If
    27. End Sub
    30. End Class


    Ich mus wirklich meine voreile ohne nachzudenken sein lassen :wacko:

    Ja das mit den nullen kam mir auch in den Sinn fand ich aber nicht so schön (.ToString("00") ) oder über Formatierung :whistling:

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

    Ok Das mit der Uhrzeit hatte ich mir auch schon angesehen hatte es aber so noch nie benutzt !

    Und das mit dem 00000 anhängen ginge zwar und ist auch gut ,,, aber mal sehn was noch geht

    das Problem ist frage ich stelle 8 ab und sie ist nicht da zb: zeit(8) und der existiert gerade nicht wie kann ich da nen fehler vermeiden ohne zu catchen

    Gibts ne Möglichkeit zu prüfen ob zeit(8) da ist befor ich es abfrage ,,,,oder so ?


    Ok so geht es schon mal !


    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. 'Stunden/Minuten/Secunden
    6. 'Timer
    7. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    8. 'Stunden binär und fertig zerlegt
    9. Dim stunden1 = Convert.ToString(Date.Now.Hour, 2).ToString.PadLeft(1, CChar("0"))(0)
    10. Dim stunden2 = Convert.ToString(Date.Now.Hour, 2).ToString.PadLeft(2, CChar("0"))(1)
    11. Dim stunden3 = Convert.ToString(Date.Now.Hour, 2).ToString.PadLeft(3, CChar("0"))(2)
    12. Dim stunden4 = Convert.ToString(Date.Now.Hour, 2).ToString.PadLeft(4, CChar("0"))(3)
    13. Dim stunden5 = Convert.ToString(Date.Now.Hour, 2).ToString.PadLeft(5, CChar("0"))(4)
    14. 'Minuten binär und fertig zerlegt
    15. Dim minuten1 As String = Convert.ToString(Date.Now.Minute, 2).ToString.PadLeft(1, CChar("0"))(0)
    16. Dim minuten2 As String = Convert.ToString(Date.Now.Minute, 2).ToString.PadLeft(2, CChar("0"))(1)
    17. Dim minuten3 As String = Convert.ToString(Date.Now.Minute, 2).ToString.PadLeft(3, CChar("0"))(2)
    18. Dim minuten4 As String = Convert.ToString(Date.Now.Minute, 2).ToString.PadLeft(4, CChar("0"))(3)
    19. Dim minuten5 As String = Convert.ToString(Date.Now.Minute, 2).ToString.PadLeft(5, CChar("0"))(4)
    20. Dim minuten6 As String = Convert.ToString(Date.Now.Minute, 2).ToString.PadLeft(6, CChar("0"))(5)
    21. 'Secunden binär und fertig zerlegt
    22. Dim sekunden1 As String = Convert.ToString(Date.Now.Second, 2).ToString.PadLeft(1, CChar("0"))(0)
    23. Dim sekunden2 As String = Convert.ToString(Date.Now.Second, 2).ToString.PadLeft(2, CChar("0"))(1)
    24. Dim sekunden3 As String = Convert.ToString(Date.Now.Second, 2).ToString.PadLeft(3, CChar("0"))(2)
    25. Dim sekunden4 As String = Convert.ToString(Date.Now.Second, 2).ToString.PadLeft(4, CChar("0"))(3)
    26. Dim sekunden5 As String = Convert.ToString(Date.Now.Second, 2).ToString.PadLeft(5, CChar("0"))(4)
    27. Dim sekunden6 As String = Convert.ToString(Date.Now.Second, 2).ToString.PadLeft(6, CChar("0"))(5)

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

    String.Length muss entsprechend sein, spiel damit mal etwas rum. Ansonsten war das mit den 0'en vorne dran hängen genau dafür gedacht.

    Die If-Blöcke schreibe aber besser untereinander, da sparst du dir das Else und es lässt sich besser lesen.

    Allerdings ist das immernoch die Holzhammermethode^^ Ich würde ja komplett mit GDI+ arbeiten, das würde mir das Control-gebastel ersparen. Ist vllt eine Nummer zuviel für den Anfang, aber schau dir das mal an:

    VB.NET-Quellcode

    1. Dim zahl As Integer = CInt(NumericUpDown1.Value)
    2. Dim binärString As String = Convert.ToString(zahl, 2).ToString.PadLeft(6, "0"c)
    3. Dim boxen() As CheckBox = New CheckBox() {CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5, CheckBox6}
    4. Dim werte() As Char = binärString.ToCharArray
    6. For i = 0 To 6 - 1
    8. Dim cb As CheckBox = boxen(i)
    9. Dim wert As Char = werte(i)
    11. If wert = "1"c Then
    12. cb.Checked = True
    13. Else
    14. cb.Checked = False
    15. End If
    17. Next




    Sollte sich direkt auf dein Problem übertragen lassen.
    lg von einem Mit-Saarländer^^

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

    TVX schrieb:

    will mier so die 000 nicht ganz nehmen !
    Meinst Du so was:

    VB.NET-Quellcode

    1. MessageBox.Show(String.Format("{0:00000000}", 5))
    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!

    Guten Morgen miteinander - Heute frei !

    Und ja das mit der For schleife find ich echt gut

    Und ja RodFromGermany ich meinte sowas nur so wie ich es oben verwendete nahm er die nullen nicht

    hatte es in Textbox und Ausgangszahl 1 versucht

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

    Ich hab letztens auch mal eine Binär Uhr gebastelt.

    Für die anzeige hab ich Radiobuttons verwendet.

    Codemäßig hab ich das so gelöst:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Sub Stunden(ByVal stunde As String)
    3. Select Case stunde.Length
    4. Case 4
    5. rbH8.Checked = (stunde.Substring(0, 1) = "1")
    6. rbH4.Checked = (stunde.Substring(1, 1) = "1")
    7. rbH2.Checked = (stunde.Substring(2, 1) = "1")
    8. rbH1.Checked = (stunde.Substring(3, 1) = "1")
    9. Case 3
    10. rbH8.Checked = False
    11. rbH4.Checked = (stunde.Substring(0, 1) = "1")
    12. rbH2.Checked = (stunde.Substring(1, 1) = "1")
    13. rbH1.Checked = (stunde.Substring(2, 1) = "1")
    14. Case 2
    15. rbH8.Checked = False
    16. rbH4.Checked = False
    17. rbH2.Checked = (stunde.Substring(0, 1) = "1")
    18. rbH1.Checked = (stunde.Substring(1, 1) = "1")
    19. Case 1
    20. rbH8.Checked = False
    21. rbH4.Checked = False
    22. rbH2.Checked = False
    23. rbH1.Checked = (stunde.Substring(0, 1) = "1")
    24. End Select
    25. End Sub

    VB.NET-Quellcode

    1. Sub Minuten(ByVal Minute As String)
    3. Select Case Minute.Length
    4. Case 6
    5. rbM32.Checked = (Minute.Substring(0, 1) = "1")
    6. rbM16.Checked = (Minute.Substring(1, 1) = "1")
    7. rbM8.Checked = (Minute.Substring(2, 1) = "1")
    8. rbM4.Checked = (Minute.Substring(3, 1) = "1")
    9. rbM2.Checked = (Minute.Substring(4, 1) = "1")
    10. rbM1.Checked = (Minute.Substring(5, 1) = "1")
    11. Case 5
    12. rbM32.Checked = False
    13. rbM16.Checked = (Minute.Substring(0, 1) = "1")
    14. rbM8.Checked = (Minute.Substring(1, 1) = "1")
    15. rbM4.Checked = (Minute.Substring(2, 1) = "1")
    16. rbM2.Checked = (Minute.Substring(3, 1) = "1")
    17. rbM1.Checked = (Minute.Substring(4, 1) = "1")
    18. Case 4
    19. rbM32.Checked = False
    20. rbM16.Checked = False
    21. rbM8.Checked = (Minute.Substring(0, 1) = "1")
    22. rbM4.Checked = (Minute.Substring(1, 1) = "1")
    23. rbM2.Checked = (Minute.Substring(2, 1) = "1")
    24. rbM1.Checked = (Minute.Substring(3, 1) = "1")
    25. Case 3
    26. rbM32.Checked = False
    27. rbM16.Checked = False
    28. rbM8.Checked = False
    29. rbM4.Checked = (Minute.Substring(0, 1) = "1")
    30. rbM2.Checked = (Minute.Substring(1, 1) = "1")
    31. rbM1.Checked = (Minute.Substring(2, 1) = "1")
    32. Case 2
    33. rbM32.Checked = False
    34. rbM16.Checked = False
    35. rbM8.Checked = False
    36. rbM4.Checked = False
    37. rbM2.Checked = (Minute.Substring(0, 1) = "1")
    38. rbM1.Checked = (Minute.Substring(1, 1) = "1")
    39. Case 1
    40. rbM32.Checked = False
    41. rbM16.Checked = False
    42. rbM8.Checked = False
    43. rbM4.Checked = False
    44. rbM2.Checked = False
    45. rbM1.Checked = (Minute.Substring(0, 1) = "1")
    46. End Select
    47. End Sub

    VB.NET-Quellcode

    1. Private Sub Tick(sender As System.Object, e As System.EventArgs) Handles tmr.Tick
    2. Me.Text = "Secunde: " & Convert.ToString(CInt(Format(Date.Now, "ss")), 2)
    3. Stunden(Convert.ToString(CInt(Format(Date.Now, "h tt")), 2))
    4. Minuten(Convert.ToString(CInt(Format(Date.Now, "mm")), 2))
    5. End Sub
    Bilder

    • Uhr.PNG

      4,41 kB, 221×98, 963 mal angesehen
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    Ja das ist auch gut !


    Ich hab jetz mal die sekunden gemacht zb

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    2. Dim Uhr = DateTime.Now.ToLongTimeString
    4. Dim zahl As Integer = CInt(Uhr(6) & Uhr(7))
    5. Dim binärString As String = Convert.ToString(zahl, 2).ToString.PadLeft(6, "0"c)
    6. Dim boxen() As CheckBox = New CheckBox() {CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5, CheckBox6}
    7. Dim werte() As Char = binärString.ToCharArray
    9. For i = 0 To 6 - 1
    11. Dim cb As CheckBox = boxen(i)
    12. Dim wert As Char = werte(i)
    14. If wert = "1"c Then
    15. cb.Checked = True
    16. Else
    17. cb.Checked = False
    18. End If
    20. Next
    21. End Sub

    Aus

    TVX schrieb:

    VB.NET-Quellcode

    1. For i = 0 To 6 - 1
    2. Dim cb As CheckBox = boxen(i)
    3. Dim wert As Char = werte(i)
    4. If wert = "1"c Then
    5. cb.Checked = True
    6. Else
    7. cb.Checked = False
    8. End If
    9. Next
    machst Du:

    VB.NET-Quellcode

    1. For i = 0 To 5
    2. boxen(i).Checked = werte(i) = "1"c
    3. Next
    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!

    Ja, da kann man optimieren/verkürzen aber da würde ich definitiv eine Klammer setzen, weil kosten ja nix und machen lesbarer (imo) xD

    [vb]boxen(i).Checked = (werte(i) = "1"c)/vb]

    @PN von TVB
    Sollte ja nur ein Beispiel sein, was du daraus machst ist deine Sache^^ VS2010 reicht mir momentan - aber demnächst werde ich mir das neue mal anschauen..

    Das ist ne super Sache,kann ich aber nicht für Label Farben nehmen !

    SO SIEHT ES MOMENTAN AUS !

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    5. 'Uhr
    6. Dim Uhr = DateTime.Now.ToLongTimeString
    8. 'stunden
    9. Dim stunden As Integer = CInt(Uhr(0) & Uhr(1))
    10. Dim binärString As String = Convert.ToString(stunden, 2).ToString.PadLeft(5, CChar("0"))
    11. Dim boxen() As Label = New Label() {Label2, Label3, Label4, Label5, Label6}
    12. Dim werte() As Char = binärString.ToCharArray
    14. For i = 0 To 5 - 1
    15. If werte(i) = "1" Then
    16. boxen(i).BackColor = Color.Cyan
    17. Else
    18. boxen(i).BackColor = Color.Silver
    19. End If
    20. Next
    22. 'minuten
    23. Dim minuten As Integer = CInt(Uhr(3) & Uhr(4))
    24. Dim binärString1 As String = Convert.ToString(minuten, 2).ToString.PadLeft(6, CChar("0"))
    25. Dim boxen1() As Label = New Label() {Label7, Label8, Label9, Label10, Label11, Label12}
    26. Dim werte1() As Char = binärString1.ToCharArray
    28. For i = 0 To 6 - 1
    29. If werte1(i) = "1" Then
    30. boxen1(i).BackColor = Color.Cyan
    31. Else
    32. boxen1(i).BackColor = Color.Silver
    33. End If
    34. Next
    36. 'secunden
    37. Dim sekunden As Integer = CInt(Uhr(6) & Uhr(7))
    38. Dim binärString2 As String = Convert.ToString(sekunden, 2).ToString.PadLeft(6, CChar("0"))
    39. Dim boxen2() As Label = New Label() {Label13, Label14, Label15, Label16, Label17, Label18}
    40. Dim werte2() As Char = binärString2.ToCharArray
    42. For i = 0 To 6 - 1
    43. If werte2(i) = "1" Then
    44. boxen2(i).BackColor = Color.Cyan
    45. Else
    46. boxen2(i).BackColor = Color.Silver
    47. End If
    48. Next
    49. End Sub


    boxen(i).BackColor ???

    Weil vom Ausehen her sind checkboxen ein no go ;(

    Also nahm ich Label !

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „TVX“ ()

Facebook
Telefonspende