COMPTEUR AVEC VALEUR PRÉCÉDÉE DE ZÉRO

Commentaire de yomm le 24/03/2004 16:58:06

petiti truc tout de même, pour définir la valeur (à 50 par exemple) du compteur on est pas obligé d'écrire :
MonCompteur.Value = "050"
mais on peut se contenter de
MonCompteur.Value = 50

Voilà ce code est sans prétention...c'est juste que plutôt que de le mettre en réponse sur le post d'origine , je me suis qu'il serait plus accessible à tout le monde en faisant un source...

Commentaire de yomm le 25/03/2004 17:20:36

>> Warny
merci pour ta remarque mais as tu testé ton code? C'est pas méchant ce ke je di mais :
exemple:
si mValue =50
si mMax = 999
alors Format$(mValue, String$("0", Len(mMax)))  donne: "50"
c'est pas vraiment le but rechercher!!!!!

Petit commentaire supplémentaire:
premier truc a savoir : évite d'utiliser les fonctions demandant des String en paramètre en passant de Integer en directe car VB à quelques fois un comportement étrange!!!! Juste un exmple :
[code]
Dim Toto As String

Toto = Str(5) 'Str  converti une valeur en texte
Debug.Print Len(Toto)
[/code]

resultat de la manip: 2
et oui toto = " 2"

Voilà pourquoi mon code est un peu plus lourd mais au moins je maitrise entièrement les valeurs de mes variables...et ça évite des bugs éventuels ;-)

Commentaire de Warny le 25/03/2004 17:30:07

Je n'ai effectivement pas testé mon code.
Il est d'ailleur probable que len(mMax) me renvoi la taille en octet de la valeur numérique (soit 2 parce integer représente 2 octets)
Pour bien faire il faudrait rajouter len(Trim(Cstr(mMax))) qui renvoie bien la taille de la chaine de caractère.
En fait il bien plus rapide de calculer une fois pour toute les 3 ou 4 zéros et d'utiliser la fonction format ou right(zero & chaine, len(...)) parce que tu ne recalcule plus la longueur de la chaine.
Pour éviter le " " devant tu peux utiliser la conversion explicite (CStr) plutot que la fonction de conversion (Str) ou plus simplement Format(nb,"0")

Commentaire de VeRs_iOn le 25/03/2004 20:12:56

Plus simple :D

Public Min As Integer

Private mMax As Integer
Private mValue As Integer
Private formatcompteur as string

Public Property Get Max() As Integer
    Max = mMax
End Property

Public Property Let Max(ByVal xMax As Integer)
    mMax = xMax
    formatcompteur = string(len(cstr(mmax)),"0")
End Property

Public Sub Init()
    mValue = mMin
End Sub

Private Sub Class_Initialize()
    mValue = 0
    mMin = 0
    mMax = 999
    formatcompteur = "000"
End Sub

Public Sub Increment()
    If mValue < mMax Then mValue = mValue + 1
End Sub

Public Sub Decrement()
    If mValue > mMin Then mValue = mValue - 1
End Sub

Public Property Get Value() As String
    Value = format(mvalue, formatcompteur)
End Property

Public Property Let Value(ByVal vValue As String)
    mValue = cint(val(vValue))
End Property

je l'ai pas testé mais ça doit marcher, même pour les nombres négatifs (le tien devrait logiquement les écrire sous la forme "0-12", "00-3" etc..., ce qui n'est pas très sérieux, même si tu répondras sans doute que tu n'as fait ça que pour les nombres négatifs)

Commentaire de yomm le 25/03/2004 21:02:16

petit truc ke je viens de noté....
Tu ne fait pas référence à Min...Donc petit complément juste pour dire ke la méthode a utiliser est la même pour Min...
en modifiant le les procédure Min et Max ainsi:

Public Property Get Max() As Integer
    Max = mMax
End Property
Public Property Let Max(ByVal xMax As Integer)
    mMax = xMax
     if len(cstr(Abs(mmax))) > len(formatcompteur) then = string(len(cstr(abs(mmax))),"0")
End Property

Public Property Get Min() As Integer
    Min = mMin
End Property
Public Property Let Min(ByVal vMin As Integer)
    mMin = vMin
     if len(cstr(Abs(vMin))) > len(formatcompteur) then = string(len(cstr(abs(mMin))),"0")
