Comment utiliser un Timer dans Visual Basic

Instructions

1. Ouvrez Visual Basic et sélectionnez comme "Nouveau Projet" une "EXE standard." Cliquez "Fichier" et "Enregistrer form1 que" et lui donner un nom comme "timerproject." Puis cliquez sur "Enregistrer le projet sous" et nommez- "Projet minuterie." Visual Basic applique les extensions de fichier correctes par défaut.

2. Changer la "Légende" propriété dans le panneau Propriétés en bas à droite de "Timer Control."

3. 
   
   
   

   Placez un contrôle Timer sur la fiche en double-cliquant sur le "Minuteur" contrôle, qui apparaît comme une icône de l'horloge, dans la boîte à outils dans le panneau de gauche. La commande ne sera pas visible lorsque le programme fonctionne. Pour plus de clarté, de cliquer et faire glisser vers un coin inférieur de la forme.

4. Mettre une étiquette sur la forme en double-cliquant sur le "Étiquette" contrôle, représenté par une grande lettre "Un" dans la boîte à outils. Cliquez sur le "Étiquette" maintenant sur la forme, puis dans le panneau Propriétés changer le nom de l'étiquette "Horloge" et supprimer les lettres dans la ligne de légende. Répétez cette opération pour une deuxième étiquette et nommez- "Voeux." Modifier la largeur pour les deux étiquettes à 2000.

   

5. 
   
   
   

   Cliquez sur Afficher gt; Code en haut pour ouvrir une fenêtre de code. Écrire le code pour un événement de minuterie. Ceci est juste un exemple-pour contrôler minuterie désirée utilise vous devez modifier le code pour faire ce que vous voulez qu'il fasse:
   Private Sub Form_Load ()
   Numéros Timer1.Interval = 5000 'représentent millisecondes et 5000 équivaut à une fois tous les 5 secondes-changer cette période souhaitée
   Appelez Timer1_Timer
   End Sub
   Private Sub Timer1_Timer ()
   Dim strGreeting1, strGreeting2, strTime As String
   strTime = Temps $
   Clock.Caption = Temps $
   strGreeting = "Bonjour!"
   Si Mid $ (strTime, 7, 1) = "1" Puis
   Greeting.Caption = strGreeting
   Else: Greeting.Caption = ""
   End If
   End Sub

   

6. Testez le codage en appuyant "F5." L'heure doit afficher et mettre à jour toutes les 5 secondes. Lorsque le premier chiffre de l'affichage des secondes se situe entre 10 et 19, les mots "Bonjour!" affichera puis disparaître pendant 50 secondes. Si aucun de ces événements se produit, vérifier le code à la cinquième étape de la précision.

7. En faire un programme final en cliquant sur Fichier gt; Assurez minuterie Project.exe.
   Exécutez le programme d'où vous l'avez enregistré.

• Avec Visual Basic Express, les commandes ci-dessus ne fonctionnera pas. Vous devez remplacer les noms de marque et le code avec ces lignes:
• Private Sub Timer1_Tick (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) Poignées Timer1.Tick
• Voeux Dim, Temps As String
• Temps = TimeOfDay
• Clock.Text = Temps
• Voeux = "Bonjour!"
• Si Mid $ (Temps, 7, 1) = "1" Puis
• Welcome.Text = voeux
• Else: Welcome.Text = ""
• End If
• End Sub

• code de programmation est intolérant d'erreurs. Les exemples doivent être saisis exactement tel qu'il est rédigé.
• Rappelez-vous quand vous avez terminé l'exemple en créant un fichier exécutable à l'étape 7 que vous enregistrez dans un dossier dont vous vous souviendrez.