CONTRÔLEUR NUMÉRIQUE DE SAISIE
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
27 oct. 2004 à 12:38
vienbv Messages postés 14 Date d'inscription lundi 1 novembre 2004 Statut Membre Dernière intervention 17 mars 2010 - 13 avril 2007 à 19:24
vienbv Messages postés 14 Date d'inscription lundi 1 novembre 2004 Statut Membre Dernière intervention 17 mars 2010 - 13 avril 2007 à 19:24
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/27124-controleur-numerique-de-saisie
https://codes-sources.commentcamarche.net/source/27124-controleur-numerique-de-saisie
13 avril 2007 à 19:24
Merci beaucoup pour ce code qui m'aide a résoudre le probleme que j'ai eu depuis quelque temps
12 avril 2006 à 19:04
Pas de temps pour la philo, je passe la main en restant convaincu de ce que j'ai mis plus haut, suffit de regarder les offres d'emploi.
PS: Ne va pas croire qu'il n'y a que les crétins qui se mettent à leur compte.
12 avril 2006 à 18:53
12 avril 2006 à 16:17
je suppose que BruNews est a l'origine de la suppression du dexuième doublon...
résultat des courses, je n'ai pas lu ta réponse....
12 avril 2006 à 14:56
Il gagne en expérience en cotoyant sur une base régulière d'autre "pisseur de pseudo code " diplômé universitaire et ingénieur et il gagne en débrouillardise en travaillant en plus seul dans son salon.
Il est capable de faire la différence entre une opération arithmétique et une comparaison. Il s'est ce qu'est une bonne habitude de programation avec un code clair et concis. Il code dans le day to day pour que n'importe qui qui ouvre son code puisse rapidement tout comprendre et avoir des points de repères précis.
Meilleur chance la prochaine fois BruNews. Tu peux sortir de quoi de plus intelligent que simplement dire : "Un bon programmeur solo est mieux qu'un pas bon programmeux en équipe." Tout le monde sait que les programmeux restent très longtemps en équipe sur de gros projets. Il ne se font jamais sortir au bout de quelques semaines c'est connu.
Ceci dit, as-tu un opinion mon pseudo champion du sophisme sur la présente situation qui est très basic. Où tu as peur de te mouiller et de ta faire étiqueter par toi-même de pisseur de code ?
11 avril 2006 à 22:14
Je crois (et même certain) que le pisseur de pseudo code du famameux 'gros' projet vaut quasi toujours bien moins que le mec seul dans son salon qui fera du prog sur commande.
11 avril 2006 à 20:36
renvoie vrai..... il faut donc mieux faire gaffe où l'on met les pieds, et prendre de bonnes habitudes
Renfield, il te manque vraiment de connaissance en langage de prog de base. Jamais travaillé dans de gros projet par équipe ?
Ton code doit être facilement lisible et parmi les standards donné au programmeurs, celui-là y est.
On ne veut pas apprend la table ascii par coeur. Alors on emploie le caractère.
Faut être de mauvaise foi pour ensuite tenter une comparaison ou une opération entre deux chiffre "hardcodé" en string.
Tu pars vraiment de loin. Tu vas rester longtemps en vb6 tout seul dans ton salon.
11 avril 2006 à 09:56
ça agit comme un StrComp...
là ou je dit non, c'est que :
"120" <= "90"
renvoie vrai..... il faut donc mieux faire gaffe où l'on met les pieds, et prendre de bonnes habitudes
d'autant que les evenements clavier (KeyPress ou KeyDown/Up) donne en parametre le code Ascii (Numérique, donc) des touches.... inutile alors de passer par une chaine de caractère...
VB ne gère pas ça comme en C, où 't' équivaut à marquer 116 (à un cast près, parfois)
11 avril 2006 à 08:48
"une String superieure a une autre, ca n'a pas de sens"
Je suis désolé mais c'est au contraire tout à fait censé, il s'agit ni plus ni moins d'une comparaison de chaînes.
Le code derrière cela fonctionne en comparant les chaînes octet par octet jusqu'à arriver à la plus petite des deux chaînes.
Nul besoin de conversion de type pour comparer cela.
Il faut raisonner C++ ou assembleur, et en C++ il est possible de comparer des "char", sans conversion car un char Ascii est la même chose qu'un nombre entre 0 et 255.
Utilité de comparaison de chaînes ?
- Recherche dichotomique (dans un tableau trié on teste l'élément du milieu, s'il est 'inférieur' à notre clé de recherche le programme teste le milieu entre le milieu du tableau et la fin etc.)
- Comparaison de dates. Je trouve Microsoft (VB, access, ASP) particulièrement compliqué avec ses dates aux formats changeants (et buggés). En PHP une date est "yyyy-mm-dd hh:nn:ss" ce qui rend la comparaison de dates simple: il suffit de comparer deux chaînes de même longueur, ce qui est encore plus simple.
15 déc. 2004 à 22:51
retour à la case départ, voici le * c'est à dire le p la touche fn doit être pressée pour avoir le p.
seule solution enlever la ligne qui bloque la clavier
'Call TurnOn(VK_NUMLOCK)
ensuite c'est encore bloqué, et la seule solution est de demander l'antidote, efficace, mais une usine à gaz !
En conclusion; ce code est incomplet, car il ne tient pas compte des configurations régionales, qui elles sont paramétrées avant de lancer ce petit programme.
A compléter donc pour le bien de tous !
12 nov. 2004 à 12:49
"Les plaisanteries les plus courtes sont toujours les meilleures."
12 nov. 2004 à 10:23
http://support.microsoft.com/?id=177674
12 nov. 2004 à 10:01
Alors, à chacun son point de vue !
10 nov. 2004 à 23:12
codes qui plante sans savoir expliquer ce qui se passe
q4e fa5re -a5ntenant, voila ce qui se passe 0
merci pour les conseils.ca modifie des fichiers system q4e 6n ne peut pas modifier !
10 nov. 2004 à 15:24
10 nov. 2004 à 14:42
dePUIS MON CLAVIER N'EST PLUS CONFIGURE ...
IMPOSSIBLE DE RECONFIGURER
-ercI POUR VOTRE AIDE0 JE DOIS APPUYER SUR FN POUR
TROUVER LA BONNE TOUCHE
xP RECHARGE MAIS IDEM
RUNTIME IMPOSSIBLE A TROUVER
2 nov. 2004 à 10:19
Dans le cadre d'un calcul scientifique, on aurait pu espérer saisir une puissance de 10. Or, il est impossible de saisir le caractère "E" qui définit la mantisse pour le système. Ce contre exemple peut suffire pour exclure
la gestion par l'API.
exemple sytème:
val("2E3") = 2000
29 oct. 2004 à 20:07
c >= "0"
ca fait du sens. L'ordinateur de comprend pas les lettres. Il met le tout en binaire. Pour le caractere, il le met en ASCII automatiquement. C'est sa reference. C'est pourquoi l'ordonnancement de la table ASCII. Les 128 premiers caractères sont standardisé justement pour effectué ce type d'opération. Le A est plus pett que le Z. Aucune conversion necessaire. Les langages sont prévu pour cela, vb aussi.
Ce code est tirer de mes applis en VB que je developpe pour mon employeur.
Ce code :
Dim Style As Long
Style = GetWindowLong(Text1.hwnd, GWL_STYLE)
SetWindowLong Obj.hwnd, GWL_STYLE, Style Or ES_NUMBER
Doit etre appelé pour chaque textbox...
Tk, j'ai ton contact dans mon msn... Je te jaserai un moment donné.... Ca 'interresse.
29 oct. 2004 à 18:05
c >= "0"
String >= String
pour moi... ca n'a aucun sens. En C, oui, je serai d'accord...
de toute facon, tu fais dans ton code un chr ( KeyAscii) qui lui demande une certaine opération à VB...
(au pire, tu peux utiliser des constantes, et VbKey0 deviens d'un coup assez lisible...)
bref, on va pas s'eterniser là dessus ;-)
Dim Style As Long
Style = GetWindowLong(Text1.hwnd, GWL_STYLE)
SetWindowLong Obj.hwnd, GWL_STYLE, Style Or ES_NUMBER
ceci est a appeler une fois au début du programme, pour un TextBox donné. Ca chenge une propriété interne au controle (sur lequel on aurait eu la main avec un CreateWindowEx).
avec le style ES_NUMBER, Windows gère lui même la saisie pour des chiffres uniquements (plus touches 'systeme' a savoir Backspace, prese papier...) mais pas de vérification du presse papier
29 oct. 2004 à 17:47
Mais ce genre de conversion inutile [...] le code Ascii du caractère suffit pour faire des comparaisons... pas besoin de traduire en chaine, et de comparer avec une chaine derriere, surtout pour une comparaison du genre de :
c >= "0" Cette comparaison est entierement numerique. Elle a l'avantage d'etre tres clair et compréhensible pour l'humain. Une caractere pour toi est simple a lire. Donc pas la peine de mettre directement le code ascii.
Une fois compilé, c'est le code ascii qui est prit en compte. Pas de transtypage (conversion de type).
C'est ce qui est enseigné a l'université. Mais on ne travaille pas en VB....
Si le code suivant apporte des avantages j'aimerais connaitre lesquels le plus objectivement possible.
Dim Style As Long
Style = GetWindowLong(Text1.hwnd, GWL_STYLE)
SetWindowLong Obj.hwnd, GWL_STYLE, Style Or ES_NUMBER
Pour moi ce n'est pas naturel du tout. Donc, je ne me querelle pas, je veux apprendre point.
29 oct. 2004 à 11:06
Conventions de programmation:
- utiliser de préférence du code géré (API),
- optimiser l'exécution (réduire au max. le niveau de complexité),
- commenter correctement le code.
29 oct. 2004 à 10:47
- valeur par défaut
- caractères autorisés
- caractères interdits
- plage de valeurs possibles
- format de saisie
c'est un point assez interessant, je dois dire
29 oct. 2004 à 09:41
- le type (nbre entier, réel ou monétaire),
- le format (options régionales),
- l'affichage,
- le menu contextuel (presse papier).
Par conséquent, il faut apporter, par exemple, une réponse pour le nbre de décimales et du format (options régionales par défaut) d'une saisie monétaire.
Un projet doit toujours être abordé sous l'angle fonctionnel et technique.
29 oct. 2004 à 09:31
je veux dire que c'est totalement illogique surtout. On n'est pas a qqs cycles processeurs pret, surtout que l'utilisateur saisi son texte lentement, comparé a la vitesse d'un PC, même ancien.
Mais ce genre de conversion inutile traduit une logique un peu bancale.... le code Ascii du caractère suffit pour faire des comparaisons... pas besoin de traduire en chaine, et de comparer avec une chaine derriere, surtout pour une comparaison du genre de :
c >= "0"
puisque VB, pour le coup doit (a priori) retraduire ca en entiers.... une String superieure a une autre, ca n'a pas de sens
pour la virgule, pas de malaise particulier, ton code gère les entiers...
28 oct. 2004 à 17:40
-> Perte de temps pour qui ? Le cpu ? Pourquoi tu travaille en vb6 dans ce cas ? Au Quebec, les entreprises sont tous équipés de Pentium au minimum comme pc...
Donc la gestion d'un text box ne pose pas probleme.
la virgule n'est pas gérée ici (on le sais a l'avance ;-) ) -> Gestier des entiers avec virgule, dit m'en plus stp.
le presse papier n'est pas à la fête non plus.
-> Tu peux copier mais pas coller. Effectivement.
28 oct. 2004 à 16:46
http://faq.vb.free.fr/index.php?question=80
28 oct. 2004 à 12:23
Le menu personnalisé est très incomplet au niveau fonctionnel. Je le complèterai plus tard avec la création d'un contrôle utilisateur afin d'encapsuler le code.
28 oct. 2004 à 09:26
on pourrait imaginer :
Private Sub txtreference_KeyPress(KeyAscii As Integer)
' On limite a des chiffres et le backspace comme caractères autorisés dans le
' textbox du numero de référence
If Not estChiffre(KeyAscii) And Not KeyAscii 8 Then KeyAscii 0
End Sub
Function estChiffre(c As Integer) As Boolean
estChiffre = c <= 57 And c >= 48
End Function
la virgule n'est pas gérée ici (on le sais a l'avance ;-) ) le presse papier n'est pas à la fête non plus.
comme je l'ai dit, pour du numérique (entier), il suffit d'insérer ces lignes, Windows s'occupe du reste.
Dim Style As Long
Style = GetWindowLong(Text1.hwnd, GWL_STYLE)
SetWindowLong Obj.hwnd, GWL_STYLE, Style Or ES_NUMBER
27 oct. 2004 à 21:40
Tu saisis le tout en string. Et tu standardise sur le lost focus.
si tu entre 0002. Str -> entier = 2. Ensuite tu remet le 2 dans le text box. C'est instantané et en une ligne.
KISs -> Keep It Simple.
C'est ce que j'utilise en entreprise et je n'ai jamais eu de problème à l'usage. (1200 utilisateurs).
Ya peut-être de quoi dans votre problème que je ne saisit pas.
27 oct. 2004 à 18:04
Je pense mettre à jour une version propre pour demain.
Finalement, c'est un bon exercice.
27 oct. 2004 à 17:17
Private Sub txtreference_KeyPress(KeyAscii As Integer)
' On limite a des chiffres et le backspace comme caractères autorisés dans le
' textbox du numero de référence
If Not estChiffre(chr(KeyAscii)) And Not KeyAscii 8 Then KeyAscii 0
End Sub
Function estChiffre(c As String) As Boolean
estChiffre = c <= "9" And c >= "0"
End Function
Même principe pour limiter les lettres ou tout autres caractère...
27 oct. 2004 à 13:46
27 oct. 2004 à 13:36
tu ajoutes néanmoins un controle des virgules... avec le separateur issu des options regionales, et ça ca me plait
000002 devrais etre affiché sous la forme 2
on y trouve aussi le forcage du pavé numérique, je trouve pas ca terrible de venir toucher ca...
de plus, tu bloques Ctrl + C / V / X et il est toujours possible de faire Btn Droit / coller et d'y placer du texte
autre chose, si l'on clique dans la zone de texte, l'alignement change, mais le selstart n'est pas là où l'on a cliqué.
pour du numérique (entier) :
Dim Style As Long
Style = GetWindowLong(Text1.hwnd, GWL_STYLE)
SetWindowLong Obj.hwnd, GWL_STYLE, Style Or ES_NUMBER
27 oct. 2004 à 13:20
L'ami, je crois que tu confonds usine et micro entreprise.
27 oct. 2004 à 12:38
je veux dire, un simple Get/SetWindowLong et on en parle plus....