Valeur par défaut dans un textbox ?

Version imprimable

08/11/2010, 19h50
charif591

Valeur par défaut dans un textbox ?

Salut

je fait un programme de calcule:

deux textbox et un bouton calculer et un autre pour effacer,

Si j'écris dans les textbox et j'appuie sur le bouton calculer , le programme donne le résultat.

Si je clique sans entrer les valeurs , un message d'erreur apparait.

est ce qu'il y a une méthode pour donner la valeur zéro ( par défaut )à textbox ?

:roll:
08/11/2010, 19h56
SfJ5Rpw8

on peu voir le code utilisé ?
08/11/2010, 23h18
l_autodidacte

Salut;

La valeur par défaut d'un TextBox est, comme son nom l'indique, un texte(chaîne de caractères).

Si tu fais des calculs(donc nombre<>texte) sans entrer de valeur numérique, l'erreur (type incompatible) se produit car ton programme lit une chaîne vide.
Essaie d'utiliser ce

Code:

If IsNumeric(Text1) Then MsgBox Text1.Text ^ 5

dans l'évènement Click du bouton de calcul et tu verras que même si le TextBox est vide il n'y aura pas de message d'erreur.

Bonjour,

Où alors utilise la fonction Val

Code:

1
2
3
4
5
6
 
Dim Nombre as Single
 
Text1 = ""     'si chaîne nulle la fonction val donne 0
Text1 = Replace(Text1, ",", ".")     'La fonction Val ne reconnaît que le point      'comme séparateur décimal (.).
Nombre = Val(Text1)        'Pas d'erreur Type incompatible

09/11/2010, 14h44
charif591

Salut

merci pour votre aide :P

le programme me donne toujours le message suivant :

Run-time error '6'
Overflow

mais il fait très bien le calcule.
j'utilise les textbox et aussi les labels.

j'ai fait datachanged = false sans résultat ?

merci encore ;)
09/11/2010, 14h53
OhMonBato

Bonjour,

montre nous ton code stp, ce sera plus simple de comprendre ce qui se passe.

le code:

'calculer:
dans commande1 click()
Code:

1 2 label1.caption = val(text1.txt) * 3.14 text3.txt = label1.caption / val(text2.txt)
'Effacer
dans commande2 click()
Code:

1 2 text3.txt = "" text2.txt = ""
;)

09/11/2010, 19h22
babaothe

salut

en dehors du fait qu'un label contient du type String :
c'est quoi, cette propriété txt (que j'ignore) d'une TextBox ?
09/11/2010, 20h02
charif591

je vous remercie tous :ccool:

Remarques:

l'important est de calculer , s'il y a un message d'erreur ce n'est pas grave;
sa dérange un peut mais ...

a ++

:zoubi:
09/11/2010, 20h57
iclic

Non pas d'accord, on ne reste pas sur un message d'erreur.

La programmation n'est pas de 'l'a peu près" je regrette.

A+
09/11/2010, 21h20
ProgElecT

Citation:

Envoyé par l_autodidacte

Salut;

La valeur par défaut d'un TextBox est, comme son nom l'indique, un texte(chaîne de caractères).

Si tu fais des calculs(donc nombre<>texte) sans entrer de valeur numérique, l'erreur (type incompatible) se produit car ton programme lit une chaîne vide.
Essaie d'utiliser ce

Code:

If IsNumeric(Text1) Then MsgBox Text1.Text ^ 5

dans l'évènement Click du bouton de calcul et tu verras que même si le TextBox est vide il n'y aura pas de message d'erreur.

Bonsoir,

Si j'ai bien compris ce que tu veux faire :

avec deux textboxs + un label et deux boutons un calculer, un remise a 0.

Bouton calculer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Calcbutton_Click()
    If Not (IsNumeric(TextBox1.Text)) Then
        MsgBox ("Textbox1 : Merci de saisir uniquement des chiffres !")
        TextBox1.Text = ""
    ElseIf Not (IsNumeric(TextBox2.Text)) Then
        MsgBox ("Textbox2 : Merci de saisir uniquement des chiffres !")
        TextBox2.Text = ""
    Else
        Label1.Caption = CInt(TextBox1.Text) + CInt(TextBox2.Text)
    End If
 
End Sub

Bouton ras :

Code:

1
2
3
4
5
Private Sub rasbutton_Click()
    TextBox1.Text = ""
    TextBox2.Text = ""
    Label1.Caption = "0"
End Sub

Si tu as pas compris quelque chose fais signe.
En revanche je ne sais pas ou tu as trouvé ton Textbox.txt ...

10/11/2010, 18h15
charif591

salue

merci beaucoup.

le problème : même si j'écris zéro dans les textbox le message d'erreur apparait.

Mais si le nombre est différent de zéro tous est bien.

Et j'écris vite c'est text1.text ...:oops:

isnumeric... m'affiche d'autres messages...

je travail avec vb6 , je suis débutan , j'ai pas comprie rasclick...
10/11/2010, 18h18
Overcrash

Citation:

Envoyé par charif591

salue

merci beaucoup.

le problème : même si j'écris zéro dans les textbox le message d'erreur apparait.

Mais si le nombre est différent de zéro tous est bien.

Et j'écris vite c'est text1.text ...:oops:

isnumeric... m'affiche d'autres messages...

je travail avec vb6 , je suis débutan , j'ai pas comprie rasclick...

Le rasbutton_Click est le nom de mon bouton et c'est la code qui sera effectué quand je cliquerai sur le bouton.

Montre moi a nouveau le code une fois modifié.
13/11/2010, 20h30
Overcrash

Bonsoir,

Si tu écris rien dans les textbox oui il met l'erreur car il va considérer que c'est une chaine de caractère.

Si tu met "0", en revanche là ça marche :)
14/11/2010, 01h13
babaothe

Et la valeur (par utilisation de la fonction Val) d'une chaîne vide est = 0
ainsi : Val(Text2.txt) ===>> 0 si rien dans text2
Il en va de même si on met "0" dans text2 et ainsi donc :

Code:

text3.txt = label1.caption / val(text2.txt)

est une division par zéro si on a "" ou "0" dans text2

D'où le test nécessaire

Code:

1
2
 
if val(text2.Text) <> 0 then  'on fait le traitement sinon exit sub