Exercice 1 : Chrono
Date de publication : 18/03/2003
Par
Gilbert Miralles (gilmir.developpez.com)
I. Chrono : Réalisation d'une boucle de comptage
I.1. L'objectif
Nous souhaitons réaliser un compteur qui incrémentera les chiffres de 1 à 1000 avec une cadence de
comptage pouvant être modifiée par le programmeur.
I.2. Code commandant la pause du compteur
Dans la fenêtre [ Géneral ] [Déclarations] nous écrirons la variable :
Dim Indicateur As Integer
|
Ensuite..... les procédures vont se positionner dans leurs fenêtres respectives
Procédure Pause |
Sub Pause (ByVal nSecond As Single)
Dim t0 As Single
t0 = Timer
Do While Timer - t0 < nSecond
Dim dummy As Integer
dummy = DoEvents ()
If Timer < t0 Then
t0 = t0 - 24 * 60 * 60
End If
Loop
End Sub
|
I.2. Code des boutons
Bouton Quitter |
Sub Command1_Click ( )
End
End Sub
|
Bouton Chrono |
ub Command2_Click ( )
Dim i As Integer
For i = 1 To 1000
Label1. Caption = Label1. Caption + 1
Call Pause (1 )
Next i
End Sub
|
Bouton Pause (traitement conditionnel) |
Sub Command3_Click ( )
If Indicateur = 0 Then
Call Pause (10 )
Indicateur = 1
Else
Call Pause (1 )
Indicateur = 0
End If
End Sub
|
Bouton RAZ (remise à zéro) |
Sub Command4_Click ( )
Label1. Caption = " 0000 "
End Sub
|
Bouton About... |
Sub mnu_About_Click ( )
FrmAbout. Etiquette1 . Caption = " Chrono "
FrmAbout. Show vbModal
End Sub
|
Le Timer aura comme propriété :
Name = Timer1
Interval = 10
Enabled = False
La feuille
About est facultative (récupérer la feuille
About précédemment créée dans le
tutoriel 2)
Les instructions relatives à la commande "Pause" peuvent être stockées dans un répertoire
intitulé "Routines" sous forme de fichier texte. Le réaliser avec le bloc notes.
Nous pourrons récupérer le code facilement pour une utilisation ultérieure relative à la construction
d'un nouveau programme.
Ne réinventons pas ce qui est déjà créé!
Téléchargements
Copyright © 2003 Gilmir.
Aucune reproduction, même partielle, ne peut être faite
de ce site ni de l'ensemble de son contenu : textes, documents, images, etc.
sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à
trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.