Visual Basic

Fermé
dd38 - 1 mars 2012 à 15:13
 dd38 - 10 mars 2012 à 22:52
Bonjour,

alors voilà j'ai un petit problème, je suis débutant en VB et j'ai un sujet à faire, et je ne comprend rien... Je ne demande pas à ce que l'on me le fasse, mais au moins qu'on m'aide dans la démarche



Problème à résoudre :
? Demander à l'utilisateur de saisir un nombre entier N compris entre 100 et 10000.
? Générer par la suite N nombres entiers pseudo-aléatoires compris entre 10 et 20.
? Afficher la liste de nombres générée
? Compter le nombre d'occurrences de chaque nombre de la suite générée et afficher ce nombre
? Trier la liste de nombre en ordre croissant et afficher la liste triée.
? Calculer et afficher la moyenne et l'écart-type des nombres générés
? Sauvegarder dans un fichier texte le nombre de données générées, leur moyenne, leur écart-type, ainsi que les nombres triés.


merci d'avance :)
A voir également:

29 réponses

je ne veux pas générer des nombres entre 1 et 30, je veux générés des nombres pseudo-aléatoires entre 10 et 20.

je comprends ce que tu veux dire.... il faut que je change de tableau pour les trier ?
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
10 mars 2012 à 14:56
tu voudrais pas plutôt dire les mettre par ordre croissant ?
0
oui c'est ce que je cherche a faire en les triant, mais le problème est que le programme ne les trie pas, il affiche seulement la même des nombres que j'ai généré
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 10/03/2012 à 15:50
un essais,
    Private Sub MaListeRND()    
        Dim i As Integer, B As Boolean, Buff As Integer    
        Dim TB(30) As Integer    
        Randomize()    
'Initialise 31 nombres aléatoires entre 10 et 20  
        For i = 0 To 30    
            TB(i) = CInt(Int((20 * Rnd()) + 1)) + 9    
        Next    
'Trie le tableau par ordre croissant   
'La méthode "Sorted" d'une listbox ne fonctionne pas sur des nombres   
'même si ont les met en String   
        Do    
            B = False    
            For i = 1 To 30    
                If TB(i) < TB(i - 1) Then    
                    B = True    
                    Buff = TB(i) : TB(i) = TB(i - 1) : TB(i - 1) = Buff 
                End If    
            Next    
        Loop Until Not B    
'Affiche dans la listeBox   
        ListBox1.Items.Clear   
        For i = 0 To 30    
            ' Add items to the ListBox.    
            ListBox1.Items.Add(TB(i))    
        Next    
        ListBox1.TopIndex = 0    
    End Sub

Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
le trie par ordre croissant fonctionne mais du coup maintenant j'ai des chiffres en plus :
je génère 155 -->

j'ai et le tri donne

16 11
16 11
16 13
13 13
15 13
17 14
11 14
16 15
13 15
14 16
15 16
15 16
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
10 mars 2012 à 16:25
Tu a besoin du tableau non trier ?
0
oui ..
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 10/03/2012 à 22:55
Et bien maintenant tu a un modèle pour remplir un tableau avec des nombre aléatoire.
Un modèle pour trier un tableau.
A toi de combiner les deux.
Il me semble que j'ai assez donné sur ce topic qui ne m'inspire pas du tout.
Il est vrai que tu n'est pas impoli, mais nous somme bénévole et tes réponses ou questions ressemble plutôt à des ordres plutôt qu'a un souhait, même pas un mot de remerciement ou une expression de reconnaissance du service rendu.
Abandon du suivi.
A++
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
0
juste une dernière question, pourquoi avoir généré 30 ?
0