Demineur automatique

5/5 (11 avis)

Vue 6 297 fois - Téléchargée 1 087 fois

Description

Petit programme qui commande la sourie pour deminer a votre place.
Marche avec Demineur de windobe 98 et 2000. J'ai pas teste d'autres versions, mais vous pouvez rajouter la votre vous-meme en faisant des copie d'ecran. C'est a ca que sert la troisieme option graphique (vide). (Si possible, sauvez les images de case 16x16pixel en .gif avec Photoshop, pas avec Paint car il change trop les couleur au moment de sauvegarder)
Pour reconnaitre les cases, il lit la couleur des pixels a l'ecran. J'ai choisi deux pixels qui permettent de reconnaitre toutes les cases. Comme les couleurs sauveradees dans les images et les couleurs ecran sont toujours un peu differentes, j'ai fait un system qui decide si les couleurs se ressemblent suffisament ou non. Si ca ne marche pas bien sur votre ordi, changez la constante CoulTol en plus ou en moins.

Source / Exemple :


'Le code est trop long.
'Tout est dans le ZIP.
'J'ai essaye de mettre des commentaires, mais ...

Conclusion :


Ca marche pas mal, mais au bout d'un moment, le prog sature et ca plante. Je ne sais pas comment remedier a ce probleme. L'API pour lire les pixel a l'ecran n'a pas ete prevue pour etre utilisee a repetition et au bout d'un moment elle fait deborder une pile ou je ne sais quoi. A ce moment, arretez juste le prog et relancez le.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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
Afficher les 11 commentaires

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.