Pause du programme

Version imprimable

29/09/2007, 21h04
pedro85

Pause du programme

Bonjour,
Je crée un programme de capture d'écran sous visual basic 2005 express edition,
je voudrai que lorsque l'on clique sur le bouton qui lance la capture le programme fasse une pause de x secondes avant la capture, x étant égal au contenu d'une textbox a coté du bouton, pour qu'ains lutilisateur puisse choisir le temps lui meme.
Suis-je clair??
merci de votre aide
29/09/2007, 21h06
Aspic

Citation:

Envoyé par pedro85

Bonjour,
Je crée un programme de capture d'écran sous visual basic 2005 express edition,
je voudrai que lorsque l'on clique sur le bouton qui lance la capture le programme fasse une pause de x secondes avant la capture, x étant égal au contenu d'une textbox a coté du bouton, pour qu'ains lutilisateur puisse choisir le temps lui meme.
Suis-je clair??
merci de votre aide

Utilise un thread et mets :

Code:

System.Threading.Sleep(5000) 'attend 5 secondes
30/09/2007, 01h48
tomlev

Ben oui mais avec un Thread.Sleep ça va freezer l'IHM... c'est peut-être pas ce qu'il veut. Moi j'aurais plutot utilisé un Timer qui se lance au bout de 5 secondes.
A propos de timers, il y a ici un article très intéressant qui compare en détail les différents timers proposés par le Framework (en anglais)
30/09/2007, 11h02
Aspic

Citation:

Envoyé par tomlev

Ben oui mais avec un Thread.Sleep ça va freezer l'IHM... c'est peut-être pas ce qu'il veut. Moi j'aurais plutot utilisé un Timer qui se lance au bout de 5 secondes.
A propos de timers, il y a ici un article très intéressant qui compare en détail les différents timers proposés par le Framework (en anglais)

Je n'ai jamais eu de problème avec la méthode Sleep... On peut aussi utiliser un Timer mais quand on peut faire simple pourquoi chercher compliqué ? :P
30/09/2007, 19h57
pedro85

Merci mais en fait mon probleme ce n'est pas de faire faire une pause au programme ca je sais faire mais ce que je voudrais c'est que la valeur entrée par lutilisateur dans la textbox soit utilisée par la pause pour permettre a lutilisateur de la choisir lui meme
30/09/2007, 19h58
Aspic
Citation:

Envoyé par pedro85

Merci mais en fait mon probleme ce n'est pas de faire faire une pause au programme ca je sais faire mais ce que je voudrais c'est que la valeur entrée par lutilisateur dans la textbox soit utilisée par la pause pour permettre a lutilisateur de la choisir lui meme

Donc tu fais :
Code:

1 2 Dim Temps as Integer = Cint(Textbox1.text) Threading.Sleep(temps)

Ben je ne comprends pas c'est ce que je fais.
Je vous join le code et une capture d'écran(justement lol) pour que vous compreniez mieux.

Code:

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
30
31
32
33
34
35
36
37
38
39
Public Class Form1
 
    Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Visible = False
        Dim textebox As Integer
        textebox = TextBox1.Text
        Dim attente As Integer
        attente = (textebox / 1000)
        Sleep(attente)    'C'est cette pause qui me pose (haha...) probleme.
        Shell("SNAPSHOT.EXE")
        Sleep(1000)
        Dim dossier As String
        dossier = (FolderBrowserDialog1.SelectedPath + "\capture.bmp")
        FileCopy("C:\snapshot.bmp", dossier)
        Me.Visible = True
 
    End Sub
 
    Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        FolderBrowserDialog1.Description = "Choisissez votre répertoire"
        If FolderBrowserDialog1.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
            MessageBox.Show(Me, _
                        "Vous aves choisi " + FolderBrowserDialog1.SelectedPath, _
                        "Repertoire", _
                        MessageBoxButtons.OK, _
                        MessageBoxIcon.Information)
            Label4.Text = FolderBrowserDialog1.SelectedPath
 
        End If
    End Sub
 
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)
 
End Class

http://www.casimages.com/img.php?pro...9041319334.jpg

Et y'a une erreur ? EN tout cas y'a des erreurs de conversions dans ton code !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Visible = False
        Dim textebox As Integer
        textebox = Cint(TextBox1.Text)
        Dim attente As Integer
        attente = Cint((textebox / 1000))
        Sleep(attente)
        Shell("SNAPSHOT.EXE")
        Sleep(1000)
        Dim dossier As String
        dossier = (FolderBrowserDialog1.SelectedPath + "\capture.bmp")
        FileCopy("C:\snapshot.bmp", dossier)
        Me.Visible = True
    End Sub

Mets ca en haut de ta form :

Code:

1
2
Option Strict On
Option Explicit On

