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 
  • Baro6.gif (907 octets) 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
                                    langlade-informatique.com © 2000 Tous droits réservés