Pas de doublon d'image Résolu

Question

Bonjour, Pour un tirage au sort, j'utilise ce script. Le but est qu'il m'affiche 10 images en un clique. Cela marche parfaitement, mais j'aimerai ne pas avoir de doublon. Comment faire, je débute un peu dans ce type de codage. Merci. sub tirage() randomize timer document.getElementById("image1").src= int(rnd*23)+1 & ".png" document.getElementById("image2").src= int(rnd*23)+1 & ".png" document.getElementById("image3").src= int(rnd*23)+1 & ".png" document.getElementById("image4").src= int(rnd*23)+1 & ".png" document.getElementById("image5").src= int(rnd*23)+1 & ".png" document.getElementById("image6").src= int(rnd*23)+1 & ".png" document.getElementById("image7").src= int(rnd*23)+1 & ".png" document.getElementById("image8").src= int(rnd*23)+1 & ".png" document.getElementById("image9").src= int(rnd*23)+1 & ".png" document.getElementById("image10").src= int(rnd*23)+1 & ".png" end sub et

Whismeril · Answer

Bonjour,

tu postes ta question dans le forum Visual basic et pour la coloration tu choisis Java.

Donc afin de déplacer ta question dans le bon forum merci de préciser le langage:

VBA
VBS
VB6
VB.NET
Java
Javascript
Autre

Whismeril · Answer

Je ne connais pas VBS, je ne sais donc pas s'il supporte les listes d'objet, je vais donc t'expliquer le principe avec un tableau.



Initialisé un tableau "source" avec le chemin de chaque image.
Initialiser un tableau "tirage" taille 10 vide

Dans une boucle comptant de 0 à 9

tirer un index de 0 à la taille du tableau moins 1.
prendre le contenu de source à cet index et le mettre dans tirage à l'index du compteur
redimensionner le tableau en enlevant la valeur que tu viens de trier

Et voilà pas de doublons.

C'est plus facile avec de collections (comme en Vb.net par exemple) ou l'on peut directement supprimer un élément d'une liste

cs_JMO · Answer

Bonjour narfolius,

Bonjour Whismeril, merci pour ton tuto xml.
 
Exemple:Option Explicit
Dim aImages, icount, Result, i , iRnd 
aImages = Array("image1.png","image2.png","image3.png","image4.png","image5.png", _
                "image6.png","image7.png","image8.png","image9.png","image10.png")

icount = UBound(aImages)+1
ReDim aTabSeries(icount)
ReDim aSuites(icount) 
          
Randomize

For i = 1 To icount 
    aTabSeries(i) = i 
Next

'on créé le tableau de résultat en "désactivant" ceux trouvés
For i = 1 To icount
    aSuites(i) = 0 
    While aSuites(i) = 0 
          iRnd = Int(icount * Rnd) + 1 
          If aTabSeries(iRnd) <> 0 Then 
             aSuites(i) = aTabSeries(iRnd) 
             aTabSeries(iRnd) = 0 
             Result = Result & aImages(CStr(aSuites(i))-1) & vbCr 
          End If 
    Wend 
Next 
MsgBox Result,,"Images mélangées" 

jean-marc

ucfoutu · Answer

Bonjour,
Je ne comprends pas la nécessité de passer par autre chose (liste, autres tableaux, collection, etc ...) que le tableau de départ.
Il suffit de faire des permutations sur le tableau lui-même ==>> exemple ===>>

Dim aImages, icount, i,temp,irndaImages = Array("image1.png","image2.png","image3.png","image4.png","image5.png", _                "image6.png","image7.png","image8.png","image9.png","image10.png")icount = ubound(aImages)for i = 0 to icount iRnd = ((icount-i) * Rnd) temp = aimages(icount-i) msgbox "j'ai tiré " & aimages(irnd) aimages(icount-i) = aimages(irnd) aimages(iRnd) = tempnext

Whismeril · Answer

Bonjour Uc,

Ça marche aussi, il faudra juste qu'il ne prenne que les 10 premiers enregistrements du tableau mélangé.

cs_JMO · Answer

Bonjour,

Je viens de lancer 10 fois de suite le script et à chaque fois, j'ai image7 puis image5, puis image ....

Whismeril · Answer

Bonjour, il doit falloir initialiser le Rnd, avec l'initialisation par défaut il te fait la même séquence, enfin je pense

ucfoutu · Answer

Cà, c'est une autre paire de manches : comment marche le rnd de vbs (ses défauts et ses remèdes). Je n'ai pas vbs sur ma machine et ne le connais pas.
Ce problème est autre et serait donc le même dans vos exemples également.

cs_JMO · Answer

Effectivement, avec Randomize
for i = 0 to icountj'ai lancé 4 fois le script et à chaque fois l'ordre des images est différent. Donc, la proposition de ucfoutu correspond à la demande de Narfolius.

Narfolius · Answer

Merci à vous tous pour votre aide !

Le problème avec le dernier script, c'est que j'aimerai que ça s'affiche dans un tableau après avoir cliqué sur un bouton 'Tirer au sort' sur une page hta.

Mais je ne sais pas comment faire exactement

Merci

cs_JMO · Answer

Concernant la manipulation d'images en utilisant le hta\vbs, je t'invite à consulter ce lien :
http://www.developpez.net/forums/d1425082/autres-langages/general-visual-basic-6-vbscript/vbscript/vos-contributions-vbscript/hta-ajout-suppession-dynamique-d-images/

jean-marc

cs_JMO · Answer

Bonsoir le Forum, Exemple d'un hta/vbs pour manipuler des images. Dans le répertoire du script, j'ai créé un sous-répertoire "\Images" contenant 12 images. Le script hta

Résultat : A chaque reload, les images sont mélangées et sans doublon. En espérant que cet exemple puisse servir à Narfolius. jean-marc

Pas de doublon d'image

12 réponses

Votre réponse

Discussions similaires