Déssiner sur une form

Je fais du visual basic depuis 4 - 5 semaines, et j'ai décidé de créé un démineur...

Seulement comme vous pouvez vous en douter, j'ai un petit soucis :mouarf:

Pour mon prog, j'ai besoin de "déssiner" l'aire de jeu, de 10 * 10 cases par exemple, mais je ne vois pas comment je dois faire :P

Une fois qu'elle est faite, je peux utiliser les coordonées de la souris pour déterminer sur quelle case l'utilisateur a cliqué et vérifer la présence de bombe avec une matrice. Malheureusement, je suis bloqué !

J'ai une deuxième question :
J'ai voulu faire une horloge à aiguilles en utilisant sin et cos (je vois pas comment faire autrement). Les aiguilles tournent, mais de manières anarchiques. Je me suis dis que l'erreure pouvais provenir des valeures renvoyées par sin() et cos().

J'ai donc fais ceci :

Code:

---

1 2 3

Private Sub Text1_Change() Label1.Caption = Sin(Text1.Text) End Sub

---

Losque je donne une valeur, sin() m'en renvoie une mais qui n'est ni des degrés, ne des radians, ni des grades ... Je dois faire quoi ? :mrgreen:

Boinjour Morbazan,

On dessine sur une Form exactement comme on dessine sur une PictureBox.

Pour faire ce que tu veux faire, tu as les méthodes Line et Circle à ta disposition.... et c'est facile (il te suffit d'y aller pas à pas)... A toi de mériter ce que tu fais, donc.

Pour ce qui est d'une rotation d'un trait (chaque aiguille de ton horloge n'est jamais qu'un trait) et l'utilisation de la trigonométrie, je veux bien que ce soit un peu plus complexe et te donner dans ce cas un petit coup de pouce.

Voilà donc un code :

Une Form et un Timer Timer1

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 29 30

Code :   Option Explicit Private Const diametre As Integer = 100 Private cy As Integer Private cx As Integer Private ancY As Single Private ancx As Single Private angle As Double     Private Sub Form_Activate() Me.ScaleMode = vbPixels Me.AutoRedraw = True cx = Me.ScaleWidth / 2 cy = Me.ScaleHeight / 2 Me.Circle (cx, cy), diametre, vbWhite Timer1.Interval = 100 End Sub   Private Sub Timer1_Timer() Dim pi As Double, toto As Double pi = 4 * Atn(1) toto = (angle / 180) * pi Me.Line (cx, cy)-(ancx, ancY), Me.BackColor ancY = cy + Sin(toto - (0.5 * pi)) * diametre ancx = cx + Cos(toto - (0.5 * pi)) * diametre Me.Line (cx, cy)-(ancx, ancY) angle = angle + 1 End Sub

---

Pour le calcul de l'angle, je te laisse faire, quand même ... (il ne dépend que de l'heure).

Bonne continuation...

Ouch ... 10 minutes pour me repondre 8O

Bravo et merci beaucoup ucfoutu !

Salut

Citation:

---

Envoyé par Morbazan

j'ai besoin de "déssiner" l'aire de jeu, de 10 * 10 cases par exemple, mais je ne vois pas comment je dois faire
.....
je peux utiliser les coordonées de la souris pour déterminer sur quelle case l'utilisateur a cliqué et vérifer la présence de bombe avec une matrice

---

Citation:

---

Envoyé par ucfoutu

Pour faire ce que tu veux faire, tu as les méthodes Line et Circle à ta disposition.... et c'est facile

---

une suite de contrôle image (indexé) disposé en ligne par colonne pourait être plus pratique, l'index etant récuperable directement dans les subs, Private Sub ImageCases_Click(Index As Integer), MouseDown, MouseMove, MouseUp....

Bonjour Francis,

A voir... a voir ...
Un petit tour alors vers le contrôle PictureClip et ses divisions ;)
Amitiés.

Citation:

---

Envoyé par ucfoutu

A voir... a voir ...

---

;)
Remarque amicale
Il y a bien des fois plusieurs solutions à un même problème.
Je suppose que ces bombes ne seront pas toujours au même endroit, en changent l'image, en mettant la propriété Tag de l'image "Bombe" ou "Rien", il lui sera pratique de gérer des réaction adéquate.
Des contrôles images permettent de changer justement l'image contenue au lieu d'agir sur l'ensemble de l'aire du jeu.
En ayant 2 PictureBox en réserve, un juste le décor de fond et l’autre décor de fond plus bombe, il lui serra facile de réinitialiser une nouvelle partie (en utilisant la fonction RND).

J'ai ouvert VB et je me suis rendu compte que je ne sais même pas utiliser picturebox pour déssiner ... pouvez vous me donner l'adresse son l'utilisation, je n'en ai pas trouvé.

Et ucfoutu, merci pour ton code pour l'horloge, mais je me demande toujours en quelle unité sin et cos renvoie leur valeur :D

Commençons par le commencement, la touche F2 dans l'editeur VB te permet d'avoir toutes les informations sur les controles, tu choisis dans la liste de gauche le controle (PictureBox), dans la liste de droite tu trouves toutes les propriétées, evenement du controle, dans la partie basse de la fenêtre, une petite explication et avec F1 ou le bouton ? tu obtient plus d'infos (et exemples) en ouvrant MSDN Libray Visual Studio.
La propriétée Line doit t'interesser

Merchi j'ai trouvé :yaisse2:

Et pour les valeurs de sin() et cos() ? :P