HORLOGE FLOUE (POUR LES ADEPTE DE LINUX)

Commentaire de Renfield le 05/11/2004 13:15:11 administrateur CS

ok pour le principe.

le code n'est pas top, pourtant...

les variables ne sont pas déclarées...

tu calcules inutilement des tas de fois la valeur

Val(Format(Now, "Nn"))


voici ce que cela aurait pu être :

Private Sub Timer1_Timer()
    Dim H As Integer, M As Integer
    H = DatePart("h", Now)
    M = DatePart("n", Now)
    
    Dim Heure As String, Min As String

    Select Case M
        Case 53 To 59
            H = H + 1
        Case 8 To 22
            Min = " et quart"
        Case 23 To 37
            Min = " et demi"
        Case 38 To 52
            H = H + 1
            Min = " moins le quart"
    End Select
    
    Heure = Choose(H + 1, "Minuit", _
                      "Une", _
                      "Deux", _
                      "Trois", _
                      "Quatre", _
                      "Cinq", _
                      "Six", _
                      "Sept", _
                      "Huit", _
                      "Neuf", _
                      "Dix", _
                      "Onze", _
                      "Midi", _
                      "Treize", _
                      "Quatorze", _
                      "Quinze", _
                      "Seize", _
                      "Dix-sept", _
                      "Dix-Huit", _
                      "Dix-Neuf", _
                      "Vingt", _
                      "Vingt et une", _
                      "Vingt deux", _
                      "Vingt trois")
    
    If H = 0 Or H = 12 Then
        Me.Caption = Heure & Min
    Else
        Me.Caption = Heure & " Heure" & Min
    End If
End Sub


de plus, tu aurais pu tirer avantage d'un Select Case

Commentaire de cboulas le 05/11/2004 15:35:40

J'y ai penser dans l'update que je mettrais on pourra règler les heure de déjeuner, diner, coucher, etc...
Mais c'est vrai tu as raison, linux le dit.

Pratique pour les fin de cours

Commentaire de cboulas le 05/11/2004 16:48:24

ovRflow> à cause de la taille du texte qui peux varié d'un minimum : 4 Caractère ("Midi") à par exemple : "Quinze heure moins le quart", mais c'est une bonne idée.

Commentaire de jack le 05/11/2004 19:34:23 administrateur CS

lol
Pour ma part, j'aurai appris une nouvelle instruction : "Choose", je ne savais même pas que ça existait !

Pour les heures, minutes et secondes, il y a aussi les instructions Hour(Now), Minute(Now) et Second(Now)

Commentaire de MadM@tt le 06/11/2004 12:37:39

Méga idée, ça fait beaucoup plus proche de l'utilisateur je trouve

Commentaire de trcdl le 06/11/2004 18:22:36

sympathique
bonnne idee

Commentaire de cboulas le 07/11/2004 15:51:26

Bon bjà au final, la source ne bougera plus, car j'ai chercher comment mettre du texte dans le systray et ce n'est pas possible à moins de posé x icones et là ça fait crade. j'ai chercher également à mettre à jour la base de registre dont une clé gère l'affichage de l'horloge mais il faut redémarrer le pc pour qu'il prenne en compte le nouveau texte, donc pas pratique de relancer toute les minutes. J'ai également chercher à modifier le texte de l'horloge en récupérant son Handle mais l'horloge réactualise trop rapidement pour prendre en charge et afficher le texte. J'ai même chercher à afficher du texte dans le barre de tache mais y'a pas moyen, donc la source ne risque plsu de trop bouger, je cherche encore une dernière méthode mais ce n'est pas sûr...

Commentaire de wolfcyber le 08/11/2004 19:30:39

C marrant ;-)

Commentaire de diablamanshadow le 13/12/2005 12:16:48

je crois avoir trouver comment faire l'idee d'overflow est pas mauvaise maisun ptit truc a ajouter ^^ en gros tu met ta form en splash et tu la fou sur celle de windows tu recopie exactement celle de windows en petit tu vois donc une frm qui fait juste la taille de l'horloge windows ou tu met l'heure donc tu copie exactement celle de windows ^^ mais alors pk ton code j'y vient ^^ en gros une fois que ta t copier et mis sur la vraie horloge tu met que le tool tiptext du label qui affiche l'heure (comme windows) vienne ton chtit texte et ca passeras comme une "fausse" horloge windows avec u new toltiptext qui met ton petit message alors pour mettre a jour ton label qui affoche l'heure bah tu met un timer a intervalle 1000 (chaque seconde) qui dit un truc du genre lbl.caption = time qui remet  a jour ton heure donc en gros tu fais une frm avec 1 timer et un label le label contien la vraie heure et le timer remet se label a jourpuis tu reconfigurer avec ce meme timer le tooltiptext de ce label et ses nikel ^^ comme sa tu peux le gfoutre no prob dans le systray ;-)

diablaman@hotmail.com