Discussion :

[Attila54]

Bonjour,
Je precise dabors que je debute avec vb2010 express
Je travaille actuellement sur une petite apli en vb2010 express et je rencontr deux problemes surement tres simples mais pour moi tres compliques.

Probleme 1:
Voici les donnees :
5 Texbox : Textbox1, Texbox2, Textbox3, Texbox4 et Texbox5

un bouton Commandbutton de calcul

Textbox1: est egale a Une Texbox precedemment calculée que j'appelerai TextBoxa

TextBox2 est une valeur a entrer variant de -2.00 à +2.00

Je veux créer les cas suivants :
- Si TextBox1 < 0 et TextBox2 < 0 alors
Textbox3 = Textbox1 + Textbox2
Textbox4 = Textbox2 / Textbox1
Textbox5 = Textbox4 / 2

- Si TextBox1 < 0 et TextBox2 > 0 alors
Textbox3 = Textbox1 - Textbox2
Textbox4 = Textbox2 * Textbox1
Textbox5 = Textbox4 / 2

- Si TextBox1 > 0 et TextBox2 > 0 alors
Textbox3 = Textbox1 * Textbox2
Textbox4 = Textbox2 * 2
Textbox5 = Textbox3 / 4.500

- Si TextBox1 > 0 et TextBox2 < 0 alors
Textbox3 = Textbox1 - Textbox2
Textbox4 = Textbox2 * 3
Textbox5 = Sqr Textbox3

j'ai fait une boucle qui me donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
if Textbox1 < 0 then
            if Textbox2 < 0 then
               Textbox3 = Textbox1 + Textbox2
               Textbox4 = Textbox2 / Textbox1
            else
               Textbox3 = Textbox1 - Textbox2
               Textbox4 = Textbox2 * Textbox1
            end if
            Textbox5 = Textbox4 / 2
         else
            if Textbox2 < 0 then
               Textbox3 = Textbox1 * Textbox2
               Textbox4 = Textbox2 * 2
               Textbox5 = Textbox3 / 4.50
            else
               Textbox3 = Textbox1 - Textbox2
               Textbox4 = Textbox2 * 3
               Textbox5 = Sqrt(Textbox3)
            end if
end if

mais j'ai des buggs me disant que l'operateur +, * / > < Sqrt ne sont pas reconnus. Ceci même si je mets Textx.Text ou Val(Textx.text)

Problème 2 :
Je voudrais qu'a la tabulation, les differents "button" (des boutons de calculs) se mettent en surbrillance ou dans une autre couleur que celle habituelle afin d'eviter d'egarer les utilisateur du prog. Je ne trouve toutefois pas cette propriete dans les proprietes de mon bouton.
Un petit indice ???

merci beaucoup

[ostenhard]

Bonjour,

Pour commencer, il manque tous les .Text à tes textboxes pour accéder à la valeur de ceux-ci.

Ensuite TextBox.Text est de type string, il faut donc les convertir en numérique pour faire des opérations dessus.

Edit : pour la surbrillance, c'est du WPF, Winform, ASP.NET ?

[Attila54]

J'ai refait mon code qui me donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Sub Command1_Click()
Text1.Text = Text6.Text
If Text1.Text < 0 Then
                     If Text2.Text < 0 Then
                        Text3.Text = (Text1.Text) + (Text6.Text)
                        Text4.Text = (Text2.Text) / (Text1.Text)
                        Text5.Text = (Text4.Text) / 2
                        Else
                        Text3.Text = (Text1.Text) - (Text2.Text)
                        Text4.Text = (Text2.Text) * (Text1.Text)
                        Text5.Text = (Text4.Text) / 2
                     End If
If Text1.Text > 0 Then
                       If Text2.Text < 0 Then
                        Text3.Text = (Text1.Text) * (Text6.Text)
                        Text4.Text = (Text2.Text) * 2
                        Text5.Text = (Text3.Text) / 4.5
                        Else
                        Text3 = (Text1.Text) - (Text2.Text)
                        Text4 = (Text2.Text) * 3
                        Text5 = Sqr(Text3.Text)
                       End If
End If
End If
End Sub

ceci posé ca ne fonctionne toujours pas et j'ai l'impression que ma boucle ne traite pas les differents cas
j'ai declare mes textobx de la maniere suivante (exemple pour TextBox1) :

Code :

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

1
2
3
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
End Sub

[ostenhard]

La propriété Text des textbox est toujours de type string. Il faut convertir les valeurs dans un type numérique pour espérer faire des calculs dessus par exemple pour caster en int on fait CInt, en double CDbl, ...

[Attila54]

effectivement mantenant le calcul se fait mais .... pas conformément à mes instructions de départ, ce qui veut dire visiblement que ma boucle est mauvaise

[champomy62]

essaie plutot comme ça :
et tu ne fais pas une boucle mais une condition. Tu testes une condition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
 
 
Private Sub Command1_Click()
Text1.Text = Text6.Text
If Text1.Text < 0 Then
                     If Text2.Text < 0 Then
                        Text3.Text = (Text1.Text) + (Text6.Text)
                        Text4.Text = (Text2.Text) / (Text1.Text)
                        Text5.Text = (Text4.Text) / 2
                        Else
                        Text3.Text = (Text1.Text) - (Text2.Text)
                        Text4.Text = (Text2.Text) * (Text1.Text)
                        Text5.Text = (Text4.Text) / 2
                     End If
end if
If Text1.Text > 0 Then
                       If Text2.Text < 0 Then
                        Text3.Text = (Text1.Text) * (Text6.Text)
                        Text4.Text = (Text2.Text) * 2
                        Text5.Text = (Text3.Text) / 4.5
                        Else
                        Text3 = (Text1.Text) - (Text2.Text)
                        Text4 = (Text2.Text) * 3
                        Text5 = math.Sqr(Text3.Text)
                       End If
End If
End Sub