Discussion :

[Barbe-Bleu]

Bonjour, je suis nouveau sur ce forum et débutant en programmation.
Je souhaiterais créer, pour m'exercer, un petit programme permettant d'éteindre l'ordinateur au bout d'un temps donné.

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

La variable TotalSec ne fonctionne pas dans la commande Dos.
Comment pourrais-je corriger ce problème?

[mdevaux62]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Private Sub ExtinctionProgrammee(ByVal nbHeures As Integer, ByVal nbMinutes As Integer, ByVal nbSecondes As Integer)
        'Exemple, pour éteindre dans 1h30 : ExtinctionProgrammee (1,30,0)
        Dim delai As TimeSpan = New TimeSpan(nbHeures, nbMinutes, nbSecondes)
        Dim ligneCommande As String = "/C shutdown -s -t " & delai.TotalSeconds.ToString
        Process.Start("cmd.exe", ligneCommande)
    End Sub

PS : Je n'ai pas essayé... la flemme de relancer le PC

[tomlev]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell("cmd.exe /C shutdown -s -t " + TotalSec)