Bonjour à tous, après VBA je me lance sur VB et suis en train de travailler sur un diaporama avec paintpicture. je joins ma première source...et vous demande donc d'être indulgent, elle m'as donné du mal mais vaut le détour (enfin je pense).
Le principe est sur une form avec 2 picturebox (srce et cible) et un bouton de faire apparaitre sur l'image de la picturebox cible une autre image par petites rectangles qui se disposent de façon aléatoire. J'ai galerer un moment pour essayer de combiner Rdn avec une procédure qui évite de reprendre un chiffre déjà tiré, MERCI A cawish2000 qui avait résolu le problème avant moi. Cette fonction ajouté à celle qui me permets de générer des coordonnées X et y à partir de ce nombre donne ce résultat (nota : j'ai pas programmer tous les paramètres utilisez donc 2 pictures box et 2 images srce et cible de taile identique avec autoredraw à False
Source / Exemple :
private sub mosaique()
Case "7" 'mosaïque
Dim block, i ,cal , valmax, flag() as integer
Dim sortie
Dim Cx 'abscisse du "block" à déssiner
Dim Cy 'ordonnée du "block" à dessiner
Dim Tl 'longueur de pciture
Dim Th'hauteur de picture
block = 100 ' dénominateur de subdivision de l'écran hauteur et longueur (libre)
tl = picutre1.width / block ' longueur du block
th = picture1.height / block 'hauteur du block
'le block est donc l'unité d'affichage pour la fonction
valmax = block * block ' nbre de block sur l'écran
ReDim flag(valmax)
For i = 1 To valmax
flag(i) = 1 'attribue la valeur 1 à chaque élément du tableau x nombre de blocks
Next i
For i = 1 To valmax
cal = Int(Rnd() * valmax) + 1 'génère un nombre aléatoire sur la totalité des blocks et l'incrémente
If flag(cal) = 1 Then 'si le chiffre tiré est déjà à 1 dans le tableau
'c'est à dire qu'il n'as pas déjà été tiré
flag(cal) = 0 'le passe à 0 pour le marquer comme tiré
Else ' si il est égale à 0 donc déjà tité
While flag(cal) = 0 'et tant qu'il est à zéro
cal = Int(Rnd() * valmax) + 1 ' génère un autre nombre
Wend 'fin de la condition
flag(cal) = 0 'le marque comme tiré (vous suivez ?)
End If
'un ligne faisant 100 blocks tout block supérieur à 100 sera donc positionné à partir de la ligne "ligne1" (la première étant la ligne 0 donc ordonnée = 0
If cal >= block Then
Cy = Int(cal / (block)) 'divise par le nbre de blocks et prends la
' partie entière comme n° de ligne (ordonnée)
Cyy = (cal / (block)) 'reprends la valeur calcué en Cy mais sans oter la partie entière "ligne"
Cx = (block) * (Cyy - Cy) 'multiplie le block par la partie décimale pour avoir le
' positionnement en colonne (abscisse)
If Cx = 100 Then ' si l'abscisse = 100 soit bord droite de l'écran, la longueur avec paint
'picture renverra une erreur "5"
Cx = 99 'décale l'abscisse à 99
End If
If Cy = 100 Then 'idem pour l'ordonnée, si on est en bas d'écran
'rajouter une hauteur donnera une erreur "5"
Cy = 99
End If
Else 'si la valeur tirée est inférieure à 100 l'ordonnée (Cy) sera de 0
Cx = cal
Cy = 0
End If
'dessine à l'abscisse et l'ordonnée calculé avec le nombre aléatoire un rectangle coresspondant au même'rectangle de l'image source
cible.PaintPicture srce.Picture, (Cx) * TL, (Cy) * TH, TL + 1, TH, (Cx) * TL, (Cy) * TH, TL, TH, vbSrcCopy
Next i, passe à la génération du nombre aléatoire suivant
end sub
Conclusion :
Si vous trouvez ça intéressant merci de votre note généreuse
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.