Un prog de loto à vérifier mais très bien selon moi ^^

Soyez le premier à donner votre avis sur cette source.

Vue 8 585 fois - Téléchargée 834 fois

Description

Bon voilà mon 1er prog bourré d'erreurs mais bon il est classe puisque c'estmon premier. c'est un jeu simple où on parie et on gagne quoi! mais seul pb : il faut excel... et en plus un excel avec des fichiers particuliers... alors moi qui ne suis que débutant, vous pourriez m'aider à reformer ma source pour faire disparaître le excel? merci! (dsl c 1 travail pas mal long mais bon en texte se sré super j'ai appris que en excel...)
J'ai refait quelques modifs dessus il est 1 poil mieux mais jvais le réviser!

Source / Exemple :


'Allez vitre voir au lieu de rester planté ^^

Conclusion :


Donc voilà j'ai noté 2-3 trucs étranges :
parfois les fonts nese mettent pas même quand on les met dans Windir\Fonts;
J'ai essayé des installs pi sa marche pas surtout avec iexpress de windows ( compression en .cab, allez dans exécuter de winXP). j'aurais aussi voulu mettre 2-3 anim mé aucun éditeur de movie pour les mettre en OLE potable, donc pas mal de bugs, aussi c'est mal écrit vous étonnez pas y'a même 2 ou 3 GoTo donc...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

PCPT
Messages postés
13281
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
30
tu peux enlever tous tes OBJ, ils sont dûs à une erreur lors de la compilation.
les FRX par contre contiennent entre autre tes images, il faut donc les laisser.
++
moutonjr
Messages postés
65
Date d'inscription
mercredi 19 juillet 2006
Statut
Membre
Dernière intervention
5 juin 2012

Soit. Je vois ce que tu veux dire : d'ailleurs j'avais vu dans un tuto que le fait de mettre des option explicit aidait à se référer à une var précédemment écrite : ex:

Option explicit
Public MaVar as Long
---
Private Sub Form_Load()
MaVar = 5
End Sub
---
Private Sub Ok_Click()
If MaVar=5 Then
...
End If
End Sub

Si j'avais défini MaVar dans Form_Load, elle n'aurait pas été donnée dans OK_Click je pense, non?
Avec Option Explicit On a pas ce genre de surprises pr débutants comme moi...
Ah au fait est-ce que je peux enlever quelque chose (les OBJ ou FRX) dans mon zip??
violent_ken
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010

De rien pour mon commentaire, et content si il a pu t'être utile ^_-

Concernant les Option Explicit, je te conseillerais de les laisser. A piori inutiles, oui, mais il permettent de générer une erreur lorsqu'il y a un problème de déclaration.


Exemple, dans une form :

Option Explicit
Private Sub Form_Load()
X=5
MsgBox X
End Sub


il y aura une erreur à l'exécution, car X n'a pas été déclaré. On corrige ensuite le problème :


Option Explicit
Private Sub Form_Load()
Dim X As Long
X=5
MsgBox X
End Sub


Dans cet exemple, l'intérêt n'était pas évident. Mais dans celui là:



Option Explicit
Private Sub Form_Load()
Dim lNbrCoupsJoues As Long
lNbrCoupsJoues =5
MsgBox lNbrCoupsJoue
End Sub

ici, il n'y a pas une erreur de déclaration, mais une erreur de frappe (à la ligne du MsgBox, il manque un 's' à lNbrCoupsJoues) que le Option Explicit a permis de trouver !

Et comme à la compilation "Option Explicit" disparait, cela ne surcharge pas le programme.

Garde le si tu veux, mais çà peut être vraiment utile (moi je le garde).
@+
moutonjr
Messages postés
65
Date d'inscription
mercredi 19 juillet 2006
Statut
Membre
Dernière intervention
5 juin 2012

Merci Violent_Ken pour ton analyse qui m'a permis d'enlever certaines choses aberrantes! J'ai utilisé excel parce que je ne savais pas comment faire des opérations 1/0 sur un fichier autre ( j'ai appris sur excel :S) et j'enlèveraiu les otions explicites! je vaius en faire une mise à jour déjà comme cela!
merci aussi à GeneticW ! Tu as un français parfait c'est incroyable!! JVais faire des efforts!!
violent_ken
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010

Salut, il est vrai que le code n'est pas vraiment optimisé : exemple,


Private Sub optNumber_Click(Index As Integer)
Select Case Index
Case 0
Number = 0
Case 1
Number = 1
Case 2
Number = 2
Case 3
Number = 3
Case 4
Number = 4
Case 5
Number = 5
Case 6
Number = 6
Case 7
Number = 7
Case 8
Number = 8
Case 9
Number = 9
Case 10
Number = 10
Case 11
Number = 11
Case 12
Number = 12
Case 13
Number = 13
Case 14
Number = 14
Case 15
Number = 15
End Select
End Sub

se remplace aisément par:

Private Sub optNumber_Click(Index As Integer)
if Index<=15 then Number=Index
End Sub


Autre remarque,
Public Number, Coefficient, tmp, Result, cheat, TenPaySum As Byte
> toutes les variables, à l'exception de la dernière, sont déclarées en Variant (utilisation mémoire maximum).
A remplacer par:
Public Number as Long, Coefficent as Byte, sString as String....

Dernière petite remarque, par exemple sur cette ligne :

tmp = MsgBox("Veuillez séléctionner un nombre!", vbInformation, "Loto")

Tu n'attends aucun retour de la part du MsgBox, alors pourquoi utiliser la variable tmp ?

Tappes simplement :
MsgBox "Texte",vbInformation,"Titre" sans les parenthèses.

L'utilisation de déclaration de variables publiques est aussi étrange... mieux vaut déclarer dans les procédures avec Dim ... As ... pour les variables locales.

Concernant l'utilisation de Excel, c'est.... étrange aussi !


Mon avis général : c'est un bon début ! Continue comme çà. Il y a des choses bien, et déjà de bonnes habitudes (nomination intelligente des controles, bonne utilisation de la tabulation dans la présentation du code...)

@+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.