Club Francophone des développeurs Visual Basic


Vb-French Vb-English Autres langages Rajoutez votre site

Chrono

Lundi 18 mars 2003

Gilmir - Langlade informatique

Tutoriel XX Sommaire

Page précédente

Exercice1 - Chrono

Réalisation d'une boucle de comptage

Chargement de l'application ( Cliquez içi )
ndlr: pour faire fonctionner cette application vous devez posséder dans le répertoire de windows/system le fichier thredd32.ocx (fourni avec vb4 version 32 bits)

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.

Ecriture du code commandant la pause du compteur
Dans la fenêtre[ Géneral ] [Déclarations] nous écrirons la variable :
Dim Indicateur As Integer 'Variable de type Integer
Ensuite..... les procédures vont se positionner dans leurs fenêtres respectives

Sub Pause (ByVal nSecond As Single)     ' Ecriture du code de la temporisation
        Dim t0 As Single                              ' dans une boucle Do Loop
        'Temps de référence
        t0 = Timer
        'Boucle d'attente
        Do While Timer - t0 < nSecond
        Dim dummy As Integer
        dummy = DoEvents()
       'Si on dépasse minuit, il faut retrancher un jour
        If Timer < t0 Then
            t0 = t0 - 24 * 60 * 60
        End If
    Loop
End Sub

Ecriture du code des boutons 'Bouton Quitter

Sub Command1_Click ( )
'Quitter le programme

End

End Sub

Sub Command2_Click ( ) 'Bouton Chrono
Dim i As Integer
For i = 1 To 1000
         Label1.Caption = Label1.Caption + 1
         Call Pause(1)                                  'Nous pouvons modifier cette valeur(essayez)
    Next i
End Sub

Sub Command3_Click ( )                         'Bouton Pause (traitement conditionnel)
    If Indicateur = 0 Then                         'technique étudiée dans la précédente leçon
         Call Pause(10)
         Indicateur = 1
    Else
         Call Pause(1)
         Indicateur = 0
    End If
End Sub

Sub Command4_Click ( )
'Remise à zéro 'Bouton RAZ (remise à zéro)
Label1.Caption = "0000"
End Sub

Sub mnu_About_Click ( )
    'Appel de la feuille About
    FrmAbout.Etiquette1.Caption = "Chrono"
    FrmAbout.Show 1
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).

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éé!

VisualBasic6.org est hébergé par Gilmir.com