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

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

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)