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