Controls digital numérique rouge vert ou bleu

Soyez le premier à donner votre avis sur cette source.

Vue 4 081 fois - Téléchargée 381 fois

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 ...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

SupraDolph
Messages postés
196
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
1 septembre 2008
1
je trouve qu'il bug bcp c peut-être mon PC ?
sinon l'idée est bonne mais on ne peut pas écrire de lettre...
la programmation de l'activx laisse a désirée juste un public sub on ne peut pas pré-programé l'unique propriétée...
désolé pour tout c point négatif mais je pense qu'il faut le signaler.
un petit tour sur
http://www.vbfrance.com/article.aspx?Val=7741
serait sympatique
a+ et bon prog
NISANDSYSTEMS
Messages postés
146
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
13 décembre 2014

Ecoutez l'experte...
sinon, Ouais, essaye de ton propre cru, non par celui des autres.
cs_Mémère
Messages postés
223
Date d'inscription
samedi 24 mars 2001
Statut
Modérateur
Dernière intervention
24 juin 2007

http://www.vbfrance.com/article.aspx?Val=7741

Non non, c'est pas pareil "du-tout". Mais bon tu ne fais qu'aller dans le sens de ce que je ne sesse de répetter ces derniers temps. Imagination 0, un mec sort une source cool, tout le monde essaye de la copier. Ouai, l'année 2003 sera sous le signe de la faignantise.

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.