Visual Basic Fermé

Question

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 :)

pijaku · Answer

Bonjour,

Si c'est un devoir, tu l'as forcément commencé.
Ou en es tu?
Quel code as tu écris?
Copies- colles ce que tu as déjà, nous verrons pour le reste...

dd38 · Answer

bah le problème c'est que je ne sais pas par ou commencer, je n'ai aucun cours, ou du moins ce qu'on peut appeler de tel....

pijaku · Answer

Comme tu l'as dit, nous n'allons pas tout te faire.
Nous n'allons pas non plus tout chercher pour toi...
Exemples :
- 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
etc ...
Regarde déjà ces liens, et reviens poser des questions.

dd38 · Answer

- pour le premier lien, qu'est ce qui est appelé des chariots ? Si l'utilisateur n'entre pas une valeur dans l'intervalle demandé, comment gérer ce phénomène ?

- dans mon cas, le programme que je devrais rentrée ne serait il pas : 

Dim MyValue As Integer

Randomize   ' Initialise le générateur de nombre aléatoire.

MyValue = CInt(Int((20 * Rnd()) + 10)) ' Génère un nombre aléatoire entre 10 et 20.
?

- pour le 3eme lien... j'ai pas compris grand chose, est-ce qu'on peut faire cette partie comme quand on programme un tableau ?


une autre question, j'ai éssayé de faire hier 'Randomize" mais apparamment VB ne connait pas puisque qu'il attend un expression, hors je pensais qu'il n'y avait rien a entrer

dd38 · Answer

personne ? ^^

dd38 · Answer

bon apparemment personne de caler pour répondre ^^

lermite222 · Answer

Bonjour,
Faudrait déjà savoir... avec quel VB ???
A+

dd38 · Answer

le 2008

dd38 · Answer

j'ai réussi quelques trucs, mais il me reste toujours à trouver la fonction qui me permettrais de calculer une moyenne et un écart-type

dd38 · Answer

je cherchais également à trier des nombres avec un bout de programme que j'avais déja fait :
 Private Sub dosort() 'trier les nombres
        Dim i, j As Integer
        Dim nMoins1, valeur As Integer
        Buttontrier.Enabled = False
        For i = 0 To N - 1
            letableau(i) = letableauinitial(i)
        Next i
        nMoins1 = N - 1
        For j = 1 To nMoins1
            i = j - 1
            valeur = letableau(j)
            While (i > 9) And (i < 21) And (valeur < letableau(i))
                letableau(i + 1) = letableau(i)
                i = i - 1
                If (i < 0) Then
                    Exit While
                End If
            End While
            letableau(i + 1) = valeur

        Next j
        For i = 0 To N - 1
            ListBoxsorted.Items.Add(CStr(letableau(i)))

        Next i

        Buttontrier.Enabled = False
        Buttoneffacer.Enabled = True



sauf que dans mon cas je veux trier seulement des nombres entre 10 et 20, comment dois je faire ?

lermite222 · Answer

Aller, je vais reprendre malgré que j'avais pensé abandonner ce topic.
1°) N n'est pas déclarer et provient d'où ?
2°) Dans une boucle, si tu met une condition et quel ne serra jamais vraie tu bloque ton programme.
3°) Pourquoi transférer le tableau letableauinitial dans le tableau letableau ?
Explique ce que tu veux réaliser avec ce code sans faire référence au code.
J'ai bien une idée mais je ne sais pas si c'est la bonne, dans le tableau letableau tu veux mettre les valeurs comprises entre 10 et 20
Tu dis.

A+

dd38 · Answer

N est un valeur global déclarée au préalable 

Alors soit je suis crevé, ou je change de lunette, ou est ce que je met une condition qui ne sera jamais vrai ? ^^

ton idée est la bonne

lermite222 · Answer

ou est ce que je met une condition qui ne sera jamais vrai ? ^^  
Tu verras cela à l'usage..et en attendant, d'accord... met des lunettes. 
Tu ne devrais pas répondre de cette façon alors que tu n'est pas en mesure de tester ton code vu que.. Exit While  ÇA N'EXISTE PAS DANS LA SYNTAXE 

Mais comme je suis pas rancunier, essaye ce code, 
    Dim letableau() 
    Sub Transfert() 
        Dim i As Integer, T As Integer = 0 
        For i = 0 To UBound(letableauinitial) 
            If letableauinitial(i) > 9 And letableauinitial(i) < 21 Then 
                ReDim Preserve letableau(T) 
                letableau(T) = letableauinitial(i) 
                T = T + 1 
            End If 
        Next 
        ListBoxsorted.Dispose()
        For i = 0 To UBound(letableau) 
            ListBoxsorted.Items.Add(CStr(letableau(i))) 
        Next i 
    End Sub
Toutes les valeurs de letableauinitial qui sont entre 10 et 20 se retrouve dans le tableau letableau 
et dans la listeBox 
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.

dd38 · Answer

"Tu ne devrais pas répondre de cette façon", j'ai l'impression qu'il y de l'énervement alors que je ne suis pas agressif ....

j'ai testé ce code, mais j'ai un problème, lorsque je clique sur mon bouton "trier", ma listbox "ListBoxsorted" disparait, du coup impossible de savoir si c'est trier ^^

Pour ma culture pourrais tu m'expliquer quelques trucs, notamment, à quoi correspond "UBound" et " ReDim Preserve letableau(T) " ?

cdt

lermite222 · Answer

Pour ma culture pourrais tu m'expliquer quelques trucs, notamment, à quoi correspond "UBound" et " ReDim Preserve letableau(T) " ?  

Dans le code tu sélectionne Ubound (double clic dessus) il se met en bleu et tu tape F1. 
Idem pour tout les mots que tu connais pas. 

Et remplace la ligne  
ListBoxsorted.Dispose()
par
ListBoxsorted.Items.Clear()
je me suis trompé. 
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.

dd38 · Answer

maintenant, ça m'affiche la même liste où j'ai généré les nombres ^^

Hacker?! · Answer

Utilise la fonction Random

lermite222 · Answer

y a quoi dans letableauinitial

dd38 · Answer

ce sont les chiffres générés compris entre 10 et 20

lermite222 · Answer

A mon avis ..........tu veux rire un bon coup !!!!!!!!!!!!!!!!!!!!!!
Comment veux-tu avoir des différences ??
Si dans letableauinitial tu met des nombres entre 10 et 20
ensuite filtre tout les nombres qui sont entre 10 et 20 dans et les mettre dans  letableau
c'est évident qu'il y seront tous et qu'il n'y aura pas de différence.
Vraiment, tu m'épate là.
dans letableauinitial met des nombres entre 1 et 30 et tu verra.
ou bien filtre entre 3 et 6 par exemple

Visual Basic

29 réponses

Discussions similaires