Un prog de loto à vérifier mais très bien selon moi ^^
Soyez le premier à donner votre avis sur cette source.
Vue 8 739 fois - Téléchargée 915 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!
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...
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
- Vérifier loto
- Verifier loto - Guide
- Verifier code loto ✓ - Forum - PHP
- Loto python - Guide
- Application de loto turbo 2 - Forum - C / C++ / C++.NET
- Vérifier si une cellule est vide vba ✓ - Forum - Visual Basic
- Messages postés
-
13280
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Membre
- Dernière intervention
- 3 février 2018
4929 août 2006 à 20:09
les FRX par contre contiennent entre autre tes images, il faut donc les laisser.
++
29 août 2006 à 20:04
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??
- Messages postés
-
1812
- Date d'inscription
- mardi 31 mai 2005
- Statut
- Membre
- Dernière intervention
- 26 octobre 2010
129 août 2006 à 19:52
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).
@+
29 août 2006 à 19:23
merci aussi à GeneticW ! Tu as un français parfait c'est incroyable!! JVais faire des efforts!!
- Messages postés
-
1812
- Date d'inscription
- mardi 31 mai 2005
- Statut
- Membre
- Dernière intervention
- 26 octobre 2010
129 août 2006 à 14:03
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.