Comment remplacer un chiffre par une image

Version imprimable

07/05/2015, 16h02
jackdos

Comment remplacer un chiffre par une image

Bonjours a vous
je viens de mettre les doigts dans Visual Basique (très addictif ce truc):lol:
bon voila je viens de réaliser un générateur de lancer de dés six face jusque la pas de problème ça marche
mais le résultat est un chiffre de 1 a 6 et je voudrais a la place de ce chiffre apparaisse une images d'un dé représentant la la somme du chiffre :calim2:
si vous pouvez me donner la marche a suivre
merci a vous
a+
07/05/2015, 16h17
Jeano81
Salut à toi !

Si c'est juste pour afficher une image d'un dé qui affiche les numéros de 1 à 6 il te faut déjà les 6 images.
Ensuite simplement tu les appelles en fonction du résultat de ta variable :
Code:

1 2 3 4 if num_var = 1 then affiche img_1.jpg elseif num_var = 2 then etc etc
07/05/2015, 16h35
jopopmk

Salut,

tu peux utiliser un contrôle ImageList. Si tu ajoutes tes images dans l'ordre (tu peux le faire depuis le mode design) alors tu pourras facilement accéder à la bonne image via monImageList.Images[valeurDuDe -1].

Citation:
Envoyé par Jeano81
Salut à toi !

Si c'est juste pour afficher une image d'un dé qui affiche les numéros de 1 à 6 il te faut déjà les 6 images.
Ensuite simplement tu les appelles en fonction du résultat de ta variable :
Code:

1 2 3 4 if num_var = 1 then affiche img_1.jpg elseif num_var = 2 then etc etc
Bonjour,

Ça manque un peu de biscuit ton histoire..... pas certains qu'OP ni quiconque n'arrive à quoique ce soit avec cette explication !
~~Il n'est pas utile de charger des images dans un contrôle lmageList car le dé possède 6 faces, il s'agit d'un nombre fixé non dynamique !~~

1- Sur ton formulaire principal tu ajoutes le contrôle "PictureBox" depuis la boite à outils de l'EDI (volet de gauche de Visual Studio en mode concepteur de vues)
2- Tu définies la propriété "Size" de ta pictureBox ---> par exemple : 32*32 pixels
3- Tu choisis 6 images (du format que tu souhaites : .jpg, .png...etc...) : dimensions 32*32 pix
4- Tu sauvegardes tes images dans un répertoire sur ton bureau
5- Dans ton EDI tu ajoutes ces 6 images en tant que "resource" de ton projet et pour ce faire :
- Tu accèdes aux propriétés de ton projet (clique-droit sur le nom de ton projet dans le volet de droite "Explorateur de solutions" puis sélection de l'item "Propriétés")
- Tu cliques sur l'onglet "Ressources" dans le tabcontrol des propriétés de l'EDI
- Dans le menu de la partie centrale du tabcontrol tu sélectionnes non pas fichiers mais "Images" en faisant dérouler la liste, tu sélectionnes ensuite non pas "Ajouter une ressource" mais "Ajouter un fichier existant" depuis la liste déroulante.
- Tu sélectionnes les 6 images préalablement sauvegardées dans le répertoire de ton bureau
6- Tu supprimes le dossier avec les images sur ton bureau, elles ne sont plus utiles car désormais elles seront intégrées dans ton binaire compilé (.exe) que tu livreras plus tard.

NB : Voici comment accéder à une image depuis les ressources de ton projet et l'affecter à une PictureBox :
PictureBox.image = My.Resources.<LE_NOM_DE_TA_RESOURCE>

Enfin pour générer un nombre aléatoire compris entre 1 et 6 il faut utiliser la classe "Random" :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Public Class Form1 Private rnd as New Random Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load dim num = rnd.next(1,6) select case num Case 1 PictureBox1.image = My.Resources.img1 exit Select case 2 PictureBox1.image = My.Resources.img2 exit Select Case 3 PictureBox1.image = My.Resources.img3 exit Select case 4 PictureBox1.image = My.Resources.img4 exit Select Case 5 PictureBox1.image = My.Resources.img5 exit Select Case 6 PictureBox1.image = My.Resources.img6 exit Select End Sub End Class
A+

07/05/2015, 17h07
jopopmk

3 x 6 clics + une ligne de code, je pense que la solution de l'ImageList reste recevable (pratique et en adéquation avec l'esprit RAD).
J'ai du mal à faire mon barbu quand ça cause VB, perso.
07/05/2015, 19h36
jackdos

