STRIP POKER (REMIS À JOUR, LE LIEN MARCHE !)

-
Messages postés
70
Date d'inscription
jeudi 15 mai 2003
Statut
Membre
Dernière intervention
23 octobre 2004
-
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/264-strip-poker-remis-a-jour-le-lien-marche

Messages postés
70
Date d'inscription
jeudi 15 mai 2003
Statut
Membre
Dernière intervention
23 octobre 2004

LIEN MORT !!!!!!!
Pbm le FULL n'est pas reconnu !

Pour corriger cela il faut ajouter ceci AVANT la reconnaissance du Brelan :
' full:
'********
'rajouté par SYlvain le 7-7-01
If (Num(1) Num(3) And Num(4) Num(5)) Or (Num(1) = Num(2) And Num(3) = Num(5)) Then
lblinfos = "Félicitations: Un Full! Gains: " & Val(lblmise.Caption) * 9
lblcredits.Caption = Val(lblcredits.Caption) + Val(lblmise.Caption) * 9
GoTo suite
End If

Je sais, je sais, une fonction aurait été mieux, mais je me suis adapté à l'exitant.

A+

Démoraliser flint, ho pas bien pas bien !!!
Ce site sombre dans la décadence.