en vb.net

Question

Bonjour,

je veux ecrire un programme qui calcule la table de multiplication
j'ai essaye mais je suis bloquée.

voici le code que j'ai ecrit

 Dim nbre, i, J As Integer
        nbre = CInt(Txtnbre.Text)
        If nbre < 2 Or nbre > 20 Then
            MsgBox("entrer des valeurs comprises entre 2 et 20 . svp")
        Else
            Txtaffichage.Text = CStr(nbre) + Environment.NewLine
            For i = 0 To nbre
                If i <> 0 Then
                    Txtaffichage.Text = i.ToString
                Else
                    Txtaffichage.Text = ""
                End If
                For J = 1 To nbre
                    Txtaffichage.Text = J.ToString
                Next j

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

Merci d'y penser dans tes prochains messages.

Afficher la suite

Utilisateur anonyme · Answer

Bonjour

déjà tu mélanges VB6 et VB.Net, c'est déconseillé, principalement parce que les instruction VB6 ne sont pas objet. Mais aussi parce que dans de rares cas, il se passe des choses imprévues et qu'il est très difficile de débugger.

Je te conseille donc d'enlever la référence à Visual Basic, voir ici pour plus d'infos https://codes-sources.commentcamarche.net/faq/11151-pourquoi-mon-code-vb6-vba-ne-marche-pas-en-vb-net

Ensuite, il manque

    Next i
End If

dans le code que tu présentes, mais on va supposer qu'il s'agit d'une erreur de copier / coller.

Voilà ton code remis en forme et en couleur (voir https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

        Dim nombre As String = "3" 'pour simuler ton textbox
        Dim resultat As String = "" 'idem

        Dim nbre, i, J As Integer
        nbre = Convert.ToInt32(nombre)

        If nbre < 2 Or nbre > 20 Then
            MessageBox.Show("entrer des valeurs comprises entre 2 et 20 . svp")
        Else
            resultat = nbre.ToString() + Environment.NewLine
            For i = 0 To nbre
                If i <> 0 Then
                    resultat = i.ToString()
                Else
                    resultat = ""
                End If
                For J = 1 To nbre
                    resultat = J.ToString()
                Next J
            Next i
        End If

Donc, tu commences par rentrer le nombre avec un retour charriot

resultat = nbre.ToString() + Environment.NewLine

Puis tu effaces ce qu'il y a dans resultat pour y mettre i ou ""

                If i <> 0 Then
                    resultat = i.ToString()
                Else
                    resultat = ""
                End If

et enfin tu effaces à nouveau ce qu'il y a dedans pour y mettre j

                For J = 1 To nbre
                    resultat = J.ToString()
                Next J

Je ne sais pas quelle mise en forme tu cherches à avoir mais dans tous les cas, effacer ce qu'il y a dans la variable c'est pas bon.

Tu peux simplement faire un truc comme ça

resultat = resultat + i.ToString()

ça va ajouter le texte au texte existant.
Tu peux utiliser un StringBuilder pour construire le texte petit bout par petit bout https://docs.microsoft.com/fr-fr/dotnet/standard/base-types/stringbuilder
Par exemple

resultat = nbre.ToString() + Environment.NewLine

deviendrait

monBuilder.AppendLine(nbre.ToString())

Tu peux aussi te servir de String.Format https://www.dotnetperls.com/format-vbnet
Par exemple

monBuilder.AppendLine(String.Format("Voici la table du {0}",nbre))

En vb.net

1 réponse

Votre réponse

Discussions similaires

Newsletters