Télécharger le zip
salut,outch tout ce fichier énorme pour :# Dim A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z, AB, AC, AD, AE As Double## Private Sub Timer1_Timer()# A = Val(Text1.Text)# B = Val(Text2.Text)# C = Val(Text3.Text)# D = Val(Text8.Text)# E = Val(Text7.Text)# F = Val(Text6.Text)# G = Val(Text12.Text)# H = Val(Text11.Text)# I = Val(Text10.Text)# J = Val(Text15.Text)# K = Val(Text14.Text)# L = Val(Text13.Text)# M = Val(Text19.Text)# S = Val(Text18.Text)# T = Val(Text21.Text)# Y = Val(Text25.Text)# V = Val(Text23.Text)# U = Val(Text22.Text)# X = U / 100# W = ((T * (X + 1) ^ V) - (Y * V))# Text24.Text = W# On Error GoTo Erreur# Z = Val(Text31.Text)# AB = Val(Text32.Text)# AC = Val(Text33.Text)# AD = (Z * (AB / 100))# Text34.Text = AD# AE = ((AD / AC) + (Z / AC))# Text35.Text = AE# GoTo Fin# Erreur:# rep = MsgBox("Nombre de mois du crédit différent de 0! Si vous n'avez pas de crédit il faut mettre quand même 1 (minimum) dans case mois cela ne changera rien a votre budget merci!", , "Désoler")# Text33.Text = 1# Fin:# O = A + B + C# P = D + E + F + G + H + I# Q = J + K + L# R = O + P + Q# N = M + S - R# Text16.Text = N# Text4.Text = O# Text5.Text = P# Text9.Text = Q# Text17.Text = R# End Sub comme on peut le voir, aucun typage, aucune nommage, aucune indentationc'est presque du hasard que (si) çà fonctionne...mais dis-moi, tu viens de t'inscrire juste pour déposer cette source, en es-tu l'auteur? (ce Steve R).il y a fort à parier que non.à suivre...
si c moi. mais justement je me suis inscrit pour pouvoir developper mon VB.aprendre a simplifier mes programmes.
la taille du fichier est de 4,00 Go !!!!Comme cela se fait -il ?
ouai à peu près 4Go... à Marseille :Dje plaisante, pas taper!!!43 867 octetsçà fait un fichier de 42Ko, ce n'est pas énorme mais comme il y a beaucoup de contrôles, le code est au final insignifiant.cf : http://files.codes-sources.com/fichier.aspx?id=47065&f=budgettotal.frm
apres l'avoir decompressée , j'ai mis le dssier a la corbeille, j'ai eut un message me disant que le dossier etait trop gros .!un probleme que je ne m'explique pas ! voir ici :http://www.bonprojet.com/budjet.JPGj'ai rechargé 2 fois l'archive , et j'arrive encore au meme probleme !
pendant l'exécution, comme après :http://www.monsterup.com/upload/1213995390.jpgautant le code est infecte (et ouai désolé !!), autant le projet est sain :)
a prend moi a simplifier se code quel manoeuvre puije faire?merci
applique les premières remarques que j'ai laissé sur ta source 'TABLEAU PERIDOQUES' => option explicit, nommage des contrôles, typage correct, éventuellement groupe de contrôles
ok voila pour form1 je croi que c ce que tu voulai.pe etre un jour je vais grandir en prog enfin merci
c'est déjà mieux oui.il y a encore des erreurs :Créditform, AD => variable non définiesur cette même Form, toujours aucun contrôle nommétu as fait l'effort sur la première, c'est déjà plus lisiblemanque quand même le nommage pour les labels et les frames.tu me diras "ils ne servent que pour afficher un titre donc on s'en fout un peu" c'est vrai mais autant prendre de bonnes habitudes : TOUJOURS NOMMER TOUS SES CONTRÔLESde plus il est préconisé de mettre un préfixe de 3 lettres par rapport au type du contrôleta zone de texte va donc passer de "salaire" à "Txt_Salaire" ton premier label va passer de "Label1" à "Lbl_AssuAuto"ta form va passer de "Budgetglobalform" à Frm_Budget"idem pour tout..à savoir que comme justement pour les labels "on s'en fout un peu", tu peux simplement nommer "Lbl_Info" et créer un groupe de contrôle (cf commentaire de la dernière fois)tu as remarqué pour tes captions d'ailleurs, tu as sans doute copié le nom un peu partout..."Assurance (Auto)" : OK"EDF GDF (Auto)" : ah bon? ^^dans ton timer tu calcules en boucle.tu as pris VAL, très bien.cependant si on tape un chiffre à virgule, VAL ne prendra que l'entier.utilise plutôt CDBLtu reprends ensuite le résultat sous forme de chaîne avec STR, ok.préfère CSTR ou STR$ tout de même, STR va te renvoyer un VARIANTl'utilisateur peut saisir autre chose que des chiffres....ok avec VAL pas d'erreur mais c'est à toi de vérifier la saisieçà ne fait pas sérieux de pouvoir ajouter "bonjour" à "5500"attention à ton timer (pas non plus nommé) également....tu as mis l'intervalle à 11 = 1ms (en réalité 18 mais bon)tu crois vraiment que c'est la peine de faire tant de calculs à la seconde?100ms serait déjà largement suffisantvoilà t'as un peu de quoi encore bosser :)
ok je le ferai bientot mais cetait juste le form1 que jai modifier
desoler pour les auto c pour dir si c virer automatiquement ou si sa attend la fin de lanne pour etre tirer sur lepaargne tinquite je vais y virer
voila je suis en train de modif le progmais quand je met CDBL a la place de Val sa me met type incompatible pourquoisinon AD etai un oublie c reglertimer regler a 200les controle son nommer a 90%voila pe tu maider encore une fois stp
j'vais te laisser chercher un peu quand même, t'apprendras plus de choses comme çà ;)cf "option explicit", "cdbl", t'as juste à presser la touche [F1] dans ton IDE (dans vb6)
sa ye jai compris cdbl sa marche bienpar contre quand je fais F1 il me dit que jai pa la msdn installerlennui c que jai plus le cd du msdn jai juste le cd vb6 avec c++ 6.0 que je ne touche plus trop compliquer pour moi le c++bon alors stp c quoi option explicit
CF ta première source :http://www.vbfrance.com/codes/TABLEAU-PERIDOQUES_47072.aspxmon commentaire le 21/06/2008 17:44:43*il faut prendre le réflexe de déclarer/nommer/typer correctement ses variables.pour être certain de ne pas oublier, toujours écrire en toute première ligne "option explicit".çà te permet d'avoir un message d'erreur en cas d'oubli de déclarationnb : cette ligne pour aussi s'écrire toute seule : outils > option > Editeur > déclaration des variables obligatoirec'est pourtant clair, çà sert à avoir une erreur en cas d'oubli, donc te forcer à tout nommer. pourquoi veux-tu que çà serve absolument à autre chose... ensuite c'est bien beau que je te donne des conseils et du code mais si tu ne cherche pas un peu par toi-même c'est une perte de temps pour tous les deuxgoogle : à quoi sert la mention "option explicit"le 6e lien :http://xlbysteph.free.fr/aideinformatique/excel_vba_1.htmgoogle : télécharger msdn vb6le 1er lien mène directement vers :ftp://ftp-developpez.com/vb/msdnvb6/msdnvb6fr.rart'as plus qu'à remonter tes manches :)
merci jai trouver la msdn je la telecharge encorelerci pour ton aide.sinon le prog ten posse quoi
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 453 membres 263 nouveaux aujourd'hui 16 151 membres club