Binär Uhr

radio-ffk · 25. Januar 2014, 17:46

█ █ █ █ Binär Uhr █ █ █ █

FEATURES & BESCHREIBUNG

Zeigt die Zeit an. (:)) (Es ist halt ne Uhr)

Wie man die Uhr liest:
Die Panels stehen für Zahlen (von unten nach oben: 1 2 4 8). Jede Spalte steht für eine Stelle der Zeit (H H M M). Um die Zeit zu erfahren, rechnet man in jeder Spalte die roten Panel zusammen. BSP mit dem Screenshot:
Spalte 1: 1 = 1
Spalte 2: 1+2+4 = 7
Spalte 3: 1+2 = 3
Spalte 4: 1+2 = 3
Ergibt: 17:33

SCREENSHOTS

Spoiler anzeigen

VORRAUSSETZUNGEN

Windows VISTA, 7 oder 8
.NET-Framework 4.5
Systemuhrzeit

DOWNLOAD

Binär Uhr / BinaryClock (.zip | 12kb)

Virustotal Scan

TO-DO

█ = Geplant █ = In Arbeit

-Sekunden-Integration
-Farbauswahl

SONSTIGES & LIZENZ

Dieses Programm ist noch Closed Source
Decompilieren von mir aus ja - für alle die nicht warten können - (PS: Ihr kriegt mal guten Code ;))

Bugs bitte Melden - Auch mir passieren Fehler :whistling:

Erstellt mit Visual Studio 2013 Pro

Viel Spaß

Trade · 25. Januar 2014, 18:21

Ähm, na ja, ist halt die Frage wozu man ne binäre Uhr braucht.

radio-ffk schrieb:

(PS: Ihr kriegt mal guten Code )

Also guter Code ist für mich definitiv was anderes... Kein GDI+ (mit dem hätte man das bestimmt gut hinbekommen), einen Timer für die Uhrzeitangabe (also Polling) und 44 Panel?!
So wie ich das jetzt gesehen hab sind das so viele und da zeigst du das dann an, oder wie?

Spoiler anzeigen

VB.NET-Quellcode

