JEUX: QUI VEUX ATTRAPER DES EUROS.....

z980x Messages postés 897 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 26 juillet 2007 - 18 sept. 2003 à 12:32
FeelCode Messages postés 278 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 27 avril 2006 - 8 janv. 2005 à 10:19
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/8562-jeux-qui-veux-attraper-des-euros

FeelCode Messages postés 278 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 27 avril 2006 1
8 janv. 2005 à 10:19
Lol marran tu pourrai gérer la taile de l'ecrant paske bon en 1280 *1024 c'est un poile petit pis une petit getion de la vitesse aussi :)

aller amuse toi un peux sa fait du bien
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
18 sept. 2003 à 13:16
C'est vrai que les pieces tombent souvent au mm endroit je vais devoir revoir ca lol, mais c'etait juste pour ma marrer lol et pour Directsound!!!
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
18 sept. 2003 à 12:52
lol
z980x Messages postés 897 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 26 juillet 2007 2
18 sept. 2003 à 12:50
lol ouais, mais ca m'amuse... Pour l'instant j'en suis à 1232Euros !

Tu pouvais pas mettre des billets? lol
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
18 sept. 2003 à 12:44
Ben oui c'est pas un scoop lol!!!!!!!!!!!!!!!!
z980x Messages postés 897 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 26 juillet 2007 2
18 sept. 2003 à 12:32
Pour la partie :

'Detection euros pas attraper
For i = 1 To 4
If euro(i).Top + euro(i).Height >= Form1.Height Then
Timer1.Enabled = False
MsgBox "Voila tu as Attraper " & Pognons & "? Soit " & Format(Pognons * 6.55957, "##.##") & "Frs" _
& vbCrLf & "C'est pas encore pour aujourd'hui que tu sera millionaire.. lol", vbCritical, ""
Command1.Visible = True

End If
Next i

Tu mets tout en commentaire (') et hop, tu laisses la main sans bouger a droite et hop, ca compte, ca compte ca compte.... Et tu perds jamais! lol

Sinon c'est marrant !
Rejoignez-nous