Discussion :

[surf4you]

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 :

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

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




merci d'avance pour votre aide

[shayw]

Bonjour

utilise un numericupdown au lieu d'un textbox

[surf4you]

Bonjour et merci ça fonctionne parfaitement

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 :

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

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 :

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

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

[ACIVE_CS]

Bonjour,

Essaie :

Code :

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

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

[shayw]

Bonjour

Bonjour et merci ça fonctionne parfaitement

pas vraiment

déja coche option explicit et option strict on
1 clique projet

2 clique ton projet propriété

3 clique compile

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 :

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

 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

[ACIVE_CS]

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

[surf4you]

Ok super, bon je ne suis pas sortie du cambouis

VB est moins arrangeant avec ces options

bref je vais continuer à potasser merci à vous

[ACIVE_CS]

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.