CASSE-BRIQUES
matovitch
Messages postés
31
Date d'inscription
jeudi 2 août 2007
Statut
Membre
Dernière intervention
19 avril 2009
-
2 août 2007 à 09:50
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 5 août 2007 à 22:19
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 5 août 2007 à 22: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/43638-casse-briques
https://codes-sources.commentcamarche.net/source/43638-casse-briques
2 août 2007 à 09:50
2 août 2007 à 14:24
Comme d'habitude, je met une bonne note quand j'aime bien la source ;)
Sinon quelques conseils :
1) essaye de ne pas mélanger les types de donnée. Exemple : "g_NbBrique = Combo1.Text" alors que la variable est une Integer, et Combo1.Text une string.
Dans ce cas on fera : g_NbBrique = val(Combo1.Text) (car on récupère un chiffre, pas une string)
De même "Combo1.Text g_NbBrique" devient "Combo1.Text Cstr(g_NbBrique)"
2) MsgBox "Erreur !!" ==> MsgBox Err.Number & "__" & Err.Description, pour avoir une description plutôt qu'un message "Erreur !!" ^^
3) CacherSouris et MontrerSouris pas forcément nécessaires (car juste un appel à une fonction de l'API, donc tu peux mettre directement "call ShowCursor(false)" à la place de CacherSouris.
4) Dans IniFeuille, remplacer par :
With fraInfo
.Left = 10 'MODIF
.Top = Picture1.Height
.Width = Me.ScaleWidth - 10 'MODIF
End With
pour éviter le bug tout à gauche de l'écran.
5) Private Sub Command1_Click()
Unload Imgbrik(180)
End Sub
est inutile (pas de Command1 et sub jamais appelée)
6) Dim l_i As Integer est inutile aussi (jamais utilisée)
Sinon pour une première source, c'est bien ! Commenté, indenté, variables déclarées ...etc.
@+ ;)
2 août 2007 à 14:37
C'est vrai que j'aurai du attendre un peu avant de le mettre sur le web car c'est encore un chantier !
pour 5) et 6) je sais pas ce que ça fout là ! ;)
pour qu'il y ait autant de remarques tu as peut-etre surnoté !^^
merci ! je corrige ça tout de suite ! @+
2 août 2007 à 16:31
Comment peut-on nummeroter une erreur ?
Vu qu'une erreur c'est normalement imprévu ;)
Merci d'avance !@+
2 août 2007 à 16:38
"Err" est de type "ErrObject" (pour savoir çà, tappes F2 dans VB6 et recherche Err, tu verras), qui est une classe contenant des attributs :
- description
- numéro d'identification
- source
- ...
et des méthodes :
- Clear
- Raise
Donc en fait, VB permet, gràce à çà, de récupérer d'une erreur, et en fonction de son type (If Err.Number=CONSTANTE_D'ERREUR Then....), on reprend le programme avec Resume Next, ou bien on sort de la boucle, ou bien on change une variable...etc.
C'est çà qui s'appelle faire de la "gestion d'erreurs" dans VB.
@+