Select Case Me.hour1
Case 0
Me.P11.SetOff()
Me.P12.SetOff()
Me.P13.SetOff()
Me.P14.SetOff()
Case 1
Me.P11.SetOff()
Me.P12.SetOff()
Me.P13.SetOff()
Me.P14.SetOn()
Case 2
Me.P11.SetOff()
Me.P12.SetOff()
Me.P13.SetOn()
Me.P14.SetOff()
Case 3
Me.P11.SetOff()
Me.P12.SetOff()
Me.P13.SetOn()
Me.P14.SetOn()
Case 4
Me.P11.SetOff()
Me.P12.SetOn()
Me.P13.SetOff()
Me.P14.SetOff()
Case 5
Me.P11.SetOff()
Me.P12.SetOn()
Me.P13.SetOff()
Me.P14.SetOn()
Case 6
Me.P11.SetOff()
Me.P12.SetOn()
Me.P13.SetOn()
Me.P14.SetOff()
Case 7
Me.P11.SetOff()
Me.P12.SetOn()
Me.P13.SetOn()
Me.P14.SetOn()
Case 8
Me.P11.SetOn()
Me.P12.SetOff()
Me.P13.SetOff()
Me.P14.SetOff()
Case 9
Me.P11.SetOn()
Me.P12.SetOff()
Me.P13.SetOff()
Me.P14.SetOn()
End Select
Select Case Me.hour2
Case 0
Me.P21.SetOff()
Me.P22.SetOff()
Me.P23.SetOff()
Me.P24.SetOff()
Case 1
Me.P21.SetOff()
Me.P22.SetOff()
Me.P23.SetOff()
Me.P24.SetOn()
Case 2
Me.P21.SetOff()
Me.P22.SetOff()
Me.P23.SetOn()
Me.P24.SetOff()
Case 3
Me.P21.SetOff()
Me.P22.SetOff()
Me.P23.SetOn()
Me.P24.SetOn()
Case 4
Me.P21.SetOff()
Me.P22.SetOn()
Me.P23.SetOff()
Me.P24.SetOff()
Case 5
Me.P21.SetOff()
Me.P22.SetOn()
Me.P23.SetOff()
Me.P24.SetOn()
Case 6
Me.P21.SetOff()
Me.P22.SetOn()
Me.P23.SetOn()
Me.P24.SetOff()
Case 7
Me.P21.SetOff()
Me.P22.SetOn()
Me.P23.SetOn()
Me.P24.SetOn()
Case 8
Me.P21.SetOn()
Me.P22.SetOff()
Me.P23.SetOff()
Me.P24.SetOff()
Case 9
Me.P21.SetOn()
Me.P22.SetOff()
Me.P23.SetOff()
Me.P24.SetOn()
End Select
Select Case Me.min1
Case 0
Me.P31.SetOff()
Me.P32.SetOff()
Me.P33.SetOff()
Me.P34.SetOff()
Case 1
Me.P31.SetOff()
Me.P32.SetOff()
Me.P33.SetOff()
Me.P34.SetOn()
Case 2
Me.P31.SetOff()
Me.P32.SetOff()
Me.P33.SetOn()
Me.P34.SetOff()
Case 3
Me.P31.SetOff()
Me.P32.SetOff()
Me.P33.SetOn()
Me.P34.SetOn()
Case 4
Me.P31.SetOff()
Me.P32.SetOn()
Me.P33.SetOff()
Me.P34.SetOff()
Case 5
Me.P31.SetOff()
Me.P32.SetOn()
Me.P33.SetOff()
Me.P34.SetOn()
Case 6
Me.P31.SetOff()
Me.P32.SetOn()
Me.P33.SetOn()
Me.P34.SetOff()
Case 7
Me.P31.SetOff()
Me.P32.SetOn()
Me.P33.SetOn()
Me.P34.SetOn()
Case 8
Me.P31.SetOn()
Me.P32.SetOff()
Me.P33.SetOff()
Me.P34.SetOff()
Case 9
Me.P31.SetOn()
Me.P32.SetOff()
Me.P33.SetOff()
Me.P34.SetOn()
End Select
Select Case Me.min2
Case 0
Me.P41.SetOff()
Me.P42.SetOff()
Me.P43.SetOff()
Me.P44.SetOff()
Case 1
Me.P41.SetOff()
Me.P42.SetOff()
Me.P43.SetOff()
Me.P44.SetOn()
Case 2
Me.P41.SetOff()
Me.P42.SetOff()
Me.P43.SetOn()
Me.P44.SetOff()
Case 3
Me.P41.SetOff()
Me.P42.SetOff()
Me.P43.SetOn()
Me.P44.SetOn()
Case 4
Me.P41.SetOff()
Me.P42.SetOn()
Me.P43.SetOff()
Me.P44.SetOff()
Case 5
Me.P41.SetOff()
Me.P42.SetOn()
Me.P43.SetOff()
Me.P44.SetOn()
Case 6
Me.P41.SetOff()
Me.P42.SetOn()
Me.P43.SetOn()
Me.P44.SetOff()
Case 7
Me.P41.SetOff()
Me.P42.SetOn()
Me.P43.SetOn()
Me.P44.SetOn()
Case 8
Me.P41.SetOn()
Me.P42.SetOff()
Me.P43.SetOff()
Me.P44.SetOff()
Case 9
Me.P41.SetOn()
Me.P42.SetOff()
Me.P43.SetOff()
Me.P44.SetOn()
End Select

Das kannste so definitiv nicht bringen und das ist ein klarer Designfehler, sowohl beim GUI, als auch beim Code. Sehr unsauber programmiert. Die Architektur ist sehr schlecht bedacht, die Control sind nicht richtig benannt und vor allem ist das Ganze performancetechnisch nicht gerade das Beste (Punkte oben). Da wird dir bald der Überblick flöten gehen, besonders wenn du mal große Programme anfängst.

Zudem: Alle Time-Variablen sind vom Typ String. Wieso? Mit denen kannst du nicht richtig arbeiten.

Vorschläge:
- GDI+ nutzen
- Architektur überdenken (GUI-technisch und Controls richtig benennen)
- Eventuell mehr mit für sowas vorgesehenen Mitteln arbeiten

radio-ffk · 25. Januar 2014, 18:50

