Discussion :

[canyouhelpme]

Bonjour, je developpe un petit programme qui calcule la densité (pour un projet en science et laboratoire de seconde)

Je travail donc sous visual basic express 2010.
J'arrive facilement à créer mon petit programme mais je veut lui ajouter 2 petites fonctionalités (via 2 checkButtons): La première est d'obtenir des résultat simplifié au lieu d'avoir: "la densité du produit recherché est", on a juste "densité:".
le deuxième checkButton montre le calcul fait.

J'y arrive très bien mais lorsque que je "check" les 2 checkbuttons en même temps, ça me donne bien le calcul mais pas le resultat simplifié.

Ce petit programme contient: (pour vous situez )

-1 textebox, oû l'utilisateur rentre la masse du produit, appelé ici: TXT_MASSE

-1 combobox, oû l'utilisateur choisit parmit les différents volume proposé, appelé ici: CB_volume
-1 label appelé ici: LBL_DENSITE

-1 bouton, appelé ici: Button1 (j'ai pas cherché loin oui ^__^)
-1 fonction appelé verification (dont j'explique le fonctionnement juste en dessous).
1 checkbox de resultat simplifié, appelé: CHK_Simplice
1 checkbow qui affiche les calculs, appelé: CHK_CALCUL

C'est tout je crois !!!

voici une partie du code, au niveau de la partie qui crée la fonction verification des valeurs (si il y a rien dans le text box ou il y a des lettres, messages d'erreurs, sinon c'est ok) et aussi la parti du bouton!! , les partis qui m’intéresse!

Code :

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

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
Function Verification() As Boolean
        Dim Bon As Boolean = True
        If Me.TXT_MASSE.Text Is Nothing Or Not IsNumeric(Me.TXT_MASSE.Text) Then
            Bon = False And MsgBox("Entrez des valeurs numeriques je vous pris", vbCritical, "Erreur dans le programme")
 
        End If
        Return Bon
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Verification() Then
            Me.LBL_DENSITE.Text = "la densité du produit recherché est " & Me.TXT_MASSE.Text / Me.CB_volume.Text 'pas de case coché
 
        Else
            If CHK_Simplice.Checked And Verification() And CHK_CALCUL.Checked Then
                Me.CHK_CALCUL.Enabled = True
                Me.CHK_Simplice.Enabled = True
 
 
 
                Me.LBL_DENSITE.Text = "Densité: " & Me.TXT_MASSE.Text / Me.CB_volume.Text & ".     Calcul: (" & Me.TXT_MASSE.Text & " / " & Me.CB_volume.Text & " ) / 1 " 'case calcul et case simplifié coché 
            End If
 
 
        End If
        If CHK_CALCUL.Checked And Verification() Then
            Me.CHK_Simplice.Enabled = False
            Me.CHK_CALCUL.Enabled = True
 
            Me.LBL_DENSITE.Text = "La densité du produit recherché est " & Me.TXT_MASSE.Text / Me.CB_volume.Text & ".     Calcul: (" & Me.TXT_MASSE.Text & " / " & Me.CB_volume.Text & " ) / 1(=densité de l'eau) " 'case calcul coché seulement
 
        End If
 
    End Sub

je répète que mon problème c'est que lorsque je veut cocher les 2 checkbox en même temps, cela ne me donne pas le resultat simplifier et le calcul, juste le résultât normal et le calcul !

Il est vrais que l’intérêt de ce checkbutton qui simplifie le résultat est quasiment inutile, mais cela me fais un peu progresser!

J'espere que vous allez m'aider !!! ^^

Ps: ne m'envoyer pas de message de type plize, j'ai essayé de corrigé le maximum de faute, il est tard et puis c'est les vacance non?!

[rv26t]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Function Verification() As Boolean
        Return Not (Me.TXT_MASSE.Text Is Nothing Or Not IsNumeric(Me.TXT_MASSE.Text))
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Verification() Then
            Me.LBL_DENSITE.Text = "la densité du produit recherché est " & Me.txt_masse.Text / Me.CB_volume.Text 'pas de case coché
            If CHK_CALCUL.Checked Then
                Me.LBL_DENSITE.Text = "La densité du produit recherché est " & Me.txt_masse.Text / Me.CB_volume.Text & ".     Calcul: (" & Me.txt_masse.Text & " / " & Me.CB_volume.Text & " ) / 1(=densité de l'eau) " 'case calcul coché seulement
                If CHK_Simplice.Checked Then Me.LBL_DENSITE.Text = "Densité: " & Me.txt_masse.Text / Me.CB_volume.Text & ".     Calcul: (" & Me.txt_masse.Text & " / " & Me.CB_volume.Text & " ) / 1 " 'case calcul et case simplifié coché 
            End If
        Else
            MsgBox("Entrez des valeurs numeriques je vous pris", vbCritical, "Erreur dans le programme")
        End If
    End Sub

Le dernier a vrai écrase les autres.
A+, Hervé.

[canyouhelpme]

Ah merci beaucoup, c'est très clair!

[rv26t]

Pense au bouton

[canyouhelpme]

Oui Hervé, je sais mais il fallait rajouter un petit if pour que ça marche completement!

Voila le code complet!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function Verification() As Boolean
        Return Not (Me.TXT_MASSE.Text Is Nothing Or Not IsNumeric(Me.TXT_MASSE.Text))
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Verification() Then
            Me.LBL_DENSITE.Text = "la densité du produit recherché est " & Me.txt_masse.Text / Me.CB_volume.Text 'pas de case coché
            If CHK_CALCUL.Checked Then
                Me.LBL_DENSITE.Text = "La densité du produit recherché est " & Me.txt_masse.Text / Me.CB_volume.Text & ".     Calcul: (" & Me.txt_masse.Text & " / " & Me.CB_volume.Text & " ) / 1(=densité de l'eau) " 'case calcul coché seulement
                If CHK_Simplice.Checked Then Me.LBL_DENSITE.Text = "Densité: " & Me.txt_masse.Text / Me.CB_volume.Text & ".     Calcul: (" & Me.txt_masse.Text & " / " & Me.CB_volume.Text & " ) / 1 " 'case calcul et case simplifié coché 
            End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If Me.CHK_Simplice.Checked And Not Me.CHK_CALCUL.Checked Then 'simplice choisit et pas calcul
 
                Me.LBL_DENSITE.Text = "Densité: " & Me.TXT_MASSE.Text / Me.CB_volume.Text & " ."
            End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Else
            MsgBox("Entrez des valeurs numeriques je vous pris", vbCritical, "Erreur dans le programme")
            Me.TXT_MASSE.Text = "" 'enleve les idioties que le mec a marqué !
        End If
 
    End Sub

A+

[rv26t]

Effectivement, mais à 2H du matin j'avais survolé rapidement et les connexions entre les neurones n'était plus au top.

Il existe plusieurs solutions dont celle-ci qui a peut-être l'avantage d'être claire. (et necessite moins d'affectation)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Private Sub test2()
        If Verification() Then
            Me.LBL_DENSITE.Text = "la densité du produit recherché est " & Me.txt_masse.Text / Me.cb_volume.Text 'pas de case coché
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If Me.CHK_Simplice.Checked And Me.CHK_CALCUL.Checked Then 'simplice et calcul choisit
                Me.LBL_DENSITE.Text = "Densité: " & Me.txt_masse.Text / Me.cb_volume.Text & ".     Calcul: (" & Me.txt_masse.Text & " / " & Me.cb_volume.Text & " ) / 1 " 'case calcul et case simplifié coché 
                Exit Sub ' cas traité -> sort de la procédure
            End If
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If CHK_CALCUL.Checked Then ' calcul choisit
                Me.LBL_DENSITE.Text = "La densité du produit recherché est " & Me.txt_masse.Text / Me.cb_volume.Text & ".     Calcul: (" & Me.txt_masse.Text & " / " & Me.cb_volume.Text & " ) / 1(=densité de l'eau) " 'case calcul coché seulement
            End If
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If Me.CHK_Simplice.Checked Then 'simplice choisit 
                Me.LBL_DENSITE.Text = "Densité: " & Me.txt_masse.Text / Me.cb_volume.Text & " ."
            End If
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Else
            MsgBox("Entrez des valeurs numeriques je vous pris", vbCritical, "Erreur dans le programme")
            Me.txt_masse.Text = "" 'enleve les idioties que le mec a marqué !
        End If
    End Sub