JOUER AU LITERATI, TEXTEXPRESS, LE MOT LE PLUS LONG, ETC!

Signaler
Messages postés
21
Date d'inscription
mardi 5 juillet 2005
Statut
Membre
Dernière intervention
25 mars 2006
-
Messages postés
56
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
4 mai 2020
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/36617-jouer-au-literati-textexpress-le-mot-le-plus-long-etc

Messages postés
56
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
4 mai 2020
1
à Yves Barreau,
désolé pour cette réponse très tardive.
Je pense que ce sera compliqué de récupérer ce logiciel pour une exploitation sur VB 2008 Express
Mon programme Scrabble est téléchargeable sur www.jpmaton.be/scrabble
Bien à vous,
jp maton
Messages postés
1
Date d'inscription
jeudi 7 janvier 2010
Statut
Membre
Dernière intervention
20 janvier 2010

Bonsoir,

J'ai téléchargé votre logiciel d'anagrammes ce jour, mais je ne possède que
"Visual Basic Studio 2008 Express Edition"

Une possibilité d'exploiter votre logiciel est-elle envisageable avec ce compilateur ?
Je ne sais pas comment récupérer les FORMS et faire le lien avec le programme.

Merci de votre réponse.
Messages postés
56
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
4 mai 2020
1
Bonjour Jean-marc,

J'ai découvert ton programme il y a quelques mois et sur cette base ai développé un Scrabble qui peut se jouer en réseau domestique via winsock ou seul contre le PC. (www.jpmaton.be/scrabble)

Récemment un bug est apparu...
Avec le choix de lettres "QMOULUB" et la masque "---Y--" le PC propose "YOUYOU".
Ce mot n'est évidemment pas acceptable vu le choix de lettres et ... le programme indique une erreur.

J'ai donc reproduit ce phénomène sur ton programme LITERATI et ce même phénomène se produit aussi.
Où est l'erreur ???

J'ai pour ma part éliminé contourné cette erreur en remplaçant :


' For kk = 1 To Len(t(k))
' If InStr(ssj, Mid$(t(k), kk, 1)) = 0 Then
' ltok = False
' Exit For
' End If
' Next kk

par

Dim zz As Byte, mmMot As String
mmMot = ssj
For kk = 1 To Len(t(k))
zz = InStr(mmMot, Mid$(t(k), kk, 1))
If zz > 0 Then
mmMot = Left(mmMot, zz - 1) + Right(mmMot, Len(mmMot) - zz)
Else
ltok = False
Exit For
End If
Next kk

Et cela marche.
Ton programme est très bien et il y a certainement une façon plus élégante de corriger ce bug.
Au plaisir de te lire.
Bien à toi,
JP Maton
Messages postés
35
Date d'inscription
mercredi 30 janvier 2008
Statut
Membre
Dernière intervention
25 juin 2015

bonjour jean marc
chapeau je suis bluffé, surtout que j'ai du mal à comprendre le principe de hashage, je vais de ce pas chercher quelques éclaircissement sur ce sujet.
ça corresponds à ce que je voulais faire , je veux essayé de faire un jeu de scrabble, et je m'attaquais au solution que le micros pourrait proposé.
très bien, encore bravos
Afficher les 8 commentaires