Es sind nicht alle Zeitangaben String sondern nur die allererste. Das mit gutem Code war ironisch gemeint. Die Panel sind nicht 44 (ich weiß nicht ob du nicht 4*4 rechen kannst aber bei mir ergibt das nur 16) und sie sind sinnvoll benannt (P(X-Koordinate)(Y-Koordinate)). GDI+ kann ich nicht und es ist ja auch nur im Kleinkram, ich hab halt nicht versucht mir großartig Mühe zu geben.

Artentus · 25. Januar 2014, 18:52

Du kannst für jede Spalte berechnen, wie viele Rechtecke du hinzeichnen muss, da brauchst du kein Select Case. Die dann hinzuzeichnen ist auch nicht die Welt, Graphics.FillREctangle wirst ja wohl noch hinbekommen.

Trade · 25. Januar 2014, 18:55

radio-ffk schrieb:

Die Panel sind nicht 44

Ähm, das ist aber sehr merkwürdig, da muss ILSpy wohl falsch gerechnet haben, wenn da anfangs P1-P44 steht (deklariert als Panel).
Zudem sind die ja inne Select-Case Abfrage drin.

radio-ffk · 25. Januar 2014, 19:13

@Trade: Tja die sind halt besonders benannt. BSP: das 2-er-Feld für die 1 Stelle der Minuten heißt P33, weil es in Spalte 3 Zeile 3 ist.
@Artentus: Wie würde man dann die freien Felder zeichnen? Und: hast du evtl. Ein gutes Tutorial für GDI+? (ja ich kenn die Suchfunktion aber so finde ich ja kein gutes wenn ich das nicht kann.)

Trade · 25. Januar 2014, 19:17

Aha, ok. Dann sind es 16, jedoch kann es wegen der Controlbenennung schon mal zu solchen Missverständnissen kommen, also änder das an der Architektur. Würde sich aber bestimmt trotzdem besser lösen lassen, eben mit GDI+ und ohne Select Case.

ThomasProj · 25. Januar 2014, 19:17

[VB 2008] [Tutorial] GDI+

Nicht mal 1min Google.

Artentus · 25. Januar 2014, 19:19

Die freien Felder zeichnest du gar nicht, sie sind ja frei.

radio-ffk · 25. Januar 2014, 19:30

Gut jetzt lerne ich GDI+ aber das benutze ich nicht für die Uhr, dafür ist es ja nur 'nen Kleinkram-Programm. Aber für zukünftige große Projekte werde ich mal meine Architektur überarbeiten und GDI+ u.ä. lernen. Bis dahin kommt dann erstmal so schnell nichts, dann hab ich mehr Zeit.

Danke für all die Kritik, Hinweise und Verbesserungen.

oShortyo · 25. Januar 2014, 19:48

die Idee der uhr ist an sich klasse...wenn man's schnell lesen kann macht diese auch irgendwo Sinn...(meine Armbanduhr ist ebenfalls ne binäruhr)...

die Umsetzung allerdings nicht die beste...aber dazu sag ich nichts, da ich mich komplett am Anfang von VB sehe und daher einfach nicht genug recht habe deinen Code in der Luft zu "zerreißen"...

lg, alex

radio-ffk · 25. Januar 2014, 19:54

@oShortyo: Vielen Dank erstmal und ja die Umsetzung ist nicht die beste, aber da du das rausgekriegt hast, hast du meines Erachtens genug Recht um meinen Code zu zerreißen. Aber nach dem lesen des Tutorials und nachdem ich jetzt weiß wie leicht das wirklich ist - bau ich GDI+ doch noch ein. :thumbup:

Andy16823 · 25. Januar 2014, 19:55

Ich habe leider keine Ahnung wie ich deine Uhr Lesen kann ? wie viel uhr ist den Auf dem Screenshot ?

Knato · 25. Januar 2014, 19:57

Andy16823 schrieb:

Ich habe leider keine Ahnung wie ich deine Uhr Lesen kann ? wie viel uhr ist den Auf dem Screenshot ?

Geht mir genauso. Da schau ich lieber schnell in die Taskleiste und ich weiß, wie spät es ist.

radio-ffk · 25. Januar 2014, 19:58

