POKER SOLITAIRE (JEU DE CARTES)
JoePatent
Messages postés
171
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
20 juillet 2008
-
30 juil. 2003 à 16:02
saulparadise Messages postés 10 Date d'inscription mardi 28 novembre 2006 Statut Membre Dernière intervention 14 mai 2009 - 14 mai 2009 à 05:22
saulparadise Messages postés 10 Date d'inscription mardi 28 novembre 2006 Statut Membre Dernière intervention 14 mai 2009 - 14 mai 2009 à 05:22
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/8048-poker-solitaire-jeu-de-cartes
https://codes-sources.commentcamarche.net/source/8048-poker-solitaire-jeu-de-cartes
14 mai 2009 à 05:22
ùon email est saulmbengue@hotmail.com
1 janv. 2005 à 00:22
un p'tit cadeau pour 2005
9/10
30 juil. 2003 à 23:12
30 juil. 2003 à 17:55
Le tout fonctionne quand meme. Il y a un peu d'optimisation de code a faire. Mais c'est pas mal bien. C'est un bon debut. Lache pas la patate . . .
30 juil. 2003 à 17:33
il faudra changer quelques trucs...
30 juil. 2003 à 16:02
Function recupscore()
For i = 0 To 7
tnomscore(i) = GetSetting(appname:="pokersol", section:="score", Key:="nom" & i)
tptsscore(i) = GetSetting(appname:="pokersol", section:="score", Key:="pts" & i)
If tnomscore(i) "" Then tnomscore(i) "None"
If tptsscore(i) 0 Then tptsscore(i) 0
Next i
End Function
la ligne debutant par tptscore est en mise en jaune...