Petits calculs arithmétiques

Version imprimable

salut,
je crois que je rate une meilleure occasion de me taire,mais là j'ai du mal pour une chose aussi simple.
J'ai un code qui doit me permettre de faire de petit calcul,somme par si,multiplication par là.
Bref,syntaxiquement mon code est correct,reste l'affichage du résultat dans ma page aspx.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
<html>
 
   <script language="VB" runat=server>
 
       Sub Calcul(ByVal d1 As Integer, ByVal d2 As Integer)
 
 
           Dim total1 As [Decimal] = CDec(TextBox6.Text)
           Dim total2 As [Decimal] = CDec(TextBox7.Text)
           Dim totaux As [Decimal] = CDec(TextBox3.Text)
           TextBox6.Text = CInt(TextBox1.Text) * CInt(TextBox2.Text)
           TextBox7.Text = CInt(TextBox4.Text) * CInt(TextBox5.Text)
           TextBox3.Text = CInt(TextBox6.Text) + CInt(TextBox7.Text)
       End Sub
 
 
 
   </script>
 
   <body>
 
     <form runat="server"> 
         <br />
         <br />
         Indemnités:<br />
         <br />
       <asp:TextBox ID="TextBox1" runat="server" Width="120px"></asp:TextBox>
         pour
       <asp:TextBox ID="TextBox2" runat="server" Width="82px"></asp:TextBox><br />
         total<asp:TextBox ID="TextBox6" runat="server" Width="92px"></asp:TextBox><br />
         <br />
         <br />
         Frais d'hotel:<br />
         <br />
         <asp:TextBox ID="TextBox4" runat="server" Width="114px"></asp:TextBox>
         pour
         <asp:TextBox ID="TextBox5" runat="server" Width="81px"></asp:TextBox><br />
         total<asp:TextBox ID="TextBox7" runat="server" Width="88px"></asp:TextBox><br />
         <br />
         Totaux :<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
      </form>
 
   </body>
 
</html>

un petit coup de main,S'il Vous Plait!!
merci

19/06/2007, 10h37
SaumonAgile

Peux tu préciser ta question ? Quel est le problème exactement ? Erreur de compilation ? Exception ?

Merci.
19/06/2007, 11h09
mirela

salut et merci
en faite,je veux juste afficher le résultat dans les textbox ou dans un label.
19/06/2007, 15h07
SaumonAgile

Qu'est ce qui ne fonctionne pas dans le code que tu as posté ?
Je pense que tu peux ajouter un bouton dans ta page, et dans l'événement clic du bouton, tu appelles la fonction que tu as définie.
Est ce que c'est ce que tu recherches ?
19/06/2007, 17h38
mirela

SALUT

je crois que syntaxiquement,mon code est erroné; j'ai essayé de mettre un bouton pour avoir un résultat lorsque je clique mais

Code:

Erreur: Le format de la chaîne d'entrée est incorrect.

en faite mon problème est assez simple,je veux avoir une page qui me permet de faire des calculs du genre:

PU1 * qte1 = total1
PU2 * qte2 = total2

totaux = total1+total2

Je crois que j'ai un problème au niveau des formats!!!!
19/06/2007, 17h42
getule

je crois qu'il te manque un objet declanchant l'évenement.
un bouton_clic.
l'evenement clic procèdera au calcul . à condition que ton code est y dans la procédure bouton_clic.
19/06/2007, 17h57
mirela

merci,
mais j'ai déjà un évenement déclencheur!!!

Code:

1 2 3 Dim total1 As [Decimal] = CDec(TextBox6.Text) Dim total2 As [Decimal] = CDec(TextBox7.Text) Dim totaux As [Decimal] = CDec(TextBox3.Text)
enlève les affectations, car ils gènent..au début ils sont à Nothing, donc impossible de convertir Nothing à Décimal,

mets plutôt :

Code:

1
2
3
4
 
 Dim total1 As [Decimal] 
           Dim total2 As [Decimal] 
           Dim totaux As [Decimal]

20/06/2007, 12h34
mirela

merci :king: c'est justement çà!
çà fonctionne!
A++