us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 201610 17 nov. 2011 à 20:07
Bonjour,
Euh, oui, là... alpha5 tu devrais retirer ton dépôt et revenir quand tu auras mis au point quelque chose de plus construit... C'est pas vraiment une source actuellement...
Bon courage,
Amicalement,
Us.
cs_ShayW
Messages postés3253Date d'inscriptionjeudi 26 novembre 2009StatutMembreDernière intervention 3 décembre 201957 8 nov. 2011 à 14:29
je trouve en un coup LOL
Module Module1
Sub Main()
Dim pions As String
Console.Write("Entrez votre combinaison de 5 pions de 0 à 9 --> ")
pions = Console.ReadLine
Console.WriteLine()
Console.WriteLine("j'ai trouvé " & vbTab & "--> " & pions & " en " & "un coup") 'Affiche le résultat
Console.ReadLine()
End Sub
End Module
cs_ShayW
Messages postés3253Date d'inscriptionjeudi 26 novembre 2009StatutMembreDernière intervention 3 décembre 201957 8 nov. 2011 à 11:12
Salut
J'ai trouvé 45678 en 5 coups
je teste encore il trouve toujours en 5 coups
WOW comment tu fais !!!!
à part que tu verifies chaque chiffre de la combinaison
avec un caractère du string 0123456789 d'ailleurs tu peux
utiliser un integer de 0 et l'incrimenté
tu trouves toujours après 5 coup
ben normal la condition
If var1 = Var2 Then
est true 5 fois puisqu'il y a 5 chiffres dans la combinaison
tu peux aussi tout simplement
Affiche = String.Empty
FOR
If var1 = Var2 Then
Affiche &= var1
La prochaine fois essaie d'écrire un code pour que le pc
devine ta combinaison sans la tapper seulement dire
si les chiffres sont bon et ou bien placé
par ex si ta combinaison est 45981
et le pc propose 45013
tu réponds 2 bien placé et 1 bon ou dire 1 bon et 2 bien placé c'est la meme chose
à l'algorithm de trouvé
17 nov. 2011 à 20:07
Euh, oui, là... alpha5 tu devrais retirer ton dépôt et revenir quand tu auras mis au point quelque chose de plus construit... C'est pas vraiment une source actuellement...
Bon courage,
Amicalement,
Us.
8 nov. 2011 à 14:29
Module Module1
Sub Main()
Dim pions As String
Console.Write("Entrez votre combinaison de 5 pions de 0 à 9 --> ")
pions = Console.ReadLine
Console.WriteLine()
Console.WriteLine("j'ai trouvé " & vbTab & "--> " & pions & " en " & "un coup") 'Affiche le résultat
Console.ReadLine()
End Sub
End Module
8 nov. 2011 à 11:12
J'ai trouvé 45678 en 5 coups
je teste encore il trouve toujours en 5 coups
WOW comment tu fais !!!!
à part que tu verifies chaque chiffre de la combinaison
avec un caractère du string 0123456789 d'ailleurs tu peux
utiliser un integer de 0 et l'incrimenté
tu trouves toujours après 5 coup
ben normal la condition
If var1 = Var2 Then
est true 5 fois puisqu'il y a 5 chiffres dans la combinaison
Affiche = Affiche.Remove(i, 1)
Affiche = Affiche.Insert(i, Var2) 'Insère les bons chiffres
tu peux aussi tout simplement
Affiche = String.Empty
FOR
If var1 = Var2 Then
Affiche &= var1
La prochaine fois essaie d'écrire un code pour que le pc
devine ta combinaison sans la tapper seulement dire
si les chiffres sont bon et ou bien placé
par ex si ta combinaison est 45981
et le pc propose 45013
tu réponds 2 bien placé et 1 bon ou dire 1 bon et 2 bien placé c'est la meme chose
à l'algorithm de trouvé