Langlade Informatique, pour que l'informatique n'ait plus de secrets pour vous.

La solution idéale pour se former à l'outil informatique

Accueil - Plans d'études - Les cours - Les tarifs - Inscriptions - Contactez nous - Lisez moi

Sommaire

App Chrono

T U T O R I E L V I S U A L B A SIC

Exercice1 - Chrono Page précédente

Réalisation d'une boucle de comptage

Chargement de l'application ( Cliquez içi )

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 Object [ general ] 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
    For i = 1 To 1000
    Label1.Caption = Label1.Caption + 1
    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(100)
    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éé!

Dossier référence : App Chrono
Révision : 29 janvier 2003

Nos ateliers de cours, vous permettent de vous former facilement.

AUCUNE CONNAISSANCE PRÉALABLE N'EST NÉCESSAIRE

Page précédente

Accueil - Plans d'études - Les cours - Les tarifs - Inscriptions - Contactez nous - Lisez moi