Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2659 connectés 

  FORUM HardWare.fr
  Programmation

  [VB6]truc tout con

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB6]truc tout con

n°25550
tom64
Posté le 18-04-2001 à 13:20:20  profilanswer
 

Voilà ce ke g écrit :
 
Texte_prix_total.Text = Texte_prix_mat.Text + Texte_prix_usinage.Text + Texte_prix_trait.Text
 
Je rentre 3 entiers, un dans chaque text box et j'aimerai dans un 4ème avoir le résultat de la somme des 3 autres.
mais ça ne marche pas, ça me met les chiffres les uns à la suite des autres .
ex : si je rentre 12    puis     5     puis   7 il me sort 1257 au lieu de 24.
merci :o) :eek2:

mood
Publicité
Posté le 18-04-2001 à 13:20:20  profilanswer
 

n°25555
directinfo
Posté le 18-04-2001 à 13:32:26  profilanswer
 

Ceci m'interresse car je n'y arrive pas non plus

n°25565
thegti
La constipation se soigne ...
Posté le 18-04-2001 à 13:48:57  profilanswer
 

Explorateur d'objets:
 
Property Text As String
    Membre de VB.TextBox
    Renvoie ou définit le texte contenu dans le contrôle.
 
La propriété Text renvoie un string
Donc faut convertir

n°25589
tom64
Posté le 18-04-2001 à 14:19:45  profilanswer
 

je veux bien convertir alors, g déjà essayé mais je ne connais pas la fonction à utiliser

n°25590
duch
Posté le 18-04-2001 à 14:23:54  profilanswer
 

le blème c'est qu'il n'y a pas vraiment de type en VB6 donc qd tu fais 12 + 5 et que ça viens d'un champ il concatène les deux strings.
 
Essaie de faire une opération du genre (12*1) + (5*1) pour le forcer à utiliser des nombres
 
Texte_prix_total.Text = (Texte_prix_mat.Text*1) + (Texte_prix_usinage.Text*1) + (Texte_prix_trait.Text*1)
 
si ça fait pas une erreure du type type mismatch ça devrait marcher.


---------------
Webmaster du site de l'Île-Saint-Denis : http://www.lile-saint-denis.fr
n°25593
tom64
Posté le 18-04-2001 à 14:27:01  profilanswer
 

bien essayé, mais ça me met erreur de type.
merci kand même :)  
 
 
 
helppp please :cry:

n°25595
HelloWorld
Salut tout le monde!
Posté le 18-04-2001 à 14:27:57  profilanswer
 

alors Tom on en chie ???  
je t'avais prévenu ... :sarcastic:
 
utilise val(string) qui te renvoit le chiffre ...
 
Texte_prix_total = val(Texte_prix_mat) + val(Texte_prix_usinage) +val(Texte_prix_trait)  
 
méfie toi du "+" qui sert à concaténer des chaines ...
tu peux virer le .text qui est la valeur "par défaut" de l'objet text ...
 
bonne chance ...

n°25599
tom64
Posté le 18-04-2001 à 14:30:46  profilanswer
 

Merciiiiiiii
ça marche !!
 
dis moi, on se connait au fait???
 
encore merci :hap:

n°25603
HelloWorld
Salut tout le monde!
Posté le 18-04-2001 à 14:34:16  profilanswer
 

Il parrait "qu'on" a fait un projet "ensembles" ...

n°25605
tom64
Posté le 18-04-2001 à 14:36:29  profilanswer
 

mdr ok!!
alors comment se passe ton stage??
 
en fait, moi g preske finit mon logiciel mais là j'avais juste une couille à ce nievau puis aussi au niveau de l'accès de base de données sous VB mais now c bon, je l'ai fait

mood
Publicité
Posté le 18-04-2001 à 14:36:29  profilanswer
 

n°25609
HelloWorld
Salut tout le monde!
Posté le 18-04-2001 à 14:38:01  profilanswer
 

J'oubliais (pour les puristes) il faudrait faire :
 
Texte_prix_total = format( val(Texte_prix_mat) + _
val(Texte_prix_usinage) +val(Texte_prix_trait))
 
pour reconvertir ton nombre en string ...

n°25639
Hepil
Posté le 18-04-2001 à 15:13:39  profilanswer
 

oui mais avec des décimales, ça ne marchera plus !peut-être qu'avec listBox4 = Cdec(listBox1) + ... ???

n°25690
HelloWorld
Salut tout le monde!
Posté le 18-04-2001 à 16:31:44  profilanswer
 

T'es sûr ???
Si si ...
 décimales ... exponentielles ... ca prend tout ... (il me semble ... enfin je crois ... à 99%)
meme s'il y a des caracteres !!!
 
val("J'ai 20 ans et 2 mois" ) te renvoit 202 ...

n°25695
HelloWorld
Salut tout le monde!
Posté le 18-04-2001 à 16:39:00  profilanswer
 

Fast rewind ...
J'ai écris une connerie ... :o
202 c'est pour val("  20  2 du texte derriere" )
sinon
    val("  20  du texte 2  " ) => 20
    val(" du texte 20 2 " ) => 0
mais val("20.2" ) ou val("20 .  2" ) te renvoit 20.2, ca c'est pas une connerie. (val renvoit une valeur de type approprié)

n°25704
thegti
La constipation se soigne ...
Posté le 18-04-2001 à 16:50:23  profilanswer
 

Val renvoi un variant avec un sous type numérique que VB évalue lors de la conversion
Pour des conversions plus typées y'a:
CInt, CLng, CDbl, CStr, etc...

n°25710
HelloWorld
Salut tout le monde!
Posté le 18-04-2001 à 17:05:03  profilanswer
 

pendant qu'on est dans les conversions ...
g t pas arrivé à convertir un tableau d'integer en tableau de byte ( !!! le tableau garde la meme taille en nombre d'octets !!!)
ex : un tableau de 2 integer 10 , 20
devient un tableau de 4 bytes : 0,10,0,20 ...


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  [VB6]truc tout con

 

Sujets relatifs
un truc bien embêtant pour une installation de php4[VB6] : impression "paysage"
[VB6] DataGrid et menu deroulant via Button[VB6] Je vous offre du code source, à vous de l'améliorer.
AU SECOURS JE ME NOIE DANS VB6[VB6] DataGrid et DataList
Table access 2000 vers VB6 = bug ????????[VB6] Récupération du nom de l'utilisateur
[VB6] Faire du FTP asynchrone.....[VB6] Browser
Plus de sujets relatifs à : [VB6]truc tout con


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR