redim tableau à n dimension (2 ici)Résolu

Question

Salut la team, voila j'ai un petit (nan un gros) soucis !
j'ai posté ce soft :
http://www.vbfrance.com/codes/COMPTE_BANCAIRE-NET_50966.aspx

j'ai envie de bien le réécrire suite aux remarques de claudedetom.

Du coup je me lance dans un défi dépassant mes compétences, et du coup j'ai besoin de votre savoir.
Mon souci, je déclare un tableau à 2dim dans une classe (mon_compte), et lors de la lecture j'aimerais qu'il mette tout seul à jour les lignes qui sont "mensualisées" (x,7)=true
Mais voila le redim me jette car il ne peux redim que la dimension de droite -_- (c'est nul)
Donc j'imagine que je dois utiliser les collections. Mais voila aprés plein de lecture j'y pige pas grand chose.
Je vous post "ma bidouille tab_temp" qui revient en fait au même et qui biensur ne marche pas.
béwui lorsque je fais  'balance le tableau lu dans tab_temp
        tab_temp = lecture.lignes
 il redimmensionne ce que j'avais avant prévu (voir plus bas)
Si une bonne âme à une idée ou un exemple je prends.
amicalement @dn
' trouve le nombre de mise à jours à faire
        Dim NB_maj As Integer = 0
        ' trouve le nombre de ligne à traiter
        Dim NB_ligne As Integer = CInt((lecture.lignes.Length / 8) - 1)
        'calcule le nombre de ligne en divisant la longueur total par le nombre de colonne (-1 car on commence à 0)
        'utlise unbound pour voir ;)
        For ligne As Integer = 0 To NB_ligne
            ' ajoute le nombre de mise à jour à faire si la colonne 7 = true.
            If CBool(lecture.lignes(ligne, 7)) Then NB_maj += 1
        Next
        'dimensionne le tableaux en fonction du nombre de ligne.
        Dim tab_temp(NB_ligne + NB_maj, 8) As String
        'balance le tableau lu dans tab_temp
        tab_temp = lecture.lignes
        'pour chaque mise à jours à faire :
        For boucle As Integer = 0 To NB_maj
            'pour chaque ligne du compte
            For ligne As Integer = 0 To NB_ligne
                ' si c'est une ligne échéancier et que la date correspond au début du mois
                If Now.Day >= 1 AndAlso CBool(lecture.lignes(ligne, 7)) Then
                    ' et que ce mois n'est pas déja rempli (ou alors si c'est une nouvelle année) alors
                    If Now.Month > CDate(lecture.lignes(ligne, 0)).Month _
                    Or Now.Year > CDate(lecture.lignes(ligne, 0)).Year Then
                        'attribut la date d'aujourd'hui et le jour de l'opération mensuel
                        Dim maintenant As Date = CDate(CDate(lecture.lignes(ligne, 0)).Day & " " & Now.Month & " " & Now.Year)
                        ' retire à l'anciénne ligne le status de mensuel
                        lecture.lignes(ligne, 7) = "false"
                        ' ajouter cette nouvelle ligne !
                        'ajoute la nouvelle ligne  et active la mensualisation (encore une fois utilse unbound ! )
                        Dim index As Integer = CInt(tab_temp.Length / 8) - 1
                        tab_temp(index, 0) = maintenant.ToString("yyyy MM dd")
                        tab_temp(index, 1) = maintenant.ToString("dd MMMM yy")
                        tab_temp(index, 2) = lecture.lignes(ligne, 2)
                        tab_temp(index, 3) = lecture.lignes(ligne, 3)
                        tab_temp(index, 4) = lecture.lignes(ligne, 4)
                        tab_temp(index, 5) = lecture.lignes(ligne, 5)
                        tab_temp(index, 6) = "False"
                        tab_temp(index, 7) = "true"
                    End If
                End If
            Next ligne
        Next boucle
        ' attribut le tableaux à ME.
        Me.mdp = lecture.mdp
        Me.types = lecture.types
        Me.budgets = lecture.budgets
        Me.lignes = tab_temp

Tiens les balises ne sont pas reconnues ^_____^, zut alors.....

PCPT · Accepted Answer

je n'ai pas vu la simplification.... 

bon, dans ce cas :
une classe représentant une ligne (clsRow) avec 7 propriétés : 
2 date, 3 string, 2 boolean


et tu constitues tes éléments dans une list(of clsrow)

++

[hr]

PCPT · Answer

salut,

tu peux faire un exemple allégé stp?
(pas le temps de regarder ta source pour voir exactement ce que tu veux)

sur le principe : un tableau peut toujours être redim, mais jamais en PRESERVE s'il a plusieurs dimensions (en gros)

donc toujours dans le principe, tu peux faire un tableau de type, de structure, de classe

et cet "élément" étant alors simplement un élément, plus de souci de redim
te reste qu'à y mettre ce que tu veux, en l'occurrence juste ta 2e dimension

au final tu passes de 
t(1,2) = x
à 
t(1).item(2)=x

après rien ne t'empêche de faire une classe pour remplacer T qui pourra communiquer avec les différentes dimensions mais là on en revient à ma première phrase ;)

++

[hr]

Adn56 · Answer

Bonjour et merci pour ta lecture.
Voici plus d'info. Le tableau que je cherche à redim (en preserve) vient d'une classe mon_compte, dont voici l'en tête :
Option Explicit On
Option Strict On
Imports System
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
' Imports System.Collections 'pour faire des collections à la place d'un tableau (pour _ligne) à finir

<Serializable()> Public Class Class_fichier_compte

    Private _ligne(,) As String 'les lignes de la listview
    
    Private _Type() As String 'les types de paiments
    Private _budget() As String 'les budgets
       Private _mdp As String 'le mot de passe

 Tous ces tableaux sont ensuite sérialisé dans un fichier BIN.
Dans le tableau ligne il existe une colonne qui si elle est true ajoute une nouvelle ligne à ce tableau (échéancier) avant je lisais la class directement et faisait cette ajout dans une listview, puis je rebalancais toutes les lignes de cette listview dans un tableau.
Aujourd'hui je souhaite que tout soit gérer dans la class, donc dés la lecture du tableau, j'aimerai pouvoir y ajouter une lignes. Mias je peux pas, sauf j'imagine avec une collection (comme je le faisait avec la list view)
Ton exemple me parle pas trop, mais c'est que je cherche à faire, pouvoir gerer les items d'un tableau et donc utiliser les collections.
cordialement. @dn
Tiens les balises ne sont pas reconnues ^_____^, zut alors.....

Adn56 · Answer

Bonsoir, dsl pour l'explication, c'est limpide pour moi, mais en effet pour quelqu'un qui ne trime pas dessus depuis 2 mois cela doit pas être simple 
En gros si je pige bien, il faut bien que je fasse une collection plutot qu'un tableau.
une collection de string ou d'une class.
Merci pour ta lecture et tes réponses.

PCPT · Answer

une collection de string ou d'une class

c'est précisément ce à quoi j'ai répondu non?
une collection de class, donnant accès à 7 propriétés

c'est une idée

il y en a d'autres mais elles dépendent de ton besoin.
et comme en effet je n'ai pas le nez dans ton projet depuis 2 mois..., celle-ci convient

Adn56 · Answer

Salut et bonne fêtes: Je reviens aprés le repos necessaire en cette période pour avoir un éclaircissement. Il va donc faloir que j'imbrique deux classes. Une qui contient toutes les lignes et qui sera sérialisé, puis une autre qui contient juste le moule d'une ligne avec ses 7 propriétées. Là j'avoue la puissance du truc, mais je suis bien en peine d'imaginer un exemple de code. Est ce que je pars bien si fais un truc de ce style ? Public Class Class_ligne_compte Private _date As date 'etc... pour les string et boolean avec les get/set qui vont bien end class 'puis ensuite Public Class Class_fichier_compte Private _ligne() As listof(class_ligne_compte) 'les lignes de la listview Private _mdp As String 'le mot de passe ' dans les get/set cela risque de ce compliquer non ? Merci pour ton attention et bonne année si l'on se revoit pas d'ici là. cordialement ADN

PCPT · Answer

le fonctionnement étant dit et expliqué, 3ème (et dernière) fois, je ne te donnerai un exemple concret qu'après que tu en aies toi-même donné un, étant le SIMPLIFIé de ton besoin !

si je dois mettre le nez dans ta source je vois d'ici comment çà va se terminer : il va falloir tout reprendre et je n'ai pas le temps pour çà

donc fais un nouveau projet, exemple simple, et je t'aiderai sur cette base

sinon tu as de toute manière tous les éléments en main

bonnes fêtes également

Adn56 · Answer

Oula, te faches pas  je vois pas pourquoi tu imagines devoir décrypter mon code, alors que justement j'ai posté ci-dessus la base de mon nouveau départ ULTRA simplifié (à mon sens). Je voulais juste savoir si je pars bien dans ton idée en faisant cela. Je vais changer les variables pour te faire moins peur si tu veux 
Note : Il est hors de question que je demande de refaire tout mon code, c'est pas mon genre. J'aime comprendre et apprendre.
La seul chose c'est que j'ai du mal avec la philosophie object étant automaticien à la base, donc juste me dire si oui ou non j'ai compris l'idée, et peut être me guider pour les get/set de la listof(class_ligne_compte). Le reste je me démerde et si autres problémes je post un nouveau sujet. @+

Adn56 · Answer

Cette mise au point faite, voici le code que je prépare dans un nouveau projet, et déja cela coince (normale )

Je commence donc par creer une classe pour les lignes, comme tu me la dit :
Friend Class ligne_compte 'remplacé par public
    Private Shared _Nb As Integer = 0 'nombre d'instance ou nombre de lignes
    Private _date As Date 
    Private _type As String
    Private _budget As String
    Private _commentaire As String
    Private _credit As Double
    Private _debit As Double
    Private _pointage As Boolean
    Private _mensuel As Boolean

    'les propriétées
    Public ReadOnly Property Nb_lignes() As Integer
        Get
            Nb_lignes = _Nb
        End Get
    End Property
    ' je supprime les autres pour pas allourdir le post    
Public Property L_date() As Date
    Public Property L_type() As String
         Public Property L_budget() As String
            Public Property L_commentaire() As String
           Public Property L_credit() As Double
           Public Property L_debit() As Double
            Public Property L_pointage() As Boolean
          Public Property L_mensuel() As Boolean
      
    ' les méthodes
    Sub New()
        _Nb += 1
    End Sub ' ajoute 1 à chaque nouvelle instance
End Class


Voila, aprés je cherche donc à créer une autre class qui contiendra divers chose et surtout la list des lignes générées à partir de la class ligne :
<Serializable()> Public Class Class_fichier_compte
Private _ligne As List(Of ligne_compte)
 Public Property lignes() As List(Of ligne_compte)
        Get
            Return _ligne
        End Get
             Set(ByVal value As List(Of ligne_compte))
            _ligne = value
        End Set
    End Property ' les lignes du comptes

là il est pas content car il me dis que lignes() ne peut pas exposer le type ligne_compte en dehors du projet via class fichier compte, j'ai du faire une boulette de portée ?
Donc je corrige la portée de ma class ligne compte en public et cela marche, tu le vois déja je pige mal pourquoi un friend ne marche pas, alors qu'un public oui 

Bref maintenant il faut que je puisse renseigner une ligne et l'ajouter à la list lignes. La suite plus tard (je post cela car je suis sur que cela servira à d'autre..et puis comme cela tu peux facilement critiquer mon code au fur et à mesure, j'éspére que cette façon de faire te conviendra, cordialement @dn

PCPT · Answer

t'es fait pas je m'énerve pas 

pourquoi le FRIEND ne passe pas?
simplement parce que si c'est FRIEND, seul le déclarant peut l'utiliser
si tu as une propriété PUBLIC, tu ne peux pas partager ou faire hériter cette propriété (puisqu'elle n'est, par nature, utilisable que par le déclarant)
donc normal, il faut du PUBLIC

dans ce premier jet certaines choses me gênent :

[i]    Public ReadOnly Property Nb_lignes() As Integer
    ' je supprime les autres pour pas allourdir le post    
    Public Property L_date() As Date/i

les propriétés commençant par L_ sont-elles aussi en readonly?
(apparemment non mais c'est ta ligne en commentaire qui m'a mis le doute) : évidemment il ne faut pas

et il manque bien sûr une méthode public permettant d'attribuer aux propriétés les valeurs depuis une seule ligne string
cette méthode peut très bien être un 2e constructeur (NEW)


ensuite _NB
en théorie c'est bon, mais si tu dois par la suite supprimer par exemple de l'item 5 à 10 sur 15 lignes existantes, les NB restant ne seront plus dans l'ordre
reste à voir si ces infos te sont utiles
(et je suppose que oui, sinon pourquoi avoir ce membre )


à partir de là, çà me semble correct oui 
++

Adn56 · Answer

Cool ^^
Alors :
Pour le friend j'ai pas tout compris mais bon c'est pas la priorité (je pensais à tord que friend = tout le projet)
Pour les autres propriétées elles sont biensur en lecture/écriture
Pour la le _NB je l'ai placé là au cas ou, mais visiblement il ne me servira pas, de plus j'ai le count de la list qui le remplace.
Pour la méthode public permettant d'attribuer aux propriétés les valeurs depuis une seule ligne string je ne l'ai pas fait, en fait j'exploite le code comme suit (je programme en même temps )
<Serializable()> Public Class Class_fichier_compte
    
    Private _ligne As List(Of ligne_compte)
    Private _mdp As String 'le mot de passe
    Private _Type() As String 'les types de paiments
    Private _budget() As String 'les budgets


    ' Public Property lignes() As String(,)
    Public Property lignes() As List(Of ligne_compte)
        Get
            Return _ligne
        End Get
        'Set(ByVal value As String(,))
        Set(ByVal value As List(Of ligne_compte))
            _ligne = value
        End Set
    End Property ' les lignes du comptes
' aprés je lis le fichier sérialisé comme suit
    Public Function load(ByVal fichier As String) As Boolean

        Try

            Dim myFileStream As Stream = File.OpenRead(fichier)
            Dim deserializer As New BinaryFormatter()
            Dim lecture As New Class_fichier_compte
            lecture = CType(deserializer.Deserialize(myFileStream), Class_fichier_compte)
            myFileStream.Close()

            ' attribut les tableaux à ME.
            Me.mdp = lecture.mdp
            Me.types = lecture.types
            Me.budgets = lecture.budgets
            Me.lignes = lecture.lignes

'ensuite je peux tester mes lignes comme cela :

            'récupére le nombre de ligne initiale (avant mise à jour mensuel) voir si utile
            Dim NB_ligne As Integer = lecture.lignes.Count

            ' trouve le nombre de mise à jours à faire (pas sur que cela serve à grand chose now)
            Dim NB_maj As Integer = 0
            ' recherche le nb de mise à jour à faire
            For ligne As Integer = 0 To NB_ligne
                ' si c'est une ligne échéancier et que la date correspond au début du mois
                ' et que ce mois n'est pas déja rempli (ou alors si c'est une nouvelle année) alors
                If Now.Day >= 1 AndAlso lecture.lignes(ligne).L_mensuel _
                AndAlso (Now.Month > lecture.lignes(ligne).L_date.Month _
                    Or Now.Year > lecture.lignes(ligne).L_date.Year) Then
                    NB_maj += 1
                    ' retire à l'anciénne ligne le status de mensuel
                    lecture.lignes(ligne).L_mensuel = False
                    'attribut la date d'aujourd'hui et le jour de l'opération mensuel
                    Dim maintenant As Date = CDate(lecture.lignes(ligne).L_date.Day & " " & Now.Month & " " & Now.Year)
                    ' ajouter cette nouvelle ligne !
                    Dim new_ligne As New ligne_compte
                    ligne_compte.L_date = maintenant
                    lecture.lignes.AddRange = new_ligne


                End If
            Next



et biensur c'est la que je coince pour le moment, c'est pour ajouter un item à ma list... voila ou j'en suis pour l'interface utilisateur de la classe cela devrait être idem, donc je ne pense pas avoir besoin d'une sub pour avoir toute la ligne sur une string (mais je dois me gourrer puisque tu en parles lol)
content que tu m'aides @++

Adn56 · Answer

Et voila, je pense que cela pour ajouter une nouvelle ligne à ma list devrait focntionner, il me souligne en vert la premiére attribution de new_ligne, mais je vois pas ce qui le géne
puisque je lui assigne une valeur avant qu'elle soit utilisé. Bon on verra lors du premier cycle en run 
                    ' ajouter cette nouvelle ligne !
                    Dim new_ligne As ligne_compte
                    new_ligne.L_date = CDate(lecture.lignes(ligne).L_date.Day & " " & Now.Month & " " & Now.Year)
                    new_ligne.L_type = lecture.lignes(ligne).L_type
                    new_ligne.L_budget = lecture.lignes(ligne).L_budget
                    new_ligne.L_commentaire = lecture.lignes(ligne).L_commentaire
                    new_ligne.L_credit = lecture.lignes(ligne).L_credit
                    new_ligne.L_debit = lecture.lignes(ligne).L_debit
                    new_ligne.L_pointage = False
                    new_ligne.L_mensuel = True
                    lecture.lignes.Add(new_ligne)

Sans blague je sis tomber amoureux des classes ! grace à vous, et plus paticuliérement à toi je regrette vraiment que cette notion soit inexistante en automatisme !
allez je continu

Adn56 · Answer

Tiens cela doit être encore mieux comme ça :
                    ' ajouter cette nouvelle ligne !
                    Dim new_ligne As ligne_compte = lecture.lignes(ligne)
                    new_ligne.L_date = CDate(lecture.lignes(ligne).L_date.Day & " " & Now.Month & " " & Now.Year)
                    ' new_ligne.L_type = lecture.lignes(ligne).L_type
                    ' new_ligne.L_budget = lecture.lignes(ligne).L_budget
                    ' new_ligne.L_commentaire = lecture.lignes(ligne).L_commentaire
                    ' new_ligne.L_credit = lecture.lignes(ligne).L_credit
                    ' new_ligne.L_debit = lecture.lignes(ligne).L_debit
                    new_ligne.L_pointage = False
                    new_ligne.L_mensuel = True
                    lecture.lignes.Add(new_ligne)

Adn56 · Answer

A ben vla autre chose je peux rien écrire dans le code de la form1 
tout et en noir... brrr décidément un probléme chasse l'autre..
bon @+ j'ai ma dose pour ce soir, demain boulot.

PCPT · Answer

non tu ne te trompes pas, j'avais oublié ta sérialisation

création d'une nouvelle ligne (de tête, à tester bien sûr) qui va donc reprendre l'ancienne mais avec la nouvelle date :

lecture.add(new ligne_compte with {.L_date=CDate(lecture.lignes(ligne).L_date.Day & " " & Now.Month & " " & Now.Year), .L_type=lecture.lignes(ligne).L_type, .L_budget=lecture.lignes(ligne).L_budget, .L_commentaire=lecture.lignes(ligne).L_commentaire, .L_credit=lecture.lignes(ligne).L_credit, .L_debit=lecture.lignes(ligne).L_debit, .L_pointage=lecture.lignes(ligne).L_pointage, .L_mensuel=lecture.lignes(ligne).L_mensuel})

NB : attention, ne pas oublier que tu es dans une boucle. ton COUNT va changer donc conserver NB_ligne comme tu le fais ici, mais bien sûr il ne faut pas à ce stade supprimer lecture.lignes(ligne)

NB : syntaxe WITH valable sous vs2008, pas 2005 il me semble

après si c'est un peu indigeste (là un peu quand même !) suffit de mettre le with sur la LIST :

Dim new_ligne As New ligne_compte
with lecture.lignes(ligne)
new_ligne.L_date=CDate(.L_date.Day & " " & Now.Month & " " & Now.Year)
new_ligne.L_type=.L_type
new_ligne.L_budget=.L_budget
new_ligne.L_commentaire=.L_commentaire
new_ligne.L_credit=.L_credit
new_ligne.L_debit=.L_debit
new_ligne.L_pointage=.L_pointage
new_ligne.L_mensuel=.L_mensuel
end with
lecture.add(new_ligne)
new_ligne=nothing

strictement pareil

Adn56 · Answer

oups j'ai oublier le new_ligne=nothing !
Donc je reste sur :
                   ' ajouter cette nouvelle ligne !
                    Dim new_ligne As ligne_compte = lecture.lignes(ligne)
                    new_ligne.L_date = CDate(lecture.lignes(ligne).L_date.Day & " " & Now.Month & " " & Now.Year)
                    new_ligne.L_pointage = False
                    new_ligne.L_mensuel = True
                    lecture.lignes.Add(new_ligne)
new_ligne=nothing 


cela me parait plus clair à lire, c'est vraiment top plein de façon d'écrire la même chose (miam)
Pour mon soucis d'écriture sur la form principale, c'est simplement que j'avais un autre projet d'ouvert qui porte le même nom de form visiblement, étrange.. Allez zou à table pi dodo, Merci bien pour ton coup de pouce !
passe une bonne soirée.

Adn56 · Answer

Et voila le premier cycle en run
création d'un nouveau fichier via un simple bouton, ça roule... 
Puis test en ouverture et là 
j'explique ce que je n'ai jamais piger (depuis toujours)
 Public Function load(ByVal fichier As String) As Boolean

        ' Try

        Dim myFileStream As Stream = File.OpenRead(fichier)
        Dim deserializer As New BinaryFormatter()
        Dim lecture As New Class_fichier_compte
        lecture = CType(deserializer.Deserialize(myFileStream), Class_fichier_compte)
        myFileStream.Close()

        'récupére le nombre de ligne initiale (avant mise à jour mensuel) 
        Dim NB_ligne As Integer = lecture.lignes.Count

et pan  la référence d'objet n'est pas définie à une instance d'objet ! donc j'ai bien un new pour ma class, et en effet lignes=nothing (pas encore rempli), je dois donc le tester. Un try / catch ferai l'affaire, mais j'aimerai bien trouver quelque chose de plus propre. si tu as une idée.
@++

PCPT · Answer

Private _ligne As NEW List(Of ligne_compte)

Adn56 · Answer

j'ai corrigé le soucis comme cela :

  ' si le fichier n'est pas un nouveau fichier
            If Not lecture.lignes Is Nothing Then
pour l'instant cela marche, c'est quoi la différence ? je commence à perdre un peu pied là 

Private _ligne As NEW List(Of ligne_compte) 
Je le rajoute, sans trop comprendre, c'est mieux dans la philosophie ? Aie ma tête.
merci pour ton soutient, je tente d'écrire une ligne pour voir.

Adn56 · Answer

et hop nouveau bug ^^
Le type 'compte2010.ligne_compte' dans l'assembly 'compte2010, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null' n'est pas marqué comme sérialisable. ce qui me parait pas du tout anormal, comme quoi je suis encore loin de la vérité ;)
Erreur que je n'avais pas avant le rajout du new 
je passe donc la class ligne en sérialisable pour voir
++

Adn56 · Answer

bon je fais marche arriére, il y a plus rine qui marche. je tente l'écriture d'une ligne, et si je bloque je post (je sais pas ou d'ailleur) le projet basique (deux boutons et les class)
amicalement @dn

PCPT · Answer

LECTURE est vraiment à se représenter comme un objet
il a des propriétés (budget etc...) et un ensemble de lignes
(çà serait encore à améliorer d'ailleurs, question philosophie justement, mais bon)
comme tu vas ajouter des lignes, que ce soit par la création ou la lecture, tu auras forcément besoin de ta LIST
il faut donc bien l'instancier
tout comme tu fais un NEW LECTURE (dans l'idée), lecture doit faire un NEW LIST

et de là s'il n'y a aucune ligne, tu auras le count à zero, plus logique que d'avoir une erreur ou un test nothing à faire à chaque appel de la propriétés LIGNES

++

PCPT · Answer

Class_fichier_compte est sérialisable mais pas ligne_compte, en effet

les messages d'erreur ont un sens hein 

tu peux zipper sur cijoint.fr par exemple
(pense à mettre le txt correspondant bien sûr)

Adn56 · Answer

ok bon je stop là pour ce soir, tu m'as déja bien aidé 
je reviens demain soir aprés le taff (les schémas elec et autres progs api deviennent reposant ) merci pour ton aide (vraiment, tu passes du temps, c'est sympa) @++

Adn56 · Answer

http://www.cijoint.fr/cjlink.php?file=cj200912/cij9zI0xin.zip

PCPT · Answer

avec un sérieux remaniement c'est faisable ^^



j'te laisse continuer ou tu veux des indices?

genre.... ton COUNT est faux
genre... ton affichage listview n'est pas au point
genre... LECTURE perturbe 
genre... le NEW est bien nécessaire


(tu vois finalement j'ai bien dû tout reprendre, imagine alors sur tout le projet?....)

++

Adn56 · Answer

pfff, ya des jours en me levant je baisserais bien les bras 
Bon donc en gros c'est tout faux, donc si je persiste dans cette voie je vais agraver mes bétises de codes.
Tu as du voir que ce qui ne vas pas c'est bien que je ne comprend pas ce que j'écris, je crois que j'arrive aux limites de l'auto formation.

Bon je prends les indices car il faut que j'arrive à piger cette méthode POO.
Le count est faux, ah bon il manque -1 peut-être ?
l'affichage listV est baclé et des colonnes sont masqué, sinon je vois poa 
LECTURE, Ah lecture fameuse merdouille que j'ai pondu, cela doit être le test sur le L_mensuel qui perturbe non ?
Pour finir avec le new, je m'en doute bien, même si j'ai pas encore assimilé la différence avec ou sans.
Merci de prendre du temps pour me faire grandir. (à 40ans cela prend plus de temps qu'a 16 ou 20  )

PCPT · Answer

^^

alors

Le count est faux, ah bon il manque -1 peut-être ? 
oui il manque -1
et une autre manière (pour l'apprentissage) est le bon vieux 
for each enfant as type_enfant in nom_collection



l'affichage listV est baclé et des colonnes sont masqué, sinon je vois poa 
non pire...
pour tout t'avouer j'ai mis un petit moment avant de m'en apercevoir, même du passer par une autre listview
aller j'te le dis : quelle est la différence entre
lv.clear
et 
lv.items.clear
et oui. tu prépares ta listview dans le load et au chargement tu supprimes cette préparation 
donc du coup çà marche moins bien 
ensuite notion objet, il pourrait être intéressant de demander à ta LIGNE_COMPTE qu'elle nous renvoie directement une ligne de listview, par exemple
du coup dans une boucle for each
ListView1.Items.Add(item.ToListViewItem)
bien plus facile à maintenir, à mon sens...
j'te laisse deviner quel code peut bien contenir la méthode .ToListViewItem



cela doit être le test sur le L_mensuel qui perturbe non ? 
beh j'sais pas trop là...
j'ai laissé mais ne tombe jamais dans ce IF et... ouai çà fait spaghetti quand même. c'est peu compréhensible, normal que tu t'y perdes aussi un peu.
le choix des noms des variables y est peut-être aussi pour quelquechose



Pour finir avec le new, je m'en doute bien, même si j'ai pas encore assimilé la différence avec ou sans
ok un peu d'explication simple

dim f as form2
f.show
ce code relève une erreur d'objet null également
normal on déclare la variable en tant qu'objet form2
et on l'affiche
mais F n'est pas instanciée, elle est juste typée
il faut bien faire
dim f as form2
f = new form2
f.show

sur un objet on utilise pas NEW quand on attribue notre variable à un objet existant. puisque du coup lui est attribué la valeur de l'existant, forcément

si j'ai une tableau de textbox, je peux parcourir ce tableau par
'on supporte malist étant une list(of textbox) contenant des éléments
dim t as textbox
for each t in malist
console.writeline(t.text)
next
ici pas besoin de NEW sur t, puisque t est instancié par le for each, ce n'est pas un nouvel objet

par contre si je veux ajouter une textbox à ma list
dim malist as list(of textbox)
malist.add(me.textbox1)
mon objet LIST est null au moment de l'appel, il faut bien que ma list se prépare non?
donc 
dim malist as NEW list(of textbox)
malist.add(me.textbox1)
ou
dim malist as list(of textbox)
malist = new list(of textbox)
malist.add(me.textbox1)
ou 
dim malist as list(of textbox) = new list(of textbox)
malist.add(me.textbox1)

ces 3 derniers codes étant strictement la même chose, juste des manières différentes de les écrire
on a bien notre NEW avant l'ajout


j'espère que çà t'éclaire un peu 

(moi qui ne fait pas particulièrement de dotnet çà me fait cogiter aussi )

baisse pas les bras, manque pas grand chose pour que çà fonctionne

ps : pourquoi serialiser toute la classe et pas juste les lignes?
du coup le mot de passe est enregistré en clair...

++

Adn56 · Answer

oh pinaize, ça va tout de suite mieux avec un bon prof 

tu m'étonnes que cela m'éclairci, je vais même l'imprimer ! ben oui ma tête est déja pleine d'autre chose nuisible que l'on appelle le taff 

Alors :
pour le new c'est nickel, dis comme ça je pige mieux, en fait je n'avais percuté qu'un dim ne fait que typer et déclarer, mais pas instancier. Du coup pour une string ou integer pas besoin car ce ne sont pas des objets, mais les button et class il le faut ! donc déja MERCI, l'autodidacte à fais un grand pas dans le monde de la POO 

Pour la listview, dsl c'est moi qui fait le boulet, j'ai tappé trop vite et j'ai zappé l'items.clear, j'aurais pu le trouver si je n'étais pas débordé par les autres problémes.

pour le count, je reste perplexe car tu m'éxpliquais hier que justement en faisant un new list of bidule, le count passe à 0, du coup j'ai pas fais comme avec un tableau.
Sinon avec une list vide je me suis dis qu'un for i=0 to -1 risque de ne pas lui plaire ?

ps : pourquoi serialiser toute la classe et pas juste les lignes? 
du coup le mot de passe est enregistré en clair... 

ben j'ai d'autre tableaux à sérialiser, et pis le code en clair, je ne vois pas (à part un hash super trop balaise pour moi), comment l'enregistrer dasn le fichier binaire sans passer par la sérialisation de la classe mon_compte. On re-verra cela lorsque j'aurais déja reussi à faire ce que tu as fais 

Pour que la classe renvoie directement une ligne de listview, je te suis parfaitement, mais sachant qu'aprés je vais faire des graphiques et autres filtres je vais rester comme cela pour l'instant (point trop n'en faut pour un noob, sinon )

Grace à ton aide et à ton temps, j'ai plus du tout envie de baisser les bras, je m'y colle de ce pas jusqu'a 20h ! Merci PCPT, cela fait plaisir d'avoir ton soutient, si un jour je peux te rendre la pareil en electronique ou autre klaxonne, bien cordialement.

Adn56 · Answer

En effet cela marche déja mieux,
Exemple : le count = 0 donc la boucle for i=0 to 0 se fait une fois et donc IndexOutOfRange, avec -1 il ne la fais pas si les lignes sont vides ! encore un pas de plus vers le bon chemin  merci

PCPT · Answer

si j'ai besoin d'un klaxonne.. j'te bipp 


le count passe à 0, du coup j'ai pas fais comme avec un tableau.
Sinon avec une list vide je me suis dis qu'un for i= 0 to -1 risque de ne pas lui plaire ? 

ok mais le count renvoie zéro si rien, 3 s'il y en a 3

 zero  
y'en a pas et tu vas pourtant lire, de 0 à 0  = erreur ; puisque list(0=  n'existe pas

 trois 
tu vas lire de 0 à 3, donc 4 items alors qu'ils ne vont que de 0 à 2

d'où le -1 :
for i  = 1 to x.count
  x.item(i-1)...

là t'es bon, qu'il y en ait 0 ou N

ou le for each (cf plus haut)


bon courage, je verrai ta réponse plus tard dans la soirée
++

Adn56 · Answer

si j'ai besoin d'un klaxonne.. j'te bipp
rhannn le missant prof que voila 

bon bref je loose toujours, pour le count je corrige mon code suivant ton exemple, pfff vraiment j'suis à la ramasse parceque bien sûr j'écris for i=0 to x.count-1 !
et puis de toute façon il se passe rien de bien dans mon code 
écoute je vais bosser un peu seul dessus et je t'appelle au secours si vraiment je pige plus
(style ajouter une nouvelle ligne)

exemple où je merdouille la form ajout :

        'remplir la nouvelle ligne compléte 
        Dim new_ligne As New ligne_compte 'déclare et instancie une nouvelle ligne => pcpt ^^
        new_ligne.L_date = ladate
        new_ligne.L_type = letype
        new_ligne.L_budget = lebudget
        new_ligne.L_credit = lecredit
        new_ligne.L_debit = ledebit
        new_ligne.L_pointage = pointage
        new_ligne.L_mensuel = mensuel
        F_compte.mon_compte.lignes.Insert(0, new_ligne)
        F_compte.mon_compte.save(F_compte.Fichier)
visiblement ne marche pas top top 
bonne soirée l'ami ! et encore et toujours merci à toi (vais me faire un pti C&C3 pour me changer les idées )

PCPT · Answer

effectivement tes 2 dernières lignes me sont très abstraites ^^
(enfin, pas utiles surtout)

bon jeu, à ta dispo en temps voulu

Adn56 · Answer

salut, la buse et de retour, mais juste pour te remercier pour ton attention 
j'arrive à faire ce que tu as posté, je code encore ce soir mais avec les fêtes qui approche je vais devoir faire une pause 

En attendant je te (vous) souhaites de trés bonne gueule de bois pour demain 
Lachez vous !  pis aprés , pis , puis enfin  on recode 

Bonne année la team !

PCPT · Answer

pas de souci

merci toi aussi amuse-toi bien

et bon dev

Adn56 · Answer

Yep ! je dev, et tu vas avoir du taff avec moi 
Tiens juste si tu as le temps (vraiment si tu as rien d'autre à foutre quoi) voici ce que j'ai écris pour faire comme toi.
Je trouve que le fichier sérialisé à une drole de tronche, surrement dû a t'as premiére analyse ou tu me demandais pourquoi ne pas sérialiser que la class ligne, mais bon là, cela me dépasse, en fin cela marche et cela doit être plus "clean" que la source initial, en fait la list view devient vraiment qu'un viewer.

je te joins le code pour info (ou critique, mais je préfére que tu profites de cette période de fête )

http://www.cijoint.fr/cjlink.php?file=cj200912/cijgfjBpWx.zip 


@ trés binetôt

PCPT · Answer

mouai çà prend forme ^^

par contre manque la notion objet encore et toujours 

reprenons un instant le principe de F_OP
cette form sert à remplir une ligne, un enfant...

voici comment j'avais fait l'autre jour
(comprend le principe, tout est renommé puisque j'ai repris de zéro)

affichage de la form => 


    Private Sub Bp_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bp_add.Click
        Dim f As New frmOperation
        f.cboType.DataSource = CurrentAccount.Types
        f.cboBudget.DataSource = CurrentAccount.Budgets
        f.ShowDialog()
        If Not f.Canceled Then
            CurrentAccount.Items.Add(f.Operation)
            CurrentAccount.save()
            ListView1.Items.Add(f.Operation.ToListViewItem)
        End If
        f = Nothing
    End Sub



code de la form (pas de test de saisie évidemment)

Public Class frmOperation
    Public Canceled As Boolean = False
    Public Operation As New clsAccountItem

    Private Sub frmOperation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtDateOperation.Text = Date.Now.ToString
    End Sub

    Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
        Me.Canceled = True
        Me.Close()
    End Sub

    Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        With Me.Operation
            .DateOperation = CDate(txtDateOperation.Text)
            .TypeOperation = cboType.Text
            .Budget = cboBudget.Text
            .Commentaires = txtComments.Text
            .Credit = Convert.ToDouble(txtCredit.Text)
            .Debit = Convert.ToDouble(txtDebit.Text)
            .Pointage = optPoint1.Checked
            .Mensuel = optMens1.Checked
        End With
        Me.Close()
    End Sub
End Class

tu vois un peu le principe?

dans ce cas l'enfant n'a pas besoin de connaître la classe compte

du coup pas besoin de PUBLIC non plus...
et la form ne renvoie qu'un enfant (ou pas), que l'appelant (frmMain) ajoute alors, enregistre de suite et ajoute "facilement" à la listview 

++ 


[hr]

Adn56 · Answer

Oui, je commence à entrevoir le coté obscur de mon code 
Du coup c'est moi qui est du taff pour bien digérer le réveillon et ta façon de coder.
A l'année prochaine

Adn56 · Answer

Bien àprés deux aspirines, j'ai recommencé à codé (en plus je l'avais déja fait, brrr qu'elle âne) suivant ton exemple.
Mais voila, il est poa content le VS 

        'déclare une nouvel instance de la form F_op
        Dim add As New F_op
        ' Renseigne la variable "enfant" (dans F_op : Public new_ligne As New ligne_compte)
        add.txt_credit.Text = "0"
        add.txt_debit.Text = "0"
        add.Combo_budget.DataSource = mon_compte.budgets
        add.Combo_type.DataSource = mon_compte.types
        add.calendrier.TodayDate = Now
        add.Chk_pointage.Checked = False
        add.Chk_mensuel.Checked = False
        add.ShowDialog()
        If add.DialogResult = Windows.Forms.DialogResult.OK And Not add.annule Then
            mon_compte.lignes.Add(F_op.new_ligne)
            mon_compte.save(Fichier)
            ' a faire dans la classe compte la miseAjour_lv
            ' ListView1.Items.Add(F_op.new_ligne.ToListViewItem)
            ' à supprimer ensuite...
            MiseAjour_LV() 'renvoie un nothing et donc plante
        End If
        add = Nothing

tout ajout entraine une valeur par défaut de mon_compte.lignes, j'ai du merder dés le début dans la class, quant penses tu ?
++ M.prof

Adn56 · Answer

Code de la form F_op :
Public Class F_op
    Public new_ligne As New ligne_compte 'déclare et instancie une nouvelle ligne
    Dim lecredit, ledebit As Double 'pour vérif que les valeurs sont correct (double quoi)
    Public annule As Boolean = False 'form invalide ou quité
    Private Sub txt_credit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_credit.TextChanged
        Try
            Dim rien As String = Replace(txt_credit.Text, ".", ",")
            lecredit = Double.Parse(rien)
        Catch ex As Exception
            txt_credit.Text = "0"
        End Try
    End Sub
    Private Sub txt_debit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_debit.TextChanged
        Try
            Dim rien As String = Replace(txt_debit.Text, ".", ",")
            ledebit = Double.Parse(rien)
        Catch ex As Exception
            txt_debit.Text = "0"
        End Try
    End Sub
    Private Sub Bp_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bp_ok.Click

        ' vérifie que les champs crédit et débit sont valides avant  d'écrire ou modifier une ligne !
        If txt_credit.Text "0" And txt_debit.Text "0" Then
            Me.Close()
            MsgBox("opération invalide" & vbCrLf & " solde et débit nul ", MsgBoxStyle.Exclamation)
            annule = True
            Exit Sub
        End If

        ' ajoute les nouvelles valeurs à l'enfant new_ligne
        With Me.new_ligne
            .L_date = calendrier.SelectionRange.Start
            .L_type = Combo_type.Text
            .L_budget = Combo_budget.Text
            .L_commentaire = "pas encore fait"
            .L_credit = lecredit
            .L_debit = ledebit
            .L_pointage = Chk_pointage.Checked
            .L_mensuel = Chk_mensuel.Checked
        End With
        Me.Close()
    End Sub
End Class

l'idée est conforme non ?

PCPT · Answer

bin......


et t'auras un crash si le séparateur est le "."
ou plutôt non : tu censures tout utilisateur ayant autre chose que la virgule, ce sans même l'en informer

et MsgBox c'est pas du dotnet
et vbCrLf c'est pas du dotnet

et tu as fais la même erreur que moi, à savoir mettre annule à false par défaut (et s'il clique sur la croix?)

et si tu veux appliquer des valeurs par défaut, à part les combos, j'aurais plutôt vu çà depuis la form, appelant par exemple SA ligne -> .SetDefaultProperties,  puis irait la lire ensuite

pour la double ligne ajoutée faut voir çà en pas à pas ;)

++

PCPT · Answer

en relisant ma réponse je ... pense savoir pourquoi t'as une double ligne ^^

tu vas trouver donc

PCPT · Answer

aller pour le fun, et surtout parce que ton test dans les text_changed me fait mal aux yeux Public Class frmOperation #Region "Séparateur décimal selon les regional settings" Private Const LOCALE_SDECIMAL As Integer = &HE Private Declare Auto Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Integer, ByVal LCType As Integer, ByVal lpLCData As String, ByVal cchData As Integer) As Integer Private Declare Auto Function GetUserDefaultLCID Lib "kernel32" () As Integer '''

''' Renvoie le séparateur décimal correspondant au Regional Settings propres au poste client '''

''' ''' Caractère séparateur, type Char ''' Propriété en lecture seule Public ReadOnly Property Separator() As Char Get 'vérifié à chaque usage Dim sSeparator As String = " " GetLocaleInfo(GetUserDefaultLCID, LOCALE_SDECIMAL, sSeparator, 1) Return sSeparator(0) End Get End Property #End Region Public Canceled As Boolean = True Public Operation As New clsAccountItem Private Sub frmOperation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtCredit.Text = "0" txtDebit.Text = "0" End Sub Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click Me.Close() End Sub Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click With Me.Operation .DateOperation = mcDateOperation.SelectionRange.Start .TypeOperation = cboType.Text .Budget = cboBudget.Text .Commentaires = txtComments.Text Double.TryParse(txtCredit.Text, .Credit) Double.TryParse(txtDebit.Text, .Debit) .Pointage = optPoint1.Checked .Mensuel = optMens1.Checked If .Credit.Equals(.Debit) AndAlso .Debit.Equals(0.0#) Then MessageBox.Show("Opération invalide" & Environment.NewLine & "Crédit et Débit NULL") txtCredit.Focus() Else Me.Canceled = False Me.Close() End If End With End Sub Private Sub txtCredit_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCredit.KeyPress, txtDebit.KeyPress 'interdit le coller If e.KeyChar.Equals(Convert.ToChar(22)) Then e.Handled = True Else Dim sAccept As String = "0123456789.," & Convert.ToChar(Keys.Back).ToString Dim bFound As Boolean = False For i As Integer = 0 To sAccept.Length - 1 If sAccept(i) = e.KeyChar Then 'virgule = point, ou l'inverse If (e.KeyChar.Equals("."c) And Me.Separator.Equals(","c)) _ Or (e.KeyChar.Equals(","c) And Me.Separator.Equals("."c)) _ Then e.KeyChar = Me.Separator End If bFound = True Exit For End If Next If Not bFound Then e.Handled = True Else 'exception quand même pour le multipoints If DirectCast(sender, System.Windows.Forms.TextBox).Text.Contains(Me.Separator) AndAlso e.KeyChar.Equals(Me.Separator) Then e.Handled = True End If End If End If End Sub End Class mais bon... tu peux aussi garder le fonctionnement de Separator et remplacer tes textboxes par des masktextboxes dont tu définies le masque par code, genre = "99999" & me.separator.tostring & "99" enfin...

Adn56 · Answer

Oulala ma pauvre tête 
Là tu y vas un peu fort avec moi 
N'oublis pas mon niveau de base 
Balaise le test de double ^^
Bon j'essaye de décrypter tout cela dans la journée. Merci 

et t'auras un crash si le séparateur est le "." 
ou plutôt non : tu censures tout utilisateur ayant autre chose que la virgule, ce sans même l'en informer 
 C'est vrai, mais je pensais qu'en france / europe s'était toujours pareil.

et MsgBox c'est pas du dotnet 
et vbCrLf c'est pas du dotnet 
 vi je sais mais c'est plus rapide à taper que le messagebox.show, je l'aurais modifier au final bien sûr 

et tu as fais la même erreur que moi, à savoir mettre annule à false par défaut (et s'il clique sur la croix?) 
 Ben il ne se passe rien normalement puisque je test l'appui sur "OK"
 If add.DialogResult = Windows.Forms.DialogResult.OK And Not add.annule Then 

et si tu veux appliquer des valeurs par défaut, à part les combos, j'aurais plutôt vu çà depuis la form, appelant par exemple SA ligne -> .SetDefaultProperties, puis irait la lire ensuite 
 là j'ai peur de ne pas avoir bien compri.
Si BP ajout, je renseigne les valeurs par défaut, si BP copier je transmet les valeurs de la lignes selectionnées, donc je le fais depuis la form principal. On parles bien de la même chose ?

A que bon vikend à toi

Adn56 · Answer

Ps : j'ai pas l'impression d'une double ligne dans mon bug, mais plutôt qu'elle ne se remplit pas, tout est par défaut, la date 12:00:00 et le reste à nothing -_-" . Bon vais faire les courses et je rebosse dessus aprés, kenavo

Adn56 · Answer

Wouhou i found the mistake ^^ la vache quel boulet je fais !
En fait j'écrivais cela au retour de la form F_op :
    Private Sub Bp_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bp_add.Click
        'déclare une nouvel instance de la form F_op
        Dim add As New F_op
        ' Renseigne la variable "enfant" (dans F_op : Public new_ligne As New ligne_compte)
        add.txt_credit.Text = "0"
        add.txt_debit.Text = "0"
        add.Combo_budget.DataSource = mon_compte.budgets
        add.Combo_type.DataSource = mon_compte.types
        add.calendrier.TodayDate = Now
        add.Chk_pointage.Checked = False
        add.Chk_mensuel.Checked = False
        add.ShowDialog()
        If add.valide Then
            mon_compte.lignes.Add(F_op.new_ligne)
            mon_compte.save(Fichier)
            ' a faire dans la classe compte la miseAjour_lv
            ' ListView1.Items.Add(F_op.new_ligne.ToListViewItem)
            ' à supprimer ensuite...
            MiseAjour_LV()
        End If
        add = Nothing
          End Sub
Du coup impossible de recevoir les infos de la form F_op à la validation ! ben évidement andouille que je suis,
c'est F_op qui renvois les infos, c'est add l'instance de F_op ! grrrrr, une aprés midi de perdu pour ça...
mon_compte.lignes.Add(add.new_ligne) marche beaucoup mieux ^^

Bon sinon j'ai pas tout pigé dans ton test de saisie, alors plutôt que le copier bétemment je laisse comme cela pour l'instant et je m'attaque au reste : modif de ligne et surtout suppression. @++ M.

PCPT · Answer

tu risques de souvent rencontrer ce genre de problème "dur à débugger" si tu gardes cette syntaxe/nomenclature temporaire....

je t'avais dis l'autre jour : je comprends que tu puisses t'y perdre ^^
à vouloir gagner du temps en codant à la va-vite, on en perd souvent beaucoup plus 

bonne continuation

ps :
suppression de ligne : 4 secondes sans gestion d'erreur, 2mn en passant par la classe principale
modif de ligne : réutilise F_OP existant, avec un paramètre (une propriété) d'utilisation 
( = 3mn)

quoi que pour les estimations, reste la partie rigolade : les ID 

++
[hr]

Adn56 · Answer

nouveau soucis, avant je gérais tout via la listview (grave erreur car ce n'est qu'une visualisation, d'où la refonte compléte du code, sujet de ce post^^ )
alors voila comment faire pour trier ? avant je faisait simplement : ListView1.Sorting = SortOrder.Descending 
avec un format de date sur la premiére colonne (invisible) : listItem.Text = (mon_compte.lignes.Item(ligne - 1).L_date.ToString("yyyy MM dd"))
maintenant si je test le double clic sur la list view ben j'ai pas le même index ce qui est normal.
A tu une idée pour trier ma classe, plutôt que ma listview ?
Va t'il faloir que je créer une nouvelle colonne dans ma classe avec ce format de date ? brrr
Merci pour ton aide Ô combien précieuse. amicalement

Adn56 · Answer

Oups à pas lu ta réponse avant de poster, et oui je suis bien d'accord avec toi, un bon schéma de l'appli me ferais gagner du temps en débug, mais bon j'suis automaticien hein ^^
Pour les ID je crois que mon post du dessus montre que je suis bien dans le caca - 
c'est si pas facile la prog

PCPT · Answer

tu arrives à une partie intéressante des LIST, que j'ai à peine survolé mais déjà.. 



par chance il y a de bons exemples dans la MSDN

++

PCPT · Answer

j'dois avouer...

certains aspects de dotnet sont tout simplement déconcertants

en peu de lignes....


    Private Shared Function ComparisonByDateOperationAsc(ByVal x As clsAccountItem, ByVal y As clsAccountItem) As Integer
        Return x.DateOperation.CompareTo(y.DateOperation)
    End Function


avec une tite routine qui répartie bien la chose, voilà le résultat





trace :


Ordre actuel :
DATE     TYPE     BUDGET    CREDIT     DEBIT    POINTAGE    MENSUEL
02/01/2010 00:00:00  CB  divers  10  20  True  True
02/01/2010 00:00:00  CB  alimentaire  20  30  True  False
23/01/2010 00:00:00  CB  divers  99  996,6  True  True
12/01/2010 00:00:00  VIR  divers  0  40  False  True
03/01/2010 00:00:00  TPV  divers  0  16  False  False

Ordre par date ASC:
DATE     TYPE     BUDGET    CREDIT     DEBIT    POINTAGE    MENSUEL
02/01/2010 00:00:00  CB  alimentaire  20  30  True  False
02/01/2010 00:00:00  CB  divers  10  20  True  True
03/01/2010 00:00:00  TPV  divers  0  16  False  False
12/01/2010 00:00:00  VIR  divers  0  40  False  True
23/01/2010 00:00:00  CB  divers  99  996,6  True  True



là ok, on a du managé

Adn56 · Answer

Pff, déconcertant tu l'as dit 
3heures de recherche et je pige que dalle.
déja j'ai pas taclass.items.sort(), mais plutôt mon_compte.lignes.sort(), donc je le redis j'ai du me vautrer dés le début de la class. Ensuite ben il veux rien savoir puisqu'il ne peut trier qu'une dimension.
d'ou ta sub avec X et Y, mais là pour moi c'est du chinois.
par chance il y a de bons exemples dans la MSDN 
 pour un pro comme toi surrement, mais for me c'est la grosse loose 
Je pense que j'ai cherché mes limites avec cette refonte de code, et que je les ai trouvé.
bon je cherche encore pendant une heure sur le web (de la triche tiens, mais bon...)
++ et merci

Adn56 · Answer

En plus , lorsque je fouine un peu je trouve cela (mon premier code est avec des tableaux)
Le travail sur les tableaux est beaucoup plus rapide que sur les collections.
Par exemple , pour stocker 1000 string dans un tableau ou une collection, l'usage du tableau est 60% plus rapide.
 bon j'suis pas à encore à mille lignes mais bon...c'est décourageant non ?

Adn56 · Answer

Bon j'en suis arrivé là : (dans une nouvelle class)
Imports System
Imports System.Collections.Generic

Public Class trie_lignes
    Implements IComparer(Of ligne_compte)

    Public Function Compare(ByVal x As ligne_compte, ByVal y As ligne_compte) As Integer Implements System.Collections.Generic.IComparer(Of ligne_compte).Compare
        Return x.L_date.CompareTo(y.L_date)
    End Function
End Class
Mais comme j'y pige que dalle, j'suis pas plus avancé

Adn56 · Answer

j'ai bien cette exemple :
Public Class SortListClass
    Implements IComparer(Of Basket)
 
    Public Function Compare(ByVal x As Basket, ByVal y As Basket) As Integer Implements System.Collections.Generic.IComparer(Of Basket).Compare
        If x.TaskList(0).StartTime < y.TaskList(0).StartTime Then
            Return -1
        ElseIf x.TaskList(0).StartTime = y.TaskList(0).StartTime Then
            Return 0
        Else
            Return 1
        End If
    End Function
End Class
 
    Private Sub SortActiveList()
        Dim MyComparer As New SortListClass
        ActiveList.Sort(MyComparer)
    End Sub
il me correspond bien , mais j'ai l'impression qu'il y a deux instances de la class à comparer

PCPT · Answer

ok un petit coup de main?


déja j'ai pas taclass.items.sort(), mais plutôt mon_compte.lignes.sort(), donc je le redis j'ai du me vautrer dés le début de la class.

non tu ne t'es pas forcément vautré, on a pas les mêmes noms puisque j'ai tout repris souviens-toi
je n'ai donc pas les mêmes noms...

CurrentAccount est le nom de mon instance privée, correspondant à ton instance publique nommée mon_compte

c'est pour moi l'instance de clsAccount du fichier clsAccount.vb, correspondant à ton modèle Class_fichier_compte du fichier compte.vb

(bin ouai déjà rien que là, t'as qu'une seule classe dans un fichier.vb et tu te brouilles en ne mettant même pas le même nom )

nos 2 classes ont bien des LIST(of X)
ma LIST public est une list of clsAccountItem
ta LIST public est une list of ligne_compte

ma LIST s'appelle Items
ta LIST s'appelle lignes

ma classe clsAccountItem est dans un fichier clsAccountItem.vb
ta classe ligne_compte est dans un fichier ligne.vb


chacun s'y retrouve comme il le sent, j'ai remanié de manière à m'y retrouver (forcément), maintenant à part te re-re-re-re conseiller de choisir des nomenclatures plus naturelles, le code reste le même, on a donc bien la même action :


'mon code :
CurrentAccount.Items.Sort()

'ton code :
mon_compte.lignes.sort()



voilà pour la clarification et les pseudo-correspondances





Ensuite ben il veux rien savoir puisqu'il ne peut trier qu'une dimension

effectivement et c'est là où le MSDN est bien faite et où les LIST (qui même si utilisables comme tel, ne sont pas tout à fait des COLLECTIONS) sont intéressantes

en effet l'exemple que j'ai repris :


'source : http://msdn.microsoft.com/fr-fr/library/w56d4y5z(VS.85).aspx

Imports System
Imports System.Collections.Generic

Public Class Example

    Private Shared Function CompareDinosByLength( _
        ByVal x As String, ByVal y As String) As Integer

        If x Is Nothing Then
            If y Is Nothing Then 
                ' If x is Nothing and y is Nothing, they're
                ' equal. 
                Return 0
            Else
                ' If x is Nothing and y is not Nothing, y
                ' is greater. 
                Return -1
            End If
        Else
            ' If x is not Nothing...
            '
            If y Is Nothing Then
                ' ...and y is Nothing, x is greater.
                Return 1
            Else
                ' ...and y is not Nothing, compare the 
                ' lengths of the two strings.
                '
                Dim retval As Integer =  _
                    x.Length.CompareTo(y.Length)

                If retval <> 0 Then 
                    ' If the strings are not of equal length,
                    ' the longer string is greater.
                    '
                    Return retval
                Else
                    ' If the strings are of equal length,
                    ' sort them with ordinary string comparison.
                    '
                    Return x.CompareTo(y)
                End If
            End If
        End If

    End Function

    Public Shared Sub Main()

        Dim dinosaurs As New List(Of String)
        dinosaurs.Add("Pachycephalosaurus")
        dinosaurs.Add("Amargasaurus")
        dinosaurs.Add("")
        dinosaurs.Add(Nothing)
        dinosaurs.Add("Mamenchisaurus")
        dinosaurs.Add("Deinonychus")
        Display(dinosaurs)

        Console.WriteLine(vbLf & "Sort with generic Comparison(Of String) delegate:")
        dinosaurs.Sort(AddressOf CompareDinosByLength)
        Display(dinosaurs)

    End Sub

    Private Shared Sub Display(ByVal lis As List(Of String))
        Console.WriteLine()
        For Each s As String In lis
            If s Is Nothing Then
                Console.WriteLine("(Nothing)")
            Else
                Console.WriteLine("""{0}""", s)
            End If
        Next
    End Sub
End Class

' This code example produces the following output:
'
'"Pachycephalosaurus"
'"Amargasaurus"
'""
'(Nothing)
'"Mamenchisaurus"
'"Deinonychus"
'
'Sort with generic Comparison(Of String) delegate:
'
'(Nothing)
'""
'"Deinonychus"
'"Amargasaurus"
'"Mamenchisaurus"
'"Pachycephalosaurus"





comme indiqué j'avais déjà survolé mais jamais cherché plus que çà
(beh ouai,  VB6  moi )
on voit bien le principe : comparaison de 2 STRING pour une LIST(of STRING)


donc je teste....

dans clsAccount je me fais mes fonctions shared de LIST(of CLSACCOUNTITEM) en respectant les noms X et Y attendus, et une méthode pour regrouper les appels (cf capture), se nommant SortItems, qui va ensuite aller faire le Me.Items.Sort(AddressOf LaFonctionDeMonChoix)



pas évident peut-être, mais ni si compliqué, ni décourageant, au contraire non?


après y'a autre chose à bien prendre en compte... :
avant je gérais tout via la listview (grave erreur car ce n'est qu'une visualisation, d'où la refonte compléte du code, sujet de ce post^^ ) 
justement, on trie pour quelle raison ici?
tu veux juste que l'utilisateur puisse cliquer sur les headers?
que ton fichier enregistre l'ordre préféré?

j'ai poussé ce SORT par curiosité, j'avoue...
pis c'est comme çà qu'on apprend
mais si ce n'est que(*) pour le confort de l'utilisateur, il n'y a pas de tri à faire sur ta list

(*) j'entends bien sûr qu'un tri est à faire, le confort est important, mais c'est alors bel et bien au niveau de la listview, et non au niveau de la list
la listview n'est qu'une représentation d'une vue

tu peux enregistrer sa "préférence" et forcer le tri selon cette préférence à la prochaine ré-ouverture
aucun besoin de réorganiser ta list en mémoire pour çà !
il faut juste ne pas te tromper dans les ID (et évidemment la date n'est pas un bon ID)


par contre si tu veux proposer un tri plus spécifique (pour ma part, toujours pour tester, j'ai trié par ordre croissant ou décroissant de différence entre le débit et le crédit), là oui pourquoi pas. et encore, si c'est faisable directement sur la listview (par une proposition combo ou autre) alors on en revient là : visualisation!

le tout étant bien sûr de ne jamais modifier tes items DEPUIS la listview, mais c'est ce que j'ai déjà dit au dessus



donc recadrage :
*sauvegarde ton projet 

*nouveau projet, re-pars avec des noms plus sains (même en français avec ou sans casse, il faut juste que tu t'y retrouves, ce qui n'est plus le cas ici. et français ou anglais, pas un petit mélange...)
NB : pas copier coller de ton ancien projet hein :)

*complète le projet par ce que tu as déjà fait : relis chaque bout que tu colles pour bien le comprendre. 
ex :
-ton test de double ligne lors du chargement.... il sert à quoi?
-ouverture d'un fichier existant  => depuis une SAVEBOX ?
-.SAVE juste après le OPEN? pourquoi
-etc...

*et isoler les besoins finaux! fais-toi un fichier texte, une trace à suivre pour éviter la dispersion


je reste dans les parages 
bon courage

Adn56 · Answer

je digére, je pleure, je recode et je reviens

Adn56 · Answer

Bonsoir, pour le nom des variables je vais refaire un peu de ménage, mais j'évite comme tu le fais d'utiliser des nom qui se rapproches trop du language VB (ex : items pour toi = lignes pour moi)
Mais tu as raison il faut que soit plus rigoureux.

Pour le trie je m'y colle desuite.

je suis obligé de trier la class et pas la listview, car sinon si je clic sur la listview pour pointer une ligne ou la dupliquer cela ne sera pas la bonne ligne de ma class (la listview est certe une visu, mais c'est aussi et surtout l'IHM de mon appli ;) )

Pour ce qui est de réécrire le code, je préfére finir celui là, et en refaire un nouveau aprés avec un nouveau sujet (liste de contact téléphonique par exemple), là je dois avouer que cette éxo me pompe beaucoup trop de temps et ma femme commence à trouver le temps long 

-ton test de double ligne lors du chargement.... il sert à quoi? 
-ouverture d'un fichier existant => depuis une SAVEBOX ? 
-.SAVE juste après le OPEN? pourquoi 
-etc... 


Ce n'est pas un test de double ligne c'est la mise à jours des opération marqué comme mensuel 
ouverture via une savebox ? j'ai pas vu, sinon c'est une grosse bétise, pour le save aprés le open c'est dans le cas d'un nouveau fichier.

Mais encore une fois je vérifie tout ça avant de te reposter mon travail.

Encore mille merci pour ton aide et ton soutient !

PCPT · Answer

je suis obligé de trier la class et pas la listview, car sinon si je clic sur la listview pour pointer une ligne ou la dupliquer cela ne sera pas la bonne ligne de ma class (la listview est certe une visu, mais c'est aussi et surtout l'IHM de mon appli ;) ) 
non non et.. non 

si çà ne correspond pas à la bonne ligne c'est parce que tu gères mal les ID, déjà dit
ne prend ni la position, ni la date

aller, un piste (avec toutes ces pistes c'est du code complet non? ^^) :

dans clsAccountItem
Public ID As System.Guid =  System.Guid.NewGuid  'ID unique (attention aux .Clone!!)


dans  clsAccount 
    Public Function GetItemByGuid(ByVal sGuid As String) As Integer
        If Me.Items.Count > 0 Then
            For i As Integer  = 0 To Me.Items.Count - 1
                If Me.Items(i).ID.Equals(New System.Guid(sGuid)) Then Return i
            Next
        End If
        Return -1
    End Function


et dans frmMain
    Private Sub tsmDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmDelete.Click
        Dim pos1 As Integer = ListView1.SelectedItems.Item(0).Index
        Dim pos2 As Integer = CurrentAccount.GetItemByGuid(ListView1.SelectedItems.Item(0).Text)
        If MessageBox.Show("Êtes-vous sûr de vouloir supprimer cet élément", "Suppression définitive!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = Windows.Forms.DialogResult.Yes Then
            CurrentAccount.Items.RemoveAt(pos2)
            ListView1.Items.RemoveAt(pos1)
            CurrentAccount.Save()
        End If
    End Sub


tu l'auras compris bien sûr, la première colonne masquée contient cet ID (et non la date)


mon soutien beh... pas de souci 
++

Adn56 · Answer

OUHOU 
Bon a y est j'ai pigé le truc ! en effet pas si dur et vachement puissant mine de rien (je suis incapable de comprendre ce qui se passe dasn cette fonction mais cela marche nickel ! )
Voici mon code :
Dans une classe :
Imports System
Imports System.Collections.Generic

Public Class CLS_trie_lignes
    Implements IComparer(Of CLS_lignes)

    Public Function CompareByDate(ByVal x As CLS_lignes, ByVal y As CLS_lignes) As Integer _
 Implements System.Collections.Generic.IComparer(Of CLS_lignes).Compare
        ' compare les dates et retourne un integer pour le manager de la fonction (transparent)
        If x.L_date > y.L_date Then
            Return -1
        ElseIf x.L_date = y.L_date Then
            Return 0
        Else
            Return 1
        End If
    End Function
End Class

puis dans ma classe général de compte :
    Public Sub trie()
        Dim MonTrie As New CLS_trie_lignes
        Me.lignes.Sort(MonTrie)
    End Sub

et enfin l'appel dasn mon code là ou j'en ai besoin :
        ' trie mon_compte avant 
        mon_compte.trie()

De la grosse balle, comme disent les zeuns 
Bon allez spa tout ça, au boulot @dn ^^

Adn56 · Answer

Oups à encore pas vu ton dernier post avant de poster ^^
Qu'elle réactivité nous avons 

Mais du coup j'ai pas besoin de l'ID, maintenant que c'est bien trié !
tu verras dans mon code (d'ailleur je vire la colonne caché, plus besoin ! il trie une date non formatée ;) ) et tout seul en plus 

note que je garde ton code sous le coude car cela peu énormément servir s'il on ne trie pas ordre chronologique ! merci pour l'info ^^

l'ID est le début d'une BDD à une table

PCPT · Answer

l'ID est le début d'une BDD à une table

bin mon_compte est la représentation d'une table COMPTE avec chaque champs (ligne), et la base c'est ton fichier CGB, puisque serialization... ^^

c'est une base de données depuis le début du projet

Adn56 · Answer

mouais mais pour moi je découvre ! moqueur va 

En revanche tu avais 'encore' raison, mon code de mensualisation me retourne deux lignes (ou plutôt) modifie la premiére comme la premiére...
Bon tu vas pas trop piger le code sans un peu d'éxplication :
Si la ligne à la propriété mensuel est à true et que la date est un nouveau mois, alors dupliquer la ligne en désactivant la ligne enfant pour la propriété mensuel (sinon on s'en sort plus lol)
Voici le code :
Oui je fais rien comme toi, j'aime pas copier 
    Public Function load(ByVal fichier As String) As Boolean

        Try

            Dim myFileStream As Stream = File.OpenRead(fichier)
            Dim deserializer As New BinaryFormatter()
            Dim lecture As New ClS_compte
            lecture = CType(deserializer.Deserialize(myFileStream), ClS_compte)
            myFileStream.Close()

            ' attribut la list des lignes à me
            Me.lignes = lecture.lignes
            ' attribut le resteà ME.
            Me.mdp = lecture.mdp
            Me.types = lecture.types
            Me.budgets = lecture.budgets

            'récupére le nombre de ligne initiale (avant mise à jour mensuel)
            'attention au code de pcpt c'est for i = 1 to count, puis i-1

            Dim NB_ligne As Integer = lecture.lignes.Count '- 1 'merci pcpt ^^

            ' recherche les mise à jour à faire (échéancier)
            For ligne As Integer = 1 To NB_ligne
                ' si c'est une ligne échéancier et que la date correspond au début du mois
                ' et que ce mois n'est pas déja rempli (ou alors si c'est une nouvelle année) alors
                If Now.Day >= 1 AndAlso lecture.lignes(ligne - 1).L_mensuel _
                AndAlso (Now.Month > lecture.lignes(ligne - 1).L_date.Month _
                    Or Now.Year > lecture.lignes(ligne - 1).L_date.Year) Then
                    ' retire à l'anciénne ligne le status de mensuel
                    lecture.lignes(ligne - 1).L_mensuel = False
                    'lecture.save(fichier) à voir si change kk chose
                    ' ajouter cette nouvelle ligne !
                    Dim new_ligne As CLS_lignes lecture.lignes(ligne - 1) 'pas besoin de new le instancie new_ligne (merci pcpt)
                    new_ligne.L_date = CDate(lecture.lignes(ligne - 1).L_date.Day & " " & Now.Month & " " & Now.Year)
                    new_ligne.L_pointage = False
                    new_ligne.L_mensuel = True
                    lecture.lignes.Add(new_ligne) 'pourquoi les deux lignes ont la même valeur de date ????
                    new_ligne = Nothing
                End If
            Next
            Return True
si tu as une idée, et je sais que tu en auras une

PCPT · Answer

je t'ai dit de te faire une trace papier, tu l'as faite?

regarde, je reprends juste ta phrase (avec l'avantage d'avoir un projet propre en tête )


mon code de mensualisation me retourne deux lignes (ou plutôt) modifie la premiére comme la premiére
dupliquer la ligne en désactivant la ligne enfant pour la propriété mensuel

ISOLE TON BESOIN

tu veux 2 lignes? ou tu veux ALORS modifier la ligne existante (changer le statut de MENSUEL)


après plusieurs essais j'ai tout simplement supprimé ce code de création de lignes (j'en avais marre de fermer le fichier avec 8 lignes et de le ré-ouvrir avec 16, 32, 64, etc...)


c'est peut-être l'action elle-même qui n'est pas bonne (mensuel)
le fichier représente des actions à effectuer sur un compte? ou les actions effectuées sur un compte... ?

il y a peut-être un problème de conception si tu as un doute pour répondre

et ces réponses là, je ne les ai pas, je n'ai que codé en fonction de tes infos 
(dit-il pour se déculpabiliser )

ps : et en lisant ton commentaire de test : je ne vois pas pourquoi "parce que l'année est passée" le statut MENSUEL devrait disparaitre..

PCPT · Answer

tiens pour une raison intéressante qui te sera inconnue, je viens de regarder la consommation de ton (mon ^^) projet

peux tu me dire stp :

taille du projet (que le code)
taille de l'exe
consommation ram au lancement

pour ma part :
dev : -- -67 790 octets
exe : -- -47 616 octets
ram  : 11 028 000 octets (exe SANS l'IDE !!)

11Mo juste pour une form avec une listview et 1 menu et 3 boutons!

j'ouvre le fichier contenant 6 lignes et pesant 1 526 octets
ram  : 18 256 000 octets


quand j'ouvre la 2e form, la ram augmente de entre 4Ko et 1Mo, qui ne sont pas libérés à chaque fermeture
(non non çà ne vient pas de mon code )


ceci non pour lancer de débat bien sûr, une économie de code a un coût (mais pour qui?? ...), maintenant 20Mo pour 2 forms..., je ne dis pas "fontaine je ne boirai jamais de ton eau" mais pour le moment je reste campé sur mon vieux vb6... ^^

et ce post pour preuve : pas faute d'essayer 

pour comparaison je reste néanmoins intéressé par tes chiffres si tu veux bien

bon courage 

[hr]

Adn56 · Answer

Alors, je te dois d'éclaircir cette maudite fonction.
Pour la trace sur papier, j'ai noté les choses à faire et les choses à améliorer, pour le soft en lui même cela ressemble plus à un gemma (déformation pro).
La mensualisation (booléen) est une option lors de la création d'une nouvelle opération. Cette option permet (à l'ouverture du compte) de remplir automatiquement les mêmes opérations à chaque début de mois. Ex le salaire est mensuel, donc en cochant cette option, le compte vérifira à chaque ouverture s'il doit remplir une nouvelle ligne salaire. Si la nouvelle ligne est rempli, la ligne source n'aura plus l'option mensuel, c'est la nouvelle qui l'a (comme une pile). le test pour savoir si je dois créer cette nouvelle ligne (qui fonctionne dans la version "tableau" de ma source compte.net) est donc :
Si ce jour est > début de mois et option mensuel active et (si le mois actuel est > à celui de l'opération OU ALORS c'est une nouvelle année)


Spagetti mon amour ,
bref pour le poid de l'exe, du code et de la ram je regarde cela ce soir, mais de toute façon ya pas photo, le .net est gourmand, tant en fichier de projet qu'en ressource vive, j'ai fait du delphi et du C et j'ai vu la différence. kenavo .

PCPT · Answer

ok merci pour l'explication

alors sans t'ajouter d'autres contraintes comme... :
si on dépasse minuit un jour de changement, rien ne va se passer
si on réouvre le programme juste après un changement de solstice...
si on change manuellement l'heure system
oups, j'ai dis SANS 

je ne vois pas pourquoi ta classe fait ce test

(mais qu'est-ce qu'il raconte encore?)


ok :
ton compte c'est quoi, une sorte de container d'opérations

prenons un bus (container de voyageurs)
il peut tester la quantité de liquide de frein, de gasoil, parfois même de pression des pneus, passer de la musique etc...
pas mal de méthodes 
mais autant il peut signaler qu'il n'y a plus de jus, autant il ne peut pas sortir des petites mains et transformer les passagers en gasoil, qu'il s'auto-appliquerait

déjà les passagers ne seraient pas content (les pauvres) mais surtout ce n'est pas ce qu'on lui demande : ce n'est pas sa fonction

l'objet BUS doit juste être capable de se déplacer, ce avec 0 ou N passagers


strictement pareil
l'objet COMPTE ici doit juste être capable de contenir 0 ou N enregistrements, accessibles depuis l'extérieur, et capable d'enregistrer et relire ces enregistrements


donc pour moi : ton code doit être fait après le Load, ce soit depuis l'extérieur (form), soit par une méthode à appeler depuis l'extérieur, avec précaution

(le BUS roule bien sans radio, il a quand même la méthode .PlayInfoTraffic)


enfin, j'vois çà comme çà hein, après... à toi de voir 


ps : mais si je supprime la nouvelle ligne mensuelle (salaire annulé, congé sans solde), le mois d'après il n'y en aura plus non plus, puisque (en cachette) l'enregistrement d'il y aura 2 mois a été démensualisé
ce n'est donc (sans doute) pas non plus le bonne manière de faire 

++

Adn56 · Answer

En effet, je te suis .
bon ce soir je m'y re-re-re colle ^^
j'va faire un échéancier séparé à remplir à dans la form principal, et qui sera une nouvelle collection de ma class (bonne exo en plus)
++

PCPT · Answer

tu ne pourras pas (serialization)

mais çà doit être dans ce goût là

Adn56 · Answer

ben si je rajoute une propriété, comme le budget ou autre ? bon de toute façon je m'y attéle.
Pour ta demande :

taille du projet (que le code) 
taille de l'exe 
consommation ram au lancement 

pour ma part : 
tout le projet : -- -68 Ko 
exe : -- -37 888  octets (realase)
ram : 10 736 Koctets (exe SANS l'IDE ?? je sais pas ce que cela veut dire ) 
puis en quelques secondes passe à 11 432Ko, et enfin avec ouverture et ajout d'une ligne 16 856Ko
Pour sûr c'est pas terrible ! mais mieux que Iexplorer qui bouf 78Mo à lui seul MDR

++

Adn56 · Answer

Biens me voila pret , toutes les fonctions sont OK !
pour la double de la mensualisation j'ai du écrire ceci dans la form principal (donc aprés le oad) je suis parti du même code que dans la class, mais voila seul un whit à résolu l'affaire ,pour le count ben les deux méthode marche "apparament aussi bien, je te laisse juger, toi le pro :
 Sub échéancier()
        'récupére le nombre de ligne initiale (avant mise à jour mensuel)
        'attention au code de pcpt c'est for i = 1 to count, puis i-1
        'marche pareil que si count-1 et pas de -1 à chaque i, en fin ligne ^^
        ' mais bon je lui fait confiance ^^
        Dim NB_ligne As Integer = mon_compte.lignes.Count '- 1

        ' recherche les mise à jour à faire (échéancier)
        For ligne As Integer = 1 To NB_ligne
            ' si c'est une ligne échéancier et que la date correspond au début du mois
            ' et que ce mois n'est pas déja rempli (ou alors si c'est une nouvelle année) alors
            If Now.Day >= 1 AndAlso mon_compte.lignes(ligne - 1).L_mensuel _
            AndAlso (Now.Month > mon_compte.lignes(ligne - 1).L_date.Month _
                Or Now.Year > mon_compte.lignes(ligne - 1).L_date.Year) Then
                ' retire à l'anciénne ligne le status de mensuel
                mon_compte.lignes(ligne - 1).L_mensuel = False
                ' ajouter cette nouvelle ligne !
                Dim new_ligne As New CLS_lignes 'pas besoin du new car le = instancie new_ligne (merci pcpt)
'sauf que là ben je doit faire comme ça pour que cela marche ????
                With (new_ligne)
                    .L_mensuel = True
                    .L_pointage = False
                    .L_budget = mon_compte.lignes(ligne - 1).L_budget
                    .L_type = mon_compte.lignes(ligne - 1).L_type
                    .L_commentaire = mon_compte.lignes(ligne - 1).L_commentaire
                    .L_date = CDate(mon_compte.lignes(ligne - 1).L_date.Day & " " & Now.Month & " " & Now.Year)
                    .L_credit = mon_compte.lignes(ligne - 1).L_credit
                    .L_debit = mon_compte.lignes(ligne - 1).L_debit
                End With
                mon_compte.lignes.Add(new_ligne)
                MiseAjour()
                new_ligne = Nothing
            End If
        Next
    End Sub

enfiin bref tout marche bien donc je tente une réécriture compléte avec mes "vrai bouton" de l'ancien code posté ^^
@++ pour de nouvelles aventures

Adn56 · Answer

oups un peu pef, dsl, j'ai eu du monde ce soir à l'apéro, pas simple de bien programmer dans ces conditions !
je suis pas là demain, mais je te tiens au jus pour la suite.
Merci mille fois pour ton aide si précieuse. @dn (hips)

PCPT · Answer

en lisant ton code (pas testé au final)

*with sur newline? tu gagnerais en lisibilité en le mettant sur l'item en cours de lecture (boucle)

*tu détruis l'item en boucle (bien), mais dans ce cas ne le déclare pas dans la boucle : new dans la boucle mais déclaration avant, question de logique (même s'il n'y a pas d'erreur)

*now.day >=1, à quoi sert ce test, quand est-il à zéro? le 0 février des années trissextiles? peut-être

*propreté : ta LIGNE pourrait te renvoyer cette "réponse" par méthode

*pointage VA changer? à quoi sert-il alors

*çà ne change rien au fait que si l'utilisateur supprime la nouvelle ligne, il supprime aussi cette "récurrence pourtant choisie"

*et les commentaires c'est sensé aider le lecteur, donc toi et/ou ceux qui vont lire la source. là on sait pas trop... des mercis, des jokes, ce que tu veux qui fait sourire mais çà n'aide pas plus que çà

Adn56 · Answer

Salut, pour les comms c'est juste pour ici que tu vois ma démarche et mes questions, aprés biensûr il seront dédié qu'a la compréhension du code

Donc avant de parler du code en lui même, voila la seul chose qui à changé entre celui qui balance deux lignes identiques et celui ci qui copie normalement la nouvelle mesualité.
Dim new_ligne as Cls_lignes = mon_compte(ligne)
en fait j'ai l'impression que ne pas mettre le new à créér une copie de la ligne, mais avc des Byref, ce qui fait qu'il modifie aussi mon_compte(ligne) si je modifie new_ligne. D'ou le passage en as new ligne.

*Si l'utilisateur supprime une ligne échéancier au lieu de la modifier (déplacer d'un mois ou copie avec solde à zéro), c'est tant pis pour lui  Au pire il la récrée le mois prochain.

*now.day >=1, sert uniquement pour le futur ou je placerais les lignes échéancier deux jours avant leur date de valeur ;)
now.day >= mon_compte.ligne(ligne).L_date.day-2 dans l'idée
*propreté : ta LIGNE pourrait te renvoyer cette "réponse" par méthode , c'est pour cela que je l'avais commencé dans la class et non dans la form load. Je vais refaire cela.

*with sur newline? tu gagnerais en lisibilité en le mettant sur l'item en cours de lecture (boucle) 

*tu détruis l'item en boucle (bien), mais dans ce cas ne le déclare pas dans la boucle : new dans la boucle mais déclaration avant, question de logique (même s'il n'y a pas d'erreur) 
Là j'ai pas tout compris pour le with
Pour la déclaration je ferais
dim new_ligne as cls_ligne avant la boucle, puis dans la boucle
new_ligne = new cls_ligne ?
cela change beaucoup dans la logique ?
Allez zou je prends la route, demain soir je recode les modifs. @++

PCPT · Answer

salut,

en fait j'ai l'impression que ne pas mettre le new à créér une copie de la ligne, mais avc des Byref
ce n'est pas une impression oui ^^
d'où la notion de clone (cf commentaire à côté de ID l'autre jour)

dans l'idée, juste remanier ce code, çà donnerait :



    'dans Cls_Compte
    Public Sub echeancier() '<- que tu appelles depuis la form, après le load réussi
        'récupére le nombre de ligne initiale (avant mise à jour mensuel)
        'attention au code de pcpt c'est for i = 1 to count, puis i-1
        'marche pareil que si count-1 et pas de -1 à chaque i, en fin ligne ^^
        ' mais bon je lui fait confiance ^^
        Dim Count_ligne As Integer = mon_compte.lignes.Count
        Dim new_ligne As CLS_lignes

        ' recherche les mise à jour à faire (échéancier)
        For ligne As Integer = 1 To Count_ligne
            With mon_compte.lignes(ligne - 1)
                ' si c'est une ligne échéancier et que la date correspond au début du mois
                ' et que ce mois n'est pas déja rempli (ou alors si c'est une nouvelle année) alors

                If .IsMonthlyable(DateTime.Now) Then
                    ' retire à l'anciénne ligne le status de mensuel
                    .L_mensuel = False

                    ' ajouter cette nouvelle ligne !
                    new_ligne New CLS_lignes 'pas besoin du new car le instancie new_ligne (merci pcpt)
                    'sauf que là ben je doit faire comme ça pour que cela marche ????

                    'CLONE
                    new_ligne = .Clone
                    new_ligne.L_ID = NOUVEL_ID 'du type que tu veux... IMPORTANT !!
                    new_ligne.L_mensuel = True
                    new_ligne.L_pointage False 'ou .L_pointage pour garder l'ancien ??
                    .L_date = CDate(.L_date.Day & " " & Now.Month & " " & Now.Year)

                    Me.lignes.Add(new_ligne)
                    new_ligne = Nothing
                End If
            End With
        Next
    End Sub


    'dans Cls_Lignes
    Public Function IsMonthlyable(ByVal dDate As DateTime) As Boolean
        'vérifier le nom de la fonction, pas certain que "Monthlyable" se dise...
        Return (dDate.Day >= 1 AndAlso _mensuel _
                AndAlso (dDate.Month > _date.Month _
                    Or dDate.Year > _date.Year))
    End Function

    'dans Cls_Lignes
    Public Function Clone() As CLS_lignes
        Return New CLS_lignes with {.L_id _id, .L_date _date, .L_credit = _credit, ETC, TOUTES LES PROPRIETES}
    End Function


et tu appelles MiseAjour() après avoir appelé echeancier

++

[hr]

PCPT · Answer

new_ligne.L_date = CDate(.L_date.Day & " " & Now.Month & " " & Now.Year)

Adn56 · Answer

bonsoir,
et ben dis moi toi tu aimes l'anglais et les fonctions dis donc ^^
j'ai un peude mal à lire tn code, je le comprends là, mais dans deux ans ??
Donc à mon petit niveau je garde ma méthode, avec tout de même tes corrections.
Maintenant il faut que je finalise le tout.
    Sub échéancier()
        'récupére le nombre de ligne initiale (avant mise à jour mensuel)
        Dim NB_ligne As Integer = mon_compte.lignes.Count '- 1
        ' défini une nouvelle ligne
        Dim new_ligne As CLS_lignes
        ' recherche les mise à jour à faire (échéancier)
        For ligne As Integer = 1 To NB_ligne
            With mon_compte.lignes(ligne - 1)
                ' si c'est une ligne échéancier 
                ' et que ce mois n'est pas déja rempli (ou alors si c'est une nouvelle année) alors
                If .L_mensuel AndAlso (Now.Month > .L_date.Month _
                Or Now.Year > .L_date.Year) Then
                    ' retire à l'anciénne ligne le status de mensuel
                    .L_mensuel = False
                    ' ajouter cette nouvelle ligne !
                    new_ligne = New CLS_lignes 'instancie new_ligne
                    With (new_ligne)
                        .L_mensuel = True
                        .L_pointage = False
                        .L_budget = mon_compte.lignes(ligne - 1).L_budget
                        .L_type = mon_compte.lignes(ligne - 1).L_type
                        .L_commentaire = mon_compte.lignes(ligne - 1).L_commentaire
                        .L_date = CDate(mon_compte.lignes(ligne - 1).L_date.Day & " " & Now.Month & " " & Now.Year)
                        .L_credit = mon_compte.lignes(ligne - 1).L_credit
                        .L_debit = mon_compte.lignes(ligne - 1).L_debit
                    End With
                    mon_compte.lignes.Add(new_ligne)
                    new_ligne = Nothing 'détruit new_ligne
                End If
            End With
        Next
    End Sub

PCPT · Answer

comme tu veux

ah eh j'ai repensé à la suppression d'un enregistrement sans supprimer sa mensualisation... pas essayé mais sur le principe c'est faisable (et en très peu de code) 

++

Adn56 · Answer

ah ah 

une piste ?

supp de la listview avec une nouvelle propriétée caché ?

PCPT · Answer

pas cachée mais c'est une propriété oui

Adn56 · Answer

euh sinon tant que je suis à bien écrire, que penses tu de cela ?
ais-je raison de détruire listitem ou pas, je pense que oui ,mais bon ?
       ' reste à écrire mon_compte.lignes dans le listview !
        ListView1.BeginUpdate()
        ' efface les anciennes lignes
        ListView1.Items.Clear()
        ' dim les nouvelles lignes
        Dim listItem As ListViewItem
        'pour chaque lignes (si lignes vides count=0, donc pour ne pas faire la boucle ajouter -1,
        ' mais pas au count à la variable de boucle ligne qui elle DOIT commencer à 1 et pas à 0 ! => PCPT)
        For ligne As Integer = 1 To mon_compte.lignes.Count
            listItem = New ListViewItem
            listItem.Text = (mon_compte.lignes.Item(ligne - 1).L_date.ToString("yyyy MM dd")) 'ne sert plus à rien à virer !!!!!!!!! 04/01/10
            listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_date.ToString("dd MMMM yy"))
            listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_type.ToString)
            listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_budget.ToString)
            listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_commentaire.ToString)
            listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_credit.ToString)
            listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_debit.ToString)
            listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_pointage.ToString)
            listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_mensuel.ToString)
            ListView1.Items.Add(listItem) ' ajoute les lignes
        Next ligne
        listItem = Nothing 'détruit les nouvelles lignes en mémoire
        ListView1.EndUpdate()

un with serais bien aussi non ?

bon je continu de réfléchir à ton idée, et en même temps je pense faire un control hérité de la listview pour ne plus avoir à gérer ces class cls_compte et cls_ligne, elle serait en surcharge de la listview avec add.colums et add.item, mais bon là c'st du réve pour l'instant, mais bon ... c'est cela qui fait avancer (les réves) ++

PCPT · Answer

bin.... 
j't'ai déjà donné une idée : une méthode depuis l'enregistrement lui-même. plus pratique en cas de modifs des propriétés, tout est centralisé

(pis tu fais pas ma de copier/coller, faut te relire... chaine.tostring, j'en vois pas trop l'intérêt)

Adn56 · Answer

oups bien vu ^^ En fait je code que par petite demi-heure, du coup c'est pas simple...
Faut que je le finalise et que je passe à un autre éxo plus propre.
++ M.

Adn56 · Answer

Tiens au fait, et ce pour finir de t'ennuyer avec ce code (tu as bien donner déja)
As tu remarqué que le trie par date que nous avons fait sur la list(of ligne) change la position des lignes si elles ont la même date et si elles sont pointé ou pas !
étrange non ? dans ma fonction je n'indique que la date et pourtant ça bouge !
le managé comme tu le dis n'a pas que des bon coté visiblement 
Je te repost pour info les codes de trie :
Dans la form utilisateur :
mon_compte.trie()
Dans la class compte:
    '----------------------------------------------------------------------
    ' fonction qui trie le fichier sérialisé de class CLS_compte 
    ' par date croissante, via la class CLS_trie_lignes.vb
    '----------------------------------------------------------------------
    Public Sub trie()
        Dim MonTrie As New CLS_trie_lignes
        Me.lignes.Sort(MonTrie)
    End Sub
et enfin dasn la class CLS_trie_lignes :
Imports System
Imports System.Collections.Generic

Public Class CLS_trie_lignes
    Implements IComparer(Of CLS_lignes)

    Public Function CompareByDate(ByVal x As CLS_lignes, ByVal y As CLS_lignes) As Integer _
 Implements System.Collections.Generic.IComparer(Of CLS_lignes).Compare
        ' compare les dates et retourne un integer pour le manager de la fonction (transparent)
        If x.L_date > y.L_date Then
            Return -1
        ElseIf x.L_date = y.L_date Then
            Return 0
        Else
            Return 1
        End If
    End Function
End Class

Si tu trouve l'éxplication pour notre culture perso ^^ sinon spa grave hein 
kenavo ! et @ bientôt pour de nouvelle aventure.

Adn56 · Answer

J'oubliais le petit éxo sur la supp d'une ligne mensuel ^^
pas cachée mais c'est une propriété oui 
Hummm je dirais une propriété .IsVisble qui devient false si la ligne et mensuel et que l'on tente de la supprimer de la collection ?
un peu dangereux car non visible mais potentiellement inclus dans les calculs des soldes pointées/rééls. Mais bon tu vois je cherche un peu ;)
++

Adn56 · Answer

Bon j'ai encore tout faut 
J'ai pas voulu t'écouter sur les ID et du coup je me retrouve dans la même mouise qu'avant !
J'explique je viens de tester cela :
For ligne As Integer = 1 To mon_compte.lignes.Count
            'affiche dans la listview que les lignes non pointé si l'option affiche ligne ok est à false
            If affiche_ligne_ok Or mon_compte.lignes(ligne - 1).L_pointage = False Then
                listItem = New ListViewItem
                listItem.Text = (mon_compte.lignes.Item(ligne - 1).L_date.ToString("yyyy MM dd")) 'ne sert plus à rien à virer !!!!!!!!! 04/01/10
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_date.ToString("dd MMMM yy"))
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_type)
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_budget)
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_commentaire)
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_credit.ToString)
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_debit.ToString)
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_pointage.ToString)
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_mensuel.ToString) 'pas besoin de cette ligne dans la list !
                ListView1.Items.Add(listItem) ' ajoute les lignes
            End If
        Next ligne
        listItem = Nothing 'détruit les nouvelles lignes en mémoire
        ListView1.EndUpdate()
tu le reconnais, c'est la miseAjour()
Cela marche bien !
Et bien sûr lorsque je selectionne une ligne de la listview l'item ne correspond plus à la ligne de la class ( oui je sais tu peux rire )
Donc aurais tu s'il te plait l'obligeance (faut y mettre les formes hein ) de me ré-expliquer ces fameux ID car là j'ai vraiment zappé cette partie (Il y a déja pas mal de bout de code 'utilisateur' sur ce topic, mais la base de la class alors là...)
Merci pour ta patience

PCPT · Answer

ahhahahaha 

voilà chose faite


donc l'ID te permet d'identifier une ligne, indépendamment de TOUT. çà veut dire quoi TOUT : beh tant de la LIST (de ta classe compte) que de la listview, PUISQU'EN EFFET en pointant une ligne de la listview tu dois retrouver sans erreur la ligne (position) mais aussi l'enregistrement correspondant

pour ma part j'avais donc généré un GUID pour ID, et une fonction dans ma classe compte, me retournant la position d'une ligne de la LIST depuis un ID existant, qui est retrouvé grâce à la lisview (première colonne cachée)

donc click => position listview, de côté
depuis position, GUID_STRING
méthode(guid) => position LIST

si je dois supprimer, j'ai mes 2 positions :
suppression de la LIST 
suppression de la listview (pour éviter de tout réafficher, pas utile)


    Private Sub tsmDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmDelete.Click
        Dim pos1 As Integer = ListView1.SelectedItems.Item(0).Index
        Dim pos2 As Integer = CurrentAccount.GetItemByGuid(ListView1.SelectedItems.Item(0).Text)
        If MessageBox.Show("Êtes-vous sûr de vouloir supprimer cet élément", "Suppression définitive!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = Windows.Forms.DialogResult.Yes Then
            CurrentAccount.Items.RemoveAt(pos2)
            ListView1.Items.RemoveAt(pos1)
            CurrentAccount.Save()
        End If
    End Sub



pour le IsVisible c'est bien çà (enfin je pensais plus juste à un enabled, "visible" a une notion d'affichage qui n'est pas logique pour moi dans ce cas de figure)

et pas d'erreur possible non. exemples : 
*tu vas calculer les crédits, méthode SumCredits => bouclage sur les enabled = true

*tu vas trier "perso", même si les enabled=false sont testés, non affichés donc pas d'erreur de tri/affichage  



et pour ton CompareByDate, voici le mien :

    Private Shared Function ComparisonByDateOperationAsc(ByVal x As clsAccountItem, ByVal y As clsAccountItem) As Integer
        Return x.DateOperation.CompareTo(y.DateOperation)
    End Function
    Private Shared Function ComparisonByDateOperationDesc(ByVal x As clsAccountItem, ByVal y As clsAccountItem) As Integer
        Return y.DateOperation.CompareTo(x.DateOperation)
    End Function



appelées depuis la classe compte (clsAccount) :

    Public Sub SortItems(ByVal SortOrder As SortOrderConstants, ByVal SortField As SortFieldConstants)

        Select Case SortField
            Case SortFieldConstants.DateOperation
                If SortOrder = SortOrderConstants.ByASC Then
                    Me.Items.Sort(AddressOf ComparisonByDateOperationAsc)
                ElseIf SortOrder = SortOrderConstants.ByDESC Then
                    Me.Items.Sort(AddressOf ComparisonByDateOperationDesc)
                End If
' (..........)



de ton côté l'erreur vient surement du fait que tu n'as pas toujours le même format date :
des fois cdate(a & " " & b & " " & c)
des fois datetipicker...


++

[hr]

Adn56 · Answer

de ton côté l'erreur vient surement du fait que tu n'as pas toujours le même format date : 
des fois cdate(a & " " & b & " " & c) 
des fois datetipicker... 

Bienvu, mais non le Cdate retourne une date tout aussi valide que date.now par exemple, les espace pourrait être des "/".
.L_date = CDate(mon_compte.lignes(ligne - 1).L_date.Day & " " & Now.Month & " " & Now.Year)

D'ailleur je ne fais cette manip que sur une ligne mensuel et je viens de vérifier cela le fait sur deux lignes généré par le datetimepicker.
Cela doit venir de ma méthode de comparaison, je vais essayer avec la tienne desuite.

Pour le GUID, aie j'ai commencé à lire, je pense que je vais dans un premier temps générer un simple numéro de ligne incrémenté à chaque add/copy.
Ensuite faire une moulinette dans la class pour qu'un index de listview me retourne l'index dans la classe mon_compte.
Il me faudrat aussi une propriété dans la class pour avoir le dernier N°ligne utilisé.
Ou alors je recommence à partir sur une piste à la con et je ferais mieux de creuser le GUID 

Allez au boulot ^^

Adn56 · Answer

Je viens de tester ta façon de trier (vachement plus simple que celle que j'ai trouvé sur le net)
Bon je pige pas comment cela marche, ni AdressOf, j'ai toujours eu du mal avec cette instruction.
Mais otujours est-il que le résultat est identique, voir pire d'autre lignes portant la même date bouge elle aussi lors d'un pointage sur une ligne différente, c'est un peu déroutant pour l'user final de voir ces lignes s'inverser constament :p

Adn56 · Answer

Pour finir ce soir, j'abandonne la méthode Numéro de ligne généré par mon code car trop casse gueule !
Je me penche du coup sur le GUID !
Question comment être sur qu'un ID ne sera pas en doublon ?

je pensais pouvoir faire un hash de la date de l'opération comme ID car on ne peux pas avoir deux opération qui ont la même date (seconde par exemple)
mais voila il ne veut que des paramétres précis "b".....
Si tu as du temps, merci de m'éclairer.
ex de code dans la form ajout/copie/modif instancié :
    Private Sub Bp_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bp_ok.Click
        ' vérifie que les champs crédit et débit sont valides avant  d'écrire ou modifier une ligne !
        If txt_credit.Text "0" And txt_debit.Text "0" Then
            MessageBox.Show("Opération invalide" & Environment.NewLine & "Crédit et Débit NULL" _
                            , "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txt_credit.Focus()
            Exit Sub
        Else ' sinon ajoute les nouvelles valeurs à l'enfant new_ligne et ferme
            Dim leGuid As Guid = Guid.NewGuid() 'déclare un nouvel ID
            With new_ligne
' leGuis ne peux avoir que quelque formatage voir ici : http://msdn.microsoft.com/fr-fr/library/97af8hh4(VS.95).aspx
                .L_Id = leGuid.ToString(calendrier.SelectionRange.Start.ToString) 'génére le nouvel ID
                .L_date = calendrier.SelectionRange.Start
                .L_type = Combo_type.Text
                .L_budget = Combo_budget.Text
                .L_commentaire = "pas encore fait"
                .L_credit = CDbl(txt_credit.Text) 'lecredit
                .L_debit = ledebit
                .L_pointage = Chk_pointage.Checked
                .L_mensuel = Chk_mensuel.Checked
            End With
            valide = True
            Me.Close()
            Me.Dispose()
        End If
    End Sub

PCPT · Answer

http://tools.ietf.org/html/rfc4122

un GUID se veut unique, tu n'as pas besoin d'essayer de le caler à une "date"

ID = system.guid.newguid suffit

du coup : la classe (ligne) peut le faire comme une grande
(revoir mon code d'il y a 2 ou 3 pages en arrière)

++

Adn56 · Answer

Et oui, encore une fois : 
il me reste tant de chose à comprendre...
Bon je bosse dessus. ppfff si simple pour toi.
Tu as fais quoi comme formation ?
j'veux la même

Adn56 · Answer

Bien voila mon travail Mr le correcteur 

http://www.cijoint.fr/cjlink.php?file=cj201001/cijkcVJMgX.zip 

il me reste une confusion au niveau des lignes listview et ligne de la list lorsque je clic sur la checkbox "caché les lignes pointées"

Il reste aussi un bug que je pige pas sur la coloration de la septiéme colonne de la listview (il refuse le vert, tout est grisé, pourtant...)

Enfin voila, les GUID sont apparant fonctionnel
(sauf que je recherche une string, plutôt qu'un GUID comme dans ton exemple) j'ai du louper un truc, pourtant j'ai tout relut depuis le début du topic et cela ma fait du bien !
amicalement @dn

PCPT · Answer

dur à lire mais c'est déjà mieux qu'au début

certains choix m'échappent toujours néanmoins...

mais bon, on verra en V7 ou 8 

pour le vert, le semble que c'est lié au subitem(0) dont la forecolor n'est pas défini

me semble! j'y jetterai un oeil peut-être ce soir 


bonne continuation

Adn56 · Answer

Encore trop dur à lire, zut bon je vais encore améliorer cela alors, pour les choix souvient toi que je n'ai pas la culture d'un analyste programmeur ;) Merci pour ta patience.

Adn56 · Answer

Bonsoir, pour la couleur de listview j'ai trouvé.
Je trouve cela tordu, mais cela marche :
        ' reste à écrire mon_compte.lignes dans le listview !
        ListView1.BeginUpdate()
        ' efface les anciennes lignes
        ListView1.Items.Clear()
        ' dim les nouvelles lignes
        Dim listItem As ListViewItem
        For ligne As Integer = 1 To mon_compte.lignes.Count 'donne le nombre de lignes de mon compte
            If (Chck_visu_pointage.Checked And Not mon_compte.lignes(ligne - 1).L_pointage) _
            Or Not Chck_visu_pointage.Checked Then
                listItem = New ListViewItem
                listItem.UseItemStyleForSubItems = False
                listItem.Text = (mon_compte.lignes.Item(ligne - 1).L_Id) 'index de ligne (GUID)
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_date.ToString("dd MMMM yy"))
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_type)
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_budget)
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_commentaire)
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_credit.ToString)
                listItem.SubItems.Add(mon_compte.lignes.Item(ligne - 1).L_debit.ToString)
                listItem.SubItems.Add("")
                ListView1.Items.Add(listItem) ' ajoute les lignes
            End If
        Next ligne
        listItem = Nothing 'détruit les nouvelles lignes en mémoire
        ListView1.EndUpdate()

je trouve cela tordu car le listItem.UseItemStyleForSubItems = False
permet d'avoir des couleurs différentes par colonne, mais d'un autre coté je suis obligé de faire une boucle pour colorier la ligne entiére 

Bon bref, il me reste la merdouille de l'affichage des lignes pointées ou pas. L'index et pas bon, j'ai du me mélanger les pinceaux ici :
If mon_compte.lignes(ligne).L_pointage Then
                ListView1.Items(ligne).SubItems(7).Text = "X"
                ' le reste en grisé
                For i As Integer = 0 To 6
                    ListView1.Items(ligne).SubItems(i).ForeColor = Color.DarkGray
                Next i

allez retour au boulot @dn ^^
++

Adn56 · Answer

et voila le bug ! un oubli de codage ^^
    ' lors d'un double clic je pointe ou dépointe la ligne ou si PointerToolStripMenuItem.Click
    Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick ', PointerToolStripMenuItem.Click
        If ListView1.SelectedItems.Count <> 0 Then
            Dim index_ligne As Integer = mon_compte.TrouveLaLigne(ListView1.SelectedItems.Item(0).Text)    'récupére le n°ligne du compte via son GUID
            ' chercher dans ma classe compte la ligne nouvellement pointé
            If mon_compte.lignes.Item(index_ligne).L_pointage Then
                mon_compte.lignes.Item(index_ligne).L_pointage = False
            Else
                mon_compte.lignes.Item(index_ligne).L_pointage = True
            End If
            MiseAjour() ' reload la list view pour mise à jour en fonction de la class mon compte
        End If
    End Sub


Voila le code est fonctionnel, j'attends un peu tes remarques sur la lisibilité et aprés je passe à la refonte du code déja posté ici.
Te voila un peu de temps d'économisé pour corriger mes bétises, en fait je code bien la premiére demi-heure aprés le taff, aprés je dois décrocher (la fatique surrement )
++

PCPT · Answer

possible



    ' lors d'un double clic je pointe ou dépointe la ligne ou si PointerToolStripMenuItem.Click
    Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick ', PointerToolStripMenuItem.Click
        If ListView1.SelectedItems.Count <> 0 Then
            'récupére le n°ligne du compte via son GUID
            with mon_compte.lignes.Item(mon_compte.TrouveLaLigne(ListView1.SelectedItems.Item(0).Text))
                .L_pointage = not .L_pointage
            end with
            MiseAjour() ' reload la list view pour mise à jour en fonction de la class mon compte
        End If
    End Sub

Adn56 · Answer

Whaou on peut faire ça !
with mon_compte.lignes.Item(mon_compte.TrouveLaLigne(ListView1.SelectedItems.Item(0).Text))
                .L_pointage = not .L_pointage
            end with


la vache ! je ne pensais pas ,bon ben j'le fais alors, car je comprend le code, mais je le pensais trop 'raccourci' ^^
mais reste encore une merdouille sur le trie (les lignes bougent et cela ne vient pas de moi, tu devrait avoir le même soucis !)
Ci-joint mon code de ce soir avec la gestion du solde réél/pointé dans la class, j'apprend, j'apprend ^^

http://www.cijoint.fr/cjlink.php?file=cj201001/cijspc1WCQ.zip

++ M. le prof

PCPT · Answer

je n'ai pas le problème car je ne refresh pas toute la listview, je modifie juste la ligne

500 lignes qui vont se rafraichir pour une seule coche... sans façon 

sans compter que 2 double-click "rapides" pourraient mettre une belle pagaille si le second arrivait avant la fin du 1er refresh... 

je regarderai ton zip mercredi soir
++

Adn56 · Answer

Te casse pas la tête, je vais faire pareil que toi (enfin essayer tout du moins ^^)
@++

Adn56 · Answer

Bien, j'ai reussi pour le supp dune ligne (normale tu m'as montré ton code) mais aussi pour la modif, sauf que la listview ne retrie pas si la date change -_-", faut que je bosse encore, pour la copie et l'ajout de ligne je ne vois pas trop comment faire sans passer par la mise à jour
Sinon depuis le temps qu'on en parle j'ai implémenté une fonction dans la classe CLS_ligne, elle va te rappeller quelque chose "ToListView"  j'éspére que je te fais honneur, sinon balance tes critiques 

http://www.cijoint.fr/cjlink.php?file=cj201001/cijktQ3IEq.zip 

@++ M. le correcteur (j'vais finir par payer la consultation si cela continu )

Adn56 · Answer

voici la version 'allégée' reste des bugs sur le doubleclic et autres mais je pense avoir bien épuré le code
donc voici la version sur la qu'elle bosser ;)

http://www.cijoint.fr/cjlink.php?file=cj201001/cijQS4KiXZ.zip 

en te remerciant, de retour de chantier vendredi soir ++

PCPT · Answer

on avance doucement ^^

bon, décoche la référence MS.VB? (tu codes en vb.net, pas vb6...) => 22 erreurs

redimentionnes la colonne "M"? magie... :D

f_op, "modifier", le bouton indique "ajouter"

listitem_blabla="X", là on a un souci de conception
si la LIGNE te renvoie "X" (par tolistview), elle doit soit être la seule à renvoyer ce X ( = pas ailleurs dans le code), soit partager (propriété GET) cette chaine, afin de centraliser les infos
tu ne dois pas avoir plusieurs endroit à modifier le code si tu veux passer plus tard de "X" à "*"


    Public Property lignes() As List(Of CLS_lignes)
        Get
            Return _ligne

alors, ligne ou lignes, faut que çà soit clair 


sinon en diagonale et comparé au début (rappelle-toi à l'époque... page 1 ou 2 ), c'est déjà mieux

côté "plaisir de lecture", faut suivre quand même... çà manque cruellement d'aération

un code qui fait plus de lignes parce qu'il contient plus de lignes vides, c'est pas grave hein
çà compile pareil et au moins on respire


bonne continuation

Adn56 · Answer

Bonsoir, je rentre juste de chantier, mais déja à fond dans !
bon, décoche la référence MS.VB? (tu codes en vb.net, pas vb6...) => 22 erreurs 
Je bloque sur :
-l'inputbox, visiblement pas du .net et apparament m'oblige à faire une form (un peu dommage pour une référence qui ne géne en rien le process)


redimentionnes la colonne "M"? magie... :D 
 à pas compris, de toute façon elle ne sert à rien sur la listview, donc viré...


listitem_blabla="X", là on a un souci de conception 
si la LIGNE te renvoie "X" (par tolistview), elle doit soit être la seule à renvoyer ce X ( = pas ailleurs dans le code), soit partager (propriété GET) cette chaine, afin de centraliser les infos 
tu ne dois pas avoir plusieurs endroit à modifier le code si tu veux passer plus tard de "X" à "*" 

Je pense que le nouveau zip te plaira mieux 


f_op, "modifier", le bouton indique "ajouter" 

alors là je m'en occupe pas du tout, je ne gére rien sur l'IHM je le ferais plus tard sur un code propre, la je test avec toi un code bien fait ;)


Public Property lignes() As List(Of CLS_lignes) 
Get 
Return _ligne 
alors, ligne ou lignes, faut que çà soit clair  

Mouhai je suis pas encore au point, mais le code final le sera (enfin j'éspére )

côté "plaisir de lecture", faut suivre quand même... çà manque cruellement d'aération 
 là aussi j'ai fait un peu d'air, mais bon pas partout, toutjours pour avoir un code efficasse, aprés je le formaterais et documenterais bien comme il faut.

Je te joints pour finir la derniére version de ce jour, bonne soirée et @ trés vite pour la fin de ce topic...j'ai mis V6.0.0 juste pour le fun 

http://www.cijoint.fr/cjlink.php?file=cj201001/cijecZ8ewg.zip 

kenavo !

Adn56 · Answer

PS prochaine étape demain faire des fonctions des codes redondants dans les fonctions ajout/modif/doubleclic etc...

PCPT · Answer

pour MS.VB... ok tu peux t'accorder un écart pour l'input ^^
tu as juste à le préfixer de la référence complète (microsoft.visualbasic.inputbox... je crois)
et là plus de problème, tu peux décocher, pour te forcer à avoir le reste "à la sauce dotnet"


le zip.. j'aurais bien envie d'attendre la prochaine étape pour regarder

Adn56 · Answer

Oukidouki, je fais cela dans la journée.

Adn56 · Answer

Bon j'ai un gros binss que je n'arrive pas à résoudre 
Suivant ton conseil, je n'utilise plus la miseAjour qui reload TOUTES les lignes du compte dans la LV à chaque ajout, modif ou copy. Cela marche trés bien tant que la listview affiche TOUTES les lignes. Seulement voila lorsque je cache les lignes pointées, je ne sais plus ou placer une nouvelle ligne (ou alors si au même endroit, mais si la modif de la ligne porte sur la date la ligen sera mal placé)
Voici un exemple de code avec les <> essais réalisé, seul le reload complet de la LV marche bien.
            'si instance de cette form est valide alors remplace la ligne 'évite le trie et donc la mise à jour()
            If Frm_modif.valide Then

                'modifie dans le compte
                mon_compte.remplace(index_list, Frm_modif.new_ligne)
Décidément pas pret d'en voir la fin de ce code 
Si tu as une idée je prends, Merci pour la lecture et bonne soirée à toi.

                'trie au cas où la date change
                mon_compte.trie()

                'puis l'enregistre
                mon_compte.save(Fichier)

                'supprime la ligne selectionnée
                'LV_supprime(ListView1.SelectedIndices(0))
                'trouve la nouvelle position de la ligne à ajouter à la listview et l'ajoute à la nouvelle position si la date change !
                ' //// sauf que la position de mon_compte n'est pas la même que celle de la list view en mode "caché"
                'LV_insert(mon_compte.TrouveLaLigne(Frm_modif.new_ligne.L_Id), Frm_modif.new_ligne)
                ' //// Donc pour l'instant je la remplace au même endroit dans la LV, avec la date mal placé
                'LV_remplace(ListView1.SelectedIndices(0), Frm_modif.new_ligne)
                'plus simple je fais une mise à jour de la listview !
                MiseAjour() 'reload toutes les lignes

                MiseAJourSolde()

            End If

Ce bug est commun à toutes les sub d'ajout, modif ou probablement copy, seul le supp marche puisque pas d'ajout. Voila je ne sais pas comment faire pour retrier la LV en mode "ligne pointée caché"

PS le code de mise à jour avec ou sans ligne cachée :
    Private Sub MiseAjour()

        ListView1.BeginUpdate()

        ' efface les anciennes lignes
        ListView1.Items.Clear()

        'ajoute chaque lignes du compte dans la listview
        For ligne As Integer = 1 To mon_compte.lignes.Count 'donne le nombre de lignes de mon compte
            'ajout ligne si pas pointé ou si pas demande de cacher les lignes pointées
            If (Chck_visu_pointage.Checked And Not mon_compte.lignes(ligne - 1).L_pointage) _
            Or Not Chck_visu_pointage.Checked Then
                ListView1.Items.Add(mon_compte.lignes(ligne - 1).ToListView())
            End If
        Next ligne

        ListView1.EndUpdate()

        MiseAJourSolde()

    End Sub ' à l'ouverture ou si demande "cacher les lignes pointées" charge la list view

PCPT · Answer

salut,

mais sans la manière de récupérer index_list ni la méthode replace, çà va pas être facile à trouver

Adn56 · Answer

Vi je l'ai pas noté car c'est du code basique et le soucis ne vient pas de cela, il vient simplement du fait que la list view n'affiche pas tous les items de la list compte, et du coup je n'arrive pas à placer la date au bonne endroit lors d'un ajout.
Voici l'explication des bout de code qui te manque :
Index_list=position dans la list compte, trouvé grace à item(0).txt GUID de la ligne selectionné dans la LV.mon_compte.remplace ne fait qu'un removeAt et un insert dans la list compte
Mais encore une fois il n'y a aucun probléme avec la list compte. Le seul soucis est dans l'affichage et surtout le trie des dates de la listview.
Tant que la ligne compte à modifier est au même endroit dans la listview pas de soucis, mais dés que je filtre la listview (pour n'avoir que les lignes non pointées par exemple) et que la date change je n'arrive pas à insérer cette ligne dans la listview. Sa position dans la list compte est bonne mais son index n'a plus rien à voir avec celui de listview (Ex: 500lignes dans list compte mais seulement 10 sont affichées dans la listview, si je modifie la ligne d'index 9(LV) son index dans la list compte (via son GUID) peut être 115) Si la date ne change pas je peux remplacer la ligne à l'index 9 dans la listview, mais si la date change ?? je connais la position de cette ligne dans la list compte car trié, mais je ne sais pas où l'inserer dans les 10 lignes affichées
Il faudrait que j'arrive à faire une boucle qui recherche par la date la position de la cette ligne dans la LV. OU simplement trier l'affichage de la listview, mais cela oblige à creer une nouvelle colonne date comme avant.
Tout en sachant que MiseAJour régle le probléme puisque recharge toutes la LV.Voila j'éspére être clair
Mais bon 500 lignes rafraichies juste pour une modif, trés peu pour nous

PCPT · Answer

peut-être faut-il "détrier" avant d'ajouter?

Adn56 · Answer

Oui cela marche mais cela revient à faire la mise à jour  puisque c'est là que j'affiche ou pas les lignes pointées. Le soucis de départ (post N°1) c'est que justement je ne peux pas cacher des lignes dans une listview, d'où le redim de tableaux, d'où la class.
Mais bon cela va se finir comme ça, je fais la mise à jour pour un ajout et puis zou ^^.
les duals core de maintenant le supporteront sans broncher ;)

Adn56 · Answer

Voici enfin mon travail !
http://www.vbfrance.com/codes/COMPTE_BANCAIRE-NET_50966.aspx
j'éspére te faire honneur en tant qu'éléve 
++ et merci encore pour ton aide
Fin du topic.
(ou pas )

Adn56 · Answer

J'ai posté la version "stable" (enfin) du soft ! c'est grace à toi en grande parti 

Ps j'ai tester (et laissé) un fichier de 4000 lignes et je t'assure que même en recherche de texte ou autre mes pc ne bronche pas !
@++ pour de nouvelles aventures

Redim tableau à n dimension (2 ici)

115 réponses

Votre réponse

Discussions similaires