Addition sur VB6
cs_faress1
Messages postés
17
Date d'inscription
lundi 11 août 2008
Statut
Membre
Dernière intervention
3 septembre 2008
-
25 août 2008 à 13:00
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 25 août 2008 à 16:20
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 25 août 2008 à 16:20
3 réponses
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
25 août 2008 à 13:04
25 août 2008 à 13:04
Bonjour,
Ouais ...
Nous voilà vachement bien renseignés ... sans même savoir si tes textboxes permettent la saisie de nombres décimaux et (dans un tel cas) quel séparateur de décimales y est admis ...
Ah ! ... la précision des questions ! ...
Ouais ...
Nous voilà vachement bien renseignés ... sans même savoir si tes textboxes permettent la saisie de nombres décimaux et (dans un tel cas) quel séparateur de décimales y est admis ...
Ah ! ... la précision des questions ! ...
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
25 août 2008 à 13:22
25 août 2008 à 13:22
Salut,
Tu cherches sur le site le code d'une calculatrice, il y a en au moins une 20taine
et tu regardes comment ca fonction
Pour ecrire dans un label (c'est label1.caption = mavaleur) c'est une base ca ;-)
Bon coding
Tu cherches sur le site le code d'une calculatrice, il y a en au moins une 20taine
et tu regardes comment ca fonction
Pour ecrire dans un label (c'est label1.caption = mavaleur) c'est une base ca ;-)
Bon coding
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
2
25 août 2008 à 16:20
25 août 2008 à 16:20
Salut à tous
Un exemple parmi d'autres....
Dim a As String
Dim b As String
a = Me.Text1.Text
b = Me.Text2.Text
If IsNumeric(a) True And IsNumeric(b) True Then
Me.Label1.Caption = CDbl(a) + CDbl(b)
Else
MsgBox "Addition Impossible", vbInformation, "Addition"
End If
A+
Un exemple parmi d'autres....
Dim a As String
Dim b As String
a = Me.Text1.Text
b = Me.Text2.Text
If IsNumeric(a) True And IsNumeric(b) True Then
Me.Label1.Caption = CDbl(a) + CDbl(b)
Else
MsgBox "Addition Impossible", vbInformation, "Addition"
End If
A+
