Mistermind

Commenter

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.
S'inscrire maintenant

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.