FeelCode
Messages postés278Date d'inscriptionvendredi 16 avril 2004StatutMembreDernière intervention27 avril 20061 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és1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 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és1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 18 sept. 2003 à 12:52
lol
z980x
Messages postés897Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention26 juillet 20072 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és1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 18 sept. 2003 à 12:44
Ben oui c'est pas un scoop lol!!!!!!!!!!!!!!!!
z980x
Messages postés897Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention26 juillet 20072 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
8 janv. 2005 à 10:19
aller amuse toi un peux sa fait du bien
18 sept. 2003 à 13:16
18 sept. 2003 à 12:52
18 sept. 2003 à 12:50
Tu pouvais pas mettre des billets? lol
18 sept. 2003 à 12:44
18 sept. 2003 à 12:32
'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 !