Hallo Leute ,
Habe mir heute mal ein kleines Shutdown Programm geschrieben was irgendwie nicht so richtig Will.
Versucht es einfach es sind Viele probleme bei denen ich nicht weiss Wie ich die Lösen soll.
Die meisten sind erst seitdem ich die ganzen IF Abfragen bei Button1 geändert habe entstanden.
Fehler:
-Man kann nur Stunden Shutdowns Machen keine Minuten oder Sekunden
-Wenn man das projekt startet und nicht auswählt und einfach auf Start klickt verdoppelt sich die Form... Die muss man dann mit Taskmanager Beenden
-und bestimmt auch mehr die ich nicht kenne...
Hier die ganze VB Mappe zum Download: https://mega.co.nz/#!Ekok3AiD!Dfa…jUVy16_H6ByVpUA
Geschrieben habe ich das ganze mit Visual Basic 2010
Hier der Code:
Lua
Public Class Form1
Dim warten As Integer = 0
Function Zeitumwandlung(ByVal Sek_ins As Double) As String
Dim stunden As Integer
stunden = Math.Floor(Sek_ins / 3600)
Dim minuten As Integer
minuten = Math.Floor((Sek_ins - (stunden * 3600)) / 60)
Dim sekunden As Integer
sekunden = Math.Floor(Sek_ins - (stunden * 3600) - (minuten * 60))
Dim zeit As String
zeit = Microsoft.VisualBasic.Right("00" + CType(stunden, String), 2) & ":" & Microsoft.VisualBasic.Right("00" + CType(minuten, String), 2) & ":" & Microsoft.VisualBasic.Right("00" & CType(sekunden, String), 2)
Return zeit
End Function
Private Sub zeit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zeit.Tick
r_zeit.Text = TimeOfDay
r_datum.Text = DateString
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MessageBox.Show("Willst du das Programm Minimieren? Sonst wird der Shutdown Prozess beendet", "Info", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
If e.CloseReason = CloseReason.UserClosing Then
Me.Hide()
Notifyicon1.Visible = True
Notifyicon1.ShowBalloonTip(1, "Info", "...Läuft im Hintergrund", ToolTipIcon.Info)
e.Cancel = True
Else
Application.Exit()
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Dim MsgBox2 As Integer
Dim MsgBox3 As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ComboBox1.Text = "" Then
Form2.Show()
Else
If TextBox1.Text = "" Then
Form2.Show()
Else
If IsNumeric(TextBox1.Text) = False Then
Else
If ComboBox1.Text = "Sekunden" Then
warten = TextBox1.Text
Else
If ComboBox1.Text = "Minuten" Then
warten = TextBox1.Text * 60
Else
If ComboBox1.Text = "Stunden" Then
warten = TextBox1.Text * 3600
End If
countdown.Start()
End If
End If
End If
End If
End If
End Sub
Private Sub countdown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles countdown.Tick
If warten > 0 Then
warten -= 1
Label1.Text = Zeitumwandlung(warten)
End If
If warten = 0 Then
If RadioButton1.Checked = True Then
Shell("shutdown.exe -p")
End If
If RadioButton2.Checked = True Then
Shell("shutdown.exe -r")
End If
If RadioButton3.Checked = True Then
Shell("shutdown.exe -l")
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell("shutdown -a")
countdown.Stop()
Label1.Text = Zeitumwandlung(0)
End Sub
Private Sub Notifyicon1_BalloonTipClicked(ByVal sender As Object, ByVal e As System.EventArgs) Handles Notifyicon1.BalloonTipClicked
Me.Show()
End Sub
Private Sub Notifyicon1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Notifyicon1.Click
Notifyicon1.ShowBalloonTip(1, "Info", Zeitumwandlung(warten), ToolTipIcon.Info)
End Sub
End Class
Alles anzeigen
Danke!