Télécharger le zip
Ok, 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 mettre =100 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.
pas top de mettre 'language' en Text du Combol'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 Combopense a indenter ton code :Private Sub Optionson_DblClick() If Optionson.Value = True Then Optionson.Value = False End IfEnd Subest 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 errerlangue.AddItem ("Français")langue.AddItem ("English")GoTo suiteerrer:A = vbCrLfMsgBox "Erreur inconnue dans le chargement du programme, contactez pour tout renseignement nico.dav@voila.fr", vbExclamation Or vbOKOnly, "NICOCREATION ERREUR INCONNUE"Endsuite:End Subdonne simplement Private Sub Form_Load() langue.AddItem "Français" langue.AddItem "English"End Suba 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
bah la #11 je sais pas ce que ca fait de mettre 'or' entre vbexclamation et vbokonly par exemple. Je met plutôt 'and'.
il FAUT mettre Or...il s'agit ici de combiner des flags... le + et le And sont a proscrirefais le test : msgbox "hello" , vbCritical and vbYesNo
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 428 membres 244 nouveaux aujourd'hui 16 151 membres club