End Property

Et oui,vu ke VeRs_iOn parle de valeur négatives, autant le gérer maintenant ;-) ... j'ai pas testé mais ça me semble correcte....

Commentaire de yomm le 26/03/2004 10:15:22

alors nouveau petit commentaire ;-)
voici un copier-coler de mon premier pour expliquer :
Public Property Let Value(ByVal vValue As String)
    mValue = Trim(CStr(vValue))
End Property

------------------------------------------------------------------------------
petiti truc tout de même, pour définir la valeur (à 50 par exemple) du compteur on est pas obligé d'écrire :
MonCompteur.Value = "050"
mais on peut se contenter de
MonCompteur.Value = 50
------------------------------------------------------------------------------

Donc voilà, la fonction demande en paramètre un String en effet...mais pour facilité la manipulation on peut prendre la liberté de mettre une valeur ......voilà pourquoi je convertis un string en string ;-)

Voilà ....à VeRs_iOn et moi ça devrai faire un truc pas trop mal ;-)

@+

Commentaire de Warny le 26/03/2004 14:35:12

Il faut d'abord que tu créé un module de classe qui s'appelerait CCompteur.
Tu copies le code et tu ajoutes évetuellement les améliorations proposées. Je t'invite même à y réfléchir.

Ensuite dans le même projet tu fais :

Dim Compteur as New CCompteur
Compteur.Increment
Dim x as String
x = Compteur.Value '<-- récupération de la valeur

Tu peux utiliser Value comme une variable. Je t'invite à consulter l'aide en ligne sur les propriétés (Properties) pour en apprendre plus.

Commentaire de VeRs_iOn le 26/03/2004 18:08:30

lu, je continue dans la série je-me-prends-la-tête-pour-3-lignes-de-code :D

je ne connais pas le fonctionnement de vb à fond, mais je pense que si jamais tu passes une valeur numérique à une fonction qui demande explicitement une string, vb la convertira avant, et passera effectivement une string à l'éxécution de la procédure...ce qui est rassurant, car ça permet d'être sur que toutes les variables passées dans une procédure sont vraiment du type attendu (sinon conversion, ou erreur)

ton cstr est donc bien inutile...

@+

Commentaire de VeRs_iOn le 27/03/2004 13:58:28

ben oui mais non ça a vraiment AUCUN EFFET, comme dit plus haut, ni pour les erreurs ni pour quoi que ce soit d'autre...

+ ;)

Commentaire de Warny le 27/03/2004 19:42:37

Vers_ion -> Je vais t'apporter quelques réponses qui vont parfaitement conforter tes dires...
Le vb sait parfaitement faire des conversions implicites. En gros, quand on passe une valeur à une variable, le programme teste si la valeur est du bon type, si ce n'est pas le cas, il cherchera à utiliser TOUS les convertisseurs possibles pour que ça fonctionne. Si aucun convertisseur n'est disponible on a une erreur de type incompatible.
Le problème c'est que ça rame, et que de temps en temps on a des TRES mauvaises surprises. Par exemple les lignes suivantes donnent des résultats très fantaisistes et pas toujours cohérents :
"2" + 2 donne "22" mais 2 + "2" peut donner 4 ou "22" selon la version du VB.
Pour éviter ces problèmes, le vb nous offre un mécanisme de conversion explicite. Les fonctions sont les suivantes :
CStr (renvoie une string avec une conversion de date au format très aléatoire)
CDbl et CDate qui renvoient un double (une date est stockée dans un double en jour depuis le 01/01/1900 ou 31/12/1899 en fonction du sytème d'exploitation et à cause d'un vieux bug corrigé depuis qui consistait à traiter le 29/02/1900 comme une date valide)
CByte, CInt et CLng renvoient des entiers sur 1, 2 et 4 octets respectivement
Je n'utilise pas les deux dernières, et je ne suis pas sûr de la syntaxe : CCurrency et CSingle
Tout ceci pour dire que la meilleur optimisation d'un code avec conversion de type c'est ça si on ne connait pas le type d'entré :
Function (nbre As Variant)
    Dim _nbre as Long
    _Nbre = CLng(nbre)
    ...
End Function