Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 21:29:43

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par PCPT

RE : VB 2005 ET INTERNET EXPLORER par PCPT

PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par casy

+ de logiciels à télécharger

1 464 846 membres
338 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 010 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

BUDGET MENSUEL

Information sur la source

Catégorie :Divers Classé sous : budget, budjet, mensuel, calcul, steve roques Niveau : Débutant Date de création : 19/06/2008 Date de mise à jour : 25/06/2008 15:40:42 Vu / téléchargé: 6 546 / 519

Auteur : HariSeldon69210

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (17)

Ajouter un commentaire et/ou une note

Description

Calcul budget mensuel asser complet en 1 page
avec calcul de taux et companie. calcul dinteret et crée par un amateur Steve Roques. 19/06/08

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

budgettotal.frm 41 396 octets
budgettotal.frx1 090 octets
budgettotal.PDM8 095 octets
budgettotal.vbp 957 octets
budgettotal.vbw 116 octets
credit.frm 16 285 octets
credit.frx1 090 octets
MSSCCPRJ.SCC345 octets

Télécharger le zip

Historique

25 juin 2008 12:04:51 :: voila modif typage comprit et appliquer
25 juin 2008 15:40:42 :: voila jai mis a jour tes dernieres aides merci

Sources du même auteur

TABLEAU PERIDOQUES

Toutes les sources de HariSeldon69210

Sources de la même categorie

VOTRE MÉTÉO VILLE AVEC GOOGLE MÉTÉO! par vbnino

VELLEMAN K8055 PROGRAMME POUR COMPRENDRE ET UTILISER LE CODE... par nono7380

PSEUDO EMULATEUR D'EXE par Frelon

POO ET UTILISATION DE QUELQUES BOITES DE DIALOGUE (SAVE ET O... par kilvanox

EXPORTER MFLEXGRID DANS DOCUMENT WORD par garoui1

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

CALCUL DES HONORAIRES CAC par gbegerco

CALCUL DU NOMBRE DE DENTS D'UN TRAIN D'ENGRENAGES EN FONCTIO... par lexsty

CALCUL DE RÉSISTANCES par thomas71

DLL POUR EXECUTER LES FONCTIONS ET PROCEDURES EXTERNES A TON... par asimengo

CALCUL DE MORTIER ET BETON par achouiref

Commentaires et avis

Commentaire de PCPT le 19/06/2008 22:54:01 administrateur CS

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

Commentaire de HariSeldon69210 le 20/06/2008 08:08:32

si c moi. mais justement je me suis inscrit pour pouvoir developper mon VB.
aprendre a simplifier mes programmes.

Commentaire de clementpat le 20/06/2008 21:06:18

la taille du fichier est de 4,00 Go !!!!

Comme cela se fait -il ?

Commentaire de PCPT le 20/06/2008 21:26:32 administrateur CS

ouai à peu près 4Go... à Marseille :D
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

Commentaire de clementpat le 20/06/2008 22:34:02

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

j'ai rechargé 2 fois l'archive , et j'arrive encore au meme probleme !

Commentaire de PCPT le 20/06/2008 22:58:21 administrateur CS

pendant l'exécution, comme après :
http://www.monsterup.com/upload/1213995390.jpg

autant le code est infecte (et ouai désolé !!), autant le projet est sain :)

Commentaire de HariSeldon69210 le 24/06/2008 14:14:34

a prend moi a simplifier se code quel manoeuvre puije faire?
merci

Commentaire de PCPT le 24/06/2008 14:34:53 administrateur CS

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

Commentaire de HariSeldon69210 le 25/06/2008 12:03:53

ok voila pour form1 je croi que c ce que tu voulai.
pe etre un jour je vais grandir en prog enfin merci

Commentaire de PCPT le 25/06/2008 12:29:44 administrateur CS

c'est déjà mieux oui.
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 :)

Commentaire de HariSeldon69210 le 25/06/2008 14:08:05

ok je le ferai bientot mais cetait juste le form1 que jai modifier

Commentaire de HariSeldon69210 le 25/06/2008 14:22:24

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

Commentaire de HariSeldon69210 le 25/06/2008 15:00:33

voila je suis en train de modif le prog
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

Commentaire de PCPT le 25/06/2008 15:07:28 administrateur CS

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)

Commentaire de HariSeldon69210 le 25/06/2008 15:21:27

sa ye jai compris cdbl sa marche bien
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

Commentaire de PCPT le 25/06/2008 16:06:36 administrateur CS

CF ta première source :
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 :)

Commentaire de HariSeldon69210 le 25/06/2008 16:22:45

merci jai trouver la msdn je la telecharge encore
lerci pour ton aide.
sinon le prog ten posse quoi

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

calcul des jours fériés [ par fred ] Je cherche un source sur le calcul des jours fériés. En entree on a une date et on doit savoir en sortie si c'est un jour ferie ou pas.J'attends votre Calcul binaire [ par kequo ] peut on faire du calcul binaire avec VB? si oui comment Pb de calcul [ par thomas ] Salut,Je fais en ce moment un petit programme sous VB qui me permet de saisir un calcul dans une zone de saisie (text1), par exemple "8+9*36" et je vo Pb de calcul [ par thomas ] Salut,Je fais en ce moment un petit programme sous VB qui me permet de saisir un calcul dans une zone de saisie (text1), par exemple "8+9*36" et je vo Calcul de chiffres à virgule [ par WareG ] Je doit calculer des sommes à virgule, mais le probleme est le suivant, lorsque je fais la somme par le code suivant j'ai un nombre à virgule beaucoup calcul a virgule [ par WareG ] J'ai bien reç votre code pour le calcul de chiffre à virguleDim Var1, Var2 As SingleVar1 = Text1.TextVar2 = Text2.TextText2.Text = (Int((Var1 + Var2) CALCUL FORMEL [ par mr_schmit ] Bonjour,Je cherche à dévelloper un prog en VB qui fasse du calcul formel, càd calcul avec des lettres.Si qqun à une idée... @+ Cadre d'objet indépt, feuille de calcul excel [ par Julie ] En vba, comment insérer des données issues de requête dans une feuille de calcul excel créée dans un formulaire(avec l'outil: cadre d'objet indépendan Calcul du debit recu et envoyer [ par pirjo ] Bonjour,Je de dois faire une applic qui doit gerer et detecter la connection.Je voudrais savoir comment calculer,par le biais du modem, le débit recu Calcul simple de crédit [ par cgelle ] Je cherche un petit logiciel en vbscript pour effectuer une mini simulation de crédit .Qui peut m'aider ?Merci<td