| 12
 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