MINUTE TIME
cs_yvesyves
Messages postés
561
Date d'inscription
samedi 10 janvier 2004
Statut
Membre
Dernière intervention
11 octobre 2010
-
14 janv. 2006 à 17:41
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 17 janv. 2006 à 10:01
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 17 janv. 2006 à 10:01
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/35573-minute-time
https://codes-sources.commentcamarche.net/source/35573-minute-time
17 janv. 2006 à 10:01
il s'agit ici de combiner des flags...
le + et le And sont a proscrire
fais le test :
msgbox "hello" , vbCritical and vbYesNo
16 janv. 2006 à 20:18
16 janv. 2006 à 09:41
l'evenement Click de celui ci serait a favoriser à Change : on ne va pas saisir la langue, on va la cliquer, dans la liste (utilises alors le Style DropDownList du Combo
pense a indenter ton code :
Private Sub Optionson_DblClick()
If Optionson.Value = True Then
Optionson.Value = False
End If
End Sub
est bien plus lisible....
OptionOn est à remplacer par une case a cocher (ON / OFF)
ceci :
MonFichier = "C:\WINDOWS\Media\ringin.wav"
est très très très mauvais, tout le monde n'a pas Windows installé sur le lecteur C...
(perso, je n'ai même pas de lecteur C... Windows peut même être installé dansun autre repertoire (cf WinNT))
tu peux alléger ton code en ne faisant pas tous ces tests d'erreurs, dans des endroits bénins :
Private Sub Form_Load()
On Error GoTo errer
langue.AddItem ("Français")
langue.AddItem ("English")
GoTo suite
errer:
A = vbCrLf
MsgBox "Erreur inconnue dans le chargement du programme, contactez pour tout renseignement nico.dav@voila.fr", vbExclamation Or vbOKOnly, "NICOCREATION ERREUR INCONNUE"
End
suite:
End Sub
donne simplement
Private Sub Form_Load()
langue.AddItem "Français"
langue.AddItem "English"
End Sub
a noter que Goto suite , dans ton code peux souvent être remplacé par un 'Exit Sub'
YvesYves:
- je n'ai pas saisi ta remarque #11
- concernant le #9 , ce n'est pas de la chance, et n'a rien a voir avec le fait que resttemps.text ait eu une valeur affectée.... la propriété Text d'un textbox est simplement sa propriété par défaut.
ok pour tes autres remarques
14 janv. 2006 à 17:41
1 - On ne sait pas ce que c'est ta source, il faut plus la decrire et il fallait la placer dans le thème Heure/Date et pas dans Divers.
2 - Quand tu plublis ta source assure toi que les chemin d'acces au forms et modules et classes, etc sont dans le même dossier que le fichier projet .vbp, en effet j'ai été obligé de charger ta feuille a part en faisant fichier ouvrir.
3 - Ta traduction en Anglais n'est pas terminée, ne met pas une fonction si elle n'est pas terminée.
4 - Tu declare une constante de son d'un fichier qui se trouve dans le répertoire Windows. Peut être que tous le monde ne possede pas ce fichier Wav. Place le plutot dans ton dossier de création et appelle le avec App.path, ainsi tu est sûr que quelque soit l'emplacement de ton repertoire tu pourra ouvrir le fichier.
5 - 'If Text1.Text < 0 Then' ca c'est pas bien, une valeur string n'est pas de integer. Le 0 est considéré comme un caractere de chaine et non comme une chiffre... Utilise l'instruction Val(Chaine de type String) pour convertir les chaines en nombre. Heuresemnt que Vb est là, tu aurait eu eu une erreur. A titres d'exemple c'est comme si tu avais fait "a" < 0 ....
6 - Essaie d'éviter les Goto qui ralentissent et pollue la lecture d'un code surtout s'il est long. Utilise les conditions et les boucles....
7 - 'ProgressBar1.Value "100"' Oulà, c'est l'inverse là, tu aurais du mettre100 pas ="100".... ProgressBar.value est une valeur Integer.
8 - Renomme tes contrôles, c'est bof de voir 'command1', "text1".
9 - 'restetemps.Text = restetemps - 0.1' Tu as oublié le '.text'. Tu as de la chance que Vb est reconnu 'resttemps' en 'resttemps.text'. 'resttemps' aurait pas une valeur déclarée avant et il y aurait confusion...
10 - 'A = vbCrLf', tu remplie le code pour rien, efface cet instruction....
11 - 'vbExclamation Or vbOKOnly', c'est pas or c'est '+' ou 'and'. Le 'or' ne veut pas dire que le programme va choisir au hasard, attention, cela vet dire qu'il 'regarde' les deux valeurs...
12 - Pour declarer une variable, on utilise pas une textbox qui est un controle, on la declare avec Dim, Public, Static,...
Il doit rester pas mal d'erreurs mais je vais pas regarder toutes les lignes. encouragement pour la suite. Pas de note, c'est ta premiere source.