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