Accueil > > > COMPTEUR VB AVEC L'OBJECT TIMER
 COMPTEUR VB AVEC L'OBJECT TIMER
 Information sur la source
 Description
Déclarer les 4 variables dans les déclarations générales (publique). Copier le code dans une "Form". Ajouter un controle Timer() "Timer1" et un Editbox qui sera "Text1". L'interval du Timer1 doit etre a 10. Le tour est joué !
 Source
- Declaration explicite
-
- Dim Ms As Integer
- Dim Sec As Integer
- Dim Mn As Integer
- Dim Hr As Integer
-
- ------------------------------------------------
-
- Private Sub Timer1_Timer()
-
- Ms = Ms + 1
- If Ms = 100 Then
- Sec = Sec + 1
- If Sec = 60 Then
- Sec = 0
- Mn = Mn + 1
- If Mn = 60 Then
- Hr = Hr + 1
- If Hr = 24 Then Hr = 0
- End If
- End If
- End If
- Text1.Text = Format(Hr, "00") & ":" & Format(Mn, "00") & ":" & Format(Sec, "00") & ":" & Format(Ms,"00")
-
- End Sub
Declaration explicite
Dim Ms As Integer
Dim Sec As Integer
Dim Mn As Integer
Dim Hr As Integer
------------------------------------------------
Private Sub Timer1_Timer()
Ms = Ms + 1
If Ms = 100 Then
Sec = Sec + 1
If Sec = 60 Then
Sec = 0
Mn = Mn + 1
If Mn = 60 Then
Hr = Hr + 1
If Hr = 24 Then Hr = 0
End If
End If
End If
Text1.Text = Format(Hr, "00") & ":" & Format(Mn, "00") & ":" & Format(Sec, "00") & ":" & Format(Ms,"00")
End Sub
 Conclusion
Pour plus d'information, xiznogoodx@hotmail.com
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Timer Vb.Net [ par kiboumz ]
Bonjour, je désire réaliser un compteur de temps à l'aide d'un timer sur l'une de mes applications. C'est à dire que dans mon load
Re: Stoper un timer en VB [ par dimdam ]
Petite précision pour mon problème.Il s'agit de stopper un timer lors d'un événement. Dans notre cas c'est lorsqu'un compteur atteint un certain nombr
Timer et acquisition [ par nonolesgaz ]
bonjour a tous,Vu que je suis nouveau et que je demande un coup de main je vais commencer par me presenter, moi c'est Arno je suis en terminal science
Timer vb2008 [ par glem02 ]
bonjour j'utilise un timer pour afficher un compteur temps (h:m:s)au déclenchemnt d'un bouton. la valeur s'affiche dans un textbox en temps réel. pass
timer et MsFlexgrid sur VB 6.0 [ par peute51 ]
salut et merci de me repondre.je debute en VB et je dois réaliser un programme comme le jeu télévisé LES CHIFFRES ET LES LETTRES.mais moi je m'occupe
compteur [ par drpsico ]
bonjour a tousssssse que je voudrai faire c un compteur qui compte jusqu'a 100 puis que sa sarete sur 100g deja fai sa Dim s As IntegerPrivate Sub Tim
Object Printer [ par Nightcourrier ]
bonjour à tous , j'aimerais savoir si quelqu'un connais un truc pour faire la numérotation de page avec l'object printer Merci
Timer .Net qui bouffe des ressources système... [ par kozher20 ]
Bonjour,Voilà, j'utilise le contrôle Timer en .Net et j'ai remarqué que celui-ci utilise des ressources système au fur et à mesure du décompte.Sauriez
ActiveX Data Object 2.7 [ par poupoune11 ]
Bonjour,est-ce que qqn saurait le nom de l'ocx fournissant ce composant ActiveX voire la source elle-même?merci d'avance,Poupoune
Impossible de faire un Timer de 4h ???? [ par foliop ]
salutjai un timer et jaimerai quil se declenche toutes les 4h mais apparement il peut pasqqun a une solution ?
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
 TéLéCHARGEMENTTéLéCHARGEMENT par bernardPare
Cliquez pour lire la suite par bernardPare
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|