BUDGET MENSUEL
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
-
19 juin 2008 à 22:54
aalla01 Messages postés 1 Date d'inscription dimanche 15 février 2015 Statut Membre Dernière intervention 15 février 2015 - 15 févr. 2015 à 18:41
aalla01 Messages postés 1 Date d'inscription dimanche 15 février 2015 Statut Membre Dernière intervention 15 février 2015 - 15 févr. 2015 à 18:41
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/47065-budget-mensuel
https://codes-sources.commentcamarche.net/source/47065-budget-mensuel
15 févr. 2015 à 18:41
25 juin 2008 à 16:22
lerci pour ton aide.
sinon le prog ten posse quoi
25 juin 2008 à 16:06
http://www.vbfrance.com/codes/TABLEAU-PERIDOQUES_47072.aspx
mon 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éclaration
nb : cette ligne pour aussi s'écrire toute seule : outils > option > Editeur > déclaration des variables obligatoire
c'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 deux
google : à quoi sert la mention "option explicit"
le 6e lien :
http://xlbysteph.free.fr/aideinformatique/excel_vba_1.htm
google : télécharger msdn vb6
le 1er lien mène directement vers :
ftp://ftp-developpez.com/vb/msdnvb6/msdnvb6fr.rar
t'as plus qu'à remonter tes manches :)
25 juin 2008 à 15:21
par contre quand je fais F1 il me dit que jai pa la msdn installer
lennui 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
25 juin 2008 à 15:07
cf "option explicit", "cdbl", t'as juste à presser la touche [F1] dans ton IDE (dans vb6)
25 juin 2008 à 15:00
mais quand je met CDBL a la place de Val sa me met type incompatible pourquoi
sinon AD etai un oublie c regler
timer regler a 200
les controle son nommer a 90%
voila pe tu maider encore une fois stp
25 juin 2008 à 14:22
25 juin 2008 à 14:08
25 juin 2008 à 12:29
il y a encore des erreurs :
Créditform, AD => variable non définie
sur cette même Form, toujours aucun contrôle nommé
tu as fait l'effort sur la première, c'est déjà plus lisible
manque 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ÔLES
de plus il est préconisé de mettre un préfixe de 3 lettres par rapport au type du contrôle
ta 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 CDBL
tu 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 VARIANT
l'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 à 1
1 = 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 suffisant
voilà t'as un peu de quoi encore bosser :)
25 juin 2008 à 12:03
pe etre un jour je vais grandir en prog enfin merci
24 juin 2008 à 14:34
=> option explicit, nommage des contrôles, typage correct, éventuellement groupe de contrôles
24 juin 2008 à 14:14
merci
20 juin 2008 à 22:58
http://www.monsterup.com/upload/1213995390.jpg
autant le code est infecte (et ouai désolé !!), autant le projet est sain :)
20 juin 2008 à 22:34
un probleme que je ne m'explique pas ! voir ici :
http://www.bonprojet.com/budjet.JPG
j'ai rechargé 2 fois l'archive , et j'arrive encore au meme probleme !
20 juin 2008 à 21:26
je 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
20 juin 2008 à 21:06
Comme cela se fait -il ?
20 juin 2008 à 08:08
aprendre a simplifier mes programmes.
19 juin 2008 à 22:54
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 indentation
c'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...