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 06 21:46:56

MICROSOFT VOUS PERMET DE TESTER ECMASCRIPT 5 (ES3.1) par FREMYCOMPANY

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

RE : SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

RE : MACRO SANS PASSER PAR LA FORMULE EXCEL par jack

RE : RECHERCHER UN MOT PUIS DONNER UNE VALEUR CORRESPONDANTE SUR LA MêME LIGNE par jack

ACTUALISATION D'UN DOSSIER par PHILOUVB

+ de logiciels à télécharger

1 465 542 membres
582 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 303 357 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 !

AFFICHAGE, DANS LA BARRE DE TITRE, DE LA DURÉE D'EXECUTER DEE L'APPLICATION

Information sur la source

Catégorie :Exécution Niveau : Débutant Date de création : 11/12/2003 Vu : 2 513

Auteur : VbAbdoul

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Ce code permet d'afficher la durée depuis laquelle l'application est ouverte.

Ce code est ridicule mais apporte une petite vie a vos appli ;)

ajouter juste un Timer et F5.

Source

Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim depart As Long
Public Function Duree(Total As Long) As String
Dim a As String
Total = Total / 1000
If ((Total) / 3600) > 1 Then
a = Int(Total / 3600)
Duree = a & " Heures " & Int((Total / 60) - (a * 60)) & " Mins " & Int((Total) - (a * 3600) - (Int(((Total) / 60) - (a * 60)) * 60)) & " Secs"
Else
If (Total / 60) > 1 Then
a = Int(Total / 60)
Duree = a & " Mins " & Int(Total - (a * 60)) & " Secs"
Else
Duree = Int(Total) & " Secs"
End If
End If
End Function
Private Sub Timer1_Timer()
Form1.Caption = "Appli ouverte depuis " & Duree(GetTickCount - depart)
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
depart = GetTickCount
End Sub

Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim depart As Long

Public Function Duree(Total As Long) As String
Dim a As String
Total = Total / 1000
If ((Total) / 3600) > 1 Then
    a = Int(Total / 3600)
    Duree = a & " Heures " & Int((Total / 60) - (a * 60)) & " Mins " & Int((Total) - (a * 3600) - (Int(((Total) / 60) - (a * 60)) * 60)) & " Secs"
Else
    If (Total / 60) > 1 Then
        a = Int(Total / 60)
        Duree = a & " Mins " & Int(Total - (a * 60)) & " Secs"
    Else
        Duree = Int(Total) & " Secs"
    End If
End If
End Function

Private Sub Timer1_Timer()
    Form1.Caption = "Appli ouverte depuis " & Duree(GetTickCount - depart)
End Sub


Private Sub Form_Load()
Timer1.Interval = 1000
depart = GetTickCount
End Sub

Sources du même auteur

NET SEND + ENREGISTREMENT DANS BASE DE REGISTRE

EXECUTION D'UNE MACRO EN FONCTION DE LA TOUCHE SÉLECTIONNÉE

AFFICHAGE SUR LA FEUILLE DE LA POSITION DE LA SOUIS

Toutes les sources de VbAbdoul

Sources de la même categorie

CODE DE COULEURS DES RÉSISTANCES par houss77

DUAL LANGUAGE VB6 DEVELOPPEZ EN FRANÇAIS COMPILEZ EN ANGLAIS... par deleplace

PATCHER LE COMPILATEUR VB6 POUR QU'IL COMPILE DES EXES AUTON... par deleplace

SUPPRESSEUR DE LA DÉPENDACE À VB6FR.DLL REND LES EXES VB6 AU... par deleplace

CRÉATEUR DE LANCEUR DE LOGICIEL DANS UN DOSSIER TEMPORAIRE E... par deleplace

Toutes les sources de la catégorie Exécution

Commentaires et avis

Commentaire de AngelWide92 le 11/12/2003 19:42:52

Coucou!!
Bah simpa le code oui ca donne une petit + aussi je travail en Mdi et j'ai beau avoir mit :
liste.Status(1).text = "Appli ouverte depuis " & Duree(GetTickCount - depart)
>> ici ma form/status/(panel 1)
Si tu c pk ca ne marche pas :( ossi g mit ca dans un autre time a true et a 0
Merci sinon c t bien sympa merci de me repondre
Angie :)

Commentaire de Renfield le 11/12/2003 21:34:45 administrateur CS

Ton code pourrais se résumer comme ca :

Public Sub TimeFromLaunch(ByRef H, ByRef M, ByRef S)
    Static Depart As Long: If Depart = 0 Then Depart = Timer
    Dim InSeconds As Long: InSeconds = Timer - Depart
    H = Format(InSeconds  3600, "00")
    M = Format((InSeconds  60) - H * 60, "00")
    S = Format(InSeconds - 3600 * H - 60 * M, "00")
End Sub

Private Sub Timer1_Timer()
    Timer1.Interval = 1000
    Dim H As String, M As String, S As String
    Call TimeFromLaunch(H, M, S)
    Form1.Caption = "Appli ouverte depuis " & IIf(H <> "00", H & " Heures ", vbNullString) & M & " Min " & S & " Sec"
End Sub

J'ai modifié la procédure (elle stocke elle même "Départ") et renvoie Heures , Minutes et Secondes, ce qui laisse la liberté d'en faire ce qu'on veux.....

Petit truc , Int(Total / 3600) ce dit tout simplement : Total  3600

une division avec le symbole "" est en effet une division entière....