30/09/2007, 21h10
pedro85
Merci maintenant le programme tourne sans erreur mais par contre il ne respecte toujours pas le temps de pause rentré avant la capture.
Par contre je n'ai pas réussi a mettre
Code:

1 2 Option Strict On Option Explicit On
ou que ce soit dans le code. (qu'entendez vous par en haut de ma form)
ca a peu etre un rapport avec ca.
Désolé je pose peut etre des question bete mais je programme que depuis 3 semaines (et encore que quelques heures le weekend alors...:?)
30/09/2007, 21h55
Aspic
Citation:
Envoyé par pedro85

Merci maintenant le programme tourne sans erreur mais par contre il ne respecte toujours pas le temps de pause rentré avant la capture.
Par contre je n'ai pas réussi a mettre

Code:

1 2 Option Strict On Option Explicit On

ou que ce soit dans le code. (qu'entendez vous par en haut de ma form)
ca a peu etre un rapport avec ca.
Désolé je pose peut etre des question bete mais je programme que depuis 3 semaines (et encore que quelques heures le weekend alors...:?)
T'inquiète pas c'est pas grave ;)

Place ces deux lignes tout en haut de tes formulaires (avant les imports)

J'ai mieux pour toi :

Code:

1
2
3
Private Path As String = ""
Private Const VK_SNAPSHOT As Short = &H2CS
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

Code:

1
2
3
4
5
6
7
8
9
10
    Private Function SaveScreen(ByVal theFile As String) As Boolean
        Dim Data As IDataObject = Clipboard.GetDataObject()
        Dim ImageBitmap As Bitmap
        If Data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
            ImageBitmap = CType(Data.GetData(GetType(System.Drawing.Bitmap)), Bitmap)
            Dim PB As New PictureBox
            PB.Image = ImageBitmap
            PB.Image.Save(theFile, Imaging.ImageFormat.Jpeg) 'La tu mets le format que tu veux
        End If
    End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not Path.Trim = "" Then
            Me.Visible = False
            System.Threading.Thread.Sleep(CInt(TextBox1.Text) * 1000) 'Tu mets le temps en secondes dans la textbox
            keybd_event(System.Windows.Forms.Keys.Snapshot, 0, 0, 0)
            System.Threading.Thread.Sleep(200) 'Le temps de récupérer le screenshot
            SaveScreen(Path & "\screenshot.jpg")
            Me.Visible = True
        Else
            MsgBox("Choisir le dossier de destination de l'image...")
        End If
    End Sub

Code:

1
2
3
4
5
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim FBD As New FolderBrowserDialog
        FBD.ShowDialog()
        Path = FBD.SelectedPath
    End Sub

01/10/2007, 11h19
tomlev

Pourquoi faire simple quand on peut faire compliqué... ca répond pas vraiment à la question posée en plus ! Cela dit c'est une approche intéressante...

@pedro85 :
A mon avis le probleme, en plus de la conversion qui est peut-être foireuse, est que la méthode Sleep prend en parametre des millisecondes. Or toi tu divises par 1000 la valeur qui vient de la textbox, ce qui marcherait si cette valeur était en microsecondes mais ca m'etonnerait. Si c'est des secondes que tu entres dans la textbox, tu dois multiplier par 1000, pas diviser, pour obtenir des millisecondes.
Au fait, tu n'as pas besoin d'importer la fonction Sleep avec un Declare : utilise System.Threading.Thread.Sleep à la place, ça fait exactement la même chose.
02/10/2007, 20h14
pedro85

Abruti je suis et je resterai

Citation:

A mon avis le probleme, en plus de la conversion qui est peut-être foireuse, est que la méthode Sleep prend en parametre des millisecondes. Or toi tu divises par 1000 la valeur qui vient de la textbox, ce qui marcherait si cette valeur était en microsecondes mais ca m'etonnerait. Si c'est des secondes que tu entres dans la textbox, tu dois multiplier par 1000, pas diviser, pour obtenir des millisecondes.
Au fait, tu n'as pas besoin d'importer la fonction Sleep avec un Declare : utilise System.Threading.Thread.Sleep à la place, ça fait exactement la même chose.

Hum, :oops: , bon, ok, voila quoi, j'crois que jvais retourner reviser mes maths.
Eh bien tomlev, merci bien, car effectivement, C'EST LA BONNE REPONSE!
Malheureusement je n'ai pas de superbe écran plasma a offrir...
Eh oui c'était juste un probleme de calcul, j'ai supprimé le "/" et remplacé par le "*" et paf! ca a fait des chocapics! non mais par contre ca a marché.

un grand merci

quan le prog sera fini jmetrai un lien ici vers un serveur ou je l'aurai déposé pour qe vous voyiez ce a quoi vous avez contribué.
:king:
:yaisse2:
MERCI