Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 21:43:52

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par PCPT

RE : VB 2005 ET INTERNET EXPLORER par PCPT

PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par casy

+ de logiciels à télécharger

1 464 877 membres
369 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 010 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

COMPTEUR VB AVEC L'OBJECT TIMER

Information sur la source

Catégorie :Date & Heure Classé sous : compteur, object, timer Niveau : Débutant Date de création : 20/04/2001 Vu : 4 585

Auteur : IZNOGOOD

Site perso

Ecrire un message privé

Note :

2,00 / 10

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

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

HORLOGE À AIGUILLES (RADIAN) par brainbass

HORLOGE BINAIRE A LEDS par Blodox

CHRONOMETRE par fredatcs

CALCUL HEURE DE NUIT par ocejade

CALENDRIER CONVERTISSEUR par Sechaud

Toutes les sources de la catégorie Date & Heure

Sources en rapport avec celle ci

DESSIN D'UN CERCLE A TRAVERS 3 POINT par infodevlo

COMPTE À REBOUR par denpx

AVERTISSEUR DE MAILS par Niko2003

CASINO - SIMULATION DU JEUX CASINO (RANDOM EN VB.NET) par danie57_8

COMPTEUR par aoncoquin

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

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 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 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 Le temps maximum pour un Timer [ par petiflamand ] Bonjour ,J' ai un probleme avec un timercombien de temps maximum doit-on mettre , je voudrais mettre 2 heurescomment faire ??Merci timer et image [ par tomeca ] salut a tous,jai 16 meme picture box où sont affectés 16 images d'une image list. Cependant, quand je clique sur un bouton je voudrais que mes images Mettre des onglet dans un navigateur fait en vb [ par dardog ] Bonjour, je voudrait intégré dans mon navigateur des onglet comme dans un vrais navigateur avec des boutons pour en demander un nouveau.Mais petit pro supprimer doublon... [ par feu86 ] Bonjour, voila mon problème avec ce script, j'affiche les 10 dernières erreurs systeme. Mais j'aimerai pas récupérer 10 fois la meme. voici mon code:S mettre la nouvelle valeur dans un timer!!!!!!!!!!! [ par magicienblanc ] salu tou le monde ce problem pourrai paraitre bizzare,mai je galere avec,voilaj'essai de realiser un program quiincrémente ou decremente un compteuret timer [ par simsim1503 ] bonsoir alors j'ai un nouveau problème avec le timer cette fois, pr le moment ac le timer.start() et timer.stop() ou timer.enabled= true et timer.enab