Rajouter un chiffre dans une TextboxRésolu

Question

Bonjour, j'espère que je ne me suis pas trompé de Forum 

J'essaye de créer une calculatrice pour ajouter dans un programme en VB2005. Seulement, si je met un code comme ceci :

Public

Class calculatrice

Private
Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.ClickTextBox1.Text = 1

End
Sub

Private
Sub Button2_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button2.ClickTextBox1.Text = 2

End
SubEnd

Class

Il ne rajoute pas un chiffre après l'autre dans le TextBox, il met uniquement un seul chiffre. Pouvez-vous m'aider ?

Merci d'avance

nhervagault · Accepted Answer

Salut

Alors pour les calculatrices c'est pas les exemples qui manque sur le
site tu devrais en trouver au moins 15 ou 20 sources

TextBox1.Text += 2
Ou 
TextBox1.Text = TextBox1.Text +2

Deplus tu peux gagne un peux de code en codant 
Et en 3 lignes tous tes chiffres sont codé
Apres du fait de meme pour les operateurs en 3 lignes + - * / doivent
etre codé. 

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, ButtonX.Click , ....(X de 2 
à 9) 

TextBox1.Text += CType(sender, Button).Text 

End Sub

Bon courage

cs_Exploreur · Answer

Salut,

A defaut d'avoir de futur problème, je dirais que dans son cas précis, il devrait utiliser le carractère de concaténation : & , ainsi,

TextBox1.Text = TextBox1.Text & 2 

A+
Exploreur

 Linux a un noyau, Windows un pépin

Dri60 · Answer

Merci ça fonctionne

mstarsup5 · Answer

Oui, d'accord avec exploreur, utilise & pour concaténer des chaînes plutôt que +, ça t'évitera bien des problèmes plus tard

 Pourapprendretoujoursplus!

mstarsup5 · Answer

(et je rajouterais aussi les guillemets pour  "2", et pas 2 ^^")

 Pourapprendretoujoursplus!

Dri60 · Answer

Merci pour ces conseils

Dri60 · Answer

J'ai une autre question : Pour calculer des Racines Carrées, comment faut-il faire ?

mstarsup5 · Answer

Ca devrait être la commande sqrt() si je ne m'abuse... sinon, bah... une racine carrée, c'est une puissance 1/2, et le signe pour faire une puissance c'est ^   ...

 Pourapprendretoujoursplus!

nhervagault · Answer

Vas faire un tour dans la bilbliotheque Math de dotnet
http://msdn2.microsoft.com/en-us/library/system.math_methods.aspx

Et tu trouveras surement plus de fonctions que tu le souhaites.
Et des exemples au passage


Bon courage

Dri60 · Answer

Merci

Dri60 · Answer

Voilà, j'ai encore un problème (à vrai dire, ça m'arrive souvent). Est-ce que le code ci-dessous est Correct ? Car VB2005 m'affiche une erreur :

Sub

 CalculAN2()

Dim numAN 
As
String

Dim numAC 
As
String

Dim numMN 
As
String

Dim numBC 
As
StringnumAC = TextBox4.Text

numMN = TextBox5.Text

numBC = TextBox6.Text

numAN = Int(numMN * numAC) / Int(numBC)

LabelAN.Text = numAN
LabelDonc.Text "Donc AN " & numAN & 
" cm"LabelAM.Text = TextBox1.Text

LabelAB.Text = TextBox2.Text

LabelAC.Text = TextBox4.Text

LabelMN.Text = TextBox5.Text

LabelBC.Text = TextBox6.Text

End
SubJ'essaye de faire en Sorte qu'il calcule  la Longueur AN pour le Théorème de Thalès. Merci d'avance.

mstarsup5 · Answer

Salut,

3 trucs à changer:
>     numAN = val(numMN) * val(numAC) / val(numBC)
>     LabelAN.Text = str(numAN)>     LabelDonc.Text "Donc AN " & str(numAN) & 
" cm"

(en espérant que val et str marchent aussi bien en VB2005 que ce qu'ils marchent en vb6 (ie: que c'est la même syntaxe :p))

 Pourapprendretoujoursplus!

mstarsup5 · Answer

(Il faut bien que tu fasses la différence entre nombres et chaînes de caractères, c'est pas pareil... multiplier ou diviser des chaînes de caractères, ça n'a pas de sens, de même que concaténer des nombres...

 Pourapprendretoujoursplus!

nhervagault · Answer

Salut

Pour info

Il faut éviter d'utiliser des fonctions de compatibilté de vb6
Il est recommandée d'utiliser

Ctype(textbox1.text,integer) ou ctype(textbox1, double)

A la place de val

et 

Ctype(valeur, string) à la place de cstr

C'est plus sur et rapide que les fonctions de compatibilité
Je recommande de travailler en vb.net en explicit et strict à "on"
et de supprimer la référence à microsoft.compatibility.vb6

Ca donne une programmation, plus objet 
surtout pour la manipulation des chaines et la gestion des types.

La syntaxe des fonctions vb6 est pour moi à banir des programmes vb.net.

Bon courage.

Dri60 · Answer

Merci, mais en Mettant String, sa fait des Arrondis à l'unité. Il faut mettre Decimal alors pour un resultat exact ?

Dri60 · Answer

Salut,
Ce code ne marche pas, pourtant j'ai fait les modifs que vous avez dites :

Sub

 CalculAM1()

Dim numAM 
As
StringnumAM = 

CType(TextBox2.Text, 
Integer) * 
CType(TextBox3.Text, 
Integer) / 
CType(TextBox4.Text, 
Integer)LabelAM.Text = 

CType(numAM, String)LabelDonc.Text "Donc AM " & 
CType(numAM, 
String) & 
" cm"LabelAB.Text = TextBox2.Text

LabelAN.Text = TextBox3.Text

LabelAC.Text = TextBox4.Text

LabelMN.Text = TextBox5.Text

LabelBC.Text = TextBox6.Text

End
Sub
Que faut-il changer ? Merci.

 Dri60

nhervagault · Answer

Salut

Ou est l'erreur?

Et numAM a est de type double ou decimal mais pas string en tout cas.

Tu as un debogueur puissant avec dotnet
tu mets un point d'arret et tu regarde le contenu des variables
ajout un espion / add watch
et dans la fenetre local il y a les variables en cours aussi
en fonction des exceptions levées tu trouveras surement d'ou vient le probleme.

Bon courage

Dri60 · Answer

Ok Merci. Sinon, je demande toutes ces Choses pour Faire un Programme qui résoud les Problèmes de Maths  Si vous avez des idées, n'hésitez pas 

 Dri60

Rajouter un chiffre dans une Textbox

18 réponses

Votre réponse

Discussions similaires