Discussion :

[jeje25440]

Bonjour,

Dans "SP +:" On choisi un chiffre entre 1 et 15 inclus. On Appuis sur «*tenter*», et par exemple j'ai 1, j'ai 80% de chance (de réussite), en appuyant sur "Tenter", de faire apparaître (form2.show) la form2.





Par exemple on a 1, qui lui est associé a 80% de chance de faire ouvrir la form2.
2 associé à 75% ...
Donc j’appuie sur "Tenter" sachant que j'ai 1, en appuyant sur "Tenter" j'ai 80% de chance de ouvrir la form2. Pour 2, 75% de l'ouvrir ...

Alors j'ai 15 chiffre; qui chacun sont associé à un pourcentage.

C'est à dire 80% chance de form2.show / 20% de rien faire.

2 = 75%= 75% afficher form2 / 25% rien faire.
3 = 70%= 70% afficher form2 / 30% rien faire.
4 = 60%= 60% afficher form2 / 40% rien faire.
5 = 50%= 50% afficher form2 / 50% rien faire.
6 = 40%= 40% afficher form2 / 60% rien faire.
7 = 35%= 35% afficher form2 / 65% rien faire.
8 = 30%= 30% afficher form2 / 70% rien faire.
9 = 25%= 25% afficher form2 / 75% rien faire.
10 = 20%= 20% afficher form2 / 80% rien faire.
11 = 10%= 10% afficher form2 / 90% rien faire.
12 = 7%= 7% afficher form2 / 93% rien faire.
13 = 5%= 5% afficher form2 / 95% rien faire.
14 = 3%= 3% afficher form2 / 97% rien faire.
15 = 1%= 1% afficher form2 / 99% rien faire.

Je continue de cliquer jusqu’à la form2 s'affiche garce au 80% (car j'ai 1).

En gros 15 fonctions de pourcentage différentes; une pour 1 / une pour 2 / une pour 3 / ... / une pour 15.

Bref, disont que j'ai le code*; le texte était 1, donc 80% de réussir/de chance de faire ouvrire / apparaître la form2 qui est un truc de ce genre*;




Donc voilà de ce que j'ai besoin*;
Du code que je mettrai dans le bouton ''Tenter'', qui fera*; Que si ComboBox1.Text = "1"Alors, pour 80% de chance (réussite) = form2.show, et pour les autres 20%, rien faire.
En Vb sa donne sa*;

Code :

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

1
2
3
4
5
6
If ComboBox1.Text = "1" Then
'80% de chance d'ouvrir form2, 20% rien < Me faut se code 
End if
If ComboBox1.Text = "2" Then
'75% de chance d'ouvrir form2, 25% rien < Me faut se code 
End if

Merci

[tomlev]

Code :

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

1
2
3
4
5
Dim r As New Random()
Dim value As Double = r.NextDouble()
If value < 0.8 Then ' 80%
    ' ouvrir Form2
End If

et ainsi de suite pour les autres

[jeje25440]

Merci ! Sa marche <3