Discussion :

[jackdos]

Bonjours a vous
je viens de mettre les doigts dans Visual Basique (très addictif ce truc)
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
si vous pouvez me donner la marche a suivre
merci a vous
a+

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

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

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

[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].

[wallace1]

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 :

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

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 :

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

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+

[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.

[jackdos]

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

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

[wallace1]

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. ;

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

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



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 :

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

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+

[MABROUKI]

bonjour

Tu peux aussi conserver ton label:

Code :

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

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...

[jackdos]

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



il me reste a trouver comment mettre du son quand on appui sur le bouton
je vous remercie encore fin des trois jours de galère!!! mais j'aime pas perdre

[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

[wallace1]

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"