1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Public Class Form1
Dim heuremin As Integer
Dim heuresec As Integer
Dim minsec As Integer
Dim TotalSec As Integer
Public Sub HeureEnMinutes()
heuremin = NumericUpDownHeure.Value * 60
End Sub
Public Sub HeureEnSec()
heuresec = heuremin * 60
End Sub
Public Sub MinuteEnSec()
minsec = NumericUpDownMinute.Value * 60
End Sub
Public Sub TotalSecondes()
TotalSec = heuresec + minsec
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartButton.Click
Shell("cmd.exe /C shutdown -s -t TotalSec )
End Sub
End Class |
Partager