|
Registrieren
Login
Autor
nigolauder_
Newbie
Anmeldedatum: 12.11.2007
Beiträge: 14
PC-Eieruhr (Mein Erstes Projekt)
Verfasst am: 15.01.2008, 15:06
Ich habe vor ein paar Wochen angefangen VB.Net 2005 zu lernen und habe gestern mein erstes selbstständiges Programm geschrieben. Ein ganz nützliches Programm was ich schon immer brauchte, eine art Zeitschaltuhr die nach angegebener Zeit eine bestimmte Funktion ausführt (Ton-Signal, Runterfahren, Ruhezustand und Standby).
Naja ich wollte mal fragen wie ihr es findet und ob ihr vllt noch Verbesserungsvorschläge habt.
http://www.m-moritz.de/upload/Eieruhr.exe
http://www.m-moritz.de/upload/Project-Eieruhr.zip
http://www.virustotal.com/de/analisis/002e7cf65e194f3b7faebe5cbffa62cc
Code: Public Class Form1
Dim Zeit As Integer
Dim Stunden As String
Dim Minuten As String
Dim Sekunden As String
Dim strZeit As String
Dim i As Short
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
If i = 0 Then
Zeit = nudStunden.Value * 3600 + nudMinuten.Value * 60 + nudSekunden.Value
Timer1.Enabled = True
btnStart.Text = "Pause"
i = 1
ElseIf i = 1 Then
Timer1.Enabled = False
btnStart.Text = "Start"
i = 2
ElseIf i = 2 Then
Timer1.Enabled = True
btnStart.Text = "Pause"
i = 1
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Zeit > 0 Then
Zeit = Zeit - 1
If Zeit \ 3600 < 10 Then
Stunden = "0" & Zeit \ 3600
Else
Stunden = Zeit \ 3600
End If
If (Zeit Mod 3600) \ 60 < 10 Then
Minuten = "0" & (Zeit Mod 3600) \ 60
Else
Minuten = (Zeit Mod 3600) \ 60
End If
If ((Zeit Mod 3600) Mod 60) < 10 Then
Sekunden = "0" & ((Zeit Mod 3600) Mod 60)
Else
Sekunden = ((Zeit Mod 3600) Mod 60)
End If
strZeit = Stunden & ":" & Minuten & ":" & Sekunden
lblZeit.Text = strZeit
Else
Timer1.Enabled = False
i = 0
btnStart.Text = "Start"
Select Case cmbFunktion.SelectedIndex
Case 0
Beep(700, 2000)
Case 1
Shell("cmd.exe /c shutdown -s", AppWinStyle.Hide)
Case 2
Shell("cmd.exe /c rundll32.exe powrprof.dll, SetSuspendState", AppWinStyle.Hide)
Case 3
Shell("cmd.exe /c rundll32.exe powrprof.dll,SetSuspendState", AppWinStyle.Hide)
End Select
End If
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
Timer1.Enabled = False
btnStart.Text = "Start"
i = 0
lblZeit.Text = "00:00:00"
End Sub
Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbout.Click
About.Show()
End Sub
Private Sub cmbFunktion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbFunktion.SelectedIndexChanged
Select Case cmbFunktion.SelectedIndex
Case 2
Shell("cmd.exe /c powercfg /hibernate on", AppWinStyle.Hide)
Case 3
Shell("cmd.exe /c powercfg /hibernate off", AppWinStyle.Hide)
End Select
End Sub
Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Int32, ByVal dwDuration As Int32) As Int32
End Class
_________________
Zuletzt bearbeitet von nigolauder_ am 19.01.2008, 15:52, insgesamt einmal bearbeitet
nigolauder_
Newbie
Anmeldedatum: 12.11.2007
Beiträge: 14
Verfasst am: 19.01.2008, 15:49
Ich hab das Design mal ein bisschen verändert und ein Fehler beim Runterfahren gefixt.
Source Code:
http://www.m-moritz.de/upload/Project-Eieruhr.zip
Freue mich über Feedbacks.
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 19.01.2008, 17:14
Wie ich finde, eine sehr gelungene erste Arbeit!
Bleib auf jeden Fall am Ball 
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
Verwandte Themen
Aufrufe
Letzter Beitrag
Problem mit always on top funktion
633
30.10.2009, 12:26
IntStr()funktion
510
11.10.2007, 09:49
TopMost Funktion unter DirectX
432
27.07.2007, 11:48
Wie Funktion nutzen ?
540
29.06.2007, 21:59
update funktion einbauen
741
29.01.2007, 00:11
