DEMINEUR AUTOMATIQUE

Tr0m Messages postés 29 Date d'inscription mardi 29 janvier 2002 Statut Membre Dernière intervention 27 janvier 2006 - 20 févr. 2002 à 07:48
nathansecret Messages postés 63 Date d'inscription mardi 11 novembre 2008 Statut Membre Dernière intervention 31 octobre 2011 - 23 juin 2010 à 16:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2649-demineur-automatique

nathansecret Messages postés 63 Date d'inscription mardi 11 novembre 2008 Statut Membre Dernière intervention 31 octobre 2011
23 juin 2010 à 16:28
Sinon des fois il foire un peu : il affiche des MsgBox "Gagné" ou "Perdu" alors qu'il est en pleine partie... Ni gagnée ni perdue...
nathansecret Messages postés 63 Date d'inscription mardi 11 novembre 2008 Statut Membre Dernière intervention 31 octobre 2011
23 juin 2010 à 16:22
Pour "With" et "End With", effectivement cela sert à ne pas avoir à taper plusieurs fois le nom d'un objet, d'une feuille.
nathansecret Messages postés 63 Date d'inscription mardi 11 novembre 2008 Statut Membre Dernière intervention 31 octobre 2011
23 juin 2010 à 14:41
Tu peux noter qu'il marche aussi sur XP !
Merci pour cette source géniale...
zwarul Messages postés 35 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 3 août 2008
4 juin 2008 à 12:16
Dim CaseX, CaseY As Integer
Screen.MousePointer = vbHourglass
For i = 0 To 9
With imgCase(i + 11 * GraphNum)
CaseX = (Me.Left + .Left) / 15
CaseY = (Me.Top + .Top) / 15
CaseCoul(i, 0) = GetPixelScreenColor((CaseX + 8), (CaseY + 7))
CaseCoul(i, 1) = GetPixelScreenColor((CaseX + 8), (CaseY + 11))
End With
Next i

c'est la partie en rouge, y a t il une personne qui saurait me faire "une explication de texte"????
j'ai cru comprendre que with et and with permettent d'assigner plusieur propriétés à un objet sans avoir à le recopier x fois, mais le je ne comprends pas tout: caseX et caseY seraient des propriétés de imgCase??? aisi que CaseCoul???

donc voilà comprend pas l'utilisation de with et and with et je ne comprend pas à quoi correspond: (Me.Left + .Left)

ce code est issu de http://www.vbfrance.com/codes/DEMINEUR-AUTOMATIQUE_2649.aspx
gloomy64 Messages postés 46 Date d'inscription lundi 18 octobre 2004 Statut Membre Dernière intervention 3 avril 2008
19 janv. 2008 à 19:40
Pas très au point mais l'idée est génial... et point de vu code très bien optimisé 10/10
cs_Kirua Messages postés 3006 Date d'inscription dimanche 14 avril 2002 Statut Membre Dernière intervention 31 décembre 2008
1 août 2002 à 17:08
Point de vue prog: une belle performance!!
mais je perds qd meme :P
fabiin Messages postés 329 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 8 décembre 2009 6
22 févr. 2002 à 10:13
vraiment sympa :)
Skywalker13 Messages postés 111 Date d'inscription dimanche 6 janvier 2002 Statut Membre Dernière intervention 27 août 2004
21 févr. 2002 à 16:14
Superbe ;)
thekingoftheweb Messages postés 68 Date d'inscription mercredi 9 janvier 2002 Statut Membre Dernière intervention 2 décembre 2002
20 févr. 2002 à 13:45
C génial ton truc !!!
cs_kawash Messages postés 79 Date d'inscription vendredi 8 février 2002 Statut Membre Dernière intervention 27 août 2006
20 févr. 2002 à 08:48
mouahaha cheater generation ;o)
Tr0m Messages postés 29 Date d'inscription mardi 29 janvier 2002 Statut Membre Dernière intervention 27 janvier 2006
20 févr. 2002 à 07:48
lol c cooool
Rejoignez-nous