VB.NET-Quellcode
- ' NORMALE UHR + BINÄRUHR
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Dim jetzt As Date = Date.Now
- Dim stunde As Integer = jetzt.Hour
- Dim minute As Integer = jetzt.Minute
- Dim sekunde As Integer = jetzt.Second
- Dim stundeBinaer As String = Convert.ToString(stunde, 2)
- Dim minuteBinaer As String = Convert.ToString(minute, 2)
- Dim sekundeBinaer As String = Convert.ToString(sekunde, 2)
- TextBox2.Text = "Uhr : " & stunde & " : " & minute & " : " & sekunde
- TextBox3.Text = "Binäruhr : " & stundeBinaer & " : " & minuteBinaer & " : " & sekundeBinaer
- End Sub
Also nach dem splitten der Zeit brauche ich ca 17 if Abfragen !
Geht das noch kürtzer ?
LG Andre.......