MACHINE À SOUS
cs_Benouille
Messages postés
215
Date d'inscription
jeudi 24 octobre 2002
Statut
Membre
Dernière intervention
7 septembre 2007
-
6 juin 2005 à 12:42
cs_ABF Messages postés 227 Date d'inscription samedi 21 mai 2005 Statut Membre Dernière intervention 26 avril 2012 - 17 janv. 2007 à 15:49
cs_ABF Messages postés 227 Date d'inscription samedi 21 mai 2005 Statut Membre Dernière intervention 26 avril 2012 - 17 janv. 2007 à 15:49
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/31689-machine-a-sous
https://codes-sources.commentcamarche.net/source/31689-machine-a-sous
17 janv. 2007 à 15:49
Ici tu fais de "l'aléatoire" mais comment gérer à l'avance si l'on gagne ou l'on perd (ex : vrais casinos) !!!
Sinon c'est pas mal
8 juin 2005 à 10:04
Entre temps j'ai trouvé un tut génial écrit par P. Lasserre sur Developper.com, c'est vraiment très bien écrit et d'une clarté quasi biblique, je le conseille à tous ceux qui désirent apprendre VB.NET qu'ils pratiquent VB6 ou non.
Ce qui fait que j'ai effectivement appris qu'on pouvait utiliser "+=" ou "++" comme en C++ ainsi que la méthode ".ToString" pour afficher des chiffre dans un contrôle.
L'utilisation de "Région/End Région" je sais qu'elle est inutile dans ce cas de figure, je l'ai mise pour m'amuser.
Il faut vraiment en .Net perdre les réflex de VB.x, l'utilisation du sender.name associé à un select case en est l'exemple, il était sauf erreur de ma part, impossible en VB.
Le langage est vraiment beaucoup plus riche et se rapproche beaucoup plus de C++ ou Delphi que de VB.x.
Bon merci à tous, je retourne étudier.
6 juin 2005 à 12:42
-> la région peut être interresante pur découper ton code mais si tu fais une région ToutMonCode ça a peu d'intéret
<< Dim il1, il2, il3, icpt, ipm, imise, igain As Integer 'les variables globales >>
-> seul le gain (iGain) est en integer, comme en VB, il faut tous les délarer as integer.
<< il1 = il1 + 1 >>
-> ou il1 += 1 ou il1++
(pour la lisibilité moi j'aime bien les += -= ...)
<< Label4.Text = Str(ipm) >>
-> tous les objets héritent d' "Objet" qui contient la méthode .ToString:
lbl4.text = ipm.ToString
<< Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.ImageList = ImageList1
>>
-> quel intéret de réaffecter la liste a chaque fois alors que c'est déja fait à l'initialisation?
d'ailleus les 3 fonctions suivantes se ressemblent beaucoup:
<< Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.ImageList = ImageList1
Label1.ImageIndex = il1
il1 = il1 + 1
If il1 > 7 Then il1 = 0
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label2.ImageList = ImageList1
Label2.ImageIndex = il2
il2 = il2 + 1
If il2 > 7 Then il2 = 0
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label3.ImageList = ImageList1
Label3.ImageIndex = il3
il3 = il3 + 1
If il3 > 7 Then il3 = 0
End Sub
>>
-> la meme en un:
Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick, Timer2.Tick, Timer3.Tick
Select case sender.name
case "timer1":
Label1.ImageIndex = il1
ImageSuivante (il1)
case "timer2":
Label2.ImageIndex = il2
ImageSuivante (il2)
case "timer3":
Label3.ImageIndex = il3
ImageSuivante (il3)
End select
End Sub
public sub ImageSuivante(byref PosActuelle As Integer) As Integer
PosActuelle += 1
If PosActuelle > 6 Then
PosActuelle = 0
else
PosActuelle += 1
End If
End Sub
la premiere sub te montre comment utiliser plusieurs handle,
la fonction ImageSuivante est externalisée ce qui évite d'avoir plusieurs fois le meme code d'une part, et de ne pas avoir a modifier plusieurs endroits différents si tu changes le nombres d'images dans la liste par exemple
tu voulais un avis, en voila un:)
bonne prog,
vbnouille.
j'ai tapé le code en direct ici sans le tester mais j'ai relu et n'ai pas vu de coquilles,