begin process at 2012 02 11 22:03:56
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Jeux

 > DEMINEUR ASSISTE PAR ORDINATEUR

DEMINEUR ASSISTE PAR ORDINATEUR


 Information sur la source

Note :
Aucune note
Catégorie :Jeux Niveau :Initié Date de création :19/01/2005 Date de mise à jour :05/03/2005 21:16:22 Vu / téléchargé :3 175 / 255
Auteur : cqui789

Ecrire un message privé
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Encore un demineur!
Je crois que je pourrait trouver un nom qui evoque l'Intelligence Artificielle parcequ'il peut deminer automatiquement tous les coups faciles sur 3 niveaux d'analyse.
il ne vous reste que les coups difficiles et la chance...sauf si vous desactivez l'analyse


 Conclusion

Pour jouer, tout me semble comprehensible d'instinct
La dimension s'ajuste avec le menu partie
La difficulte (ou plutot simplicite) s'ajuste avec le menu analyse

Je n'ai pas de compilateur donc seul le source est disponible.

Dernier detail, je cherche un boulot

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

21 janvier 2005 02:05:47 :
A la demande generale, j'allege la form de depart en creant les case au runtime. On ne risque plus d'exploser au demarage on demarre en mode max.
24 janvier 2005 01:42:27 :
J'avait demande des commentaires sur la prog mais personne n'a vu que je m'embetait avec les rnd allors que c'est gere par randomize... sinon, je l'ai refait avec les graphiques qui vont bien (J'ai pique les images de l'Autodemineur et rajoute celle qui me manquais)
14 février 2005 23:54:21 :
Refait de fond en comble: J'ai cree une classe point qui simplifie l'expression des calculs. J'ai ajoute une pile FIFO, comme ca il ne cherche des coups fesables que la ou il est deja passe au lieu de tout balayer plusieures fois. La taille maxi depend de la taille de la zone de travail de l'ecran.
05 mars 2005 21:16:23 :
J'ai decouvert comment remplacer une serie d'images par une picturebox allors je ne me suis pas prive. Et comme on n'est pas limite par le nombre d'image mais par la taille de l'ecran, J'ai autorise le depassement de la capacite en reduisant jusqu'a moitie la taille des cases...

 Sources du même auteur

Source avec Zip Source avec une capture CHOIX D'UNE COULEUR
Source avec Zip FRAME MOBILE
Toutes les sources de cqui789

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) DES CHIFFRES ET DES LETTRES par ShayW
Source avec Zip Source avec une capture FAIRE REBONDIR PLUSIEURS BALLES par pierreh51
Source avec Zip Source .NET (Dotnet) JE DES BRIQUES MOUVANTES par alpha5
Source avec Zip Source avec une capture TOWER BATTLE 2 par Softmama
JEU D'ADRESSE ,JEU DE TIR À LA SOURIS par yvesdudu
Toutes les sources de la catégorie Jeux

Commentaires et avis

Commentaire de cqui789 le 19/01/2005 21:22:42

C'est mon premier code VB.
N'hesitez pas a critiquer, si c'est constructif.
merci

Commentaire de econs le 20/01/2005 10:16:27 administrateur CS

Je suis très joueur, et là, quand je gagne 3 parties consécutives avec 3 clics souris, je suis déçu.

L'analyse est tellement performante qu'elle ne laisse pas la place à la réflexion.
Je clique et paf ! J'ai gagné !
C'est un peu frustrant.


Deux solutions :
- rajouter plus de mines
- changer la récursivité dans la recherche des cases vides.


Autre petite chose.
Si tu déclarais dynamiquement tes contrôles lCase, ta source serait plus légère (je parle ici du fichier frmdemi.frm). Tu sembles t'être bien amusé à copier-coller 1750 Labels sur ta feuille :o)


A part çà, çà fonctionne très (trop ?) bien. Bravo.

Commentaire de econs le 20/01/2005 10:18:15 administrateur CS

J'ai oublié un autre truc :

- Au premier clic, dans la version du démineur de Windows, on ne peut pas tomber sur une mine.
Dans ton prog, on peut mourir sur le premier coup. C'est dommage.

Par contre, j'essaye de gagner le niveau simple en plus de 10 secondes .... et c'est dur .... on gagne vraiment trop facilement !

Commentaire de econs le 20/01/2005 10:23:30 administrateur CS

J'ai fini le niveau expert en 2 clics....
Je te rassure, çà ne fait pas çà à tous les coups, mais ta recherche récursive va vraiment trop loin ... Y'a plus de place pour la réflexion. Quand tu as tout calculé, il ne reste de la place que pour le pif, la chance, le coup de bol quoi ...

