1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Souris, Clavier, etc…
  5. Arrêter un programme si il n'est pas actif pendant quelques secondes...

Arrêter un programme si il n'est pas actif pendant quelques secondes...

0/5 (3 avis)

Vue 3 864 fois - Téléchargée 267 fois

Télécharger le projet
Commenter

Description

Cette source permet d?arrêter votre programme si il n?est plus actif. Très facile à comprendre !
Je sais qu?il y a une source comme celle-ci mais elle ne marche pas chez moi.

Tout d?abord, il vous faut :
- 2 timers (Timer1,Timer2)
- 2 labels (IX,IX2)
- 1 form (Form1)
- Visual Basic (5,6)

Source / Exemple : 


Private Sub Form_Load()
'Temps à attendre avant l'arrêt du programme (Là, 10 secondes)
Timer2.Interval = "10000"
'Temps de vérification (Il verifie si il y a une seconde la souris a bougé)
Timer1.Interval = "1000"
IX.Caption = "9999"
IX2.Caption = IX.Caption
Timer2.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Quand on bouge ça augmente
IX.Caption = IX.Caption + 1
'Rajoute le même nombre a l'autre label (qui diminue si la souris ne bouge pas)
IX2.Caption = IX.Caption
'Si la souris bouge, on remet à 5000 le timer
Timer2.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
'Si la souris bouge pas, on diminue..."
IX2.Caption = IX2.Caption - 1
End Sub

Private Sub Timer2_Timer()
'Si la souris n'a pas bougé, on ferme (Regarde IX par rapport à IX2)
If IX.Caption > IX2.Caption Then
End
Else
End If
End Sub

Conclusion :


Voilà, ça peut être utile. SVP pas d'insulte car je sais qu'il y a des habitué ici.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Nox Messages postés 415 Date d'inscription mardi 3 avril 2001 Statut Membre Dernière intervention 26 avril 2008
7 févr. 2003 à 03:54
Ouais pas mal!
pas compliqué mais bonne idée

7/10
cs_blabla Messages postés 112 Date d'inscription mercredi 28 août 2002 Statut Membre Dernière intervention 13 mars 2004
6 févr. 2003 à 18:22
bien ta source !
pour la prochainne fois pense a faire le .zip please
7/10
cs_clad87 Messages postés 42 Date d'inscription samedi 28 décembre 2002 Statut Membre Dernière intervention 24 août 2015
6 févr. 2003 à 02:38
Commentez S.V.P merci ;-p
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_clad87)