Button en surbrillance a la tabulation

Version imprimable

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:

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

18/10/2010, 09h59
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 ?

J'ai refait mon code qui me donne :

Code:

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:

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

18/10/2010, 13h37
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, ...
18/10/2010, 14h44
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 :cry:

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

Code:

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

19/10/2010, 09h39
Attila54

que dire sinon un gros merci, maintenant tout fonctionne a merveille du cote de mes conditions. Il faut maintenant que les calculs et les entrées ne soient pas "arrondies". Cela doit dependre de la facon dont je déclare le contenu de mes textbox.

Par exemple, j'ai fait

Code:

Text3.Text = Format(CCur(Text1.Text) + Val(Text6.Text)), "0.0000")

mais il me bouffe les arrondis parfois et sur les calculs ou les entrées j'ai besoin d'une précision a 4 chiffres après la virgule sans arrondi des données

Merci beaucoup :)
19/10/2010, 10h22
ostenhard

Pourquoi utiliser CCur et Val ?

CCur comprend une notion de format, c'est donc pour moi dangereux de l'utiliser pour des calculs. Un CDdl pour les deux convertira les string des textboxes en double, tu fais ton calcul et ensuite tu écris dans tes textboxes en appliquant un format à ce moment là !
19/10/2010, 10h33
chrismonoye

Bonjour,
oui du genre :

Code:

TextBox4.Text = String.Format("{0:N4}", CSng(TextBox2.Text) * CSng(TextBox3.Text))
19/10/2010, 10h35
champomy62

+1
19/10/2010, 15h27
Attila54

je vais passer par votre methode qui me semble effectivement bien meilleure (je dit "me semble" car je n'ai pas assez d'experience pour juger)

merci beaucoup a tous :)