On se lasse vite (du moins, c'est mon cas) d'un jeu où on gagne uniquement par chance.

Commentaire de cqui789 le 20/01/2005 11:21:52

pour les controles,  je suis trops feneant pour copier coller
j'ai cree une case,
ferme VB et ouvert la fenetre en wordpad
copie le texte du controle dans excel
fait 2 ou trois equations qui vont bien pour copier la case de base, et calculer l'index et la position
recopie ces fonctions autant de fois qu'il faut
copie les case dans wordpad, la ou il faut
rouvert VB
et voila.

la partie controle dynamique de mon manuel doit etre buguee  parce que leur exemples ne marchent pas et ma version de VB n'a pas l'aide.
je pensait chercher sur VBfrance.

a part ca, je reconnait que le jeu a plus d'interet a etre programe qu'a jouer, en mode debutant surtout,
Le demineur d'origine me lasse parceque la pluspart des clics sont trops simples a trouver.
Au debut, je ne voulait que l'analyse 1 mais je me suis laisse entrainer par le gout de la programation... je commence a penser a analyse4!

Dans le menu analyse, vous pouvez choisir le niveau de l'ordinateur.

pour plus de difficulte,
Dans le menu partie, choisissez custom
puis cliquez sur les trois boutons max
(je prefere mines a 350 ou 400)
puis OK
(puis repositionnez la fenetre, je vais corriger le bug plus tard)


remarques sur la programation?

Commentaire de econs le 20/01/2005 20:48:50 administrateur CS

Non, pas de remarque sur la programmation. Ca va.

Mais je maintiens qu'une analyse4 ne servirait à rien puisque l'analyse3 résout déjà complètement le problème. Une fois cette analyse passée, il n'y a plus aucun raisonnement logique qui puisse faire avancer le schmilblick. Ton code résout déjà tout ce qu'il est possible de résoudre sur un démineur (et c'est très bien).  
:o)

Petite aide concernant les contrôles dynamiques :

Soit un Label nommé lCase, avec la propriété Index à 0, et la propriété Visible à False.

For i=1 to 10
Load lCase(i)
With lCase(i)
.Top = lCase(0).Top + i * lCase(0).Height
.Caption = i
.Visible = True
End With
Next i

Ensuite, à toi de jongler avec les indices pour créer une grille.

Commentaire de cqui789 le 20/01/2005 22:49:48

merci pour le tuyau pour 'load...'
Je l'ai eu sur le chat dans l'apres midi et la form a fondu en taille, tout le projet est presque plus petit que le ZIP.
Je fignole un peu et je met a jour.

Concernant analyse4,
essaye des dimentions personalisees de
height 35 (max)
width 50 (max)
mines 400
et tu vera...

et puis, dans le menu analyse, choisi analyse 1 ou 2 si tu prefere.

Commentaire de cqui789 le 15/02/2005 00:06:03

Pour ce qui est de l'analyse niveau 4, elle pourrais se faire, il y a encore aumoins 2 raisonnement logiques possible type avant de s'attaquer aux statistiques (que je suis malheureusement incapable de traiter serieusement) ou aux raisonnements specifiques, un peu lourds pour ma methode.
mais ce sont les plus interressant a resoudre soi-meme et j'ai surtout fait ce jeu pour m'entrainer a la programation.

Que penssez-vous de mon utilisation des classes?

Commentaire de Saros le 19/02/2005 18:54:00

Expert : 1 clic, 2 secondes lol

Rien à dire niveau prog chapeau...
C'est vrai que pour le niveau 4 il y a certains trucs à ajouter mais il n'y en a pas des masses.
Tu devrais ajouter le traitement éventuel des mines à la toute fin, lorsqu'il n'en reste plus qu'une ou deux, et qu'il n'y a alors qu'une seule disposition possible.
Mais bon... Il est déjà excellent comme ça :)

J'étais en train de construire une autre type de solveur, qui se basait sur la création d'ensembles de cases, pondérés par le nombre de mines dans ces cases. En faisant du bidouillage avec les ensembles compléments, on peut arriver facilement à trouver des ensembles entièrement remplis de mines ou au contraire vides. Ca permet de traiter certains cas que le niveau 3 ne traite pas, mais c'est beaucoup plus long (à la fin, il y a un bon paquet d'ensembles)

Pour les statistiques je vois mal comment on peut faire, il y a beaucoup de facteurs qui rentrent en compte...

Quand on clique sur "remettre à zéro", pense à mettre à jour les label directement, l'affichage change pas...

Voilà voilà...

Commentaire de cqui789 le 22/02/2005 00:42:34

Merci pour les comentaires,

J'ai essaye de partir sur des ensembles, de facon generale, mais le nombre de cas a prendre en compte est asse eleve et les cas particuliers que je traite resolvent 98% des cas.

Pour ce qui est des statistiques, le terme n'est pas tres bien choisi.

Et je vais voir le bug des que possible.

Commentaire de cqui789 le 23/02/2005 00:57:01

pour ce qui est du bug sur les meilleurs scores, il faut recharger l'affichage, dans la form frmBest, l'evenement du bouton concerne devient:

Private Sub CeffScores_Click()
ScoresA0
InitScores
Form_Load          '    ligne a rajouter
End Sub

Je ne crois pas que ce soit un probleme majeur, je metrai la source a jour en meme temps que la prochaine modif.

la prochaine amelioration que je vois, comme les prochains niveaux risquent de consommer encore plus de ressource pour encore moins d'effet, serai de marquer les case qui n'apportent plus d'information (toutes les case les encerclant sont elucidees)

Commentaire de cqui789 le 05/03/2005 21:28:41

A oui, j'ai oublie de dire,  et ca ne se voit pas comme j'esperais sur l'apercu, les dimensions maxi sont ...
73 x 125 (en plein ecran 1024 x 768)
et vas aussi vite que quand on etait limite a 35 x 50 du fait des ameliorations
si quelqu'un a un plus grand ecran que moi il pourrait me dire les dimentions maxi sur sont ecran

attention, la dimension max du menu n'est pas le maximun, il faut aller dans personnalise et cliquer les boutons max.


je sait, certains vont dire que c'est devenu ridicule, qu'on ne voit plus les cases mais bon...

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (32 Go)
Entre 1290€ et 1333€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Single Large Rock Formation in Monument Valley
Photo Monument Valley Utah known as The Mittens 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,640 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)