Hey Leute.
ich hab da nen Problem mit meinem Programm, das den Computer eigentlich um eine bestimmte Uhrzeit herunterfahren sollte es gin bei den Tests aber jetz plötzlich nicht mehr.
Private Sub Command1_Click()
Dim sekunden, Minuten, Stunden, Tage As Variant
Minuten = txtminuten.Text
Tage = txtTag.Text
Stunden = txtStunde.Text
If Minuten = "Minuten" Or Minuten = "" Then
Minuten = 0
End If
If Stunden = "Stunden" Or Stunden = "" Then
Stunden = 0
End If
If Tage = "Tage" Or Tage = "" Then
Tage = 0
End If
sekunden = Tage * 24 * 60 * 60 + Stunden * 60 * 60 + Minuten * 60
txtUmgewandelt.Text = sekunden
End Sub
Private Sub Command2_Click()
Label1.Caption = Time
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
Private Sub Timer2_Timer()
If Label1.Caption = "21:20:00" Or Label1.Caption = "21:30:00" Then
Shell ("shutdown.exe -s -t 600 -c ""Du hast noch 10 Minuten. Mach schnell!""")
End If
End Sub
Es soll auch Minuten, Stunden und Tage umrechnen in sekunden
ich hab da nen Problem mit meinem Programm, das den Computer eigentlich um eine bestimmte Uhrzeit herunterfahren sollte es gin bei den Tests aber jetz plötzlich nicht mehr.
Private Sub Command1_Click()
Dim sekunden, Minuten, Stunden, Tage As Variant
Minuten = txtminuten.Text
Tage = txtTag.Text
Stunden = txtStunde.Text
If Minuten = "Minuten" Or Minuten = "" Then
Minuten = 0
End If
If Stunden = "Stunden" Or Stunden = "" Then
Stunden = 0
End If
If Tage = "Tage" Or Tage = "" Then
Tage = 0
End If
sekunden = Tage * 24 * 60 * 60 + Stunden * 60 * 60 + Minuten * 60
txtUmgewandelt.Text = sekunden
End Sub
Private Sub Command2_Click()
Label1.Caption = Time
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
Private Sub Timer2_Timer()
If Label1.Caption = "21:20:00" Or Label1.Caption = "21:30:00" Then
Shell ("shutdown.exe -s -t 600 -c ""Du hast noch 10 Minuten. Mach schnell!""")
End If
End Sub
Es soll auch Minuten, Stunden und Tage umrechnen in sekunden