Hi!
Ich möchte euch mal mein programm vorstellen, an dem ich seit letztem Jahr ab und zu dran werkle.
Habe somit immer meine Kenntnisse erweitert.
Windows Shutdown heisst das gute Stück.
Eine Art PC Zeitschaltuhr, wie es hier auchschon gibt.
Windows Shutdown bietet dabei aber mehr Funktionen wie Sounds abspielen etc... und ist mit dem Countdown variabel.
Änderungen von Version 2.1.0 zu 2.1.1:
-Standby-Funktion
-Updaterfunktion verbessert
-Prüfung, ob Internet Verbinug besteht (für Update)
-Anderes Eingabeschema für Uhrzeit
-"Abbrechen"-Button-Bug behoben
Freue mich über Feedback und Bugreports =)
Geplant ist für die nächste Version u.a. eine Standby-Funktion.
Zuletzt bearbeitet von chrissivolli_ am 29.04.2008, 18:44, insgesamt einmal bearbeitet
Scruby_ Tutorial Leser
Anmeldedatum: 27.08.2007 Beiträge: 27
Verfasst am: 07.04.2008, 14:25
Das Programm sieht nett aus, ich habe nur ein paar erste Eindrücke zu bemängeln:
- der Button bei dem Passwortschutz ("Fertig") hat als Textfarbe weiß, sodass man das sehr schlecht lesen kann
- so wie ich das seh, stimmt der Hash deines Setups und der auf Virustotal geuppten Datei nicht überein (könnte an einer neuen Version des Tools liegen)
- die Zeit wird nicht überprüft. Man kann auch z.B. 99:99:99 bei Uhrzeit angeben.
Hier mal ein einfacher Beispielcode dafür:
Code:
Dim min As Integer
min = Mid(TextBox1.Text, 4, 2)
Dim sec As Integer
sec = Mid(TextBox1.Text, 7, 2)
If min > 60 Then
Exit Sub
ElseIf sec > 60 Then
Exit Sub
End If
Ansonsten ist das Programm aber sehr gut und auch ansehnlich gestaltet. *thumbs up*
//EDIT:
Hier ein Screenshot:
Und eines was mir noch fehlt ist, dass wenn man die Zeit eingibt, die Doppelpunkte automatisch ergänzt werden.
Code:
If TextBox1.TextLength = 2 Then
TextBox1.Text &= ":"
TextBox1.SelectionStart = 3
ElseIf TextBox1.TextLength = 5 Then
TextBox1.Text &= ":"
TextBox1.SelectionStart = 6
ElseIf TextBox1.TextLength = 8 Then
Button1.Select()
End If
Und eventuell, dass wenn man den Countdown startet, man auch die Endzeit angezeigt bekommt.
Code:
Try
Dim hour As Integer
hour = Mid(TextBox1.Text, 1, 2)
Dim min As Integer
min = Mid(TextBox1.Text, 4, 2)
Dim sec As Integer
sec = Mid(TextBox1.Text, 7, 2)
If min >= 60 Then
Exit Sub
ElseIf sec >= 60 Then
Exit Sub
End If
Dim ha As Integer = System.DateTime.Now.Hour
Dim ma As Integer = System.DateTime.Now.Minute
Dim sa As Integer = System.DateTime.Now.Second
sa = sa + sec
If sa >= 60 Then
sa -= 60
ma += 1
End If
ma = ma + min
If ma >= 60 Then
ma -= 60
ha += 1
End If
ha = ha + hour
If ha >= 24 Then
Do
ha -= 24
Loop Until ha < 24
End If
Dim hb, mb, sb As String
hb = ha.ToString
mb = ma.ToString
sb = sa.ToString
If hb.ToString.Length = 1 Then
hb = "0" & hb
End If
If mb.ToString.Length = 1 Then
mb = "0" & mb
End If
If sb.ToString.Length = 1 Then
sb = "0" & sb
End If
TextBox2.Text = hb & ":" & mb & ":" & sb
Catch ex As Exception
End Try
chrissivolli_ Newbie
Anmeldedatum: 05.07.2007 Beiträge: 16
Verfasst am: 07.04.2008, 14:47
ok, werd ich berücksichtigen.
eine Frage aber noch:
Beim programmupdate, zeigt er ab und zu an, dass ein update verfügbar ist und ab und zu nicht (was korrekt wäre).
das ganze läuft über webbrowser1.navigated .
woran könnte das liegen?