COMPTE_BANCAIRE.NET
Adn56
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
-
13 déc. 2009 à 19:53
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 5 déc. 2011 à 12:50
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 5 déc. 2011 à 12:50
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/50966-compte-bancaire-net
https://codes-sources.commentcamarche.net/source/50966-compte-bancaire-net
5 déc. 2011 à 12:50
5 déc. 2011 à 08:55
Je vois que tu maitrises mieux Zedgrpah que moi ^^
5 déc. 2011 à 08:05
' récupére une date pour comparaison de la balance du compte et des courbes pointées/non pointées (soit : maintenant + fin du mois)
Dim maintenant As Date = CDate(Date.Now.Year & "/" & Date.Now.Month + 1 & "/" & "1")
Il faut bien sur ne pas faire ça sinon cela fait 13 cela plante l'appli autant que 13 porte malheur ;) Il faut faire
Dim maintenant As Date = CDate(Date.Now.Year & "/" & Date.Now.Month & "/" & "1")
Puis dans le form load : maintenant = maintenant.addmonth(1) ce qui est vous en conviendrez plus logique ^^ VOili voilou bientôt la mise à jour avec quelque modif sur zedgraph pour le fun. @ ++
29 sept. 2011 à 19:40
16 sept. 2011 à 18:56
14 août 2011 à 18:11
23 juin 2010 à 12:45
En effet j'ai ce reflexe "d'automaticien" d'écrire les propriétés dans le code, il faut que je la perde, mais en même temps cela me sert à réutiliser facilement l'apparence des controls d'une appli à l'autre.
Pour la LV j'ai volontairement caché les barres de défilement car elle me prenne de la place (J'ai pas pensé à ceux qui ont une souris sans molette ! pas terrible je te l'accorde).
Pour le redimensionnement, j'ai opté pour une forme fixe car pas capable de tout bien gerer (position des sous menus) si redimensionnement. Je reste encore un débutant ^^
Merci pour ta lecture. @++
23 juin 2010 à 12:10
JE trouve que le concept de départ plaisant "de façon la plus simple possible". Et c'est justement le plus dur à faire -:);
J'ai regardé ta source en tant qu'utilisateur, j'ai bien plusieurs petites choses à dire, mais rien de bien important sur le fond, plus sur la forme. Bien que le tableau de gestion soit simple et clair, l'impossibilité de le redimensionner me gêne. De plus, la listViews utilisé est plus grande que la "Form F_principal" ce qui empêche les barres de défilement de s'afficher... Bref, voulant remettre cette petite chose en forme, et tripotant, comme à mon habitude les propriétés des objets, je suis aperçu (en regardant en diagonale) que tu t'amuses à coder leurs propriétés dans le code... Certes c'est une façon possible d'envisager les choses, mais alourdi considérablement le codage. Par exemple, dans la ListViews, pourquoi ne pas rentrer directement les noms des colonnes dans sa propriété Colunms ? Idem pour les propriétés de Windows.Form ? etc... Voilà c'est qu'une simple remarque, mais c'est plutôt ainsi que j'aurai procédé, cela permet, en autre, d'essayer plusieurs configurations pour garder que celle qui semble la plus adaptée.
Amicalement,
Us.
31 janv. 2010 à 18:59
@dn
27 janv. 2010 à 08:07
1-Placer un label sur la derniére ligne de la LV ? pourquoi pas.
Pour le nom des labels je dois avouer que n'étant pas comptable pour un sous (^^) je m'y retrouve trés bien, le solde pointé étant celui en actuelement en banque et le solde réél étant celui qui sera en banque une fois toutes les opérations passées (ou pointée).
Donc cela ne me choque pas d'avoir un solde de -xxx€. Je n'ai jamais creusé les notions d'écritures ou autre. Si tu trouve cela trop perturbant explique moi comment tu le verrais toi, pour mixer les deux.
2- les petites form sous les boutons en usercontrol :O Alors là souvenez vous que je débute hein ^^
3-Chez moi aussi c'est gris, enfin c'est la couleur "control" du windoze client, mais je vais tester une couleur Web.
4-Chez moi non plus la form ne peut pas être déplacé, je ne vois pas cela comme un probléme, mais si tu en parles c'est que s'en est un ^^ je corrige (enfin si je trouve ^^)
@+++
Reste à faire :
- Les try/catch/finally sur les imports/exports
- Bug sur les texte en CSV si char spéciaux (cf exemple 111.GCB)
- Bug si le GCB est glissé sur l'exe !
- Trouver un moyen automatique pour attribuer l'ext adn à ce soft sans faire d'install (USBKEY POWWA!)
- Couleur et déplacement de la form principal (+ labels totaux)
26 janv. 2010 à 22:45
Mais je verrais bien quand même en bas de la grille, un label pour
les totaux Crédit/Débit et en dessous les mêmes qui se trouvent au-dessus de la grille.
Car au premier coup d'oeil, ont ne sait pas réellement les totaux des futurs débits/Crédits
Voir même dans ce cas revoir les libellés des labels,
Car si tu pointes que les débits par exemple ce n'est plus un solde mais plutôt Solde débiteur (une écriture).
2) les différentes options sur les boutons en Usercontrol
3) le fond des options en blanc ou autre car gris clair (chez moi) c'est bof.
4) form qui ne peut être déplacé (pas pour moi) ;)
26 janv. 2010 à 19:16
Vu de ta fenétre, j'ai dû encore faire des grosses bétises, mais le code à l'air de bien tourner, je vais donc le distribuer en béta-test sur mon site. (c'est de loin la meilleur façon de tester un soft ^^)
amicalement @dn et à te lire (aie non pas tapper ^^)
26 janv. 2010 à 14:13
Bon je vais essayer d'harmoniser un peu.
PS : Sympa la sub AddItems ;)
Sinon il me reste à trouver et à faire:
- comment attribuer l'extension GCB à mon EXE
- Faire un import d'un Csv exporté
- Bug si le GCB est glissé sur l'exe !
- Petite stats sur graphique (NB de ligne, Nb de jours cumulée...)
Et je pense que le soft sera pas trop mal ficelé. kenavo. Je post la mise a jour
26 janv. 2010 à 13:14
pas d'initialisation multiple d'une List? OK, alors fais-toi ta procédure...
Private Sub AddItems(ByRef lsList As List(Of String), ByVal ParamArray saData() As String)
For Each s As String In saData
lsList.Add(s)
Next
End Sub
Private Sub AddItems(ByRef lcList As List(Of Color), ByVal ParamArray caData() As System.Drawing.Color)
For Each c As Color In caData
lcList.Add(c)
Next
End Sub
ton NEW devient :
AddItems(types, "CB", "CHQ", "TPV", "PRL", "VIR")
'pareil pour budgets
AddItems(couleur, Color.Black, Color.Gray, Color.Blue, Color.DarkBlue)
toujours possible de faire qqchose ;)
mais je le répète, pour si peu ce n'est pas vraiment utile. plusieurs lignes de code ne gêneront en rien la lisibilité
"mais euh quesqu'ils ont mes noms"
un exemple parmi (tant) d'autres :
tu mets un S à lignes, il y en a plusieurs
tu mets un S à types, il y en a plusieurs
il y a aussi plusieurs couleur, pourquoi pas de S ?
aller d'autres exemples
français ou anglais, choix personnel, pas de souci! par contre il faut être concordant dans les choix de nommage
ceci tant pour les variables que pour les contrôles
si tes forms commencent par un F_ (ahah tu as corrigé "principal" j'ai vu :p, dommage tu n'as pas renommé le LOAD), pourquoi tes (ta) classe ne commence pas par C_
pareil pour la casse, pourquoi certaines procédures en minuscule (ouvrir, editer) et d'autres non (MiseAJourSolde, MiseAJour)
pareil pour les boutons (bp_ ou Bp_)
pourquoi du français avec et sans accent (editer, échéancier)
pourquoi du francais mais aussi de l'anglais (copie, ajouter, help, save)
c'est tout çà qui doit être homogène au possible. lire un code qu'on a pas "pensé nous même" n'est pas facile. on doit rapidement réussir à suivre la logique et savoir : tiens je veux voir où il sauve, je dois chercher "sauve" (ou save, Save, sauver, etc...)
++ :p
26 janv. 2010 à 12:28
je post une mise à jour dans la journée. Avec try/cath/finalise. Les couleurs sont OK. Choix export en CSV ou en copie de sécu, etc...
26 janv. 2010 à 11:03
26 janv. 2010 à 08:44
Dim monTableau As New List(Of Integer) From {2, 3, 4, 5}
26 janv. 2010 à 07:40
J'ai pas trouvé le moyen d'initialiser une list(of) dés la déclaration -_-'
Le finalize, oups connait pas celui là je travail dessus.
"je le ferai surement quand les noms seront mieux choisis ^^
" mais euh quesqu'ils ont mes noms :p
Bonne journée.++
25 janv. 2010 à 22:11
pourquoi tout à la chaine? moins de ligne n'est pas toujours synonyme de code optimisé
pas de with?
ou pourquoi pas dès la déclaration come j'avais indiqué?
pour ton open et save, y'a pas de finalize
si tu as une erreur autre qu'empêchant la création de la (dé)serialization, elle ne sera pas fermée
(enfin si mais par le garbage collector.... un jour... peut-être)
sinon je penserai mieux quand je verrai le résultat, je n'ai fait que lire là
je le ferai surement quand les noms seront mieux choisis ^^
en attendant tu t'attèles à corriger, à améliorer, et rien que çà, c'est très encourageant !
continue sur cette voie ;)
25 janv. 2010 à 20:39
25 janvier 2010 20:36:54 :
-remplacer les &= par un stringbuilder
-remplacer les tableaux budget et type par des list of string
-Correction d'un bug si zone crédit ou débit vierge ( pas 0) dans F_operation.
-rajout de with dans le code
-vérifier le bon enregistrement du fichier sérialisé
NOK-Bug si ouverture fichier conrompu et tentative d'en creer un nouveau avec son nom
NOK-trouver un moyen automatique pour attribuer l'ext adn à ce soft !
NOK-Choix des couleurs des lignes
reste encore du taff, mais cela avance ! qu'en penses tu ?
24 janv. 2010 à 20:07
donc çà ne change rien, c'est pas le problème que je remontais
y'a rien à flipper, c'est juste que ici tu fournies une appli complète, tu te dois donc de penser à un "utilisateur", et non à un mi-utilisateur mi-développeur, qui LUI ne s'inquiéterait probablement pas
erreur possible => on informe puis on agit
++
24 janv. 2010 à 20:02
ou que le fichier n'est pas sur une clé présente à l'ouverture mais retirée avant l'appel à save
...par exemple
(mais non on ne poste pas en même temps voyons ^^)
24 janv. 2010 à 19:55
(pis pour le principe du OPEN avec TRY, c'est bien parce que tu sauves sans lui dire.rappel : conception? ;)."
Tu me flip là, quesqu'y a vas pas -_-"
j'ai fait ce codage justement pour qu'a chaque nouvelle manip le compte soit sauvé, commme ça si un crasch winbouze, ben le compte (lui) reste OK, j'ai tord ?
24 janv. 2010 à 19:51
euh, je suis bien d'accord avec toi mais comment veux tu que la sauvegarde plante puisque générée par l'exe ? Sur ce coup, tu vas trop vite pour moi M. le prof, j'ai peur de mon code à force LOL.
24 janv. 2010 à 19:45
*si tu ne fais aucune vérification dans une propriété, un membre public suffit => OK
*les tableaux budget et types devrait être initialisés par la classe => ok
*save : le chemin du fichier devrait être une propriété, puisque tu ne peux pas faire de saveAs. donc défini à la création ou à l'ouverture => pas fait
*aucune vérification d'echec de chargement de serialization => pas fait
*des public inutiles => ok
*trie : pas besoin d'une classe, adressof sur un private suffit
=> ok
*ToCsv : et le stringbuilder? => en cours
*manque de with => a pas vu où -_-"
voila pour ce soir ! dodo now ;-)
24 janv. 2010 à 19:42
ah bon, une erreur fatale sans test, ouai il préfèrera ne pas savoir qu'il y a eu un echec de sauvegarde + voir ton appli crasher, çà fait très pro :D
(pis pour le principe du OPEN avec TRY, c'est bien parce que tu sauves sans lui dire.
rappel : conception? ;). sur le principe (ou en généralisant), on sauve quand l'utilisateur le demande, on ouvre quand l'utilisateur le demande. c'est bien pour çà que je parlais de chemin en propriété)
"Et mais il faut tout de même qu'il l'enregistre les modifs de budget et de type"
çà j'ai pas compris. tu parles toujours des tableaux? je ne crois pas. si tu penses aux propriétés des enregistrements (chaque ligne), çà ne rentre pas en compte avec ma remarque. ni le même type, ni la même classe :p
++
24 janv. 2010 à 17:48
24 janv. 2010 à 17:02
Mon save à toujours fonctionné, mais tu sais surrement comment le faire planter ^^. Seulement voila que faire dans le try/catch ? informer ? (ça lui fera une belle jambe à l'user de le savoir ^^) Il doit y avoir une façon de tester le bon enregistrement sans refaire une lecture derriére. Je me penche dessus plus tard. Je vais déja corriger les Arrays car de toute façon il m'ennuye pour les add/remoteAt.
"les tableaux budget et types devrait être initialisés par la classe"
beh oui, comme il n'y a (avait?) pas d'accès pour l'utilisateur, pas besoin de l'initialiser par la form. peut-être même pas une propriété (et donc pas de serialization)"
Et mais il faut tout de même qu'il l'enregistre les modifs de budget et de type :O
"si tu ne fais aucune vérification dans une propriété, un membre public suffit"
Là j'apprend un truc (YES !) je pensais les get/set obligatoire. JE test cela dessuite. Merci pour ton aide.
23 janv. 2010 à 21:06
"si tu ne fais aucune vérification dans une propriété, un membre public suffit"
---------------
# Private _commentaire As String
# Public Property L_commentaire() As String
# Get
# Return _commentaire
# End Get
# Set(ByVal value As String)
# _commentaire = value
# End Set
# End Property
---------------
tu n'interviens pas sur la valeur. donc pas spécialement besoin de faire une propriété :
---------------
PUBLIC L_commentaire As String
---------------
"les tableaux budget et types devrait être initialisés par la classe"
beh oui, comme il n'y a (avait?) pas d'accès pour l'utilisateur, pas besoin de l'initialiser par la form. peut-être même pas une propriété (et donc pas de serialization), mais au pire :
---------------
'(chez moi, remettre le nom qui convient)
Public Types() As String = {"CB", "CHQ", "TPV", "PRL", "VIR"}
Public Budgets() As String = {"divers", "salaire", "voiture", "habitat", "alimentaire", "matériel"}
---------------
"aucune vérification d'echec de chargement de serialization"
"-> ben si il me dis si le fichier est ilisible, c'est pas bon ?"
ah bon il te le dis? lors de la serialization, dans le save donc. il est où le try catch? ^^
"les LIST à utiliser au lieu de ARRAY"
"-> les tableaux sont plus rapides il parait ?"
un tableau est presque JUSTE un espace mémoire
plus rapide qu'une list, théoriquement oui. sauf que ton usage est un redim preserve en boucle.
c'est pas le tableau ou la list qui est rapide, c'est sa consommation et son temps d'accès. et c'est ton code qui sera rapide ou non. dans cette utilisation, le tableau ne convient pas ; on peut faire un redim mais il n'est pas fait pour subir des preserve en boucle (vestige de VB6 d'ailleurs). utilise une list of double
++ ;)
23 janv. 2010 à 13:44
Peux tu stp develloper ces points car je ne voie pas trop ce que tu veux dire :
-si tu ne fais aucune vérification dans une propriété, un membre public suffit.
-les tableaux budget et types devrait être initialisés par la classe
aucune vérification d'echec de chargement de serialization, ben si il me dis si le fichier est ilisible, c'est pas bon ?
les LIST à utiliser au lieu de ARRAY : les tableaux sont plus rapides il parait ?
ToCsv : et le stringbuilder? moins couteux que toutes ces concaténations : je regarde cela de plus pret.
mais tout ceci va venir au fur et à mesure : avec l'aide de ce forum et des gens comme toi je n'en doute pas ^^
bon week end M.
23 janv. 2010 à 11:40
pas DL, je regarde le code sur http://files.codes-sources.com, en diagonale :
Classes.vb
*pas sûr que Imports System.Runtime.Serialization.Formatters.Binary soit utile (je ne l'avais pas utilisé...)
-Cls_compte
*si tu ne fais aucune vérification dans une propriété, un membre public suffit
*les tableaux budget et types devrait être initialisés par la classe
*save : le chemin du fichier devrait être une propriété, puisque tu ne peux pas faire de saveAs. donc défini à la création ou à l'ouverture
*aucune vérification d'echec de chargement de serialization
*trie : pas besoin d'une classe, adressof sur un private suffit
-ClS_ligne
*si tu ne fais aucune vérification dans une propriété, un membre public suffit
*ToCsv : et le stringbuilder? moins couteux que toutes ces concaténations
-ClS_trie_ligne
*pas besoin
reste
des public inutiles
manque de with
des noms de variables pas toujours au top
des noms de form... bof
les LIST à utiliser au lieu de ARRAY
mais tout ceci va venir au fur et à mesure
je n'avais pas vu le reste avant ton topic et n'ai pas DL, mais par rapport au "mini projet" (en N versions ^^), tu as su tenir compte de pas mal de conseils, chercher par toi-même, réellement remettre certaines "évidences" en questions
le projet serait encore à travailler mais (sans savoir ce que donne le résultat) tu t'es réellement investi et à la lecture, la qualité du code s'en ressent
bravo, continue ;)
22 janv. 2010 à 18:01
J'éspére que l'affichage du graphique et du menu de choix de filtre listview te plaira.
++
PS le fichier de l'ancienne version marche avec la nouvelle, va comprendre lol
22 janv. 2010 à 07:36
Le graphique sera prêt ce soir.
Pour l'XML, les données n'auraient pas été trop "en clair" ? Là au moins elles sont un peu brouillées en binaire ;)
@++
21 janv. 2010 à 21:07
il manque encore le graphe ;)
ce qui est dommage par contre c'est de ne plus pouvoir ouvrir d'anciens fichiers à cause surtout de la sérialisation.
passer par une feuille Xml aurait évité cela.
Des exemples sur l'utilisation de données au format XML (chargement et sauvegarde) tu en trouve plein.
Car dans ton cas tu as juste les données de ta listview à charger ou à sauver.
bonne continuation.
20 janv. 2010 à 20:09
@ claudedetom => I hope you enjoye ;-)
8 janv. 2010 à 18:12
Au programme (lol) : gestion du code via des classes, la listview devient un simple affichage.
Bon pas encore au point mais j'y bosse dés que j'ai 5 min ;)
++
21 déc. 2009 à 20:40
mais voila binssss :
http://www.vbfrance.com/forum/sujet-REDIM-TABLEAU-DIMENSION-ICI_1388689.aspx
D'avance merci pour vos aides.
@dn
17 déc. 2009 à 08:02
est de recréér l'object à appel de la fonction, il ne faut changer que le mouvements.text. Voila tout s'éclaire, enfin un peu. Merci pour l'info
16 déc. 2009 à 22:24
' affiche une zone de texte avec le resultat du compte sur le graphique (bug, ne rafrachi pas si changement !!!!!!)
'If Not Mouvements Is Nothing Then
' If myPane.GraphObjList.Contains(Mouvements) Then
' myPane.GraphObjList.Remove(Mouvements)
' End If
' Mouvements = Nothing
'End If
Dim strD As String "Débit " & debit.ToString("c") & vbCrLf Dim strC As String "Crédit " & credit.ToString("c") & vbCrLf Dim strT As String "Résultat " & (credit - (debit * -1)).ToString("c") & vbCrLf
If credit = 0 Then
strC = ""
End If
If debit = 0 Then
strD = ""
End If
If Mouvements Is Nothing Then
Mouvements = New TextObj(strC & strD & strT, 0.1F, 0.1F, CoordType.PaneFraction)
Mouvements.Location.AlignH = AlignH.Left
Mouvements.Location.AlignV = AlignV.Bottom
Mouvements.FontSpec.Border.IsVisible = True
Mouvements.FontSpec.StringAlignment = StringAlignment.Center
Else
Mouvements.Text = strC & strD & strT
End If
If (credit - (debit * -1)) > 0 Then
Mouvements.FontSpec.Fill = New Fill(Color.White, Color.LightGreen, 45.0F)
Else
Mouvements.FontSpec.Fill = New Fill(Color.White, Color.LightPink, 45.0F)
End If
If Not myPane.GraphObjList.Contains(Mouvements) Then myPane.GraphObjList.Add(Mouvements)
16 déc. 2009 à 08:18
Pour les images en ressources, je le fait souvent, mais là je voulais pouvoir chager les images des BP facilement (juste garder le même nom) cela fait comme un skin de form à deux balles ^^
Pour la structure du code tu as parfaitement raison, on vois bien que ce se sont des bouts rajouté à des bouts. Je pense sérieusement tout reprendre depuis le début, en virant surtout l'importance que prend la listview dans la gestion des nouvelles lignes et autres.
Pour finir sur l'affichage de la zone de text de Zedgraph, je vais dés ce soir regarder la modif que tu proposes pour essayer de comprendre ce qui merdouille, car je ne vois pas pourquoi il faut détruire l'objet à chaque mise à jours de mypane. Merci pour ta lecture. @dn
15 déc. 2009 à 21:32
Les images en ressources.
et pour ton label sur Zgraph, si tu peux le raffraichir !
Dans ton case débit, Crédit et le else (qui aurait pus être simplié par appel d'une fonction,
Tu colle ta variables Débit et l'autre crédit.
credit += C_montant(index)
debit += D_montant(index)
Pour le raffraichissement :
Morceau du code à remplacer (text devient Mouvements et déclaré en private dans ta Class
' changer le label1 pour afficher les valeurs (qui bug sous zg1 et du coup obligé de virer la zone de texte du graphique) dommage ! Label1.Text "Crédit " & credit.ToString & " €, " & _
"Débit = " & debit.ToString & " €, " & _
"Résultat = " & (credit - (debit * -1)).ToString & " €"
' affiche une zone de texte avec le resultat du compte sur le graphique (bug, ne rafrachi pas si changement !!!!!!)
If Not Mouvements Is Nothing Then
If myPane.GraphObjList.Contains(Mouvements) Then
myPane.GraphObjList.Remove(Mouvements)
End If
Mouvements = Nothing
End If Mouvements New TextObj("Crédit " & credit.ToString & " € " & vbCrLf & _
"Débit = " & debit.ToString & " € " & vbCrLf & _
"Résultat = " & (credit - (debit * -1)).ToString & " € " & vbCrLf, _
0.1F, 0.1F, CoordType.PaneFraction)
Mouvements.Location.AlignH = AlignH.Center
Mouvements.Location.AlignV = AlignV.Bottom
Mouvements.FontSpec.Border.IsVisible = True
If (credit - (debit * -1)) > 0 Then
Mouvements.FontSpec.Fill = New Fill(Color.White, Color.LightGreen, 45.0F)
Else
Mouvements.FontSpec.Fill = New Fill(Color.White, Color.LightPink, 45.0F)
End If
Mouvements.FontSpec.StringAlignment = StringAlignment.Center
myPane.GraphObjList.Add(Mouvements)
13 déc. 2009 à 19:53
et pas un commentaire....pffffffff
Questions pour les "pros"
j'ai créé une classe compte qui regroupe toutes les infos :
ligne de compte(tableau(,)), budget(tableau simple),type(tableau simple) et mot de passe(string).
Aurait-il était plus éfficasse de créer une classe ligne de compte (qui controle les infos saisi par exemple) et de créer une nouvelle instance à chaque nouvelle ligne saisie et de l'ajouter à la classe mon_compte, plutot que de tout déclarer directement dans la classe mon_compte pricipal ?
A vous lire.
PS merci à Mayzz qui m'a bien aidé pour la sérialization de cette classe ;) j'ai failli t'oublier ! rhhoooo spa bien. Merci donc Mayzz.