Discussion :

[idiart33]

Bonjour à tout le monde

Je dois créer un programme demandant à l'utilisateur de rentrer un nombre entre 2 et 5000.
A l'appuie d'un bouton, il faut :
-Convertir le nombre puis l'afficher en binaire et hexadécimal.
-Calculer le nombre de diviseurs
-Afficher "les N diviseurs : " (avec N le nombre de diviseurs)
-Mettre les diviseurs dans une listbox
-Afficher si c'est un nombre premier
-Trouver si c'est un nombre premier
-Si oui, le mettre dans un second listbox

A l'appuie d'un second bonton "vider" il faut vider le second listbox.

J'avoue être complètement perdu...
Je ne demande pas la solution, mais de l'aide pour me débloquer

Voilà le design :


Merci d'avance !

[idiart33]

Voici mon début de code :

Code VB.Net :

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
Public Class Form1
 
 
    Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnOk.Click 'réalisé au clic sur btnOk
        Dim nombre As Integer 'variable nombre
        nombre = txtnombre.Text 'nombre prend la valeur du textbox txtnombre
        If txtnombre.Text <> "" Then 'si le textbox n'est pas vide
            If nombre >= 2 And nombre <= 5000 Then 'et si le nombre est compris entre 2 et 5000
                btnOk.Enabled = True 'le bouton btnOk est actif
            Else
                btnOk.Enabled = False 'sinon il est grisé
            End If
        End If
 
 
        If IsNumeric(txtnombre.Text) Then
            txtbinaire.Text = Convert.ToString(CInt(txtnombre.Text), 2) 'convertion en décimale
            txthexadecimal.Text = UCase(Convert.ToString(CInt(txtnombre.Text), 16)) 'conversion en hexadécimale
        End If
    End Sub
    Private Sub txtInput_TextChanged(sender As Object, e As EventArgs) Handles txtnombre.TextChanged 'réalisé au changement de txtnombre
        If IsNumeric(txtnombre.Text) And txtnombre.Text >= 2 And txtnombre.Text <= 5000 Then 'si nombre un nombre et est compris entre 2 et 5000
            btnOk.Enabled = True 'alors bouton actif
        Else
            btnOk.Enabled = False 'sinon bouton grisé
        End If
    End Sub
End Class

En couleur :

[Pol63]

par quoi es tu bloqué ?
tu as l'air d'avoir compris le principe de lecture et d'écriture d'un textbox, le reste n'est que mathématique, pas informatique

après ton code n'est pas super joli pour autant, ton code avec mon commentaire :

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnOk.Click 'réalisé au clic sur btnOk
  Dim nombre As Integer 
  nombre = txtnombre.Text ' là si le textbox ne contient pas un nombre alors que tu veux le convertir en entier ca va planter
                                     ' de plus ton vs devrait être paramétré sur option strict on (propriétés du projet) pour interdire de mettre des torchons dans les serviettes
                                    ' la vrais syntaxe est nombre = int32.parse(txtnombre.Text)
  If txtnombre.Text <> "" Then ' il aurait fallu faire ce test avant de convertir, et au passage vérifier si ca l'est comme tu le fais dans l'autre sub
                                         'int32.tryparse te permet de tester si c'est convertible et de convertir en une ligne de code (à mettre à la place du .parse donc)
    If nombre >= 2 And nombre <= 5000 Then 'et si le nombre est compris entre 2 et 5000
      btnOk.Enabled = True ' pourquoi resetter l'enabled du bouton ici, tu le fais déjà dans le textchanged, et ca n'a pas de sens ici
    Else
      btnOk.Enabled = False 'sinon il est grisé
    End If
  End If

au passage tu noteras qu'il y a une balise pour la mise en forme du code sur le forum (le bouton #)
par contre vu que tu n'as pas posté dans la rubrique vb.net et qu'il est calibré pour du c# par défaut il se trompe un peu, il faut forcer avec CODE=VB.NET au lieu de CODE (alors que c'est bon directement sur le forum vb.net)

[idiart33]

Merci pour ton aide!
C’était justement le problème du crash en mettant des lettres. Mais si je rentre 100 et qu'après j'efface ça crash aussi...
Je vais essayer ton astuce
Ensuite pour calculer les diviseurs je suis partie sur ça :

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
11
 