@Knato @Andy16813: Vielleicht hilft das hier: LINK
Denk dir auf dem Foto einfach die Sekunden weg.

Andy16823 · 25. Januar 2014, 20:01

Sry, aber kapiere das immer noch nicht, wäre etwas für den Start post das du erklärst wie man die Uhr lesen kann

radio-ffk · 25. Januar 2014, 20:02

Mach ich

@Andy16823: fertig

ThomasProj · 25. Januar 2014, 20:09

So wie ich das verstanden habe, ist es auf dem Screen 16:33.
Das Wikipedia Bild sollte eig alles erklären.

radio-ffk · 25. Januar 2014, 20:12

Ist zwar 17:33 aber

Ansonsten hast du recht. Einziges Problem bei dem Wikipedia Bild, ist dass die Sekunden dabei sind und dass dort die überflüssigen Felder weggelassen wurden.

RushDen · 25. Januar 2014, 22:25

Habs hier auch mal mit GDI umgesetzt:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Public Class Form1
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
InitialiseDict()
doRefreshArray()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 60000
Timer1.Start()
End Sub
Private Sub InitialiseDict()
constantValues.Add(0, 1)
constantValues.Add(1, 2)
constantValues.Add(2, 4)
constantValues.Add(3, 8)
constantYCoord.Add(1, 20)
constantYCoord.Add(2, 80)
constantYCoord.Add(4, 140)
constantYCoord.Add(8, 200)
End Sub
Private Iterator Function getValue(ByVal ptime As Integer) As IEnumerable(Of Boolean)
Dim timeNow As Date = Now
Dim firstHour As Integer = ptime
For timeVal = 3 To 0 Step -1
If Math.Floor(firstHour / constantValues(timeVal)) >= 1 Then
firstHour -= constantValues(timeVal)
Yield True
Else
Yield False
End If
Next
End Function
Private time(3, 3) As Boolean
Private constantValues As New Dictionary(Of Integer, Integer)
Private constantYCoord As New Dictionary(Of Integer, Integer)
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
doRefreshArray()
End Sub
Private Sub doRefreshArray()
Dim firstHour = getValue(Integer.Parse(Now.Hour.ToString().PadLeft(2, "0"c).Substring(0, 1)))
Dim secondHour = getValue(Integer.Parse(Now.Hour.ToString().PadLeft(2, "0"c).Substring(1, 1)))
Dim firstMinute = getValue(Integer.Parse(Now.Minute.ToString().PadLeft(2, "0"c).Substring(0, 1)))
Dim secondMinute = getValue(Integer.Parse(Now.Minute.ToString().PadLeft(2, "0"c).Substring(1, 1)))
For item = 3 To 0 Step -1
time(0, item) = firstHour(item)
time(1, item) = secondHour(item)
time(2, item) = firstMinute(item)
time(3, item) = secondMinute(item)
Next
Me.Invalidate()
End Sub
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
With e.Graphics
For timeLine = 3 To 0 Step -1
Const X As Integer = 20
.DrawString(constantValues(timeLine).ToString(), New Font(Font.FontFamily, 15), Brushes.Black, New PointF(X - 20, constantYCoord(constantValues(3 - timeLine))))
If time(0, timeLine) Then
.FillRectangle(Brushes.Red, New Rectangle(X + 40, constantYCoord(constantValues(timeLine)), 25, 25))
End If
If time(1, timeLine) Then
.FillRectangle(Brushes.Red, New Rectangle(X + 80, constantYCoord(constantValues(timeLine)), 25, 25))
End If
If time(2, timeLine) Then
.FillRectangle(Brushes.Red, New Rectangle(X + 120, constantYCoord(constantValues(timeLine)), 25, 25))
End If
If time(3, timeLine) Then
.FillRectangle(Brushes.Red, New Rectangle(X + 160, constantYCoord(constantValues(timeLine)), 25, 25))
End If
Next
End With
End Sub
End Class

Binär Uhr

Binär Uhr

radio-ffk schrieb:

VB.NET-Quellcode

radio-ffk schrieb:

Andy16823 schrieb:

VB.NET-Quellcode

Tags

Ähnliche Themen

7 Benutzer haben hier geschrieben