Valeur par défaut & incrémentation

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous et bonne année ;)

alors voilà j'ai réaliser un petit programme assez basic pour faire quelques calcules
et j'ai quelques questions ou je bloque en gros je sèche total :-)

voici la formul pour le calcul
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Function Calcul(ByVal DIA As Double, ByVal ANG As Double) Calcul = (TXT_DIA.Text / 2) / (Tan(((TXT_ANG.Text) / 2) * pi / 180)) Return Calcul End Function Function Calcul2(ByVal LG_ETAGE As Double, ByVal LG_TOTAL As Double, ByVal SUR As Double) Calcul2 = LBL_CALCUL.Text - TXT_LG_TOTAL.Text + TXT_LG_ETAGE.Text - TXT_SUR.Text Return Calcul2 End Function
pour finaliser le tout, je souhaite assigner une fonction d'incremantation pour un textebox (TXT_SUR.Text) avec une valeur par défaut au depart de 0,2 non modifiable par l'utilisateur
saur à partir de deux boutons + & - ce qui modifiera la valeur (env) de +0.1 et -0.1

Pièce jointe 165275

merci d'avance pour votre aide

03/01/2015, 20h27
shayw

Bonjour

utilise un numericupdown au lieu d'un textbox

Bonjour et merci ça fonctionne parfaitement :ccool:

j'ai encore une petite question

j'ai beau potassé le sujet mais j'arrive pas à réduire le résultat à 3 décimales

j'ai toujours un résultat ex 95,1231542145786 et j'aimerais bien 95,123

merci pour votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub BT_CALCUL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_CALCUL.Click
 
If Verification() Then
 
            Me.LBL_CALCUL.Text = Calcul(Me.TXT_DIA.Text, Me.TXT_ANG.Text)
            Me.LBL_CALCUL2.Text = Calcul2(Me.TXT_LG_TOTAL.Text, Me.TXT_LG_ETAGE.Text, Me.Num_SUR.Value)
 
    Else
 
            Me.LBL_ERR.Visible = True
End If
 
    End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Function Calcul(ByVal DIA As Double, ByVal ANG As Double)
 
        Calcul = (TXT_DIA.Text / 2) / (Tan(((TXT_ANG.Text) / 2) * PI / 180))
 
        Return Calcul
    End Function
 
    Function Calcul2(ByVal LG_ETAGE As Double, ByVal LG_TOTAL As Double, ByVal Num_SUR As Double)
 
        Calcul2 = (LBL_CALCUL.Text - TXT_LG_TOTAL.Text) + (TXT_LG_ETAGE.Text - Num_SUR) / 100
 
        Return Calcul2
 
    End Function

Bonjour,

Essaie :

Code:

1
2
3
4
5
6
Private Function Calcul(ByVal DIA As Double, ByVal ANG As Double) As Decimal
        Dim Num As NumericUpDown
        Num.DecimalPlaces = 3
        Num.Value = (TXT_DIA.Text / 2) / (Tan(((TXT_ANG.Text) / 2) * PI / 180))
        Return (Num.Value)
    End Function

04/01/2015, 22h32
shayw

3 pièce(s) jointe(s)

Bonjour

Citation:

Bonjour et merci ça fonctionne parfaitement

pas vraiment

déja coche option explicit et option strict on
1 clique projet Pièce jointe 165324

2 clique ton projet propriété Pièce jointe 165325

3 clique compile Pièce jointe 165326

4 coche option strict on et option explicit on

recompile ton projet et ne pas désespérer les erreurs sont la pour tu apprennes

ex

Code:

Calcul = (TXT_DIA.Text / 2) / (Tan(((TXT_ANG.Text) / 2) * PI / 180))

TXT_DIA.Text est un string tu ne peux pas appliquer une opération mathématique il faut le convertir en double
est ce TXT_DIA est un textbox ? si oui utilise un numericupdown ainsi pour tes autres textboxes
04/01/2015, 23h08
ACIVE_CS

1 pièce(s) jointe(s)

Oui, soit comme dit Shayw, soit procéder comme l'mage ci-dessous et aussi décocher la case "microsoft visual basic" pour ne pas travailler avec du VB6 (je viens de le dire à quelqu'un d'autre) :
Pièce jointe 165332
05/01/2015, 07h22
surf4you

:aie::aie::aie::aie::aie::aie::aie::aie:

Ok super, bon je ne suis pas sortie du cambouis

VB est moins arrangeant avec ces options

bref je vais continuer à potasser merci à vous
05/01/2015, 10h06
ACIVE_CS

Citation:

VB est moins arrangeant avec ces options

Justement, ça va t'empêcher de commettre des erreurs
D'une part on supprime le code VB6, puisqu'on est en VB.Net
Et les options à ON t'empêche de faire des "bêtises" du genre l'addition d'un integer avec un double, par exemple
Même si dans la pratique ça peut se faire il te met une erreur car ça peut devenir un problème plus tard.