Minute time

Soyez le premier à donner votre avis sur cette source.

Vue 5 887 fois - Téléchargée 656 fois

Description

utilisation de la progressbar
pour ouvrir la source avec visual basic il faut mettre la progressbar

Conclusion :


les mises a jour(en exe) son sur http://nicocreation.site.voila.fr

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
il FAUT mettre Or...

il s'agit ici de combiner des flags...
le + et le And sont a proscrire

fais le test :
msgbox "hello" , vbCritical and vbYesNo
Messages postés
561
Date d'inscription
samedi 10 janvier 2004
Statut
Membre
Dernière intervention
11 octobre 2010

bah la #11 je sais pas ce que ca fait de mettre 'or' entre vbexclamation et vbokonly par exemple. Je met plutôt 'and'.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
pas top de mettre 'language' en Text du Combo

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
Messages postés
561
Date d'inscription
samedi 10 janvier 2004
Statut
Membre
Dernière intervention
11 octobre 2010

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 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.

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.