Discussion :

[iMech]

bonsoir
je voudrais afficher la liste des diviseurs de ce nombre dans une boite de dialogue
en utilisant une variable.
exemple
Les diviseurs sont : 1,3,5,9....

voile mon code

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
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If Not IsNumeric(NBS.Text) Then
            Return
            Exit Sub
        End If
        Dim n = Int(NBS.Text)
        Dim i As Integer
        For i = n To 0 Step -1
 
            If n Mod i = 0 Then
                MsgBox("les  diviseurs sont : " & i)
 
            End If
        Next
    End Sub

actuellement le résultat s'affiche à chaque fois que je clique sur OK

[shayw]

Bonjour

actuellement le résultat s'affiche à chaque fois que je clique sur OK

normal selon ton code tu crées un messagebox à chaque itération
donc mais d'abord tes résultats dans un string et ensuite utilise les messagebox.show

[iMech]

Bonjour



normal selon ton code tu crées un messagebox à chaque itération
donc mais d'abord tes résultats dans un string et ensuite utilise les messagebox.show

j'ai fais un essai

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
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If Not IsNumeric(NBS.Text) Then
            Return
            Exit Sub
        End If
        Dim res = ""
        Dim n = Int(NBS.Text)
        Dim i As Integer
        For i = n To 0 Step -1
 
            If n Mod i = 0 Then
                res = i
 
            End If
        Next
        MsgBox("les  diviseurs sont : " & +res)
 
    End Sub
End Class

[shayw]

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
Private Function Diviseur() As String
        Dim res As Integer
        Dim strresult As String = String.Empty
        If Integer.TryParse(nbs.text, res) Then
            strresult &= res & ","
            For iter = res \ 2 To 1 Step -1
                If res Mod iter = 0 Then
                    strresult &= iter & ","
                End If
            Next
        End If
        Return strresult.Substring(0, strresult.Length - 1)
    End Function
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
 MessageBox.Show(Diviseur)
end sub

[iMech]

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
Private Function Diviseur() As String
        Dim res As Integer
        Dim strresult As String = String.Empty
        If Integer.TryParse(nbs.text, res) Then
            strresult &= res & ","
            For iter = res \ 2 To 1 Step -1
                If res Mod iter = 0 Then
                    strresult &= iter & ","
                End If
            Next
        End If
        Return strresult.Substring(0, strresult.Length - 1)
    End Function
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
 MessageBox.Show(Diviseur)
end sub

merci
mais est ce q'il y a une manière plus simple

[shayw]

merci
mais est ce q'il y a une manière plus simple

c'est compliqué

[iMech]

lorsque je saisi ce code dans un module séparer et dans le bouton je saisi

Code :

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

1
2
3
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
 MessageBox.Show(Diviseur)
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
Private Function Diviseur() As String
        Dim res As Integer
        Dim strresult As String = String.Empty
        If Integer.TryParse(nbs.text, res) Then
            strresult &= res & ","
            For iter = res \ 2 To 1 Step -1
                If res Mod iter = 0 Then
                    strresult &= iter & ","
                End If
            Next
        End If
        Return strresult.Substring(0, strresult.Length - 1)
    End Function

je nais pas des erreurs souligné mais lorsque j’exécute mon programme j'ai un erreur

"Variable objet ou variable d'un bloc With non définie."}

[shayw]

Le code de la fonction diviseur doit être écrit en dehors du button4_click

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
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button5.Click
 
 MessageBox.Show(Diviseur)
end sub
 
Private Function Diviseur() As String
'rend un string contenant les diviseurs séparés par une ,
        Dim res As Integer
        Dim strresult As String = String.Empty
       'on verifie si nbs.text est un nombre  
        If Integer.TryParse(nbs.text, res) Then
           ' res est le nombre en question
          ' strreresult est la chaine des résultats 
          ' pour savoir les diviseurs d'un nombre on divisise le nombre par 1 2 3 jusqu'à nombre\2 ou dans le sens inverse de nombre\2 jusqu'à 1 et verifie si le   reste = 0  et aussi on ajoute le nombre lui même 
            strresult &= res & ","
            For iter = res \ 2 To 1 Step -1
                If res Mod iter = 0 Then
                    strresult &= iter & ","
                End If
            Next
        End If
       ' le string strresult contient une virgule de trop donc 
        Return strresult.Substring(0, strresult.Length - 1)
    End Function