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.


Inhaltsverzeichnis


Übersicht

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

Installation

(Microsoft .NET Framework 4.7 erforderlich)

  • Möglichkeit 1.: Laden Sie die Dateien DigiClockSetup.msi oder setup.exe auf Ihren PC herunter und führen anschließend eine von beiden Dateien aus. Nach der Installation der Anwendung können Sie diese aus dem Startmenü starten. Zum Herunterladen können Sie mehrere Dateien gleichzeitig auswählen. Bei einer mehrfach Auswahl, müssen die Dateien nach dem Download entpackt werden, bevor das Setup ausgeführt werden kann.
  • Möglichkeit 2.: Zip-Datei 'DigiClock.zip' entpacken.
    Das Programm dann im entpackten Ordner ausführen über die Datei Memory-MPG.exe

Wichtiger Hinweis

Beim Download oder der Installation weist Microsoft unter Umständen darauf hin, dass das Programm von einem Unbekannten-Herausgeber ist. Das Programm lässt sich jedoch trotzdem Installieren.
Unter „Weiteren Informationen“ können Sie „Trotzdem ausführen“ auswählen. Um das Problem beim Download zu umgehen, können Sie auch einfach nur die *.zip herunterladen und entpacken.

1. Schritt

Nach dem Ausführen der Start-Datei kann die oben angezeigte Meldung erscheinen. Hier im Text auf 'Weitere Informationen klicken'

2.Schritt

Im Nächten Fenster, auf 'Trotzdem Ausführen' klicken.

(Zum vergrößern auf das jeweilige Bild klicken.)

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

Download

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.

Bitte Datenschutzerklärung beachten!

Vor, während und nach dem Spielen, werden Daten mit unserem Server ausgetauscht. In unserer Datenschutzerklärung erhaltet Ihr hierzu weitere Informationen.