Mistermind

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 191 fois - Téléchargée 37 fois

Contenu du snippet

un petit Mister Mind pour debutant.

Source / Exemple :


For I = 1 To 4
         'ess pour essai et cor pour correcte
    If Mid(ls_val_ess, I, 1) = Mid(ls_val_cor, I, 1) Then
        ls_message = Mid(ls_val_ess, 1, I - 1)
        ls_message = ls_message + "*"
        ls_message = ls_message + Mid(ls_val_ess, I + 1, 4 - I)
        ls_val_ess = ls_message
        
        ls_message = Mid(ls_val_cor, 1, I - 1)
        ls_message = ls_message + "/"
        ls_message = ls_message + Mid(ls_val_cor, I + 1, 4 - I)
        ls_val_cor = ls_message
        'bien placé
        li_nbr_bp = li_nbr_bp + 1 
        
    End If
Next I

For I = 1 To 4
    For J = 1 To 4
        If Mid(ls_val_ess, I, 1) = Mid(ls_val_cor, J, 1) Then
            ls_message = Mid(ls_val_ess, 1, I - 1)
        ls_message = ls_message + "*"
        ls_message = ls_message + Mid(ls_val_ess, I + 1, 4 - I)
        ls_val_ess = ls_message
        
        ls_message = Mid(ls_val_cor, 1, J - 1)
        ls_message = ls_message + "/"
        ls_message = ls_message + Mid(ls_val_cor, J + 1, 4 - I)
        ls_val_cor = ls_message
        'mal placé
        li_nbr_mp = li_nbr_mp + 1
            
        End If
    
    
    
    Next J
Next I

Conclusion :


le * et le / sont une petite astuce pour eviter de comptabiliser 2 fois les mal placés.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
20
Date d'inscription
vendredi 31 janvier 2003
Statut
Membre
Dernière intervention
27 septembre 2004

Correction : Master Mind
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
4
un peu rapide comme code, une interface graphique aurait été la bienvenu au moins

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.