1 pièce(s) jointe(s)

tout d'abord un grand merci pour vos réponses si rapide ...
mais bon mon niveaux est vraiment bas
et je n'ai pas assez développer ma demande mille pardon
donc j'en suis la
j'ai créer un bouton et un label
dans le bouton je place
Pièce jointe 177178
et dans label un des numéros apparaît
c'est ce numéro que je veux remplacer
merci pour m'avoir appris comment géré les ressources
mais même apres avoir entré mes images dans ressource
j'ai pas réussit a avoir mes images
je dois entre dans bouton ? dans from1 ou dans PictureBox1
je my perd un peut
07/05/2015, 20h01
wallace1
Citation:

Envoyé par jopopmk

3 x 6 clics + une ligne de code, je pense que la solution de l'ImageList reste recevable (pratique et en adéquation avec l'esprit RAD).
J'ai du mal à faire mon barbu quand ça cause VB, perso.

Non, non effectivement le contrôle ImageList est un très bon compromis. ;:ccool:

J'ai tendance à proposer des solutions qui permettent d'arpenter d'autres concepts (ici les resources d'un projet) ;)

Citation:

J'ai du mal à faire mon barbu quand ça cause VB, perso.

Le langage n'a absolument rien à voir dans la consistance d'un programme, c'est le raisonnement qui compte !!

@Jackdos :

il te faut poser un contrôle "PictureBox" (depuis la boite à outils) pour pouvoir afficher une image sur ton formulaire à un emplacement définit !

Tu en profites pour glisser un contrôle "imagelist" que tu paramètres depuis la grille de propriétés :
ColorDepth = Depth32Bit
ImageSize = 40;40
...ensuite tu ajoutes tes images dans l'éditeur de collection d'images accessible dans la propriété "Images--> (Collection)"

http://www.imabox.fr/15/05/072000BJIGaG21.jpg

Dans le code de ton bouton tu génères ton nombre aléatoire comme tu l'as si bien fais et ensuite tu affectes l'image à la propriété Image de ta "PictureBox1" selon le nombre retourné :
Code:

1 2 3 4 5 6 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim num = rnd.Next(1, 6) PictureBox1.Image = ImageList1.Images(num - 1) End Sub
A+

bonjour

Tu peux aussi conserver ton label:

Code:

1
2
3
4
5
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim num as Integer= rnd.Next(1, 6)
        Label.BackgroundImage = ImageList1.Images(num - 1)
    End Sub

bon code...

08/05/2015, 04h12
jackdos

1 pièce(s) jointe(s)

C'est bon ca marche un grand merci a vous tous
j'ai du prendre un peut de chaque mais ca marche
voila le résultat

Pièce jointe 177197

il me reste a trouver comment mettre du son quand on appui sur le bouton :mouarf:
je vous remercie encore fin des trois jours de galère!!! mais j'aime pas perdre :mrgreen:
08/05/2015, 11h21
JLuc01

Bonjour,

"Exit Select" dans un Select Case en VBnet.
Est-ce vraiment utile? (Cela me fais penser au BRK pour un Switch en JavaScript).

Ou suis-je completement a cote de la plaque, si vous me permettez l'expression?

JLuc01
08/05/2015, 14h32
wallace1

Citation:

Envoyé par JLuc01

Bonjour,

"Exit Select" dans un Select Case en VBnet.
Est-ce vraiment utile? (Cela me fais penser au BRK pour un Switch en JavaScript).

Ou suis-je completement a cote de la plaque, si vous me permettez l'expression?

JLuc01

Je ne code pas qu'en VbNet donc c'est une habitude que j'ai pris dans les autres langages synthaxe "C" (C#, Java,..) dans ces langages on n'oublie surtout pas de mettre le break sinon tu peux être certains que les autres cas sont évalués alors que oui effectivement le "Exit Select" en vbnet n'a pas de caractère obligatoire car lorsque le cas est traité l'instruction suivante est exécuté en dehors du "Select Case" ;)