'Au clic sur btnOk
Dim reste As Integer
Dim decompte As Integer = nombre
Do while decompte > 1
   reste = trouver reste de la division euclidienne de nombre / decompte
   If c'est un Integer
      lstbdiviseurs.Items.Add(reste)
   End if
   decompte -= 1
End While

[idiart33]

J'ai dupliqué le form pour pouvoir tester sans tout perdre
J'ai mis Int32.Parse(txtNombre.Text pour le problème des lettres mais toujours le même problème.

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub txtNombre_TextChanged(sender As Object, e As EventArgs) Handles txtNombre.TextChanged
        Dim nombre As String 'variable nombre
        nombre = Int32.Parse(txtNombre.Text) 'nombre prend la valeur du textbox txtnombre
        If nombre <> "" Then 'si le textbox n'est pas vide
            If nombre >= 2 And nombre <= 5000 Then 'et si le nombre est compris entre 2 et 5000
                If Not nombre > "A" And nombre < "z" Then
                    btnOk.Enabled = True 'le bouton btnOk est actif
                Else
                    btnOk.Enabled = False
                End If
            End If
        End If
    End Sub

[clementmarcotte]

onjour,

J'ai mis Int32.Parse(txtNombre.Text pour le problème des lettres mais toujours le même problème.

Mais, c'est évident que tu ne peux pas "caster", "parser" ou convertir une lettre en nombre en VB sans faire ta propre moulinette qui va assigner les valeurs arithmétiques à tes lettres. Tu peux tout au plus récupérer le code de caractère de ta lettre.

Ceci dit, si j'ai bien compris ton premier problème, to TextBox ne peut laisse passer que des nombres. Or ton événement Textchanged se déclenche des que tu ajoutes un caractère dans tom TextBox.
Disons qu'au premier passage tu entres 3. Ton programme est aux oiseaux, tu as mis un nombre et

Code :

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

 nombre = Int32.Parse(txtNombre.Text)

prend ton trois et continue.

Mais supposons qu'au deuxième passage tu mettes un a. Mais là, ton TextBox contient 3a et ton instruction

Code :

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

 nombre = Int32.Parse(txtNombre.Text)

ne peut pas convertir 3a en nombre entier et cela plante.

Donc, tu dois t'assurer que rien d'autre qu'un chiffre ne se rende à ta ligne fatidique. Mais dès que ton textbox contient des valeurs valides, tu dois t'assurer de ne vérifier que le dernier caractère entré, puisque les autres sont, en principe validés. Donc, soit que tu continues avec l'événement changed et que tu extrais le dernier caractère entré pour le tester et continuer. Ou bien tu remplaces changed par keydown ou keypress et tu t'assures que le caractêre entré est bien un nombre et probablement aussi si c'est un "moins".

Évidemment, être sûr que le professeur n'est pas trop brillant, tu pourrais essayer des textboxes numériques gratuits déjà tout faits.

[Pol63]

int32.tryparse te permet de tester si c'est convertible et de convertir en une ligne de code (à mettre à la place du .parse donc)

Code :

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

if not int32.tryparse(...) then exit sub

[idiart33]

J'ai mis ça :

Code VB.NET :

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 Sub txtNombre_TextChanged(sender As Object, e As EventArgs) Handles txtNombre.TextChanged
        Dim nombre As String 'variable nombre
        nombre = txtNombre.Text
        If Not Int32.TryParse(nombre) Then
            btnOk.Enabled = False
        End If
        'nombre = Int32.Parse(txtNombre.Text) 'nombre prend la valeur du textbox txtnombre
        If nombre <> "" Then 'si le textbox n'est pas vide
            If nombre >= 2 And nombre <= 5000 Then 'et si le nombre est compris entre 2 et 5000
                btnOk.Enabled = True 'le bouton btnOk est actif
            Else
                btnOk.Enabled = False
            End If
        End If
    End Sub

[idiart33]

salut,
j'ai presque finis le programme, mais je bloque sur la fin.
Tout fonctionne, mais la fonction pour convertir en binaire à un défaut.
Il écrit par exemple 010110 au lieu de 0001.0110
Je pense avoir la solution pour le mettre sur 4 bits mais pour les point je vois pas trop.
Si quelqu'un pourrai me donner juste la méthode, pas le code ce serai gentil.
Merci