Controls digital numérique rouge vert ou bleu

Télécharger le projet
Commenter

Description

Vous avez déjà fait votre propre control en vb .. ben moi j'en ai un pas pire a vous présenter, il s'agit d'un écran digital qui affiche un crono d'une manière digitals il est très cool selon moi .. mais ca me prenderait des teste pour savoir si il est pas si pire. Amuser vous a le modifier mais svp envoyer moi l'évolution de ce controls

Source / Exemple : 


Public Sub Value(ByVal ThisValue As String)

        Dim Buff, aChar, i
        Dim IsCommencer As Boolean
        
        Buff = ThisValue
        
        If Len(ThisValue) = 0 Then
            Buff = String(7, "0")
        End If
        
        For i = 0 To 8
            imgClock(i) = clpDigits.GraphicCell(10)
        Next
        If Not IsNumeric(Buff) Then
            Buff = String(7, "0")
        End If
        Buff = Format(Buff, "00000.000")
        Buff = Right(Buff, 9)
        'Affiche de manière digital tout les chiffres une après l'autre
        For i = 1 To Len(Buff)
            If i <= 9 Then
                aChar = Mid$(Buff, i, 1)
                If Val(aChar) > 0 Or IsCommencer Or aChar = "." Then
                    IsCommencer = True
                    If aChar = "." Then
                        imgClock(i - 1) = clpPunctuation.GraphicCell(0)
                    Else
                        imgClock(i - 1) = clpDigits.GraphicCell(Asc(aChar) - Asc("0"))
                    End If
                End If
            End If
        Next i

End Sub

Conclusion :


Il existe surement quelque bugs donc un que je connais .. quand ca prend moins de 100 milisecondes a arrêter le décompte ca affiche bizard tout les chiffres sont pas correctement affichier ...
Une amiliorations de la rapidité d'exécution c'est cela que je vise .. soit par un code qui dessin les chiffres et pas utilisé un ImageList ..
Ou pire encore de pas ce servir d'une loop do while .. avec un DoEvents pour pas faire geller le prog. car quand je le fait rouler si vous avec 2000 vous pouvez voir le temps de process que ca prend c'est débile ...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cognicase)