Discussion :

[charif591]

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 ?

[SfJ5Rpw8]

on peu voir le code utilisé ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[iclic]

Bonjour,

Où alors utilise la fonction Val

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[charif591]

Salut

merci pour votre aide

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

[OhMonBato]

Bonjour,

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

[charif591]

le code:

'calculer:
dans commande1 click()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
label1.caption = val(text1.txt) * 3.14
text3.txt = label1.caption / val(text2.txt)

'Effacer
dans commande2 click()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[charif591]

je vous remercie tous

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 ++

[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+

[ProgElecT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Overcrash]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[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 ...

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

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

[Overcrash]

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 ...

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é.

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[iclic]

D'où le test nécessaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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