Demineur automatique

Soyez le premier à donner votre avis sur cette source.

Vue 5 787 fois - Téléchargée 995 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

Messages postés
63
Date d'inscription
mardi 11 novembre 2008
Statut
Membre
Dernière intervention
31 octobre 2011

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...
Messages postés
63
Date d'inscription
mardi 11 novembre 2008
Statut
Membre
Dernière intervention
31 octobre 2011

Pour "With" et "End With", effectivement cela sert à ne pas avoir à taper plusieurs fois le nom d'un objet, d'une feuille.
Messages postés
63
Date d'inscription
mardi 11 novembre 2008
Statut
Membre
Dernière intervention
31 octobre 2011

Tu peux noter qu'il marche aussi sur XP !
Merci pour cette source géniale...
Messages postés
35
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
3 août 2008

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
Messages postés
46
Date d'inscription
lundi 18 octobre 2004
Statut
Membre
Dernière intervention
3 avril 2008

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.