DigiClock

Einleitung

Das Spielt wurde von uns selbst in der Programmiersprache vb.net erstellt und könnt Ihr direkt von unserer Cloud downloaden. Bei Interesse erhaltet Ihr auch auf Anfrage über unserer Kontaktformular den Quelltext zum Spiel.

• Download from Cloud

Inhaltsverzeichnis

Beschreibung

DigiClock zeigt die aktuelle Uhrzeit im Binärer-Code an. Mit einem Maus-Klick auf eine freie Fläche lassen sich die Einstellungen einblenden und wieder ausblenden.

Ablesen

So wird die Uhrzeit abgelesen (bsp.: 17:45:26:900 Uhr [Zeitformat.:HHMMSSFFF]).:

• 1. Zeile zeigt die Zehner in Stunden 17:45:26:900 Uhr --> 1000
• 2. Zeile zeigt die Einer in Stunden 17:45:26:900 Uhr --> 1110
• 3. Zeile zeigt die Zehner in Minuten 17:45:26:900 Uhr --> 0010
• 4. Zeile zeigt die Einer in Minuten 17:45:26:900 Uhr --> 1010
• 5. Zeile zeigt die Zehner in Sekunden 17:45:26:900 Uhr --> 0100
• 6. Zeile zeigt die Einer in Sekunden 17:45:26:900 Uhr --> 0110
• 7. Zeile zeigt die Hunderter in Milli-Sek 17:45:26:900 Uhr --> 1001

Benutzeroberfläche

DigiClock VB.net Quellcode

Der Quellcode musste etwas angepasst werden, dass er auf der Homepage richtg angezeigt und eingebunden werden kann.
Er kann somit nicht 1 zu 1 in VS übernommen werden.
Gerne kann ich euch das Original zukommen lassen. Schreibt mir hierzu einfach über das Kontakformular.

Public Class Form1
    Private arrBit1 = New String() {"0000", "1000", "0100", "1100", "0010", ¶
                    "1010", "0110", "1110", "0001", "1001", "0101", "1101", ¶
                    "0011", "1011", "0111", "1111"}
    Private arrBit2 = New String() {"0000", "0001", "0010", "0011", "0100", ¶
                    "0101", "0110", "0111", "1000", "1001", "1010", "1011", ¶
                    "1100", "1101", "1110", "1111"}
    Private arrBit = New String() {"0000", "1000", "0100", "1100", "0010", ¶
                    "1010", "0110", "1110", "0001", "1001", "0101", "1101", ¶
                    "0011", "1011", "0111", "1111"}
    Private arrColor = New Color() {Color.Red, Color.Red, Color.Green, Color.Green, Color.Blue, ¶
    Color.Blue, Color.Gray}
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim now = DateTime.Now
        If chkClock.Checked = True Then
            Me.Text = "DigiClock V2.0               " & now.ToString("HH:mm:ss:fff")
        End If
        Dim strTimeString As String = now.ToString("HHmmssfff")
        Dim intPanelStart As Integer = 1
        Dim intPanelEnde As Integer = 4
        Dim intPanelDif As Integer = 0
        For i = 1 To 7
            Dim strBit As String = arrBit(Mid$(strTimeString, i, 1))
            For intPanel As Integer = intPanelStart To intPanelEnde
                If Mid$(strBit, intPanel - intPanelDif, 1) = "0" Then
                    Me.Controls("Panel" & intPanel).BackColor = Color.White
                Else
                    Me.Controls("Panel" & intPanel).BackColor = arrColor(i - 1)
                End If
            Next intPanel
            intPanelStart = intPanelStart + 4
            intPanelEnde = intPanelEnde + 4
            intPanelDif = intPanelDif + 4
        Next
    End Sub
    Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
        Static bolshow As Boolean = False
        If bolshow = False Then
            Me.MaximumSize = New Size(390, 460)
            Me.Size = New Size(390, 460)
            GroupBox1.Visible = True
            bolshow = True
        Else
            Me.MaximumSize = New Size(290, 460)
            Me.Size = New Size(290, 460)
            GroupBox1.Visible = False
            bolshow = False
        End If
    End Sub
    Private Sub chkLRRL_CheckedChanged(sender As Object, e As EventArgs) Handles chkLRRL.CheckedChanged
        If chkLRRL.Checked = True Then
            arrBit = arrBit1
            chkLRRL.Text = "Links nach Rechts"
        Else
            arrBit = arrBit2
            chkLRRL.Text = "Rechts nach Links"
        End If
    End Sub
    Private Sub chkSym_CheckedChanged(sender As Object, e As EventArgs) Handles chkSym.CheckedChanged
        If chkSym.Checked = True Then
            Me.ShowInTaskbar = True
        Else
            Me.ShowInTaskbar = False
        End If
    End Sub
    Private Sub chkTop_CheckedChanged(sender As Object, e As EventArgs) Handles chkTop.CheckedChanged
        If chkTop.Checked = True Then
            Me.TopMost = True
        Else
            Me.TopMost = False
        End If
    End Sub
    Private Sub chkClock_CheckedChanged(sender As Object, e As EventArgs) Handles chkClock.CheckedChanged
        Me.Text = "DigiClock V2.0"
    End Sub
End Class

Sie haben den Bereich eigene Programme aufgerufen. Hier finden Sie ein paar selbst programmierte Programme. Einige Programme tauschen Daten über das Internet mit einer Datenbank bzw. anderen Rechner aus. Dies ist für den Multiplayer-Modus erforderlich. Aus diesem Grund kann es vorkommen, dass eure Firewall beim Ausführen der Anwendung eine Warnung auf dem Display anzeigt.